VM190GRV - Ponto de Entrada Após Gravação da Tabela VQ0 na Rotina Pedido Máquinas JD (VEIVM190)

Descrição:

Este ponto de entrada está localizado na rotina Pedido Máquinas JD (VEIVM190) e é executado após a gravação dos registros da tabela VQ0 durante uma inclusão/ alteração de registro.

Eventos:

VQ0->VQ0_NUMPED := M->MV_PAR01

VQ0->VQ0_DATPED := M->MV_PAR02

VQ0->VQ0_CHAINT := VV1->VV1_CHAINT

VQ0->VQ0_CHASSI := M->MV_PAR03

VQ0->VQ0_CODMAR := M->MV_PAR04

VQ0->VQ0_MODVEI := M->MV_PAR05

VQ0->VQ0_CORVEI := M->MV_PAR06

VQ0->VQ0_FATDIR := M->MV_PAR07 // 0=Sim / 1=Nao

VQ0->VQ0_VALCUS := M->MV_PAR08

VQ0->VQ0_VALINI := M->MV_PAR09

VQ0->VQ0_DESNEG := M->MV_PAR10

VQ0->VQ0_DATVEN := M->MV_PAR11

VQ0->VQ0_DATENT := M->MV_PAR12

VQ0->VQ0_DATFDD := M->MV_PAR15

VQ0->VQ0_CONFIG := M->MV_PAR16

VQ0->VQ0_FILPED := M->MV_PAR19

VQ0->VQ0_DATPRE := M->MV_PAR24

If lVQ0_BASCFD

VQ0->VQ0_BASCFD := M->MV_PAR23

EndIf

VQ0->VQ0_OBSMEM := M->MV_PAR21

If lVQ0_FLUXO

VQ0->VQ0_FLUXO := M->MV_PAR27

VQ0->VQ0_DATFLU := M->MV_PAR28

EndIf

If lVQ0_DATORS

VQ0->VQ0_DATORS := M->MV_PAR29 // Data ORSD

EndIf

If lVQ0_EVENTO

VQ0->VQ0_EVENTO := M->MV_PAR31 // Evento

EndIf

For ni := 1 to len(aCposUser)

If !Empty(aCposUser[ni])

&("VQ0->"+aCposUser[ni]) := &("M->"+aCposUser[ni])

EndIf

Next

MsUnLock()

If ExistBlock("VM190GRV") // PE apos gravacao dos campos da VQ0

ExecBlock("VM190GRV",.f.,.f.)

EndIf

Função:

FS_VQ0()