Daniel Simoes

Deixa eu ver se compreendi... Além de lhe prover milhares de linhas de código gratuitamente... você espera que os "caras do ACBr" fiquem aqui a sua disposição para responder rapidamente quando você pergunta ?? É essa a sua visão de Open Source ?? Quantos usuários deste fórum você já respondeu ?? Você tem o habito de entrar no fórum e verificar se algum usuário está precisando de ajuda ?? Provavelmente você irá me responder que não faz isso, pois tem muito trabalho a fazer... pois é todos nós temos MUITO trabalho a fazer... e o ACBrSAC para nós, é trabalho ...

Obrigado pela contribuição... vou analisar os fontes... Onde posso encontrar o manual dessa impressora ? Ela possui vários tipos de comandos compatíveis (EscPos, EscDiebold, etc) ? Se SIM, qual você implementou ? Todos os comandos existentes no TACBrPosPrinter estão funcionando ? A leitura de Status e informação da impressora está funcionando ?

Certeza que você usará o certificado da ICP-Brasil ??? Esse certificado não tem nenhuma relação com o A1 ou A3 que é usado na NFe Alguns equipamentos (como o GERSAT da Gertec) nem mesmo suportam esse tipo de certificado...

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.

ACBrPAF.SaveToFile_RegistrosPAF('RegistrosPAF.txt');

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

Se a impressora tem Interface Ethernet (TCP/IP) vc pode acessá-la usando a porta como: "TCP:IP_DA_MAQUINA:Porta_do_Equipamento"

Prezado... nos ajude a lhe ajudar... A Juliana não trabalha no setor de homologação da Caixa... Como ela poderia saber o que está errado ??? Você precisa fornecer informações precisar e detalhadas do que a Caixa está reclamando... Muito provavelmente eles lhe enviaram um relatório com as críticas..

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...

Difícil responder... O ACBr usa a CAPICOM que usará a WinAPI para acessar o certificado... Ou seja, é muito mais trabalho do Windows do que do ACBr Talvez com conexões simultâneas uma bloqueie o acesso ao certificado para a outra...

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