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: |
| ||||||||||||
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