Daniel Simoes

O problema é no seu sistema, que está salvando como ANSI A função indicada permitiria a conversão

Verifique os caracteres acentuados... se eles estão corretos, então está tudo ok... Depende de qual é a página de código da sua impressora... geralmente o padrão de fábrica é 850

Ajuste ACBrPosPrinter1.EspacoEntreLinhas

O arquivo parece ser o correto... mas no momento não tenho agenda para verificar e implementar os novos protocolos...

Quem faz essa comunicação é a DLL do Fabricante... então fica a critério do mesmo... Não há nada na Especificação Técnica, que obrigue esse canal ser criptografado.. ( lembrando que estamos falando da comunicação USB<->SAT (usando uma Porta Serial emulada))

A porta 3434 é liberado para que o MonitorPLUS possa receber comandos por TCP... Isso não tem nenhuma relação com a porta do HTTPS... Provavelmente, os problemas estão sendo causados pelo Firewall do seu antivírus, e não a nada que o ACBr possa fazer a respeito disso.

Seria mais simples você informar, qual arquivo acessório deseja gerar... Ex.: Nota Fiscal Paulista, Nota Gaúcha, Nota Alagoana, etc ? Que registros você espera ver nesse arquivos ?

Você está salvando o XML como Ansi, porém no cabeçalho dele, está informado que é UTF8, por isso o problema... O Browser não consegue processar o encoding do cabeçalho... Veja o método ACBrUtil.ACBrStrToUTF8()

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 ?