Daniel Simoes

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

Por favor me envie o LOG onde o erro ocorria... Estou modificando a Unit para que ela seja esperta o suficiente para tentar as duas formas, caso uma delas falhe: try FiscNETComando.NomeComando := 'EncerraDocumento' ; if (Obs '') then FiscNETComando.AddParamString('TextoPromocional',Obs); FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; except on E : Exception do begin if (pos('ErroProtSequenciaComando',E.Message) 0) then begin if (Obs '') then begin FiscNETComando.NomeComando := 'ImprimeTexto' ; FiscNETComando.AddParamString('TextoLivre',Obs); EnviaComando ; end ; FiscNETComando.NomeComando := 'EncerraDocumento' ; FiscNETComando.TimeOut := 5 ; FiscNETComando.AddParamString('Operador',Operador) ; EnviaComando ; end ; end ; end ; [/code] Eu preciso saber qual é exatamente a mensagem de erro que será disparada na sua situação, para possivelmente substituir a expressão "ErroProtSequenciaComando" no código acima.

Obrigado pela correção.. Já apliquei nos fontes (com pequenas modificações), mando em breve para o SVN...

Apliquei uma possível correção para o problema... Pelo que pude observar, a solução proposta pelo Ivan apenas trocou o parâmetro "TDM" por "MF"... isso poderia causar problemas em outras leituras

Pelo que li nos fontes... acredito que este problema já tenha sido corrigido...

Ajuste a String de Abertura da Gaveta em: ACBrECF001.INI Você pode achar qual é a String no manual do Fabricante ou com o Suporte do mesmo

Mas onde está resposta no exemplo de Log acima ? SwedaSTX VerificaFimLeitura: Bloco (!) Descartado: [sTX]b01!0040AA[128][128][146][128][128][ETX][193] A resposta deveria ter um outro + ou - Em todo caso vou tentar fazer alguns testes

Já li relato de casos em que a DLL altera a velocidade da Porta Serial para 115200... Verifique tb se o programa que usa a DLL não está "prendendo" a porta serial

Talvez tb seja possível "desabilitar" o Componente WebBrowser durante a atribuição do novo HTML... Ou se houver uma espécie de BeginUpdate EndUpdate melhor ainda...

Acredito que atualmente a classe da FiscNET já está corrigida para usar AnsiString e não mais PAnsiChar

O ACBrMonitor é código aberto... consulte os fontes... veja: else if Cmd.Metodo = 'leituramemoriafiscal' then if pos(DateSeparator,Cmd.Params(0)) > 0 then LeituraMemoriaFiscal( StringToDateTime(Cmd.Params(0)), {Dt.Inicial} StringToDateTime(Cmd.Params(1)), {Dt.Final} StrToBoolDef(Trim(Cmd.Params(2)),False) ) {Simplificada} else LeituraMemoriaFiscal( StrToInt(Trim(Cmd.Params(0))), { ReducaoInicial } StrToInt(Trim(Cmd.Params(1))), { ReducaoFinal } StrToBoolDef(Trim(Cmd.Params(2)),False) ) {Simplificada}[/code] Verifique o Terceiro parâmetro

Como é essa impressão de Tarja ? Seria possível adicionar uma imagem ? Ela está sempre condicionada a impressão de um texto ?

Isso não é algo muito simples... Vc precisaria dizer para o ACBrECF qual é o ECF, Porta Serial, velocidade, etc... Entretanto o projeto ECFTeste poderia servir de exemplo para a construção de um projeto mais simples