Importando e somando.

[Itamar M. Lins Jr.]

Olá!
Durante o append evitando de somar o campo quantidade com "DO WHILE" depois.

Código: Selecionar todos

    If lRddLeto
         cArqMes := cServidor+cAno+cNomeMes
         If leto_file(cArqMes)
            append from (cArqMes) for cod_mercad = eq->cod_mercad .AND. (nTQVDA += quantidade) via "LETO" 
         EndIf
      Else
         IF hb_vfExists(cDados+cAno+cNomeMes)
            cFile := cDados+cAno+cNomeMes
            append from (cFile) for cod_mercad = eq->cod_mercad .AND. (nTQVDA += quantidade) via "DBFCDX"
         endif
      EndIf

Saudações,
Itamar M. Lins Jr.