Demo PAF-NFC-e Ajustes

[DouglasGV]

Olá pessoal, tudo certo?

Fiz um pequeno ajuste na unit: ACBrPAF_J_Class; 

Na geração dos registros J2 e J1, para o PAF-NFC-e é necessário validar os registros com alteração no BD, não estava fazendo.

http://www.sef.sc.gov.br/arquivos_portal/servicos/136/Ato_DIAT_53_2020___Anexo_II.pdf página: 08 utilizada como referência.

Geração J1 e J2

Original:  RFill(SERIE_NOTA,3) +

Alterado: RFill(SERIE_NOTA,3, IfThen(RegistroValido, ' ', '?')) +

Na unit: UformPrincipal.pas, ajustei os registros P2, E2, D2 pois não estava sendo gerado o campo: "CNPJ do estabelecimento". Também adicionei a variável: RegistroValido para os registros J1 e J2; 

 

uFormPrincipal.pas

ACBrPAF_J_Class.pas

[antonio.carlos]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[Juliomar Marchetti]

No svn o ajuste