-
Total de ítens
278 -
Registro em
-
Última visita
Community Answers
-
Arturo's post in Estava funcionando e agora não funciona mais ACBrDelphiZXingQRCode was marked as the answer
Na verdade emite QrCode Livre e QrCode para PIX.
Pesquisei na Internet e fiz alteração em minha rotina e voltou a funcionar.
Não vou saber o que houve, nem o que alterei, mas segue a rotina que está funcionando. Pode ser útil para outra pessoa que tenha o mesmo problema.
A alteração que efetuei está basicamente no comando // transfere o bitmap para a imagem
Agradeço vossa atenção.
procedure QrCodeToCanvas(AWidth, AHeight: Integer; ATexto:String; ACanvas: TCanvas);
var
bitmap: TBitmap;
qr: TDelphiZXingQRCode;
r: Integer;
😄 Integer;
vI1: Integer;
vI2: Integer;
scala: Double;
begin
bitmap := TBitmap.create;
try
qr := TDelphiZXingQRCode.create;
try
qr.Data := ATexto;
// ajuta o tamanho do bitmap para o tamanho do qrcode
bitmap.SetSize(qr.Rows, qr.Columns);
// copia o qrcode para o bitmap
vI1 := qr.Rows;
vI2 := qr.Columns;
for r := 0 to vI1 - 1 do
for c := 0 to vI2 - 1 do
if qr.IsBlack[r, c] then
bitmap.Canvas.Pixels[c, r] := clBlack
else bitmap.Canvas.Pixels[c, r] := clWhite;
// prepara para redimensionar o qrcode para o tamanho do canvas
if (AWidth < bitmap.Height) then
scala := (AWidth / bitmap.Width)
else scala := (AHeight / bitmap.Height);
// transfere o bitmap para a imagem
ACanvas.StretchDraw(Rect(0, 0, Trunc(scala * bitmap.Width),
Trunc(scala * bitmap.Height)), bitmap);
finally
qr.Free;
end;
finally
bitmap.Free;
end;
end;
-
Arturo's post in ERRO: "" is an invalid integer was marked as the answer
Ontem, executei o programa em outra máquina e o problema desapareceu. Nessa máquina que está funcionando a versão do ACBRmonitor é mais antiga. Não sei se pode ser isso. Com relação ao log acredito que está habilitado, se vc observar mandei um LOG (porém de um erro anterior).
Vou fazer novos testes, se o erro retornar me comunico novamente.
-
Arturo's post in Parou de Gerar Preview was marked as the answer
Realmente a configuração não foi alterada. E não tinha sentido após tantas notas emitidas algo deixar de funcionar sem ninguém alterar nada.O que ocorreu é que eu pego os dados da linha 'Arquivo=', do arquivo retorno, e informo no parâmetro ImprimeNF().
Essa linha por algum motivo passou a ser a última linha do retorno (antes não era) e dentro da rotina de leitura do arquivo TXT sai por EOF, consequentemente não obtendo o caminho para impressão.
É a 2ª vez que tenho problemas com o arquivo retorno. Da outra vez a linha NProt mudou para nProt e meu programa passou a considerar a emissão como erro, pois não encontrava o nº do protocolo.
O problema do preview está resolvido.
Agradeço vossa atenção.
-
Arturo's post in Erro: 12175 - Problema impressão NFCe was marked as the answer
Pois é, esse era o erro que eu tive.
A Solução foi:
1) Baixei a ultima versão do AcbrMonitor (tem uma do dia 29/03)
2) Mudei as configurações do SSL (Conforme sugestão do consultor)
SSLCryptLib := CryOpenSSL
SSLHttpLib := httpOpenSSL
SSLXmlSignLib := xsLibXm12
SSLType := LT_TLSv1_2
A partir dai voltou a funcionar normalmente.
-
Arturo's post in Emissão do Danfe - Observações was marked as the answer
Já resolvi. O problema são os ENTER. Inclui uma função que elimina os ENTER e então funcionou.