VXA50VV1 - Inclusão ou Alteração de informações no Cadastro de Veículos

Este Ponto de Entrada permite a inclusão ou alteração de informações no cadastro de veículos (Tabela VV1).

User Function VXA50VV1()
nOpc := ParamIxb[1]
cFilial := ParamIxb[2]
cChaint := ParamIxb[3]

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

Return()

Português(Brasil)

Todas

Todos

Todas

nOpc = (3 para inclusão ou 4 para alteração)
cFilial = Filial do VV1
cChaint = Chaint do VV1

N/A

MsUnLock()
DbSelectArea("VV1")
RecLock("VV1",.t.)
VV1->VV1_FILIAL := xFilial("VV1")
VV1->VV1_CHAINT := M->VV1_CHAINT
VV1->VV1_CODMAR := M->VQ0_CODMAR
VV1->VV1_MODVEI := oAuxGetDados:aCols[nReg,FG_POSVAR("VQ0_MODVEI","oAuxGetDados:aHeader")]
VV1->VV1_CORVEI := oAuxGetDados:aCols[nReg,FG_POSVAR("VQ0_CORVEI","oAuxGetDados:aHeader")]
VV1->VV1_SITVEI := "8" // Pedido
VV1->VV1_ESTVEI := "0" // Novo
VV1->VV1_FILENT := xFilial("VVF")
MsUnlock()

If ExistBlock("VXA50VV1") // PE inclusao/alteracao de informacoes na tabela VV1
ExecBlock("VXA50VV1",.f.,.f.,\{nOpc,VV1->VV1_FILIAL,VV1->VV1_CHAINT\})
EndIf

VEIXA050.PRW