Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

nOpc

Numérico

ParamIXB[01] 

nReg

Numérico

ParamIXB[02]

aVetCpoMem

Vetor

ParamIXB[03] 

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