Alteração registros E2 e P2 - DOU 31.08.2017

[Wess]

Boa tarde prezados, fiz algumas alterações no componente ACBrPAF para adequá-lo à última retificação disponibilizada pela CONFAZ através do DOU do dia 31/08/2017, vide link:

https://www.confaz.fazenda.gov.br/legislacao/atos/2017/ato-cotepe-icms-10-17-retificacao

Foram criadas duas novas propriedades para o registro E2 do arquivo de Registros PAF-ECF, e outras duas para o registro P2, sendo elas: CEST e NCM.

Nossa homologação está marcada para aproximadamente daqui 15 dias, então se fez necessário já aplicar a alteração que tenho quase certeza que o homologador irá cobrar.

Fiz alguns testes da geração aqui e não tive nenhum problema, att.

PAF E2 P2.rar

[Juliomar Marchetti]

Porque a remoção das linhas abaixo

 

function OrdenarP2(AProd1, AProd2: Pointer): Integer;
begin
//  Result := AnsiCompareText(
//    TRegistroP2(AProd1).COD_MERC_SERV,
//    TRegistroP2(AProd2).COD_MERC_SERV
//  );
end;

//     FRegistroP2.Sort(@OrdenarP2);

 

[Wess]

Boa tarde Juliomar.

Porque a ordenação ficava por exemplo no cód do produto, 1, 10, 11 e não 1, 2, 3, 4 ..

 

Foi um colega meu aqui da equipe que fez essa alteração, essa parte não precisaria ser feita junto, foi feito mais por questões internas. Mas pode retirar os comentários caso não seja viável.

 Não havia visto que estava alterado.

[Juliomar Marchetti]

No svn as sugestões.

[Jefferson Damian]

Testei as alterações feitas pelo Wess e aqui com o Delphi XE7 funcionaram.
Obrigado.