Histórico da Página
Ponto de Entrada
Descrição: | Ponto de Entrada localizado na rotina de Requisição de Peças (OFIOM020) chamado no momento que o usuário informa o Tipo de Tempo e/ou o Tipo de Operação nas opções Requisição e Alteração. Este Ponto de Entrada tem a finalidade de retornar a fórmula que se deseja trabalhar, desconsiderando a atribuição padrão da fórmula pela rotina. |
Localização: | Atualizações \ Mov Oficina \ Req Peças (OFIOM020) |
Eventos: | Static Function FS_FORMUL( _cOper , _cTipTem , _lAtu_aCols ) Local lRet := .t. Local cRetForm := Space(TamSX3("VO3_FORMUL")[1]) // // PE para retornar a formula a ser utilizada na Requisição de Peças ( VO3 ) If ExistBlock("OM020FML") cRetForm := ExecBlock("OM020FML",.f.,.f.,{ _cOper , _cTipTem }) Else // Formula Padrão If !Empty(_cOper) If SFM->(FieldPos("FM_FORMUL")) > 0 SFM->(DBSetOrder(1)) If SFM->(MsSeek(xFilial("SFM")+_cOper)) cRetForm := SFM->FM_FORMUL EndIf EndIf EndIf If Empty(cRetForm) .and. !Empty(_cTipTem) VOI->(dbSetOrder(1)) If VOI->(MsSeek(xfilial("VOI")+_cTipTem)) cRetForm := VOI->VOI_VALPEC EndIf EndIf EndIf // If !Empty(cRetForm) M->VO3_FORMUL := cRetForm If _lAtu_aCols aCols[ n , FG_POSVAR("VO3_FORMUL") ] := cRetForm EndIf Else lRet := .f. EndIf // Return lRet |
Programa Fonte: | OFIOM020.PRW |
Função: | FS_FORMUL |
Retorno: | cRetFml = Código da Formula que se deseja trabalhar. |
Parâmetro: | _cOper = Tipo de Operação do TES _cTipTem = Tipo de Tempo |
Exemplo:
#Include 'Protheus.ch'
/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ OM020FML º Autor ³ MIL º Data ³ 12/03/18 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Retorna a Formula a ser utilizada na Requisição de Peças º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Oficina -> Requisição de Peças º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OM020FML()
Local _cOper := ParamIXB[01] // Tipo de Operação do TES
Local _cTipTem := ParamIXB[02] // Tipo de Tempo
Local cRetFml := "001234" // Retorno - Formula da Peça
//
MsgAlert("Ponto de Entrada OM020FML executado com sucesso!")
//
Return(cRetFml)