Actualización de Variable en Calculo "SOLUCIONADO"

[remtec]

Amigos.

No doy con la actualización del valor de una variable en un calculo.

Necesito que la variable "Tot", muestre el producto de (Can * Uni) en la validación, que puede ser actualizada por los Get respectivos.

Muchas gracias y muchos saludos.

Antonio

Code: Select all  Expand view

                @ 130,125 GET oCan    Var Can       SIZE 050,22 PIXEL OF oDlg3   PICTURE "9,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE;
             VALID IF(!(Can>0),(MsgStop("Cantidad debe ser Mayor a 0"), ((Tot:=Can * Uni),oTot:SetText(Tot),oTot:UpDate(), oTot:Refresh()),.F.), .t. )

                @ 160,125 GET oUni    Var Uni       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE
                @ 190,125 SAY oTot    Var Tot       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 Border

 

[Antonio Linares]

Prueba con oTot:Assign( Tot ) en vez de oTot:SetText( Tot )

[leandro]

Otra idea podría ser que coloques la validación dentro de un codeblock

Code: Select all  Expand view

Local bCalcula := <||
        IF !(Can>0)
            MsgStop("Cantidad debe ser Mayor a 0")
        ELSE
            Tot:=Can * Uni
            oTot:Refresh()
        ENDIF
    >

@ 130,125 GET oCan    Var Can       SIZE 050,22 PIXEL OF oDlg3   PICTURE "9,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE;
VALID (EVAL(bCalcula),.T.)

@ 160,125 GET oUni    Var Uni       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE;
VALID (EVAL(bCalcula),.T.)

@ 190,125 SAY oTot    Var Tot       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 Border

 

[remtec]

Prueba con oTot:Assign( Tot ) en vez de oTot:SetText( Tot )

Maestro Antonio

Muy buen dia.

Muchas gracias por responder.

Aplique su sugerencia " Assign ", pero aplica, no genera ningun cambio.

Muchas gracias y muchos saludos.

Anotnio

[remtec]

Otra idea podría ser que coloques la validación dentro de un codeblock

Code: Select all  Expand view

Local bCalcula := <||
        IF !(Can>0)
            MsgStop("Cantidad debe ser Mayor a 0")
        ELSE
            Tot:=Can * Uni
            oTot:Refresh()
        ENDIF
    >

@ 130,125 GET oCan    Var Can       SIZE 050,22 PIXEL OF oDlg3   PICTURE "9,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE;
VALID (EVAL(bCalcula),.T.)

@ 160,125 GET oUni    Var Uni       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 UPDATE;
VALID (EVAL(bCalcula),.T.)

@ 190,125 SAY oTot    Var Tot       SIZE 080,22 PIXEL OF oDlg3   PICTURE "99,999,999"   COLOR RGB(0,0,128)   FONT oFonte1 Border

 

Hola Leandro.

Muchas gracias por responder.

Funciono PERFECTO.

Mil gracias y muchos saludos.

Antonio