Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Acbrpaf Registro D3

CleitonMaciel

Por CleitonMaciel
em ACBrSintegra/ACBrPAF

 Compartilhar
  • Este tópico foi criado há 4198 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

CleitonMaciel Enthusiast

CleitonMaciel

Postado
Postado

Galera peguei o exemplo do ACBrPAF pra gera meu arquivo de DAVs emitidos mas percebi que ele não pega a numeração do DAV, ele pega uma e repete ela em todos os registros D3.

 

Não entendi como ele faz essa amarração com o registro D2, no exemplo mesmo ele poem vários DAVs com a numeração ZERADA, depois ele faz uma sequência alguém aqui pode me ajudar nessa questão?

Grande abraço....

Link para o comentário
Compartilhar em outros sites
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado

Bom é um exemplo de como gerar e utilizar

 

para cada D2 vai ter N D3

então você vai alimentar o D2 com o cabeçalho do DAV 

e dentro dele criar os N D2 com os itens 

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites
CleitonMaciel Enthusiast

CleitonMaciel

Postado
  • Autor
Postado (editado)

Ta dentro do loop... 

 

 

 



      


 


   if FileExists(pNomeArquivo) then
            DeleteFile(pNomeArquivo);


PreencherHeader(ACBrPAF.PAF_D.RegistroD1); // preencher header do arquivo


