-
Posts
278 -
Joined
-
Last visited
About Arturo
Recent Profile Visitors
3,082 profile views
Arturo's Achievements
-
identifier not found TIdBasicAuthentication
Arturo replied to Arturo's topic in Dúvidas não relacionadas ao ACBr
Resolvido. Ok, obrigado. -
Lazarus não reconhece TIdMultiPartFormDataStream
Arturo replied to Arturo's topic in Dúvidas não relacionadas ao ACBr
Opa, obrigado. Resolvido. -
OK, obrigado
-
Temos algum componente para emissão de mensagens pelo WhatsApp?
-
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.
-
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?
-
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?
-
Estava funcionando e agora não funciona mais ACBrDelphiZXingQRCode
Arturo replied to Arturo's topic in Dúvidas gerais
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; -
Estava funcionando e agora não funciona mais ACBrDelphiZXingQRCode
Arturo replied to Arturo's topic in Dúvidas gerais
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). -
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"
Arturo replied to Arturo's topic in DFe - Documentos Fiscais Eletrônicos
ok, obrigado. -
Emissão de NFSe erro "Código : X001"
Arturo replied to Arturo's topic in DFe - Documentos Fiscais Eletrônicos
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"
Arturo replied to Arturo's topic in DFe - Documentos Fiscais Eletrônicos
Estou usando as mesmas configurações que utilizo no ACBr Monitor para emissão de DANFE e NFCe.