Histórico da Página
Ponto de Entrada
Descrição: | Ponto de Entrada na rotina de Conferência de Entrada por Volume, executado após a mudança de Status da Conferencia. | ||||||||||||
Localização: | Atualizações / Mov Peças / Conferencia de Itens por Volume de Entrada | ||||||||||||
Eventos: | ... If lMudouStatus If ExistBlock("OA340STA") ExecBlock("OA340STA",.f.,.f.,{ cConferencia , cStatus , cTpOrigem }) EndIf EndIf ... | ||||||||||||
Programa Fonte: | OFIA340.PRW | ||||||||||||
Função: | OA3400111_STATUSCONFERENCIA() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: | Não há. |
Exemplo:
Include totvs.ch
////////////////////////////////////////////////////////////////////////////////////
// //
// OA340STA - Ponto de Entrada na rotina de Conferência de Entrada por Volume, //
// executado após a mudança de Status da Conferencia. //
// //
////////////////////////////////////////////////////////////////////////////////////
User Function OA340STA()
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 OA340STA executado com sucesso!" )
Else // 1=DeskTop
MsgInfo("Ponto de entrada OA340STA executado com sucesso!" )
EndIf
Return