Registro do PAF -CNPJ na tag E2

[Gefferson Ferraz]

Olá pessoal, bom dia.

Apliquei uma alteração do ACBrPAF_E.pas e ACBrPAF_E_Class.pas.

Motivo: ao gerar o documento Registros do PAF, através do menu fiscal, o registro E2, campo 2-CNPJ, não era preenchido. Identifiquei que para gerar esta tag, a lógica era herdar o campo CNPJ do registro E1.

Problema: para gerar o documento Registros do PAF, não é necessário o preenchimento da tag E1.

Solução: adicionei o campo CNPJ na classe do E2, dentro do ACBrPAF_E.pas.

Preventivo: como a alteração maior ficou para o WriteRegistroE2, no Class, adicionei um IF para verificar se o campo CNPJ esta preenchido, se nao estiver, herda do E1. Assim, mantendo a compatibilidade.

Segue em anexo os .pas, se possível verificar se está correto e subir ao SVN :D

Obrigado.

 

ACBrPAF_E.pas

ACBrPAF_E_Class.pas

[Juliomar Marchetti]

Estranho homologuei e tenho softwares de paf-ecf rodando e não tive o problema citado.

acho que deve usar o componente conforme descreve no exemplo do svn

[Gefferson Ferraz]

@Juliomar Marchetti, boa tarde.

Nós aqui também homologamos o sistema com a e.r. 02.03 em 2016, e o registro E2 já vinha sem o CNPJ.

Agora ao homologar a e.r. 02.05 notei o erro.

Linha gerada pelo demo do acbr: E20000000000000028233633008827               MQVFQOIEHUOQUGWHCTIDQALSXTBQEXGMOVFKFTLYMWDUAXFLLFED    +000134000

Creio que por eu ter tomado a preocupação em 'compatibilizar' com quem possivelmente não alimentará o campo CNPJ no registro E2, não vejo problemas em subir ao Svn. O que voce acha?

[Gefferson Ferraz]

Identifiquei que o P2 também acontece o mesmo "erro". Logo mais postarei as units ajustadas.

[Gefferson Ferraz]

Juliomar, para o P2 ocorreu a mesma situação.

Segue em anexo units para analise: 

ACBrPAF.zip

[Gefferson Ferraz]

@Juliomar Marchetti fica uma dúvida: qual a necessidade de alimentar a tag E1 / P1 para gerar o Registros do PAF-ECF?

[Juliomar Marchetti]

2 horas atrás, Gefferson Ferraz disse:

@Juliomar Marchetti fica uma dúvida: qual a necessidade de alimentar a tag E1 / P1 para gerar o Registros do PAF-ECF?

Para manter compatibilidade com quem já está rodando .

portanto não irei subir suas modificações.

[Gefferson Ferraz]

Em 25/04/2018 at 10:09, Juliomar Marchetti disse:

Para manter compatibilidade com quem já está rodando .

portanto não irei subir suas modificações.

Creio que não tive o direito de passar por uma analise do código enviado. Como eu disse anteriormente, eu me atentei ao fato de manter a compatibilidade com quem já preenche a tag E1 e P1 para popular nos registros que sofrem a herança.

Segue código com minhas alterações e indicativos da compatibilidade aplicada:

procedure TPAF_P.WriteRegistroP2;
...
     for intFor := 0 to FRegistroP2.Count - 1 do
     begin
        with FRegistroP2.Items[intFor] do
        begin
          if trim(CNPJ) = trim('') then ===>  Se o CNPJ não for alimentado na classe do P2, será herdado da P1, assim, mantendo compatibilidade.
            CNPJ := FRegistroP1.CNPJ;
          ///Check movido para dentro do with, antes estava acima dele.
          Check(funChecaCNPJ(CNPJ), '(P2) ESTOQUE: O CNPJ "%s" digitado é inválido!', [CNPJ]);
          Add( LFill('P2') +
               LFill(CNPJ, 14) +
...
end;

procedure TPAF_E.WriteRegistroE2;
...
        with FRegistroE2.Items[intFor] do
        begin
          if trim(CNPJ) = trim('') then ===>  Se o CNPJ não for alimentado na classe do E2, será herdado da E1, assim, mantendo compatibilidade.
            CNPJ := FRegistroE1.CNPJ;
          ///Check movido para dentro do with, antes estava acima dele.
          Check(funChecaCNPJ(CNPJ), '(E2) ESTOQUE: O CNPJ "%s" digitado é inválido!', [CNPJ]);
          Add( LFill('E2') +
               LFill(CNPJ, 14) +
...
end;

Aguardo uma nova analise e agradeço pela atenção.  Att Gefferson