Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Pedido de Veículo (VEIVM190) ao ser executada a funcionalidade Excluir. A mesma permite validações customizadas para continuar ou não a gravação ao ser executada a funcionalidade Excluir na rotina Pedido de Veículo (VEIVM190) | ||||||
Localização: | Atualizações \ Mov Saida \ Pedidos de Veículo (VEIVM190) | ||||||
Eventos: | aadd(aArquivos,{"VVG",2,VQ0->VQ0_CHAINT ,}) aadd(aArquivos,{"VVA",3,VQ0->VQ0_CHAINT ,}) aadd(aArquivos,{"VO1",4,VQ0->VQ0_CHAINT ,}) If ExistBlock("VM190EXC") nRecVQ0 := VQ0->(RecNo()) lPEExclusao := ExecBlock("VM190EXC", .f., .f., { nRecVQ0 }) VQ0->(DbGoto(nRecVQ0)) EndIf If FG_DELETA(aArquivos) .and. lPEExclusao // Begin Transaction | ||||||
Programa Fonte: | VEIVM190.PRW | ||||||
Função: | FS_VQ0() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
---|
Exemplo:
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | VM190EXC | Autor | MIL | Data | 06/02/19 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Tratamento e Gravação de campos customizados na rotina |##
##+----------| Pedidos de Máquinas/Equipamentos (VEIVM190) |##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function VM190EXC()
Local nRecVQ0 := ParamIxb[1] // Código da VQ0
Local lRetorno := .t.
MsgInfo("Ponto de entrada VM190EXC executado com sucesso!", "Atenção")
Return lRetorno