Clipper On Line • Ver Tópico - NFE NT 2017.002

NFE NT 2017.002

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

NFE NT 2017.002

Mensagempor JoséQuintas » 29 Ago 2018 00:04

cfop.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

NFE NT 2017.002

Mensagempor JoséQuintas » 30 Ago 2018 12:37

Mas geralmente um aplicativo já conhece o que emite, e já tem relatório pra isso.
Vai complicar porque vai ter que fazer a relação de cada documento primeiro, porque pode ter repetido em pastas diferentes.

Algo mais ou menos assim:

#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       
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

NFE NT 2017.002

Mensagempor JoséQuintas » 06 Mai 2019 14:00

Só pra avisar.
A última NT 2017.002 é 1.20, de 11/04/2019.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro