Componente Acbrpaf Registro E2, P2 E D2

[tchuck]

Estou gerando o arquivo Registro do PAF pelo sistema e pelo componente notei que esta adicionando zeros os CNPJ do Estabelecimento dei uma olhada nos fontes e percebi que é provido do RegistroE1 mas não tem alimentação para esse registro por isso o CNPJ esta vindo sempre com Zero.

 

Creio que no lugar do RegistroE1 deveria seria ser o RegistroU1 .

 

Não consegui anexar o arquivo gerado pelo demo mas a baixo esta as linhas geradas e os zeros gerados

P20000000000000025044367476710GTTVBJHPBETUMQDTFAXSMYDOHWIIUQTNJLTAPBOQWAHSMLLNCFTK    ATF0000000000001700
P20000000000000043873721845348QBDAJATKJHTTVPCNGRGMGLVYFPIDFKLEIBHNUCQUBFFWEWJPOTUN    ATF0000000000006100
P20000000000000044145747108364WJDRENWDPWDDWEPBVGWHWSBXOXJEMGQDQSVYMPLKTIRJOLJPFHCQ    ATF0000000000007100
P20000000000000065830475458412GQTWXPIUUTAJEELHLUJJIHRYYWIIQPTJJPPLUAAGYYQCWSHVGXVQ    ATF0000000000006200
P20000000000000088627143715321BIKMUIVIPCIIPLSWWMTEGTVCRMXDBAJMJQBJXNLBDQIXSTGIBNTE    ATF0000000000006300
E20000000000000025544602157758MDDHDQNUTYEKBFACOMXDOCWGJPUCKOOJTUVTJFDIQHCYOJCHRFMV    +000832000
E20000000000000033363000202240RQGNQCVXPQMHVRKEWQPDXIFUHCLSCAFNLAKHEQDSCJRBVLDUWSJK    +000713000
E20000000000000042632127631832BKQIHMFXDSJOQCICOKVCIMJRIHKUHQDBMCRXMMLNIGYFWRWEIQYI    +000252000
E20000000000000046330430618620FFCPAHMTILPOPNLPVFRWEPSEXCVPDHHNXJFUUIRXGDSIAJMSXWJV    +000147000
E20000000000000051633568228761COKNLAROSRAPTHLJKXEBTKPJDCPTKGTXYUQVXWLPQOMVWURQMPKY    +000148000
E3NUMFAB78901234567890 ECF-IF ACBr                PAF                 20140822180130
D200000000000000NUMFAB78901234567890 ECF-IF ACBr                PAF                 0000160            20140819Pedido                        00005600000000001NOME CLIENTE                            00012345678921
D200000000000000NUMFAB78901234567890 ECF-IF ACBr                PAF                 0000162            20140820Pedido                        00007400000000001NOME CLIENTE                            00012345678921
D200000000000000NUMFAB78901234567890 ECF-IF ACBr                PAF                 0000023            20140821Pedido                        00007700000000001NOME CLIENTE                            00012345678921
D200000000000000NUMFAB78901234567890 ECF-IF ACBr                PAF                 00000018           20140814Pedido                        00003000000000001NOME CLIENTE                            00012345678921
D200000000000000NUMFAB78901234567890 ECF-IF ACBr                PAF                 00001540           20140821Pedido    

[EMBarbosa]

No seu código, altere para quando preencher o E2, preencher também os outros campos. Pode até ser vindo do U1. O mesmo para outros registros como P2 e D2.

 

Não foi feita essa modificação pois isso quebraria a compatibilidade com a versão anterior, e ainda há usuários utilizando o modo antigo... Tem um post do Régys em algum lugar do fórum explicando isso, mas não vou ter tempo de procurar agora. Talvez você possa encontrar.

[tchuck]

fiz uma pesquisa no fórum e não encontrei essa especificação que vc mencionou mas achei vários outros tópicos que tem q preencher o cabeçalho do registro X1 sendo assim fiz

 

como esta descrito abaixo, mas também não funcionou

procedure PreencherHeader(Header: TRegistroX1);
begin
  try
    Empresa   := TEmpresaController.PegaEmpresa(Configuracao.IdEmpresa);
    Header.UF := Empresa.UF;
    Header.CNPJ := Empresa.CNPJ;
    Header.IE := Empresa.InscricaoEstadual;
    Header.IM := Empresa.InscricaoMunicipal;
    Header.RAZAOSOCIAL := Empresa.RAZAOSOCIAL;
  finally
    if Assigned(Empresa) then
      FreeAndNil(Empresa);
  end;
end;

[EMBarbosa]

 

fiz uma pesquisa no fórum e não encontrei essa especificação que vc mencionou mas achei vários outros tópicos que tem q preencher o cabeçalho do registro X1 sendo assim fiz

 

Escreve no campo de pesquisa "E2 CNPJ" clica na "no botão verde da lupa branca". O primeiro tópico é este, o segundo e o terceiro tratam deste problema.