Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

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:
NomeTipoDescrição
nRecVQ0NuméricoCódigo da VQ0
Retorno:


NomeTipoDescrição
lRetornoLógico.t. = continuar a exclusão / .f. = parar a exclusão


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