Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conhecimento de Frete, executado após correção do custo do veiculo na NF de Origem (VVG). A execução ocorre somente se o parametro MV_MIL0157 estiver com conteudo 1.

Localização:

Atualizações \ Mov Atendimento \ Conhecimento de Frete

Eventos:

...

dBSelectArea("VVG")

RecLock("VVG",.f.)

VVG->VVG_VCNVEI := nCustoVeic

MsUnlock()

If lVA180CT

ExecBlock("VA180CT",.F.,.F.,{ nOpcDMS })

EndIf

...

Programa Fonte:

VEIA180.PRW

Função:

VA1800081_CORRIGIR_CUSTOVVG()

Parâmetros:
NomeTipoDescrição

nOpcDMS

Numérico

nOpc da rotina ( 3 = Inclusao / 5 = Exclusao )

Retorno:

N/A

Exemplo:

Include totvs.ch

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

// //

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

// correção do custo do veiculo na NF de Origem (VVG). A execução //

// ocorre somente se o parametro MV_MIL0157 estiver com conteudo 1. //

// //

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

User Function VA180CT()

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


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


Return