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.

Só constam essas 04 opções. você citou 05, mas no programa só constam 04 opções.

Mas quando utilizo botão Emitir(Novo) ou emitir asincrono recebo o seguinte erro:

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?

O prestador de serviço e respectivo certificado e dados do cliente (ambos da mesma cidade).

Tentando executar programa exemplo de emissão de NFSe recebemos a seguinte mensagem de erro: 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 Alguém poderia nos dar uma dica de como resolver?

Ok, mas desculpe, como sei a tal "arquitetura que compila a aplicação" ?

Sim, realmente quando gravei com uma cidade existente e reiniciei o programa a cidade citada retornou. Mas agora estou com o seguinte erro: "XMLNode não pode ser nulo". Podem me dar uma dica?

ACBRNFSeX abri o programa exemplo e na configuração e não encontrei a cidade de Corupá SC. Gostaria de confirmar se essa cidade não é contemplada pelo referido componente, e se não é possível inclui-la.

Resolvido, baixei o Lazarus para 32 (estava no 64). Com isso resolveu.

OK, obrigado