FiveTech Support Forums

Señores... Buenas noches

uso : fwh 15.01 + xharbour.com (12.3)

Requiero retornar un valor a través de una función, usando un parámetro por referencia y obtengo valores diferentes si lo hago desde un GET:VALID  o silo hago invocando la función directamente :

FUNCTION capturaValorTexto(nCanTar,nUniMed,nPreAdi)

LOCAL oDlgBr1,  oCanTem, oBotAce
LOCAL oWndAct := GetWndDefault()
LOCAL lEstFun := .T.

nUniMed := 32  

set decimals to 6

PUBLIC cCanTem := SPACE(16)


DEFINE DIALOG oDlgBr1 TITLE HB_OEMTOANSI("Registro de cantidades") ;
           FROM 125, 100 TO 280,550 ;
           OF oWndAct PIXEL

   @ 25,05 SAY "Cantidad "  ;
           PIXEL SIZE 60,20 ;
           COLOR CLR_BLUE FONT M->oFonAc1 OF oDlgBr1

   @ 15,70 GET oCanTem VAR cCanTem OF oDlgBr1 ;   // cCanTem := "1*1" 
           PICTURE "XXXXXXXXXXXXXXXX" ;
           PIXEL SIZE 120,25 ;
           UPDATE ;
           COLOR CLR_WHITE,CLR_GREEN FONT M->oFonAc8 ;
           VALID ( convierteSartaValores(cCanTem,@nCanTar,nUniMed,oDlgBr1,oBotAce,@lEstFun,@nPreAdi)   )   
//esta es la función                                    1*1, 0 , 32          

   @ 50, 100 BUTTONBMP oBotAce PROMPT "Aceptar";
             ACTION ( oDlgBr1:END() )  ;
             SIZE 40,16 PIXEL OF oDlgBr1


ACTIVATE DIALOG oDlgBr1  CENTER ON INIT ( oCanTem:SetFocus() )

// VALORES RETORNADOS
ALERT(nCanTar)  // 0.031000
ALERT(M->xCanSug) // 0.031250

// INVOCANDO LA FUNCION DIRECTAMENTE

/* cCanTem := "1*1"
   nUniMed := 32 
  nCanTar := 0

convierteSartaValores(cCanTem,@nCanTar,nUniMed,oDlgBr1,oBotAce,@lEstFun,@nPreAdi)

// VALORES RETORNADOS
ALERT(nCanTar)  // 0.031250
ALERT(M->xCanSug) // 0.031250  VARIABLE PUBLICA

*/


RETURN  lEstFun

//***************************************************************

FUNCTION convierteSartaValores(cCanTem,nCanTar,nUniMed,oDlgBr1,oBotAce,lEstFun,nPreAdi)


LOCAL nCanTmo := 0  , nvlrCa1 := nvlrCa2 := nvlrCa3 := 0
LOCAL nPosIni := 0
LOCAL nPosFin := 0 , cCanTe2 := ""
LOCAL nCanFac := 0

set decimals to 6

nPosIni := ATNUM('*',cCanTem,1)
cCanTe2 := SUBS(cCanTem,nPosIni+1)
nPosFin := ATNUM('*',cCanTe2,1)
IF nPosFin > 0
   nPosFin += nPosIni
ENDIF

// PARA EL EJP. CONVIERTE EL TEXTO "1*1" => 1
IF nPosIni > 0
   IF nPosFin > 0
      nvlrCa1 := VAL(SUBS(cCanTem,1,nPosIni-1))
      nvlrCa2 := VAL(SUBS(cCanTem,nPosIni+1,nPosFin-1))
      nvlrCa3 := VAL(SUBS(cCanTem,nPosFin+1))
      nCanTmo := ( nvlrCa1 * nvlrCa2 * nvlrCa3 )
      nCanFac :=  nvlrCa1 * ( nvlrCa2 + nvlrCa3 )
   ELSE
      nvlrCa1 := VAL(SUBS(cCanTem,1,nPosIni-1))
      nvlrCa2 := VAL(SUBS(cCanTem,nPosIni+1))
      nCanTmo := ( nvlrCa1 * nvlrCa2 )
      nCanFac := nvlrCa2
   ENDIF

   M->vMenReg[3] := cCanTem
ELSE
   nCanFac := 0
   nCanTmo := VAL(cCanTem)
   nCanTar := nCanTmo
   M->xCanSug := nCanTar
   lEstFun := .F.
   RETURN .T.
ENDIF

nPreAdi := nCanFac

nCanTar := ( nCanTmo / nUniMed )  // ESTA ES LA OPERACION FINAL => ( 1 / 32 )

M->xCanSug := nCanTar     // VARIABLE PUBLICA

lEstFun := .T.

RETURN 

//***************************************************************

JOHNSON RUSSI

SET DECIMALS TO nDecimal // NUMERO DE DECIMALES QUE NECESITES
nCanTar := ( nCanTmo / nUniMed )
SET DECIMALS TO 3 // VUELVES AL VALOR

   @ 15,70 GET oCanTem VAR cCanTem OF oDlgBr1 ;   // cCanTem := "1*1" 
           PICTURE "XXXXXXXXXXXXXXXX" ;
           PIXEL SIZE 120,25 ;
           UPDATE ;
           COLOR CLR_WHITE,CLR_GREEN FONT M->oFonAc8 ;
           VALID ( convierteSartaValores(cCanTem,@nCanTar,nUniMed,oDlgBr1,oBotAce,@lEstFun,@nPreAdi)   )