DT_OXC09UMD_Valida_a_Quantidade_Digitada_pelo_Usuario

Ponto de Entrada

Descrição:	Ponto de Entrada na rotina de Consulta de Peças por Aplicação, executado na validação da digitação das quantidades. Finalidade: Pode ser utilizado para validar a quantidade digitada pelo usuario.
Eventos:	Function OXC009MED(nUnidMed) Local lRet := .t. If ExistBlock("OXC09UMD") lRet := ExecBlock("OXC09UMD",.F.,.F.,{SB1->B1_COD,nUnidMed,IIf(nUnidMed==1,MV_PAR08,MV_PAR07)}) // PE para validar digitacao do usuario EndIf If lRet If nUnidMed == 2 // 2a.Unidade de Medida ( Converter para 1a.Unidade de Medida ) If SB1->B1_CONV <> 0 If SB1->B1_CONV == 1 .or. MsgYesNo(STR0073+CHR(13)+CHR(10)+CHR(13)+CHR(10)+Alltrim(Transform(MV_PAR07,cPictQtd)+" "+SB1->B1_SEGUM)+" » "+Alltrim(Transform(MV_PAR07SB1->B1_CONV,cPictQtd)+" "+SB1->B1_UM),STR0003) // Deseja converter? / Atencao MV_PAR08 := MV_PAR07 SB1->B1_CONV EndIf EndIf MV_PAR07 := 0 EndIf EndIf Return(lRet)
Programa Fonte:	OFIXC009.PRW
Função:	OXC009MED
Parâmetros:	1o.parametro: Codigo do Item ( SB1->B1_COD ) 2o.parametro: Unidade de Medida ( 1 = 1a.Unidade de Medida / 2 = 2a.Unidade de Medida ) 3o.parametro: Quantidade digitada pelo usuario
Retorno:	lRet ( .t. = ok , .f. = nao permite a quantidade digitada )

Exemplo:

/*

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

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

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

±±ºPrograma ³ OXC09UMD º Autor ³ Andre Luis Almeida º Data ³ 99/99/99 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ¹±±

±±ºDescricao ³ Validar a quantidade digitada pelo usuario º±±

±±ºParametros 1) Codigo do Item ( SB1->B1_COD ) º±±

±±º 2) Unidade de Medida ( 1=1a.Unid.Medida / 2=2a.Unid.Medida )º±±

±±º 3) Quantidade digitada pelo usuario º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹±±

±±ºUso ³ OFIXC009 - Consulta de Itens por Aplicacao º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼±±

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

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OXC09UMD()

Local cCodSB1 := ParamIXB[01] // Codigo do Item ( SB1->B1_COD )

Local nUnidMed := ParamIXB[02] // Unidade de Medida ( 1=1a.Unid.Medida / 2=2a.Unid.Medida )

Local nQtdeDig := ParamIXB[03] // Quantidade digitada pelo usuario

Local lRet := .t.

If nUnidMed == 1 // 1a.Unid.Medida

// MV_PAR08

MsgInfo("Ponto de Entrada OXC09UMD executado com sucesso","1a.Unidade de Medida")

ElseIf nUnidMed == 2 // 2a.Unid.Medida

// MV_PAR07

MsgInfo("Ponto de Entrada OXC09UMD executado com sucesso","2a.Unidade de Medida")

EndIf

Return(lRet)