-
Total de ítens
274 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Arturo
-
-
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 doif 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;- 3
-
-
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 doif 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.
- 1
-
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.
-
-
-
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çõesAlgué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.
- 1
-
OK, obrigado
-
OK, até aqui tudo certo. Obrigado.
Mas agora reclama a falta de LibMySql56.dll e LibMySql57.dll Onde posso "baixar" com segurança?
-
Perfeito, mas como seria em português. Imagino que seja em ferramentas, mas como reconstruir?
Seria no construir com perfil normal?
- 1
-
Já instalei a versão 2.2.4 "Vá em Tools - CleanUp + Build All. " OK, mas onde encontro Tools?
Na verdade quero buscar os componentes da versão anterior. Como se faz?
-
1 minuto atrás, Diego Foliene disse:
Qual é a versão do seu Lazarus?
2.0.0
Mensagem no WhatsApp
em Object Pascal - Delphi & Lazarus
Postado
OK, obrigado