Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por Amaury,
  • Este tópico foi criado há 3258 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts


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

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

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

 

Link para o comentário
Compartilhar em outros sites

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|
Link para o comentário
Compartilhar em outros sites

  • Moderadores

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!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

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

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3258 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
×
×
  • 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.