Moderador: Moderadores
#define CFOP 1
#define VALOR 2
#define NUMERO 3
aLista := {}
aFiles := Directory( "*.*" )
FOR EACH oElement IN aFiles
oDoc := XmlToDoc( MemoRead( oElement[ F_NAME ] ) )
IF AScan( aLista, { | e | e[ NUMERO ] == oDoc:ChaveAcesso } ) == 0
AAdd( aLista, { oDoc:ChaveAcesso, oDoc:valor, oDoc:cfop } )
ENDIF
NEXT
ASort( aLista, { | a, b | a[ cfop ] < b[ cfop ] } )
aLista2 := {}
FOR EACH oElement IN aLista
IF nItem := AScan( aLista2, { | x | x[ CFOP ] == aLista[ CFOP ] } ) == 0
AAdd( aLista2, { oElement[ CFOP ], oElement[ Valor ] )
ELSE
aLista2[ nItem, VALOR ] += oElement[ Valor ]
ENDIF
NEXT
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Bing [Bot], Itamar M. Lins Jr. e 3 visitantes