Importando e somando.
Enviado: 19 Set 2023 11:30
Olá!
Durante o append evitando de somar o campo quantidade com "DO WHILE" depois.
Saudações,
Itamar M. Lins Jr.
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
Itamar M. Lins Jr.