FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Actualizaci贸n de Variable en Calculo "SOLUCIONADO"
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Actualizaci贸n de Variable en Calculo "SOLUCIONADO"
Posted: Thu May 26, 2022 02:16 AM
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 (fw): Select all Collapse
聽 聽 聽聽 聽聽 聽 聽 聽 @ 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
FWH 22.10 - HARBOUR - PELLES C
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Actualizaci贸n de Variable en Calculo
Posted: Thu May 26, 2022 07:07 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Actualizaci贸n de Variable en Calculo
Posted: Thu May 26, 2022 01:32 PM
Otra idea podr铆a ser que coloques la validaci贸n dentro de un codeblock
Code (fw): Select all Collapse
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
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Actualizaci贸n de Variable en Calculo
Posted: Thu May 26, 2022 01:40 PM
Antonio Linares wrote: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
FWH 22.10 - HARBOUR - PELLES C
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Actualizaci贸n de Variable en Calculo
Posted: Thu May 26, 2022 01:41 PM
leandro wrote:Otra idea podr铆a ser que coloques la validaci贸n dentro de un codeblock
Code (fw): Select all Collapse
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
FWH 22.10 - HARBOUR - PELLES C

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions