OM390STA Ponto de Entrada para ser executado após a mudança de Status da Conferencia NF Entrada

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência NF.Entrada, executado após a mudança de Status da Conferencia NF.Entrada.

Localização:

Atualizações / Mov Pecas / Conf. Codigo Barra (OFIOM390 - Conferencia NF Entrada)

Eventos:

If lMudouStatus

If ExistBlock("OM390STA")

ExecBlock("OM390STA",.f.,.f.,{ cConferencia , cStatus, cTpOrigem })

EndIf

Programa Fonte:

OFIOM390.PRW

Função:

OM3900115_STATUSCONFERENCIA()

Parâmetros:

Nome	Tipo	Descrição
cConferencia	Caractere	Nro.da Conferencia
cStatus	Caractere	Status Novo ( 2=Conf.Parcial;3=Conf.Finalizada;4=Conf.Aprovada;5=Conf.Reprovada )
cTpOrigem	Caractere	Tipo de Origem ( 1=Desktop ou 2=Coletor )

Retorno:

N/A

Exemplo:

Include totvs.ch

////////////////////////////////////////////////////////////////////////////////////

// //

// OM390STA - Ponto de Entrada na rotina de Conferência NF.Entrada, executado //

// após a mudança de Status da Conferencia NF.Entrada. //

// //

////////////////////////////////////////////////////////////////////////////////////

User Function OM390STA()

Local cConferencia := ParamIxb[1] // Nro.da Conferencia

Local cStatus := ParamIxb[2] // Status Novo ( 2=Conf.Parcial;3=Conf.Finalizada;4=Conf.Aprovada;5=Conf.Reprovada )

Local cTpOrigem := ParamIxb[3] // Tipo de Origem ( 1=Desktop ou 2=Coletor )

If cTpOrigem == "2" // 2=Coletor de Dados

VTAlert("Ponto de entrada OM390STA executado com sucesso!" )

Else // 1=DeskTop

MsgInfo("Ponto de entrada OM390STA executado com sucesso!" )

EndIf

Return