daniel.simoes

Acho que o principal "ponto de encontro" é: https://groups.google.com/group/lazarus-br

Em todo caso seria bom poder corrigir o exemplo anterior... Se tiver disposto, por favor anexe aqui um ZIP com os fontes alterados..

Se puder me ajudar nessa implementação ficarei muito grato... A classe da Daruma seria um bom exemplo de como implementar isso para a Epson

Homologuei TEF discado semana passada... (com múltiplos cartões), e não precisei fazer nenhuma modificação no ACBrTEFD

Anexe os LOGs do ACBrTEFD e ACBrECF

Você já usou o ACBrECF antes ? Se vc usa a DLL dos fabricantes, ajuste o Demo modificando as chamadas a ACBrECF para chamadas a DLL Emulador e ECF devem estar em portas seriais DIFERENTES... e você precisará de um Virtualizador de portas seriais

Tenho uma TPF1004... mas notei que este modelo é bem mais antigo... Tente essa configuração: with ACBrECF1 do begin Modelo := ecfFiscNET; Device.Baud := 9600; Device.Data := 8; Device.HandShake := hsRTS_CTS ; Device.Parity := pNone; Ativar; end ; [/code] Extraido do: Manual do Usuário - Impressora Fiscal - TPF2001

Seu projeto não tem um tratamento do Filas e nem bloqueio da Interface, para evitar que o usuário dispare 2 eventos simultaneamente... e quando isso ocorre fatalmente vc terá erro de comunicação com o ECF... Jeito simples de resolver: ACBrECF1.Device.ProcessMessages := False ; Ou... veja o exemplo do botão "Imprimir" do Formulário VendeItem do projeto ECFTeste Button1.Enabled := False ; // Desabilita a Interface do usuário, para evitar vender outro Item enquanto imprime ... try Form1.ACBrECF1.VendeItem( edCodigo.Text, edDescricao.Text, edICMS.Text, StrToFloatDef( edQtd.Text, 0 ), StrToFloatDef( edPrecoUnita.Text,0 ), StrToFloatDef( edDescAcres.Text,0 ), edUN.Text, Tipo, Desc ); finally Button1.Enabled := True ; // Reabilita a interface end ; [/code]

- Tente um tempo maior do que 1 seg. - Compare os seus fontes com o do ECFTeste - Certifique-se de que não há nenhum evento no seu programa que também tenta se comunicar com o ECF

Sim, ela é uma FiscNET... Verifique a configuração de Porta Serial usada pelo ECF... Qual é a exata msg de erro ao tentar conectar ?

Notou o código acima ? insira após a chamada do VendeItem: { Aguarda 1 segundo ou até o ECF ficar Em linha novamente } ACBrECF1.EmLinha( 1 ) ;

A sugestão é boa... hoje o Trunk do ACBr é imenso... e consome mais de 150MB !! Mas é difícil de por em prática... e pode causar mais dores de cabeça aos usuários do que benefícios...

O ACBrNFe é um componente, e não um programa final... ele é destinado apenas a programadores...

Experimente o ECFTeste, na rotina Teste de Velocidade, criar um Cupom de 100 Itens por exemplo... Observe o que é descrito nos fontes do ECFTeste For i := 1 to nItens do begin if i = 1 then if Resp = mrYes then mResp.Lines.Add('Estado ECF: '+EstadoECF) ; ACBrECF1.VendeItem( IntToStrZero(i,3), 'DESCRICAO PRODUTO: '+IntToStrZero(i,3), 'NN',1,i/100,0,'UN') ; { Aguarda 1 segundo ou até o ECF ficar Em linha novamente } ACBrECF1.EmLinha( 1 ) ; mResp.Lines.Add('Item '+IntToStr(i)+': '+ FormatFloat('###.##',SecondSpan(tIni,Now))+' segundos'); { Semelhante ao "AguardaImpressao := True", porém é mais rápido, pois no método "VerificaFimImpressao" alem de verificado o "EmLinha" também é solicitado o Status do ECF } end ; [/code]

Se vc homologar o Discado pode usar o Pay&Go, que é um TEF IP Mas na minha opinião, nada se compara ao SiTEF... ele é "o-cão-chupando-manga", detecta tudo quanto é tipo de cartão, muito rápido e é até mesmo barato...

ACBrECF1.Retentar := False ?

Por favor forneça os LOGs com os trechos dos erros... Sem eles é impossível analisar..

Usando a aplicação TEFDDemo, descreva passo a passo como reproduzir o problema, desde a ativação do ECF... assim como as configurações utilizadas para o mesmo..

Qual componente você está usando ? o ACBTEFD já trata isso corretamente... fechando Gerencial ou Vinculado conforme o caso... veja nos fontes: Est := EstadoECF; if Est 'L' then begin { Fecha Vinculado ou Gerencial, se ficou algum aberto por Desligamento } case Est of 'C' : ComandarECF( opeFechaVinculado ); 'G', 'R' : ComandarECF( opeFechaGerencial ); end; if EstadoECF 'L' then raise EACBrTEFDECF.Create( ACBrStr('ECF não está LIVRE') ) ; end; [/code] [b] Deixe o ACBrECF.Retentar := False[/b]

As alterações estão ótimas.. já fiz o Merge, e logo envio para o SVN.. Sabe me dizer se existe o mesmo recurso em PPLA ?

Enviei para o SVN uma alteração para usar o Registrador correto... Por favor atualize e verifique se funcionou..

Humm.. bem lembrado... Acho que podemos usar alguns valores chaves e observar o que ocorre na LeituraX... Acredito que todas MFDs forcem o truncamento dos valores...

Já está no SVN, se vc usa o ACBrECF basta atualiza-lo.... Se você usa o ACBrMonitor não tenho previsão para a implementação

O ACBrMonitor atual não está preparado para os novos métodos do Menu Fiscal... Toda ajuda para adaptação dos fontes é bem vinda...

Leia a lei Ato Cotepe 17/04... ela contem o layout do arquivo... O arquivo é um TXT comum, ou seja, qualquer linguagem pode gera-lo... Os registros E01 e E02 possuem a identificação do ECF... portanto não há como informar mais de 1 ECF por arquivo