OM020FML Determinar Fórmula a Ser Utilizada na Requisição de Peças (OFIOM020)

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:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±º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)