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 EndIf | ||||||||||||
Programa Fonte: | OFIOM390.PRW | ||||||||||||
Função: | OM3900115_STATUSCONFERENCIA() | ||||||||||||
Parâmetros: |
| ||||||||||||
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