Movimento Por Ecf

[IGNACIO RODRIGUES]

Preencho os campo dos Rs tudo ok, sem problemas, envio para o ACBR, e o ACBR me retorna um arquivo com o cabeçalho o corpo e a assinatura tudo ok, Mas tem um porem ele anda trazendo umas linha do R01 a mais antes do cabeçalho.

R01                                                                              00000000000000000              00000000000000              00000000000000                                                                                                                              

 

As vezes tras 1 linha, as vezes 19, as vezes 4 linha.

Todas duplicadas mostrando o R01 antes do cabeçalho.

[Juliomar Marchetti]

Como é que você fez no seu código para preencher os dados!

[IGNACIO RODRIGUES]

Primeiro preencho todos os campo ACBrPAF.PAF_R.RegistroR01.New, ex: NUM_FAB, MF_ADICIONAL, TIPO_ECF, MARCA_ECF, etc...

Depois preencho todos os campos ACBrPAF.PAF_R.RegistroR01.New.RegistroR02.New, ex: NUM_USU, CRZ, COO, CRO, etc...

Depois preencho todos os campos RegistroR03.New ex: TOT_PARCIAL, VL_ACUM, etc...

Depois preencho todos os campos ACBrPAF.PAF_R.RegistroR01.New.RegistroR04.New, ex: NUM_USU, NUM_CONT, COO, DT_INI, SUB_DOCTO, etc...

Depois preencho todos os campos RegistroR05.New, ex: COO, NUM_ITEM, COD_ITEM, DESC_ITEM, QTDE_ITEM, etc...

Depois preencho todos os campos RegistroR07.New, ex: COO, CCF, MP, VL_PAGTO, IND_EST, etc...

Depois preencho todos os campos ACBrPAF.PAF_R.RegistroR01.New.RegistroR06.New, ex: NUM_USU, COO, GNF, GRG, CDC, etc...

Depois preencho todos os campos RegistroR07.New, ex: CCF, GNF, MP, VL_PAGTO, etc...

Pronto salvo e assino o arquivo.

Então o arquivo vem com algumas linha de R01 preenchido com alguns zeros e espaços, antes do cabeçalho.

Detalhe importante o bloco do R01 não esta em nenhum laço, para se pensar que poderia estar repetindo.

Quando preencho os campos do objeto ACBrPAF.PAF_R.RegistroR01.New, faço isso apenas uma vez, depois vou descendo o método e preenchendo os outro campos onde tem laço, como no caso do preenchimento do ACBrPAF.PAF_R.RegistroR01.New.RegistroR02.New que fica dentro de um laço.

Mas o R01 não tem nenhum laço para duvidar.

No banco de dados tenho apenas uma linha da tabela R01.

[Régys Silveira]

O Juliomar havia lhe pedido para postar o código, mas pelo que você escreveu já deu para ver que está fazendo errado, o correto é:

 

with ACBrPAF.PAF_R.RegistroR01.New do 
begin
  ...dados do r01


  with RegistroR02.New do
  begin
    ...reduções Z do ECF informado em RegistroR01


    with RegistroR03.New do 
    begin
      ... detalhes da reduções Z informada anteriormente


    end;
  end;
  
  with RegistroR04.New do
  begin
    .. cupons fiscais do ECF informado em RegistroR01
    
    with RegistroR05.new do 
    begin
      ... Detalhes do cupom fiscal informado anteriormente


    end;


    with RegistroR07.new do
    begin
      ... Meios de pagamento do cupom informado anteriormente


    end;
  end;


  with RegistroR06.New do
  begin
    ... Comprovantes não fiscais do ECF informado em RegistroR01


    with RegistroR07.new do
    begin
      ... meio de pagamento informado no cupom anterior


    end;
  end;
end;

[Régys Silveira]

Complementando, sempre que você chama o método new você adiciona um novo registro, ou seja:

 

ACBrPAF.PAF_R.RegistroR01.New = adiciona um novo registro R01

ACBrPAF.PAF_R.RegistroR01.New.Registro02.new = adiciona um novo registro R01 em branco e um novo registro 02 

[IGNACIO RODRIGUES]

Ok, valeu, funcionou