Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada localizado após a gravação da ausência do produtivo na rotina Ausência de Produtivo (OFIOM050).

Este ponto de entrada fornece como parâmetro, qual o tipo de operação (nOpc), Data Incial e Data Final.

Localização:

Atualizações/Mov Produtivo/Ausencia Produtivo(OFIOM050)

Eventos:

End Transaction


If !lRet .and. lAchou

MostraErro()

EndIf


If ExistBlock("OM050DGR")

ExecBlock("OM050DGR",.f.,.f.,{nOpc, aCols[n, FG_POSVAR("VO4_DATINI")], aCols[n, FG_POSVAR("VO4_DATFIN")] })

EndIf


Return(lRet)

Programa Fonte:

OFIOM050.PRW

Função:

FS_OM050GRA ()

Parâmetros:
NomeTipoDescrição

nOpc

Numérico

ParamIXB[01] 

dDatIni

Data

ParamIXB[02]

dDatFin

Data

ParamIXB[03] 

Retorno:

Não há.


Exemplo:

/*
===================================================
##########################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função    |  OM050DGR  | Autor | MIL                   | Data | 12/03/24         |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição |  Ponto de entrada chamado apos a gravação                        |##
##              da Ausencia doProdutovo                                                            |##
##+----------+--------------------------------------------------------------    +##
##+----------+--------------------------------------------------------------    +##
##########################################################
=================================================
*/

User Function OM050DGR()



Local nOpc := PARAMIXB[1]
Local dDatIni := PARAMIXB[2]
Local dDatFin := PARAMIXB[3]

MsgAlert("Ponto de Entrada OM050DGR executado com sucesso!")


Return