Ponto de Entrada
Descrição: | Ponto de Entrada OF180DGR criado na rotina Cadastro de Equipe Tecnica(OFIOA180). O Ponto de Entrada será chamado no final das operações de Inclusão, Alteração e Exclusão e terá um retorno Logico. | ||||||||||||
Localização: | Atualizações/Cadastro Geral/Equipe Tecnica(OFIOA180) | ||||||||||||
Eventos: | //--------> Inclusão If AxInclui(cAlias,nReg,nOpc,aCampos,,,"FS_VALTEC('I')",,,aButtons) == 1 FS_GRCONTPROD(VAI->VAI_CODTEC) if ExistBlock("OF180DGR") // Ponto de Entrada retorna TRUE ou FALSE apos gravação if !ExecBlock("OA180DGR",.f.,.f.,{nOpc,nReg,aVetCpoMem}) Return(.f.) Endif Endif Endif //--------> Alteração If AxAltera(cAlias,nReg,nOpc,aCampos,,,,"FS_VALTEC('A')",,,aButtons) == 1 FS_GRCONTPROD(VAI->VAI_CODTEC) if ExistBlock("OF180DGR") // Ponto de Entrada retorna TRUE ou FALSE apos gravação if !ExecBlock("OF180DGR",.f.,.f.,{nOpc,nReg,aVetCpoMem}) Return(.f.) Endif Endif EndIf //--------> Exclusão AxDeleta(cAlias,nReg,nOpc,,,aButtons) if ExistBlock("OF180DGR") // Ponto de Entrada retorna TRUE ou FALSE apos gravação CAMPOA180() if !ExecBlock("OF180DGR",.f.,.f.,{nOpc,nReg,aVetCpoMem}) Return(.f.) Endif Endif | ||||||||||||
Programa Fonte: | OFIOA180.PRW | ||||||||||||
Função: | OA180A(), OA180I(), OA180E() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: | Lógico. |
Exemplo:
/*
==================================================
##########################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | OF180DGR | Autor | MIL | Data | 12/03/24 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Ponto de entrada chamado apos a gravação |##
## da inclusão, alteração e exclusão do cadastro |##
## da equipe tecnica |##
##+----------+-------------------------------------------------------------- +##
##+----------+-------------------------------------------------------------- +##
##########################################################
==================================================
*/
User Function OF180DGR()
Local nOpc := PARAMIXB[1]
Local nReg := PARAMIXB[2]
Local aVetCpoMem := PARAMIXB[3]
MsgAlert("Ponto de Entrada OF180DGR executado com sucesso!")
Return