Problemas Ao Gerar Arquivo Lfd - Paf - Ecf Ato Cotepe Df

[Amaury]

Olá pessoal 

 

Estou com dificuldades para gerar o Arquivo ATO COTEPE 35-2005 DF , preciso gerar somente os blocos C600/C605 referente ao Cupom Fiscal e C020 referente a Nota Fiscal Eletrônica, porém quando passo as informações ao componente ele não gera os blocos necessários. 

 

Observação: Não encontrei na pasta Exemplos do ACBR exemplo do componente ACbrLFD que estou utilizando para gerar este arquivo.

 

Segue o código e o arquivo gerado de maneira errada.

 

 

DF.txt

CODIGO.txt

 

 

[Juliomar Marchetti]

Boa noite

tem certeza que esse trecho é seu código?

vejo você mencionar no inicio que está no bloco 0 mas em nenhum momento vejo a chamada para o bloco C!

se pegar o seu código e mesmo tirando é claro os dados que apontam para seu datamodule e datasets ele não roda!

[Amaury]

Bom dia 

 

Juliomar, o problema com o Bloco C já foi resolvido mas estou tentando gerar o Arquivo e ainda tenho algumas dúvidas.

 

- Registro 0125 está duplicando a informação do Registro 0100 - Dados do Contabilista

 

- Registros A/B saiu em branco , sendo que não informei nenhum dado para o componente

 

Segue o Código :

 

   with DadosPAF.ACBrLFD.Bloco_0 do

   begin  

      with Registro0000New do

      begin

         DadosPAF.QEmpresa.Open;

 

         COD_VER:= vlVersao1004;

         COD_FIN:= ralRegular;

         DT_INI:=Date;

         DT_FIN:=Date;

         NOME:=DadosPAF.QEmpresaRAZAO.AsString;

         CNPJ:=DadosPAF.QEmpresaCNPJ.AsString;

         UF:=DadosPAF.QEmpresaUF_CIDADE.AsString;

         IE:=DadosPAF.QEmpresaIE.AsString;

 

         MCod_Mun:='';

 

         MCod_Mun:=DadosPAF.QEmpresaCOD_UF_IBGE.AsString+

                   DadosPAF.QEmpresaCOD_CIDADE_IBGE.AsString;

 

         COD_MUN:=StrToInt(MCod_Mun);

 

         COD_CONTEUDO:=coDocFiscal;

         FANTASIA:=DadosPAF.QEmpresaFANTASIA.AsString;

      end;

      with Registro0001New do

      begin

         IND_MOV:=imlComDados;

 

          with Registro0005New do

          begin

             DadosPAF.QEmpresa.Open;

 

             CEP      :=DadosPAF.QEmpresaCEP.AsString;

             ENDERECO :=DadosPAF.QEmpresaENDERECO.AsString;

             NUM      :=DadosPAF.QEmpresaNUMERO.AsString;

             COMPL    :=DadosPAF.QEmpresaCOMPLEMENTO.AsString;

             BAIRRO   :=DadosPAF.QEmpresaBAIRRO.AsString;

             FONE     :=DadosPAF.QEmpresaTELEFONE.AsString;

             FAX      :=DadosPAF.QEmpresaFAX.AsString;

 

             DadosPAF.QEmpresa.Close;

          end;

 

          with Registro0100New do

          begin

             DadosPAF.QContabilista.open;

 

             NOME     :=DadosPAF.QContabilistaNOME.AsString;

             CPF      :=DadosPAF.QContabilistaCPF.AsString;

             CRC      :=DadosPAF.QContabilistaCRC.AsString;

             CNPJ     :=DadosPAF.QContabilistaCNPJ.AsString;

             CEP      :=DadosPAF.QContabilistaCEP.AsString;

             ENDERECO :=DadosPAF.QContabilistaENDERECO.AsString;

             NUM      :=DadosPAF.QContabilistaNUMERO.AsString;

             COMPL    :=DadosPAF.QContabilistaCOMPLEMENTO.AsString;

             BAIRRO   :=DadosPAF.QContabilistaBAIRRO.AsString;

             FONE     :=DadosPAF.QContabilistaTELEFONE.AsString;

             FAX      :=DadosPAF.QContabilistaFAX.AsString;

             EMAIL    :=DadosPAF.QContabilistaEMAIL.AsString;

 

             MCod_Mun:='';

 

             DadosPAF.QCidade.Close;

             DadosPAF.QCidade.Params[0].AsInteger:=DadosPAF.QContabilistaCIDADE.AsInteger;

             DadosPAF.QCidade.Open;

 

             if DadosPAF.QCidadeCOD_CIDADE_IBGE.AsString<>'' then

             MCod_Mun:=DadosPAF.QCidadeCOD_UF_IBGE.AsString +

                       DadosPAF.QCidadeCOD_CIDADE_IBGE.AsString;

 

             COD_MUN:=StrToInt(MCod_Mun);

 

             UF:=DadosPAF.QCidadeUF.AsString;

 

             DadosPAF.QCidade.Close;

          end;

 

          with Registro0125New do

          begin         

             NOME:='Angra Software LTDA ME';

             CNPJ:='99999999999999';

             FONE:='99999999';

             EMAIL:='[email protected]';

          end;

      end;

      DadosPAF.ACBrLFD.WriteBloco_0;

   end;

 

 with DadosPAF.ACBrLFD.Bloco_C do

   begin

       with RegistroC001New do

       begin

           IND_MOV:=imlComDados;

           //COD_MUN:=

       end;

