[ACBrSATExtratoFortes] - Cancelamento

[roussenq]

Na impressão do cancelamento fui questionado pelo cliente que a primeira chave é da venda, e a segunda chave a do cancelamento.

Na procedure rlCancelamentoBeforePrint 

o correto seria usa o valor da tag "infCFe.chCanc"  e não "infCFe.ID"

A correção ficaria assim:

    // Informações do Rodapé do Extrato //
    lNumSATCan.Caption   := Trim(IntToStr( ide.nserieSAT ));
    lDataHoraCan.Caption := FormatDateTimeBr(ide.dEmi + ide.hEmi);
    lChaveAcessoCan.Lines.Text := FormatarChaveAcesso(ACBrSATExtrato.CFeCanc.infCFe.chCanc);
    bcChaveAcessoCan1.Caption := copy(OnlyNumber(ACBrSATExtrato.CFeCanc.infCFe.chCanc), 1,22);
    bcChaveAcessoCan2.Caption := copy(OnlyNumber(ACBrSATExtrato.CFeCanc.infCFe.chCanc),23,22);

    // QRCode  //
    imgQRCodeCan.Visible := ACBrSATExtrato.ImprimeQRCode;
    if ACBrSATExtrato.ImprimeQRCode then
    begin
      qrcode := ACBrSATExtrato.CalcularConteudoQRCode( ACBrSATExtrato.CFeCanc.infCFe.chCanc,
                                                       ide.dEmi+ide.hEmi,
                                                       Total.vCFe,
                                                       Trim(Dest.CNPJCPF),
                                                       ide.assinaturaQRCODE );
      PintarQRCode( qrcode, imgQRCodeCan.Picture );
    end;

Alguém sabe me dizer se esta errado mesmo?

 

Editado 14 Junho, 2017 por roussenq

[Daniel Simoes]

Confronte o que "o cliente disse"... como os manuais de Especificação e Orientação do SAT, disponíveis no Website do SEFAZ

Se após a analise, realmente notar algo errado, e desejar sugerir correções, então nesse caso, favor anexar as Units modificadas...