Histórico da Página

Ponto de Entrada

Descrição:	Ponto de Entrada executado apos gravações na entrega do veiculo vendido.
Localização:	Atualizações / Movimentos Atendimentos / Controle Ent. Veic (VEICC610)
Eventos:	RecLock("VVA",.f.) VVA->VVA_DTEREA := dDataBase If lEntVei // Existem campos referente a Entrega Real do Veiculo VVA->VVA_HORREA := Val(Substr(Time(),1,2)+Substr(Time(),4,2)) VVA->VVA_USUREA := __cUserID EndIf MsUnLock() // Executa PE Entrega Veiculo // If ExistBlock("PVCC610DG") ExecBlock("PVCC610DG",.f.,.f.) Endif
Programa Fonte:	VEICC610.PRW
Função:	FS_VEICC610()
Parâmetros:	N/A
Retorno:	N/A

Exemplo:

Include totvs.ch

User Function PVCC610DG()

MsgInfo("Ponto de Entrada PVCC610DG executado com sucesso!","Atenção")

Return()