Daniel Simoes

Abra os fontes... em DoECFUnit.pas

É algo na sua máquina... É impossível bloquear um arquivo fontes para não alteração... pois ele é um simples TXT...

Pela mensagem, não existe porta COM1.

O Rave é utilizado apenas no ACBrNFe... não teria qualquer relação com o ACBrBAL... Seus fontes estão atualizados pelo SVN ? (Verifique ainda se há arquivos editados por você (mini-ícone em vermelho), apague-os e baixe novamente) Quais packages você está instalando ?

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