Árvore de páginas

Ponto de Entrada

Descrição:

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

Localização:

Cadastro / Mov Oficina / Conf. Peças Oficina 

Eventos:

If lMudouStatus

If ExistBlock("OA212STA")

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

EndIf

EndIf

Programa Fonte:

OFIA212.PRW

Função:

OA2120115_STATUSCONFERENCIA()

Parâmetros:
NomeTipoDescriçã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

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

// //

// OA212STA - Ponto de Entrada na rotina de Conferência Oficina, executado após //

// a mudança de Status da Conferencia Oficina. //

// //

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

User Function OA212STA()

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 OA212STA executado com sucesso!" )

Else // 1=DeskTop

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

EndIf


Return