Soma

[JuniorVaz]

Ola, estou precisando fazer no meu programa, a soma de determinados dados de uma tabela, que estou fazendu no DBU do clipper. Vou mostrar um exemplo abaixo para ficar mais facil de entender:

Na tabela, os dados ficam como abaixo por exemplo:

LOTE______REF________COR________PARES
D01_______9315_______PRETO______9
D01_______10402______aZUL_______11
D01_______9302_______AMARELO___12
D02_______2526_______MARROM ___18
D02_______1251_______PRETO _____15
D03_______1100_______VERMELHO__11

Preciso fazer, com que o programa some o total de pares do lote d02, que seria 33 por exemplo, mas que ele faça a soma em tempo real no programa, para que o ususário digite o nome em um get, e ele faça a soma e de o resultado na tela. O nome que eu dei para a tabela é lanord.dbf, e o nome do get onde será digitado o lote coloquei como xlote... Esta é a ultima parte do aplicativo, mas não estou conseguindo terminar... Se alguem poder ajudar ai, Obrigado

[Augusto]

Colega,
Se eu entendi bem... faria o seguinte:

Código: Selecionar todos

sele 1
use LANORD
do while .t.
   XLOTE=space(3)
   @ lin,col get XLOTE pict 'A99' valid empty(XLOTE)=.f.
   read
   if lastkey()=27
      exit
   endif
   sum PARES to XPARES for LOTE=XLOTE
   @ lin,col say XPARES pict '9999'
enddo

Espero ter ajudado...