Soma direto nos gets sem read

[gilsonpaulo]

Olá a todos, ja vi isso aqui no forum mas não consegui encontrar novamente. Seria soma de valores nos gets sem usar read.

Ex.:

Código: Selecionar todos

@ 01,01 get quantidade picture "99"
@ 02,01 get valor picture "9999.99"
@ 03,01 say total picture "9999.99"

Conforme vou preenchendo os gets quantidade e valor ja vai me dando o total.


Att

Gilson Paulo Schuck

[alxsts]

Olá!

Não há como ativar a leitura de uma lista de Gets sem utilizar o comando READ ou a função ReadModal( GetList ).

Para resolver o problema apresentado, sugiro o que segue:

Código: Selecionar todos

   @ 01,01 get quantidade picture "99"
   @ 02,01 get valor picture "9999.99"

   @ 03,01 GET total picture "9999.99" ;
            WHEN { |oGet| CalcVal( oGet ) }

   ReadModal( GetList )

//--------------------------------------------------------------------------------------------------------------------
FUNCTION CalcVal( oGet )

   oGet:VarPut( quantidade * valor )
   oGet:UpDateBuffer()

   RETURN .F.

[gilsonpaulo]

Muito Obrigado era isto mesmo.