Daniel Simoes

Não tem como o ACBrSAT interferir no funcionamento de DLLs externas... DLL é como um .EXE Verifique com o seu fabricante se há configuração de timeout para a DLL (na DLL da Tanca parece que tem)

Isso é da DLL do Sefaz, que tem um TimeOut muito alto...

Adicionei no SVN um exemplo bem simples de comunicação em Lazarus... Basicamente: unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, blcksock; type { TForm1 } TForm1 = class(TForm) bEnviar: TButton; bConectar: TButton; edIP: TEdit; Label1: TLabel; mEnviar: TMemo; mResposta: TMemo; Panel1: TPanel; procedure bConectarClick(Sender: TObject); procedure bEnviarClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { private declarations } fSocket : TBlockSocket; procedure AguardaReposta; public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin fSocket := TBlockSocket.Create; end; procedure TForm1.FormDestroy(Sender: TObject); begin fSocket.Free; end; procedure TForm1.bConectarClick(Sender: TObject); begin fSocket.Connect(edIP.Text, '3434'); AguardaReposta; end; procedure TForm1.bEnviarClick(Sender: TObject); begin fSocket.SendString(mEnviar.Lines.Text + #13+#10+'.'+#13+#10); AguardaReposta; end; procedure TForm1.AguardaReposta; var Resposta: String; begin Resposta := fSocket.RecvTerminated(5000, #3); mResposta.Lines.Add('==================='); mResposta.Lines.Add(Resposta); end; end.

A rotina de parser do ACBrSAT está conseguindo ler o XML... Você pode ver no Log do ACBrSAT. a linha que contem o XML de retorno desses cupons... pegue o campo em Base64 e decodifique para ver o XML retornado pelo SAT... Isso irá comprovar se realmente é o SAT que está gerando o XML de forma errada

Esse XML é o de retorno correto ? Parece ser um problema no Software Interno do SAT

Isso é simples... veja o evento OnPrepareCanvas http://wiki.freepascal.org/Grids_Reference_Page#Highlighting_the_selected_cell_column_and_row

Acho que eles não compreenderam a pergunta... a Resposta não agrega muito..

Eu não escrevi nenhum programa para gerar a assinatura da Sw.house do SAT...

Realmente parece não existir nos componentes Nativos... tb não notei nada parecido na RX... Mas seria possível usar o TStringGrid para implementar algo do gênero (mais trabalhoso) http://wiki.freepascal.org/Grids_Reference_Page

Tente esse: http://www.projetoacbr.com.br/forum/topic/20389-tipo-basico-310-openssl/#comment-130070

Eu não tenho ideia de qual componente você está falando... Se eu tivesse acesso a algum Link ou imagem, poderia tentar ver se existe algum similar...

Muito provavelmente o Isaque não está atualizando o TXT com o número da Versão... Como podemos simular o problema ? Usando Telnet funciona normalmente... Parece ser algo do seu lado... Certeza que você configurou o Terminador em ETX (#03)... Você não está com um TimeOut muito baixo ? Veja trecho do código que envia a resposta: if rbTCP.Checked then begin if Assigned(Conexao) then begin Resposta := StringReplace(Resposta, chr(3), '', [rfReplaceAll]); Conexao.SendString(Resposta); Conexao.SendByte(3); end; end; Repare que o ETX sempre será enviado...... Experimente ainda mudar nos fontes para: if rbTCP.Checked then begin if Assigned(Conexao) then begin Resposta := StringReplace(Resposta, chr(3), '', [rfReplaceAll]); Conexao.SendString(Resposta + chr(3)); end; end;

O ACBr é OpenSource... Você mesmo pode abrir os fontes e compará-los com uma ferramenta como WinMerge Estudar os fontes sempre é bom... te dará mais domínio da aplicação...

Obrigado, vou aplicar a modificação no SVN... Porque você precisou comentar a linha abaixo ? // imgLogo.Picture.Assign( ACBrSATExtrato.PictureLogo );

É o mesmo equipamento... mas com o Logo do ACBr pintado nele e um preço promocional para os usuários do ACBr

Por favor forneça mais detalhes... Adiciona uma Imagem e circule as áreas com problemas

Testei o programa do Link da Tanca, e também não reconheceu os meus certificados já instalados... Existem um tópico fixo nessa área com outros programas criados por usuários...

Acredito que você está se referindo uma linha do repositório do trunk... pois no trunk2 esse método não está nessa Linha... Como foi exatamente a chamada do método ? (qual o valor de todos os parâmetros) ... Pretendo inseri-lo nos testes Unitários...

Pelo que compreendi do site de Retaguarda... não é necessário atualizar as assinaturas de SATs já assinados, só porque você trocou de certificado... Isso porque você pode ter várias chaves públicas (de vários certificados) no sistema de retaguarda... Para gerar essa assinatura, o única elemento que será usada do seu certificado, é a chave Privada RSA... ou seja, creio que a validade não é verificada Eu sugiro você comprar um certificado A1... com ele você poderia por exemplo, criar um Servidor Web para assinar os SATs dos seus clientes...

Obrigado pelo Teste... como não tenho uma impressora dessas, fica difícil testar... Se você ler o QRCode em outro programa (genérico), ele retorna apenas os 250 primeiros caracteres ? Vou manter o código e o modelo... acredito que a Elgin corrija o problema... ou ainda seja apenas algum detalhe que não percebemos... Tenho alguns contatos da Elgin... vou tentar obter uma impressora dessas para testes... Achei um manual mais detalhado (e aparentemente compatível) em: ftp://ftp.partner-tech.eu/Printer/RP-600/Manuals/RP-600_Programming_Manual_V1.0.pdf

Testou com a nova implementação do TACBrPosPrinter, com o modelo ppEscElgin ?

Poderia anexar (zip) os fontes modificados para analise ?

Não conheço o componente a que você se refere... algum Link ? Veja o DBGrid da RX