Página 1 de 1
Soma direto nos gets sem read
Enviado: 26 Jan 2010 11:34
por 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
Re: Soma direto nos gets sem read
Enviado: 26 Jan 2010 12:08
por 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.
Re: Soma direto nos gets sem read
Enviado: 26 Jan 2010 13:00
por gilsonpaulo
Muito Obrigado era isto mesmo.