CT-e Qr Code Contingência

[Marcelo Souza]

Boa tarde, gostaria de saber se existe alguma previsão do ACBR para implementar a 3a parte do QRCode do CT-e quando a emissão é feita em contingência FS-DA ou EPEC.

Obrigado. 

[BigWings]

1 hora atrás, Marcelo Souza disse:

Boa tarde, gostaria de saber se existe alguma previsão do ACBR para implementar a 3a parte do QRCode do CT-e quando a emissão é feita em contingência FS-DA ou EPEC.

Ao que parece isso já está implementado:

Citar

function TACBrCTe.GetURLQRCode(const CUF: integer;
  const TipoAmbiente: TpcnTipoAmbiente; const TipoEmissao: TpcnTipoEmissao;
  const AChaveCTe: String; const Versao: Double): String;
var
  idCTe, sEntrada, urlUF, Passo2, sign: String;
//  VersaoDFe: TVersaoCTe;
//  ok: Boolean;
begin
//  VersaoDFe := DblToVersaoCTe(ok, Versao);  // Deixado para usu futuro

  urlUF := LerURLDeParams('CTe', CUFtoUF(CUF), TipoAmbiente, 'URL-QRCode', 0);

  if Pos('?', urlUF) <= 0 then
    urlUF := urlUF + '?';

  idCTe := OnlyNumber(AChaveCTe);

  // Passo 1
  sEntrada := 'chCTe=' + idCTe + '&tpAmb=' + TpAmbToStr(TipoAmbiente);

  // Passo 2 calcular o SHA-1 da string idCTe se o Tipo de Emissão for EPEC ou FSDA
  if TipoEmissao in [teDPEC, teFSDA] then
  begin
    // Tipo de Emissão em Contingência
    SSL.CarregarCertificadoSeNecessario;
    sign := SSL.CalcHash(idCTe, dgstSHA1, outBase64, True);
    Passo2 := '&sign=' + sign;

    sEntrada := sEntrada + Passo2;
  end;

  Result := urlUF + sEntrada;
end;

 

[Marcelo Souza]

Foi o que achei também, mas ao percorrer internamente nos métodos, chego aqui...

function TDFeSSLCryptClass.CalcHash(const AStream: TStream; const Digest: TSSLDgst;
  const Assina: Boolean): AnsiString;
begin
  {$IfDef FPC}Result := '';{$EndIf}
  raise EACBrDFeException.Create('"CalcHash" não suportado em: ' + ClassName);
end;

 

[BigWings]

4 minutos atrás, Marcelo Souza disse:

Foi o que achei também, mas ao percorrer internamente nos métodos, chego aqui...

Os métodos são implementados nas classes filhas, dependendo da configuração SSLCryptLib.

Por isso é levantada a exceção nesse trecho, para indicar que há configuração incorreta.

[Marcelo Souza]

Entendi, chegando em casa vou olhar melhor então o código... muito obrigado!!!!