VM190VV1 - Inclusão ou Alteração de informações no cadastro de veículos (Tabela VV1)

Este Ponto de entrada permite a inclusão ou alteração de informações no cadastro de veículos (Tabela VV1) através da rotina Pedidos de Máquinas.

User Function VM190VV1()
nOpc := paramixb[1]
nFilial := paramixb[2]
cChaint := paramixb[3]

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

Return()

Português(Brasil)

Todas

Todos

Todas

nOpc = Inclusao = 3; Alteração = 4
cFilial = Filial do veículo (VV1)
cChaint = Chaint do veículo (VV1)

N/A

If nOpcVQ0 == 3 // Incluir
If len(aPedid) == 1 .and. aPedid[1,17] == 0
aPedid := \{\}
EndIf
Inclui := .t.
DbSelectArea("VV1")
RegToMemory( "VV1" , .t. , .f. , .t. )
ConfirmSX8()
DbSelectArea("VV1")
RecLock("VV1",.t.)
FG_GRAVAR("VV1")
VV1->VV1_FILIAL := xFilial("VV1")
VV1->VV1_CHASSI := aRet[03]
VV1->VV1_CODMAR := aRet[04]
VV1->VV1_MODVEI := aRet[05]
VV1->VV1_CORVEI := aRet[06]
VV1->VV1_SITVEI := "8" // Pedido
VV1->VV1_ESTVEI := "0" // Novo
If FieldPos('VV1_CFGBAS') > 0
VV1->VV1_CFGBAS := aRet[16]
EndIf
VV1->VV1_FILENT := aRet[18]
MsUnlock()
If !Empty(VV1->VV1_CHASSI)
VM190ALTVVA(VV1->VV1_CHAINT,VV1->VV1_CHASSI) // ALTERA TODOS VVA_CHASSI DO VEICULO
EndIf
//
aAdd(aPedid,\{ space(TamSX3("VQ0_NUMPED")[1]) , "" , space(TamSX3("VQ0_CHASSI")[1]) , space(TamSX3("VQ0_CODMAR")[1]) , space(TamSX3("VQ0_MODVEI")[1]) , space(TamSX3("VQ0_CORVEI")[1]),"" , 0 , 0 , 0 , "" , "" , space(TamSX3("VQ0_FILATE")[1]) , space(TamSX3("VQ0_NUMATE")[1]) , "" , space(TamSX3("VQ0_CONFIG")[1]) , 0 , "" , space(TamSX3("VQ0_FILPED")[1]) , "" , space(TamSX3("VQ0_OBSMEM")[1]) , space(TamSX3("VV1_FILENT")[1]) , 0 , "" \})
nLinVQ0 := len(aPedid)
DbSelectArea("VQ0")
RecLock("VQ0",.t.)
VQ0->VQ0_FILIAL := xFilial("VQ0")
VQ0->VQ0_CODIGO := GetSXENum("VQ0","VQ0_CODIGO")
ConfirmSX8()
MsUnLock()
aPedid[nLinVQ0,17] := VQ0->(RecNo())
DbSelectArea("VQ0")
Else
//
Inclui := .f.
//
DbSelectArea("VQ0")
M->VV1_CHAINT := VQ0->VQ0_CHAINT
DbSelectArea("VV1")
DbSetOrder(1)
If DbSeek(xFilial("VV1")+M->VV1_CHAINT)
RecLock("VV1",.f.)
VV1->VV1_CHASSI := aRet[03]
VV1->VV1_CODMAR := aRet[04]
VV1->VV1_MODVEI := aRet[05]
VV1->VV1_CORVEI := aRet[06]
If FieldPos('VV1_CFGBAS') > 0
VV1->VV1_CFGBAS := aRet[16]
EndIf
MsUnLock()
//
If !Empty(VV1->VV1_CHASSI)
VM190ALTVVA(VV1->VV1_CHAINT,VV1->VV1_CHASSI) // ALTERA TODOS VVA_CHASSI DO VEICULO
EndIf
//
EndIf
DbSelectArea("VQ0")
EndIf

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

VEIVM190.PRW