Daniel Simoes

enviado para o SVN.. Obrigado por testar

Não ajudou muito... o ultimo comando enviado pelo ACBrSAT a DLL, ficou sem resposta... o que me leva a crer, que a aplicação estava presa, na execução da DLL... Verifique se existe versão mais nova da DLL do fabricante... Verifique se há problemas com a USB onde o SAT está conectado (algumas USBs são desativadas após um tempo de inatividade)

Não tenho como investigar... como pode ver... não consigo reproduzir o problema... Verifique se há algo errado no seu: Certificado, Rede, Firewall, antivirus... que esteja atrapalhando a comunicação

pmdfeConsMDFeNaoEnc.pas Modificações no núcleo do DFe devem ser evitadas a todo custo... pois elas podem afetar todos os WebServices Notei que em "pmdfeConsMDFeNaoEnc.pas", havia uma conversão de Encoding para o acento... porém todo o Envelope será convertido novamente antes da transmissão... e isso está ocasionando o problema (dupla conversão da String) Por favor tente com a Unit em anexo.. substitua a mesma, na pasta "ACBr\Fontes\ACBrDFe\ACBrMDFe\PCNMDFe"

Por favor anexe o Log gerado pelo ACBrECF... Qual é exatamente o seu ECF ?

Fiz um novo teste, com o MonitorPLUS... usando o seu comando como exemplo... e tudo ok A única diferença, é que informei o ano com 4 dígitos (2015)

Como posso reproduzir o problema, usando o TEFDDemo ? Qual o passo a passo ? Vc diz que na sua aplicação você não implementou o retorno para "ineSubTotal" ? Se for o caso, isso é o problema.. Veja no Projeto TEFDDemo, um exemplo de como os eventos devem ser programados... procedure TForm1.ACBrTEFD1InfoECF(Operacao : TACBrTEFDInfoECF; var RetornoECF : String ); var ASubTotal: Double; begin try if not ACBrECF1.Ativo then ACBrECF1.Ativar ; except { Para CliSiTEF ou V&SPague aplique o IF abaixo em sua aplicação, que permite saber se o Cupom foi concluido mesmo com o ECF desligado } if (not ACBrTEFD1.TEF.Inicializado) and { Está na inicialização ? } (Operacao = ineEstadoECF) and { Quer Saber o estado do ECF ? (mas se chegou aqui é pq o ECF já está com problemas) } (ACBrTEFD1.GPAtual in [gpCliSiTef,gpVeSPague]) then begin { Leia o último Documento Gravado no seu Banco de Dados, e verifique se o Cupom já foi finalizado,ou se já foi aberto um CCD ou Gerencial... Exemplo: Documento.Le(0); if (Documento.Finalizado) or (pos(Documento.Denominacao,'CC|RG') > 0) then RetornoECF := 'R' else RetornoECF := 'O' ; } //RetornoECF := 'O'; // Executará CancelarTransacoesPendentes; RetornoECF := 'R'; // Executará ConfirmarESolicitarImpressaoTransacoesPendentes; exit ; end ; raise ; end; case Operacao of ineSubTotal : begin ASubTotal := ACBrECF1.Subtotal ; ASubTotal := ASubTotal - ACBrECF1.TotalPago + StringToFloatDef(edValorDescAcre.Text, 0); RetornoECF := FloatToStr( ASubTotal ) ; end; ineTotalAPagar : RetornoECF := FloatToStr( CalculaTotalPago ); ineEstadoECF : begin Case ACBrECF1.Estado of estLivre : RetornoECF := 'L' ; estVenda : RetornoECF := 'V' ; estPagamento : RetornoECF := 'P' ; estRelatorio : RetornoECF := 'R' ; estNaoFiscal : RetornoECF := 'N' ; else RetornoECF := 'O' ; end; end; end; end;

Obrigado pela contribuição... enviei para o SVN com pequenos ajustes...

Não consegui reproduzir o problema... Tudo funcionando em SP... Qual o sua configuração de WebService (UF) ? Poder ser algo no seu estado. Inutilização tpAmb: 2 verAplic: SP_NFE_PL_008f cStat: 102 xMotivo: Inutilização de número homologado cUF: 35 Ano: 2015 CNPJ: 05481336000137 Modelo: 55 Serie: 55 NumeroInicial: 1 NumeroInicial: 2 dhRecbto: 01/12/2015 15:31:22 Protocolo: 135150005714669

