daniel.simoes

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

Todos os fabricantes de ECF disponibilizam programas para gerar esse arquivo da NFP através de download da MFD... Entretanto o fisco exige a geração do arquivo mesmo quando o ECF é danificado ou roubado... Ou seja, vc tb precisa ser capaz de gerar o arquivo pelo seu BD

O Imposto não é o calculo do Valor divido pelo percentual da Alíquota ? Usando os dados acima teríamos: 3.98 * 12% = 3.98 * 0.12 = 0,4776

O ACBrMonitor irá retornar uma "grande" String para você... no formato padrão: OK: conteudo da Leitura da memoriaFiscal bla bla bla.............. Capture tudo que há depois do "OK: " e salve em um arquivo...

Nem todas as classes ainda mapeiam o retorno de DadosUltimaReducaoZ para a classe interna.... Isso foi introduzido recentemente, e nem todos os modelos de ECF tiveram isso implementado... Pretendo implementar isso na Epson em breve... Vc pode usar o retorno do método que DadosUltimaReducaoZ, que retorna um String no formato .INI

Talvez o suporte da Sweda possa dar uma dica... provavelmente falta alguma DLL

As funções precisam ser "mapeadas" no ACBrMonitor... Veja esse trecho de código extraido do fonte DoECFUnit.pas Atualmente nem todos os métodos do ACBrECF estão mapeados... else if Cmd.Metodo = 'reducaoz' then ReducaoZ( StringToDateTimeDef(Cmd.Params(0),0) ) else if Cmd.Metodo = 'poucopapel' then Cmd.Resposta := BoolToStr( PoucoPapel, true ) else if Cmd.Metodo = 'horarioverao' then Cmd.Resposta := BoolToStr( HorarioVerao, true ) else if Cmd.Metodo = 'arredonda' then Cmd.Resposta := BoolToStr( Arredonda, true ) else if Cmd.Metodo = 'arredondaitemmfd' then Cmd.Resposta := BoolToStr( ArredondaItemMFD, true )[/code]

Realmente... precisamos rever essa rotina para usar o comando 49, que retorna quais FPGs aceitam vinculado... Vou tentar fazer isso

Ele está seguindo o reteiro do TEF discado, que manda ele cancelar qualquer transação Pendente... Veja o conteúdo da pasta de Backup do TEFD. O G.P. está realmente ativo ? Ele está instalado na máquina ? Se SIM, em qual diretório ?

O Site: http://www.solutcom.com.br não tem nenhum vinculo direto com o Projeto ACBr... As instruções de instalação estão no arquivo LEIA-ME.TXT

A velocidade é realmente 115200 ??

Qual é a marca / modelo / versão do ECF ?

Lembro que já mudei isso uma vez.. justamente por não funcionar em algumas situações... Observe que esse método não é usado apenas na Sangria, mas tb no fechamento de cupom... A modificação sugerida é compatível com todas as rotinas que chamam esse método ? Veja como era na revisão: 1890 http://acbr.svn.sourceforge.net/viewvc/ ... threv=1890

Tente com o projeto Demo: ECFTeste