Ir para conteúdo
  • Cadastre-se

Arturo

Membros Pro
  • Total de ítens

    278
  • Registro em

  • Última visita

Community Answers

  1. 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;             
  2. 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.
     
  3. 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.
     
     
     

  4. 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.
     
     
  5. 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.
×
×
  • Criar Novo...

Informação Importante

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.

The popup will be closed in 10 segundos...