Ponto de Entrada
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. |
Localização: | Atualizações \ Máquinas JD \ Pedido Máquinas JD (VEIVM190) |
Eventos: | RecLock("VQ0",.f.) 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 |
Programa Fonte: | VEIVM190.PRW |
Função: | FS_VQ0() |
Exemplo:
////////////////////////////////////////////////////////////////////////////
// Ponto de Entrada executado apos gravação do VQ0 ( Pedido de Maquinas ) //
////////////////////////////////////////////////////////////////////////////
User Function VM190GRV()
MsgAlert("Ponto de Entrada VM190GRV executado com sucesso!","Atenção")
Return