Jump to content

Arturo

Membros Pro
  • Posts

    278
  • Joined

  • Last visited

2 Followers

About Arturo

Recent Profile Visitors

3,082 profile views

Arturo's Achievements

Community Regular

Community Regular (8/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

50

Reputation

5

Community Answers

  1. Estou utilizando Lazarus com componentes Indy. Estou com o seguinte erro de compilação: identifier not found TIdBasicAuthentication no comando TIdBasicAuthentication.Create. Poderiam me informar, por favor, qual unit ou componente terei que incluir?
  2. Identifier Not Found TIdMultiPartFormDataStream Instalei e reinstalei os componentes Indy mas não consigo continuar pois não reconhece a referida classe. Componente idTTP, teria que incluir outro componente?
  3. Temos algum componente para emissão de mensagens pelo WhatsApp?
  4. Resolvido. O problema estava no Certificado Digital. Alguma coisa na instalação do mesmo. Aparecia como OK, mas na emissão das notas dava o erro. Fizemos a reinstalação do certificado e tudo se resolveu.
  5. Atualizei o ACBrMonitor, mas o erro persiste. Dá erro Interno 1091 e Erro HTTP 500. Versão do ACBrMonitor: 1.4.0.196 Tem mais alguma ideia do que posso fazer?
  6. Estava tudo funcionando agora não emite a NFe Dá erro Interno 1091 e Erro HTTP 500. Utilizo ACBrMonitor Plus O que pode estar havendo? Como resolver?
  7. 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;
  8. Nenhuma mensagem de erro. Apenas não gera a imagem, Gera apenas uma linha. Vide anexos Agora e Antes. O Antes é a partir de um executável anterior e o agora é um executável a partir de nova compilação (O detalhe é que esse programa não foi alterado).
  9. 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;
  10. 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
  11. Estou usando as mesmas configurações que utilizo no ACBr Monitor para emissão de DANFE e NFCe.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...