Histórico da Página

Ponto de Entrada

Descrição:

Permite que o usuário manipule e valide informações da tabela VQ1 nos diversos processos que utilizam a tabela na rotina.

Localização:

Atualizações \ Máquinas JD \ Pedido Máquinas JD (VEIVM190)

Eventos:

Function VEM1900098_VerificaPEVQ1(nTipo)

If ExistBlock("VM190VQ1")

ExecBlock("VM190VQ1",.f.,.f.,{nTipo,VV1->VV1_FILIAL,VV1->VV1_CHAINT})

EndIf

Return nil

Programa Fonte:

VEIVM190.PRW

Função:

VEM1900098_VERIFICAPEVQ1()

Parâmetros:

Nome	Tipo	Descrição
nTipo	Numérico	ParamIxb[1] - Em que momento está sendo chamado
cFilial	Caracter	ParamIxb[2] - Filial
cNumPed	Caracter	ParamIxb[3] - Numero do pedido posicionado

Posicionado na VQ1 de acordo com a variável nTipo, onde:

nTipo = 1 - Chamado ao gerar a Nota Fiscal, após salvar as informações na tabela VQ1

nTipo = 2 - Chamado no levantamento dos bônus, após a Exclusão dos bônus existentes quando informado que deve ser excluído (msgYesNo)

nTipo = 3 - Chamado no levantamento dos bônus relacionados, enquanto Grava a tabela VQ1

nTipo = 4 - Chamado na exclusão da VQ1 na Manutenção de Pedido, após exclusão

nTipo = 5 - Chamado na Manutenção do Bonus, ao Incluir / Alterar

nTipo = 6 - Chamado na Manutenção do Bonus, após a Exclusão

nTipo = 7 - Chamado no Cancelamento do bônus

Retorno:

N/A

Exemplo:

Include totvs.ch

User Function VM190VQ1()

Local nTipo := ParamIxb[1] // Em que momento está sendo chamado

Local cFilial := ParamIxb[2] // Filial

Local cChaInt := ParamIxb[3] // Chassi

If nTipo == 1

MsgInfo("Ponto de entrada VM190VQ1 executado com sucesso após gerar nota fiscal!")

Else

MsgInfo("Ponto de entrada VM190VQ1 executado com sucesso! nTipo = "+cValToChar(nTipo))

EndIf

Return