Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na Rotina de Requisição/Devolução de Peças da Ordem de Serviço. Executado na validação da quantidade que o usuário pretende devolver.

Localização:

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

Eventos:

Function FS_VldAlt020(nQtdDev,nAuxPos,lVldPE)


Default nAuxPos := oLboxD:nAt

Default lVldPE := .f.


If nQtdDev > aIteaDev[nAuxPos,10]

Help(" ",1,"M020DEVQTDE",,STR0154 + ": " + transform(aIteaDev[nAuxPos,10],"@E 99999") ,4,1) // Saldo

return .f.

Endif

If lVldPE .and. ExistBlock("OM020VDV")

If !ExecBlock("OM020VDV",.f.,.f.,{ aIteaDev[nAuxPos,2] , aIteaDev[nAuxPos,6] , aIteaDev[nAuxPos,7] , aIteaDev[nAuxPos,10] , nQtdDev })

return .f.

EndIf

EndIf


return .t.

Programa Fonte:

OFIOM020.PRW

Função:

FS_VldAlt020()

Parâmetros:
NomeTipoDescrição

aIteaDev[nAuxPos,2]

Vetor

Parâmetro 1 - Tipo de Tempo

aIteaDev[nAuxPos,6]

Vetor

Parâmetro 2 - Grupo do Item

aIteaDev[nAuxPos,7]

Vetor

Parâmetro 3 - Código do Item

aIteaDev[nAuxPos,10]

Vetor

Parâmetro 4 - Qtde. Requisitada

nQtdDev

Numérico

Parâmetro 5 - Qtde. Desejada informada pelo usuário a Devolver

Retorno:
NomeTipoDescrição
lRet

Lógico

Validação na tela de digitação da quantidade desejada a devolver

Exemplo:

Include totvs.ch

/*

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

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

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

##|Função | OM020VDV | Autor | MIL | Data | 06/05/19 |##

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

##|Descrição | Ponto de Entrada na Rotina de Requisição/Devolução de Peças |##

## | da Ordem de Serviço. Executado na validação da quantidade |##

## | que o usuario pretente devolver. |##

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

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

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

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

*/

User Function OM020VDV()

Local lRet := .t.

Local cTipTem := ParamIXB[1] // Parametro 1 - Tipo de Tempo

Local cGruIte := ParamIXB[2] // Parametro 2 - Grupo do Item

Local cCodIte := ParamIXB[3] // Parametro 3 - Codigo do Item

Local nQtdReq := ParamIXB[4] // Parametro 4 - Qtde.Requisitada

Local nQtdDev := ParamIXB[5] // Parametro 5 - Qtde. Desejada informada pelo usuario a Devolver


If int(nQtdDev) <> nQtdDev

MsgStop("Impossivel devolver quantidade fracionada.","Ponto de Entrada OM020VDV")

lRet := .f.

EndIf


Return lRet