so coloque a função no inicio da unit
function RetornarCodigoNumerico(Chave: string; Versao: real): integer;
begin
chave := OnlyNumber(chave);
if versao < 2 then
result := StrToInt(copy(chave, 35, 9))
else
result := StrToInt(copy(chave, 36, 8));
end;
Ola,
este é o danfe da NFCe que o Solivan postou, eu apenas mudei para o bitmap ser carregado
direto na campo blob cdsParametrosQrCodeCarregado do dataset cdsParametros,
vi que ja tem um post fazendo desta forma so que acho que o correto e carregar da mesma forma como ja esta sendo carregada
a logo e no mesmo local
se houver interesse faço uma versao atualizada
PackageDanfeNFCe.zip
Estive vendo que o fastreport 5 já gera o QR Code, inclusive já gerei alguns para teste e comparei com outros e pelo que vi ficou igual,
acredito que é uma opção para gerar o QR Code.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.