Histórico da Página

Descrição

O

No Ponto de Entrada

na

,a rotina Agrega/Desagrega (VEIXA040)

sendo assim será executado no final da gravação da tabela de Veículos e Produtos (VV1 E SB1)

Observações
. Neste ponto de entrada poderão ser gravadas informações complementares nas tabelas VV1 e SB1 referente aos AMS gerado no Agrega/Desagrega. Executado após a gravação do VV1/SB1, item a item.

Preview

Exemplos	User Function VXX040DG() MsgInfo("Ponto de entrada VXX040DG executado com sucesso!") Return()
Veja também

Updates

Idioma	Português(Brasil)
Versões	Todas
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas

Eventos de chamada do Ponto de Entrada

Parâmetros	N/A
Retorno	N/A

aAdd(aIncSB1,\{"B1_GRTRIB" ,VV1->VV1_GRTRIB ,Nil\})
aAdd(aIncSB1,\{"B1_POSIPI" ,VV1->VV1_POSIPI ,Nil\})
DbSelectArea("SB1")
DbSetOrder(1)
lMsErroAuto := .f.
MSExecAuto(\{|x,y| mata010(x,y)\},aIncSB1,3)
If lMsErroAuto
DisarmTransaction()
MostraErro()
Return
EndIf
aAMS[ni,02] := VV1->VV1_CHASSI
aAMS[ni,05] := VV1->(RecNo())
aAMS[ni,06] := SB1->B1_LOCPAD
aAMS[ni,07] := SB1->B1_COD
aAMS[ni,12] := VV1->VV1_CHAINT

// Neste ponto de entrada

poderá ser chamada uma tela para digitação de quaisquer campos que se deseja e
// logo depois gravá-los, pois a tabela Vv1 e SB1 estão posicionadas neste momento

poderão ser gravadas informações complementares nas tabelas VV1 e SB1 referente aos AMS gerado no Agrega/Desagrega. Executado após a gravação do VV1/SB1, item a item.
If ExistBlock("VXX040DG")

ExecBlock

Variáveis
ExecBlock("VXX040DG",.f.,.f.) EndIf

Programa Fonte

VEIXX040

	VEIA330
Função	VA3300081_VV1_AMS()

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave