VA180OK Ponto de Entrada para ser executado após a Inclusão ou Exclusão da Nota Fiscal

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conhecimento de Frete, executado após a Inclusão ou Exclusão da NF de Conhecimento de Frete.

Localização:

Atualizações \ Mov Atendimento \ Conhecimento de Frete

Eventos:

...

If ExistBlock("VA180OK") // P.Entrada apos a Inclusao ou Exclusao do Conhecimento de Frete

ExecBlock("VA180OK",.F.,.F.,{ nOpcDMS , nRecSF1 , aRecSF1Ori , cTRACPA })

EndIf

...

Programa Fonte:

VEIA180.PRW

Função:

VA1800031_A116INCLUI()

Parâmetros:

Nome	Tipo	Descrição
nOpcDMS	Numérico	nOpc da rotina ( 3 = Inclusao / 5 = Exclusao )
nRecSF1	Numérico	RecNo do SF1 criado ou excluido ( NF Conhecimento de Frete )
aRecSF1Ori	Matriz	RecNos das NFs de origens (selecionadas somente na Inclusão)
cTRACPA	Caractere	Numero da Transação de Compra (VVF_TRACPA) relacionada a NF de Conhecimento de Frete

Retorno:

N/A

Exemplo:

Include totvs.ch

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

// //

// VA180OK - Ponto de Entrada na rotina de Conhecimento de Frete, executado após //

// a Inclusão ou Exclusão da NF de Conhecimento de Frete. //

// //

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

User Function VA180OK()

Local nOpcDMS := ParamIxb[1] // nOpc da rotina ( 3 = Inclusao / 5 = Exclusao )

Local nRecSF1 := ParamIxb[2] // RecNo do SF1 criado ou excluido ( NF Conhecimento de Frete )

Local aRecSF1Ori := ParamIxb[3] // RecNos das NFs de origens (selecionadas somente na Inclusão)

Local cTRACPA := ParamIxb[4] // Numero da Transação de Compra (VVF_TRACPA) relacionada a NF de Conhecimento de Frete

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

Return