daniel.simoes

Acho que o Demo do ACBrECF (ECFTeste) para FireMonkey já está no SVN

Obrigado pela correção, já está no SVN...

Não seria mais simples instalar o certificado na máquina Servidora, no mesmo local onde rodar a aplicação com IntraWeb ?

Tentou modificar a página de código ?

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.

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