Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Requisição de peças (OFIOM020) e é utilizado de forma que o usuário crie validações customizadas antes da gravação de Requisição ou Devolução de peças

Localização:

Atualizações \ Mov Oficina \ Req Pecas (OFIOM020)

Eventos:

// Controle de Lote

If lRet .and. cReqDev == "1"

If lCtrlLote

lRet := OM020LOTES(@aColsLotes)

EndIf

EndIf

//


If lRet

If (ExistBlock("OM020RDOK")) // Ponto de Entrada para adicionar validações customizadas antes da gravação

lRet := ExecBlock("OM020RDOK", .f., .f., {cReqDev})

EndIf

EndIf


If lRet

aVO2NOSNUM := {}

lRet := FS_GRAREQ(,,,aColsLotes,@aVO2NOSNUM) // Executa Gravacao

If !lOM020Auto .and. lRet

FS_ORDBUSCA(aVO2NOSNUM)

EndIf

EndIf



Programa Fonte:

OFIOM020.PRW                                                                                                                                          

Função:

FS_CHAMAGRAREQ()              

Retorno:

NomeTipoDescriçãoObrigatório
cReqDevAuxCaracterTipo da rotina que está sendo executada - "0-Devolução" / "1-Requisição".Sim

Exemplo:

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM020RDOK | Autor | MIL | Data | 22/11/18 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Inclusão no aNewBot de Requisição de Serviços - Requisitar |##

##|Descrição | Customizar validações antes da gravação da Requisição ou |##

##+----------| Devolução da peça - (Requisição de Peças - OFIOM020) |##

##+----------+--------------------------------------------------------------+##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM020RDOK()

Local cReqDevAux := ParamIxb[1] // 0-Devolução / 1-Requisição

Local lRetorno := .t.


MsgInfo("Ponto de entrada OM020RDOK executado com sucesso!","Atenção")

Return lRetorno