DadosPAF.QNF.Close;

           DadosPAF.QNF.Params[0].AsInteger:=Codigo;

           DadosPAF.QNF.Open;

 

           With RegistroC020New do

           begin

              DadosPAF.QOperacao.Close;

              DadosPAF.QOperacao.Params[0].AsInteger:=DadosPAF.QNFOPERACAO.AsInteger;

              DadosPAF.QOperacao.Open;

 

              if DadosPAF.QOperacaoTIPO.AsString='E' then

              IND_OPER:=tplEntradaAquisicao

              else

              IND_OPER:=tplSaidaPrestacao;

 

              IND_EMIT:= edlEmissaoPropria;

 

              COD_PART:=DadosPAF.QNFCLIENTE.AsString;

              COD_MOD:='55';

 

              if DadosPAF.QNFSTATUS.AsString='N' then

              COD_SIT:=sdlRegular

              else

              COD_SIT:=sdlCancelado;

 

              //serie do documento fiscal

              //SER:=

 

              NUM_DOC:=DadosPAF.QNFNOTA.AsInteger;

 

              CHV_NFE:=DadosPAF.QNFCHAVE_ACESSO.AsString;

 

              DT_EMIS:=DadosPAF.QNFNOTA_EMISSAO.AsDateTime;

 

              DT_DOC:=Date;

 

              COD_NAT:=DadosPAF.QOperacaoCODIGO.AsString;

 

 

              DadosPAF.QCondicao.Close;

              DadosPAF.QCondicao.Params[0].AsInteger:=DadosPAF.QNFCONDICAO.AsInteger;

              DadosPAF.QCondicao.Open;

 

              if DadosPAF.QCondicaoAVISTA.AsString='True' then

              IND_PGTO:=tplVista

              else

              IND_PGTO:=tplPrazo;

 

              DadosPAF.QCondicao.Close;

 

              VL_DOC:=DadosPAF.QNFTOTAL.AsCurrency;

 

              VL_DESC:=DadosPAF.QNFDESCONTO.AsCurrency;

 

              VL_MERC:=DadosPAF.QNFTOTAL.AsCurrency;

 

 

              if DadosPAF.QNFMOD_FRETE.AsString='0' then

              IND_FRT:=tflPorContaEmitente;

 

              if DadosPAF.QNFMOD_FRETE.AsString='1' then

              IND_FRT:=tflPorContaDestinatario;

 

              if DadosPAF.QNFFRETE.AsCurrency > 0 then

              VL_FRT:=DadosPAF.QNFFRETE.AsCurrency;

 

              if DadosPAF.QNFSEGURO.AsCurrency > 0 then

              VL_SEG:=DadosPAF.QNFSEGURO.AsCurrency;

 

              if DadosPAF.QNFOUTRAS_DESPESAS.AsCurrency > 0 then

              VL_OUT_DA:=DadosPAF.QNFOUTRAS_DESPESAS.AsCurrency;

 

              DadosPAF.QNFP.Close;

              DadosPAF.QNFP.Params[0].AsInteger:=DadosPAF.QNFNOTA.AsInteger;

              DadosPAF.QNFP.Open;

 

              VL_BC_ICMS:=DadosPAF.QNFPBC.AsCurrency;

 

              VL_ICMS:=(DadosPAF.QNFPVALOR_ICMS.AsFloat)/100;

 

              DadosPAF.QNFP.Close;

 

           end;

       end;

 

       DadosPAF.ACBrLFD.WriteBloco_C(True);

 

Segue o conteudo do arquivo gerado abaixo:

 

|0000|LFPD|1004|0|00|23042015|23042015|2|0|ANGRA SOFTWARE LTDA ME|67.625.319/0001-83||0|DF|113.400.731.115|3549904|||

|0001|0|

|0005|TESTE|12211670|AV. MARECHAL CASTELO BRANCO|393||VL. MARIA|00000000||12-39411909|12355468799||

|0100|NOME DE TESTE DO TAMANHO DE CONTABILISTA DE TESADSADIJASOJDS||41063352800|123132123132132|SP|12313213|ENDEREÇO DE TESTE A DE TESTE DE ENDEREÇO DE TESTE A TESTE DE|12312313|12312F3AS13213DA13S2|BAIRRO DE TESTE DE T|00000000||12-39551215|39665878454|[email protected]|

|0125|NOME DE TESTE DO TAMANHO DE CONTABILISTA DE TESADSADIJASOJDS||41063352800|12-39551215|39665878454|[email protected]|

|0990|6|

|A001|1|0000000|

|A990|2|

|B001|1|0000000|

|B990|2|

|C001|0|

|C020|1|0|18|55|00||48|22042015|23042015|1|300,00|1|0,00|300,00|0|0,00|0,00|0,00|300,00|0,00|0,00|0,00|0,00||

|C990|3|

[Juliomar Marchetti]

Boa noite

correção para o registro 0125 está no svn!

agora para a outra situação teria que ver através de um validador que mesmo não tendo dados ele deve de ir ou não dessa forma!

pelo que eu li no ato cotepe diz que deve existir vazio quando não tiver dados!

[Amaury]

Bom Dia!

 

Juliomar, problema resolvido.

 

Obrigado!