Histórico da Página

Ponto de Entrada

Ponto de Entrada é executado Pedidos permite efetuar a gravação do conteúdo informado na tela de 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.) aRet[01] aRet[02] M aRet[03] aRet[04] aRet[05] aRet[06] IIf(aRet[07]==STR0084,"0","1") // Sim aRet[08] aRet[09] aRet[10] aRet[11] aRet[12] aRet[15] aRet[16] aRet[17] aRet[18]
para apartir da parambox ,\{aRet\}

Exemplos
Descrição:	Este	ponto de entrada está localizado na rotina	Pedido Máquinas JD (VEIVM190) e
Observações
é 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:
Preview
Veja também
Idioma	Português(Brasil)
Versões	Todas
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Updates
Parâmetros	aRet - Vetor contendo o conteudo informado nos campos da parambox.
Retorno	N/A
Eventos de chamada do Ponto de Entrada	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

...

Variáveis

...

Programa Fonte

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

Ponto de Entrada