Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Arturo

Membros Pro
 Perfil  Explorar Conteúdo

  • Total de ítens

    274

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Arturo

    Estava funcionando e agora não funciona mais ACBrDelphiZXingQRCode

    em Dúvidas gerais

    Postado

    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;             

    • Curtir 3

    Estava funcionando e agora não funciona mais ACBrDelphiZXingQRCode

    em Dúvidas gerais

    Postado

    De repente parou de funcionar. O que pode ser?

    uses  ACBrDelphiZXingQRCode

    QrCodeToCanvas(fmwQrCode.Image1.Width, fmwQrCode.Image1.Height, Memo1.text, fmwQrCode.Image1.Canvas);

    procedure QrCodeToCanvas(AWidth, AHeight: Integer; ATexto:String; ACanvas: TCanvas);
    var
      bitmap : TBitmap;
      qr     : TDelphiZXingQRCode;
      r      : Integer;
      c      : Integer;
      scala  : Double;
      Rect   : TRect;
    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);

          fmwVar.wKeybdI1 := qr.Rows;
          fmwVar.wKeybdI2 := qr.Columns;

          // copia o qrcode para o bitmap
          for r := 0 to fmwVar.wKeybdI1 - 1 do
          for c := 0 to fmwVar.wKeybdI2 - 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
             fmwVar.wKeybdI1          := Trunc(scala * bitmap.Width);
             fmwVar.wKeybdI2          := Trunc(scala * bitmap.Height);
             Rect.Height              := fmwVar.wKeybdI1;
             Rect.Width               := fmwVar.wKeybdI2;
             Rect.left                := 0;
             fmwQrCode.Image1.Canvas.StretchDraw(Rect, bitmap);
        finally
          qr.Free;
        end;
      finally
        bitmap.Free;
      end;
    end;          

     

    Emissão de NFSe erro "Código : X001"

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Com as dlls usando emitir (Novo) mudou o erro.

    Agora é provável que seja alguma outra coisa.

    Requisi??o
    Ambiente: 2
    Cidade  : Corupa/SC
    Provedor: Betha Vers?o: 1.00
     
    M?todo Executado: Enviar Lote
     
    Par?metros de Envio
    Numero do Lote: 1
     
    Par?metros de Retorno
    Data de Envio : 30/12/1899
    Numero do Prot: 
    Numero da Nota: 
    Link          : 
    C?digo Verif. : 
    Sucesso       : False
     
    Erro(s):
    C?digo  : L12
    Mensagem: Não é possível converter RPS para prestadores autorizados em mais de uma entidade.
    Corre??o: Favor entrar em contato com a Prefeitura para maiores informações.
    ---------
     
    NFS-e Numero....: 1
    Cod. Verificacao: 
    Prestador.......: Escritorio Contabil Avenida Eireli
    Tomador.........: INSCRICAO DE TESTE & TESTE

    Emissão de NFSe erro "Código : X001"

    em DFe - Documentos Fiscais Eletrônicos

    Postado

    Estou testando a emissão de NFSe através do programa exemplo, mas estou com o seguinte erro:

    Requisi??o

    Ambiente: 2

    Cidade  : Corupa/SC

    Provedor: Betha Vers?o: 1.00

     

    M?todo Executado: Gerar NFSe

     

    Par?metros de Envio

    Numero do Lote: 1

     

    Par?metros de Retorno

    Data de Envio : 30/12/1899

    Numero do Prot:

    Numero da Nota:

    Link          :

    C?digo Verif. :

    Sucesso       : False

     

    Erro(s):

    C?digo  : X001

    Mensagem: Serviço não implementado pelo Provedor.

    Corre??o:

    ---------

     

    NFS-e Numero....: 1

    Cod. Verificacao:

    Prestador.......: Escritorio Contabil Avenida Eireli

    Tomador.........: INSCRICAO DE TESTE & TESTE

    Podem, por favor, me ajudar?

×
×
  • 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...