ACBrPAF.PAF_D.RegistroD2.Clear;
         while not QDav.Eof do
         begin
            D2              := ACBrPAF.PAF_D.RegistroD2.New;
            D2.NUM_FAB      := emSerialECF;
            D2.MF_ADICIONAL := LetraMFAds;
            D2.TIPO_ECF     := emTipoECF;
            D2.MARCA_ECF    := emMarcaECF;
            D2.MODELO_ECF   := emModeloECF;




            if GeraLerMD5_Tabela_Dados(1,QDav.FieldByName('dav').AsInteger,0,'ORCAMENTO','','', Dados.Vendas_GDB,Dados.Transacao) then
               D2.RegistroValido := True // diz quando o registro foi modificado no banco
            else
               D2.RegistroValido := False;




            D2.COO          := QDav.FieldByName('COO').AsString;
            D2.NUM_DAV      := ZeroEsquerda(QDav.FieldByName('dav').AsString,13);
            D2.DT_DAV       := QDav.FieldByName('emissao').AsDateTime;
            D2.TIT_DAV      := 'ORCAMENTO';
            D2.VLT_DAV      := QDav.FieldByname('total_liquido').AsCurrency;
            D2.COO_DFV      := QDav.FieldByName('COO').AsString;
            D2.NUMERO_ECF   := Copy(numECF,2,3);
            D2.NOME_CLIENTE := QDav.FieldByName('NOME').AsString;
            D2.CPF_CNPJ     := FiltraNumero(QDav.FieldByName('CNPJ').AsString);
            QDav.Next;
         end;


         qDavIte := TMDOQuery.Create(nil);
         qDavIte.Database := Dados.Vendas_GDB;
         qDavIte.Transaction := Dados.IBVendas;
         if FileExists(pNomeArquivo) then
            DeleteFile(pNomeArquivo);


         PreencherHeader(ACBrPAF.PAF_D.RegistroD1); // preencher header do arquivo


         ACBrPAF.PAF_D.RegistroD2.Clear;
         while not QDav.Eof do
         begin
            D2              := ACBrPAF.PAF_D.RegistroD2.New;
            D2.NUM_FAB      := emSerialECF;
            D2.MF_ADICIONAL := LetraMFAds;
            D2.TIPO_ECF     := emTipoECF;
            D2.MARCA_ECF    := emMarcaECF;
            D2.MODELO_ECF   := emModeloECF;
            D2.COO          := QDav.FieldByName('COO').AsString;
            D2.NUM_DAV      := ZeroEsquerda(QDav.FieldByName('dav').AsString,13);
            D2.DT_DAV       := QDav.FieldByName('emissao').AsDateTime;
            D2.TIT_DAV      := 'ORCAMENTO';
            D2.VLT_DAV      := QDav.FieldByname('total_liquido').AsCurrency;
            D2.COO_DFV      := QDav.FieldByName('COO').AsString;
            D2.NUMERO_ECF   := Copy(numECF,2,3);
            D2.NOME_CLIENTE := QDav.FieldByName('NOME').AsString;
            D2.CPF_CNPJ     := FiltraNumero(QDav.FieldByName('CNPJ').AsString);


            if GeraLerMD5_Tabela_Dados(1,QDav.FieldByName('dav').AsInteger,0,'ORCAMENTO','','', Dados.Vendas_GDB,Dados.Transacao) then
               D2.RegistroValido := True // diz quando o registro foi modificado no banco
            else
               D2.RegistroValido := False;


  QDav.Next;
         end;


         qDavIte := TMDOQuery.Create(nil);
         qDavIte.Database := Dados.Vendas_GDB;
         qDavIte.Transaction := Dados.IBVendas;


         qDavIte.First;
         while not qDavIte.Eof do
         begin
            with D2.RegistroD3.New do
            begin
              DT_INCLUSAO   := qDavIte.FieldByName('data_inclusao').AsDateTime;
              NUM_ITEM      := qDavIte.FieldByName('nitem').AsInteger;
              COD_ITEM      := ZeroEsquerda(qDavIte.FieldByName('produto').AsString,14);
              DESC_ITEM     := qDavIte.FieldByName('descricao').AsString;
              QTDE_ITEM     := qDavIte.FieldByName('qtde').AsCurrency;
              UNI_ITEM      := qDavIte.FieldByName('un').AsString;
              VL_UNIT       := qDavIte.FieldByName('vlunit').AsCurrency;




              if qDavIte.FieldByName('desconto').AsFloat < 0 then
                 xDesc := qDavIte.FieldByName('desconto').AsFloat * (-1)
              else
                 xDesc := qDavIte.FieldByName('desconto').AsFloat;




              VL_DESCTO     := xDesc;
              VL_ACRES      := qDavIte.FieldByName('acrescimo').AsCurrency;
              VL_TOTAL      := qDavIte.FieldByName('vliquido').AsCurrency;
              SIT_TRIB      := qDavIte.FieldByName('cst').AsString;
              ALIQ          := qDavIte.FieldByName('aliq').AsCurrency;
              IND_CANC      := qDavIte.FieldByName('canc').AsString;
              DEC_QTDE_ITEM := 4;
              DEC_VL_UNIT   := 4;




              if GeraLerMD5_Tabela_Dados(1,qDavIte.FieldByName('cod_venda').AsInteger,qDavIte.FieldByName('produto').AsInteger,'ORC_ITENS','','',
                 Dados.Vendas_GDB,Dados.Transacao) then
                 RegistroValido := True
              else
                 RegistroValido := False;




            end;
            qDavIte.Next
         end;



			
				


	Editado  por CleitonMaciel
	
	

			
		


		

		
	


	

	





	
Link para o comentário

	
		
	
	
	
	
	

	
	
Compartilhar em outros sites

	

	


	

	

	




	




					
					
					
				

					

					
					






					
					
					
				

					

					
					






					
						
    
							
							
								
  • 
									3 meses depois ...
								
    • 
							
						

					
					
					
				

					

					
					






	

	

	

		

			

				


	
		wesleyxn
	

				
				
					
						
Apprentice
					
				
			

		

		

			

				


wesleyxn
			

			

				Postado 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Postado 
			
			
				
				
			
		

	


	

    

	

		
		

			
Preciso de ajuda....


Estou iniciando o desenvolvimento dos arquivos Paf, executei o ACBR_PAF_Demo.exe, e cliquei em Tipo D, ele gerou o arquivo PAF_D.txt


aí validei esse arquivo no Projeto Acbr - Verificador de arquivos do Paf-ECF Versao da ER 01.13 aí foram encontrados alguns erros,

exemplo: linha 2 tamanho da linha 206 menor do que o esperado 212.

Será se existe alguma coisa errada com meus componentes ?


D1007126213304072836267621242 72417268477011DEMO PAF                                         

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 0000000            20130509Pedido                        77000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 0000040            20130504Pedido                        6000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00002211           20130504Pedido                        42000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00001012           20130503Pedido                        51000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00001815           20130501Pedido                        58000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00003618           20130509Pedido                        68000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00000824           20130507Pedido                        6000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00002035           20130505Pedido                        58000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00002040           20130501Pedido                        11000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00005640           20130502Pedido                        62000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00004242           20130508Pedido                        18000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00000045           20130507Pedido                        71000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00001260           20130503Pedido                        60000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 00004270           20130506Pedido                        64000000001NOME CLIENTE                            00012345678921

D200712621330407NUMFAB78901234567890 ECF-IF ACBr                PAF                 000045105          20130502Pedido                        10000000001NOME CLIENTE                            00012345678921

D30            20130509110            descricao do item                                                                                   10UN 10010T7N22

D30            20130509210            descricao do item                                                                                   10UN 10010T7N22

D30            20130509310            descricao do item                                                                                   10UN 10010T7N22

D30            20130509410            descricao do item                                                                                   10UN 10010T7N22

D30            20130509510            descricao do item                                                                                   10UN 10010T7N22

D30            20130509110            descricao do item                                                                                   10UN 10010T7N22

D30            20130509210            descricao do item                                                                                   10UN 10010T7N22

D30            20130509310            descricao do item                                                                                   10UN 10010T7N22

D30            20130509410            descricao do item                                                                                   10UN 10010T7N22

D30            20130509510            descricao do item                                                                                   10UN 10010T7N22

D311           20130509110            descricao do item                                                                                   10UN 10010T7N22

D311           20130509210            descricao do item                                                                                   10UN 10010T7N22

D311           20130509310            descricao do item                                                                                   10UN 10010T7N22

D311           20130509410            descricao do item                                                                                   10UN 10010T7N22

D311           20130509510            descricao do item                                                                                   10UN 10010T7N22

D312           20130509110            descricao do item                                                                                   10UN 10010T7N22

D312           20130509210            descricao do item                                                                                   10UN 10010T7N22

D312           20130509310            descricao do item                                                                                   10UN 10010T7N22

D312           20130509410            descricao do item                                                                                   10UN 10010T7N22

D312           20130509510            descricao do item                                                                                   10UN 10010T7N22

D315           20130509110            descricao do item                                                                                   10UN 10010T7N22

D315           20130509210            descricao do item                                                                                   10UN 10010T7N22

D315           20130509310            descricao do item                                                                                   10UN 10010T7N22

D315           20130509410            descricao do item                                                                                   10UN 10010T7N22

D315           20130509510            descricao do item                                                                                   10UN 10010T7N22

D318           20130509110            descricao do item                                                                                   10UN 10010T7N22

D318           20130509210            descricao do item                                                                                   10UN 10010T7N22

D318           20130509310            descricao do item                                                                                   10UN 10010T7N22

D318           20130509410            descricao do item                                                                                   10UN 10010T7N22

D318           20130509510            descricao do item                                                                                   10UN 10010T7N22

D324           20130509110            descricao do item                                                                                   10UN 10010T7N22

D324           20130509210            descricao do item                                                                                   10UN 10010T7N22

D324           20130509310            descricao do item                                                                                   10UN 10010T7N22

D324           20130509410            descricao do item                                                                                   10UN 10010T7N22

D324           20130509510            descricao do item                                                                                   10UN 10010T7N22

D335           20130509110            descricao do item                                                                                   10UN 10010T7N22

D335           20130509210            descricao do item                                                                                   10UN 10010T7N22

D335           20130509310            descricao do item                                                                                   10UN 10010T7N22

D335           20130509410            descricao do item                                                                                   10UN 10010T7N22

D335           20130509510            descricao do item                                                                                   10UN 10010T7N22