Não tenho ideia de quais comandos você executou até chegar ao problema... Por isso preciso de um passo a passo detalhado das operações: Qual é a sua configuração ? (WebService, certificado, ambiente, etc) Quais os comandos Enviados ? Qual o conteúdo dos XMLs enviados ?

Apenas o produtor do Gerenciador do TEF, pode responder pelos manuais dele... consulte a Sw,Expresse a Pay&Go... Também consulte o suporte deles sobre códigos específicos... Isso é totalmente fora do Escopo do ACBr... Ou seja, os códigos a que você se refere, não são do ACBr, mas são repassados do Gerenciador TEF Estude os fontes... todas as Informações que você citou, já são mapeadas por "ConteudoToProperty", para ambos os Gerenciadores que você citou... Veja um exemplo de uso: procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes( RespostasPendentes: TACBrTEFDRespostasPendentes); var I : Integer; begin for I := 0 to RespostasPendentes.Count-1 do begin with RespostasPendentes[I] do begin Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) ); // Lendo os campos mapeados // Memo1.Lines.Add( 'Rede: ' + Rede + ' NSU: ' + NSU + ' Parcelas: '+ IntToStr(QtdParcelas) + ' Parcelado por: '+ GetEnumName(TypeInfo(TACBrTEFDRespParceladoPor), integer(ParceladoPor) ) + ' É Débito: '+BoolToStr(Debito)+ ' É Crédito: '+BoolToStr(Credito)+ ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ; // Lendo um Campo Específico // Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString ); end; end; end;

Há algum testes de benchmark que comprove as suas alegações ? Você pode criar o seu próprio projeto do Monitor... vá em frente e faça um Fork.. Coragem... se você é tão confiante das vantagens,outros usuários deverão ajudá-lo nessa empreitada... Mas se depender de mim... então a resposta é NÃO... o MonitorPLUS não será migrado para Delphi... Hoje temos o MonitorPLUS com suporte a SAT e NFe/NFCe no Linux... tudo isso graças ao Lazarus...

O que ficou registrado no Log do ACBrSAT ? Há algum Log criado pela DLL do Fabricante?

Ele é parte do Package ACBrSerial

Veja... não tenho os seus fontes, onde o problema ocorre... então eu não consigo ver o erro acontecendo, correto ? Nesse caso, como eu poderia investigar o problema ?? Mas... ambos temos em comum, os fontes do Demo "PosPrinterTeste"... Então... você precisa me passar um "passo a passo", de como configurar e operar o PosPrinterTeste, até que o erro ocorra... de maneira que eu possa fazer o mesmo aqui no meu ambiente de desenvolvimento...

ACBrECF1.ArqLOG := 'log_ecf.txt';

Não compreendi... Qual é a sua sugestão para modificação dos fontes do Trunk2 ?? poderia anexar as Units modificadas, para analise ?

Sem as informações dos LOGS que lhe pedi.. não posso analisar...

Não consegui compreender o seu post... por favor seja mais objetivo, e relate apenas um problema por Post.. Sempre informe um "passo a passo", de como podemos reproduzir o problema em nosso ambiente.

Não faço a menor ideia do que signifique... como eu já lhe disse antes... os códigos de retorno, dependerão muito do Gerenciador TEF. Você deve consultar o manual do seu Gerenciador TEF, para saber as informações que são retornadas em cada transação... Eu poderia lhe ajudar mais, se você me desse informações do seu ambiente: Para qual TEF você está desenvolvendo ?? Que informação você precisa recuperar ?? Veja... se você usar esses códigos específicos, sua aplicação só funcionará para esse gerenciador TEF... (Recuperar retornos específicos, é demonstrado no TEFDDemo) por isso que existe a "ConteudoToProperty", para tentar abstrair os diferentes retornos dos diversos Gerenciadores TEF.

Use o modelo ppEscPosEpson

Cada Classe Implementa a sua versão de "ConteudoToProperty" (sobrecarga), então dependerá muito do Gerenciados TEF que você estiver utilizando...

Se o suporte do Fabricante não dá conta do recado... Indique outra marca para o seu cliente...

Veja as imagens por favor...

Ambas as opções...