Ir para conteúdo
  • Cadastre-se

Arturo

Membros Pro
  • Total de ítens

    274
  • Registro em

  • Última visita

2 Seguidores

Sobre Arturo

Últimos Visitantes

2.782 visualizações

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

Reputação

5

Community Answers

  1. Temos algum componente para emissão de mensagens pelo WhatsApp?
  2. 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.
  3. 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?
  4. 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?
  5. 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;
  6. 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).
  7. 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;
  8. 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
  9. Estou usando as mesmas configurações que utilizo no ACBr Monitor para emissão de DANFE e NFCe.
  10. Só constam essas 04 opções. você citou 05, mas no programa só constam 04 opções.
  11. Mas quando utilizo botão Emitir(Novo) ou emitir asincrono recebo o seguinte erro:
  12. 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?
  13. O prestador de serviço e respectivo certificado e dados do cliente (ambos da mesma cidade).
×
×
  • 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.