Histórico da Página

O Ponto de Entrada na rotina Agrega/Desagrega (VEIXA040) e sendo assim será executado no final da gravação da tabela de Veículos e Produtos (VV1 E SB1), item a item.

User Function VXX040DG()

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

Return()

Português(Brasil)

Todas

Todos

Todas

N/A

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.
If ExistBlock("VXX040DG")
ExecBlock("VXX040DG",.f.,.f.)
EndIf

VEIXX040