Arturo

Resolvido. Ok, obrigado.

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?

Opa, obrigado. Resolvido.

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?

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?

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;

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;

ok, obrigado.

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

Estou usando as mesmas configurações que utilizo no ACBr Monitor para emissão de DANFE e NFCe.