Versão QRCode 2.00 - Estado Alagoas

[amarildolacerda]

Alteração para enviar QRCode versao  2.00

 

 

function TACBrNFe.AjustarVersaoQRCode(AVersaoQRCode: TpcnVersaoQrCode;
  AVersaoXML: TpcnVersaoDF): TpcnVersaoQrCode;
begin
  if (AVersaoXML <= ve310) then
    Result := veqr000
  else     // ve400 ou superior
    Result := TpcnVersaoQrCode(max(Integer(AVersaoQRCode), Integer(veqr200)));  { TODO: codigo original esta versao 100 do qrcode }
end;
 

[BigWings]

O código atual faz o esperado, caso seja configurado a versão do componente como veqr000 e usada versão 4.00 do XML, ele será ajustado para veqr100.

Para usar o QrCode 2.00, basta configurar a propriedade ACBrNFe1.Configuracoes.Geral.VersaoQrCode = veqr200.

Com a sua alteração fica impossibilitado o uso do QrCode 1.00 (que não é mais usado, mas mantido por compatibilidade, para recriar um XML antigo, por exemplo).