Histórico da Página

Este Ponto de Entrada será é executado na rotina Pedidos Máquinas (VEIVM190) e permitirá permite efetuar a gravação do conteúdo informado na tela de parametros apresentada ao clicar no botão "Incluir" na tabela VQ0 (parâmetros. Este conteúdo é gravado na Tabela Pedido de Veículos (VQ0).

User Function VM190GRV()
Local aRet := ParamIXB[1]

Reclock("VQ0",.f.)
VQ0->VQ0_CONFIG := aRet[19]
MsUnlock()


Return(.t.)

Português(Brasil)

Todas

Todos

Todas

aRet - Vetor contendo o conteudo informado nos campos da parambox.

N/A

RecLock("VQ0",.f.)
VQ0->VQ0_NUMPED := aRet[01]
VQ0->VQ0_DATPED := aRet[02]
VQ0->VQ0_CHAINT := M->VV1_CHAINT
VQ0->VQ0_CHASSI := aRet[03]
VQ0->VQ0_CODMAR := aRet[04]
VQ0->VQ0_MODVEI := aRet[05]
VQ0->VQ0_CORVEI := aRet[06]
VQ0->VQ0_FATDIR := IIf(aRet[07]==STR0084,"0","1") // Sim
VQ0->VQ0_VALCUS := aRet[08]
VQ0->VQ0_VALINI := aRet[09]
VQ0->VQ0_DESNEG := aRet[10]
VQ0->VQ0_DATVEN := aRet[11]
VQ0->VQ0_DATENT := aRet[12]
VQ0->VQ0_DATFDD := aRet[15]
VQ0->VQ0_CONFIG := aRet[16]
VQ0->VQ0_FILPED := aRet[17]
VQ0->VQ0_OBSMEM := aRet[18]
MsUnLock()

If ExistBlock("VM190GRV") // PE para gravacao dos campos da VQ0 apartir da parambox
ExecBlock("VM190GRV",.f.,.f.,\{aRet\})
EndIf

//
End Transaction

VEIVM190