D340           20130509110            descricao do item                                                                                   10UN 10010T7N22

D340           20130509210            descricao do item                                                                                   10UN 10010T7N22

D340           20130509310            descricao do item                                                                                   10UN 10010T7N22

D340           20130509410            descricao do item                                                                                   10UN 10010T7N22

D340           20130509510            descricao do item                                                                                   10UN 10010T7N22

D340           20130509110            descricao do item                                                                                   10UN 10010T7N22

D340           20130509210            descricao do item                                                                                   10UN 10010T7N22

D340           20130509310            descricao do item                                                                                   10UN 10010T7N22

D340           20130509410            descricao do item                                                                                   10UN 10010T7N22

D340           20130509510            descricao do item                                                                                   10UN 10010T7N22

D342           20130509110            descricao do item                                                                                   10UN 10010T7N22

D342           20130509210            descricao do item                                                                                   10UN 10010T7N22

D342           20130509310            descricao do item                                                                                   10UN 10010T7N22

D342           20130509410            descricao do item                                                                                   10UN 10010T7N22

D342           20130509510            descricao do item                                                                                   10UN 10010T7N22

D345           20130509110            descricao do item                                                                                   10UN 10010T7N22

D345           20130509210            descricao do item                                                                                   10UN 10010T7N22

D345           20130509310            descricao do item                                                                                   10UN 10010T7N22

D345           20130509410            descricao do item                                                                                   10UN 10010T7N22

D345           20130509510            descricao do item                                                                                   10UN 10010T7N22

D360           20130509110            descricao do item                                                                                   10UN 10010T7N22

D360           20130509210            descricao do item                                                                                   10UN 10010T7N22

D360           20130509310            descricao do item                                                                                   10UN 10010T7N22

D360           20130509410            descricao do item                                                                                   10UN 10010T7N22

D360           20130509510            descricao do item                                                                                   10UN 10010T7N22

D370           20130509110            descricao do item                                                                                   10UN 10010T7N22

D370           20130509210            descricao do item                                                                                   10UN 10010T7N22

D370           20130509310            descricao do item                                                                                   10UN 10010T7N22

D370           20130509410            descricao do item                                                                                   10UN 10010T7N22

D370           20130509510            descricao do item                                                                                   10UN 10010T7N22

D3105          20130509110            descricao do item                                                                                   10UN 10010T7N22

D3105          20130509210            descricao do item                                                                                   10UN 10010T7N22

D3105          20130509310            descricao do item                                                                                   10UN 10010T7N22

D3105          20130509410            descricao do item                                                                                   10UN 10010T7N22

D3105          20130509510            descricao do item                                                                                   10UN 10010T7N22

D9007126213304072836267621242 1575

 



			
		


		

		
	


	

	





	
Link para o comentário

	
		
	
	
	
	
	

	
	
Compartilhar em outros sites

	

	


	

	

	




	




					
					
					
				

					

					
					






					
					
					
				

					

					
					






					
					
					
				

					

					
					






					
					
					
				
			
			



		

	


	
	
	
	
	
		

	
	
		
		
		
		
		
		
		

			 
    
	
  • 
		Este tópico foi criado há 4198 dias atrás.
	
    • 
	
  • 
		Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
	
    • 



		

	

	

			
				
				



	
	
		

			
				
Crie uma conta ou entre para comentar

				
Você precisar ser um membro para fazer um comentário

			
	
			

				

					

						
Criar uma conta

						
Crie uma nova conta em nossa comunidade. É fácil!

						
							
						
						Crie uma nova conta
					

					

						
Entrar

						
Já tem uma conta? Faça o login.

						Entrar Agora
					

				

			

		

	


			
		

	

	
		

			

				
					


    
          Compartilhar
    

    

        
        
            

            
        
    


				
				
                

                


				
			

		

	







	

		
			
				Ir para a lista de tópicos
			
		
	

	




						


					

					


					
					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Criar Novo...
    • 
				
			

		

	



		






















	

		

			
Informação Importante

			
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode  ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.