Daniel Simoes

Parece correto... pois o problema.. irá ocorrer na chamada de "ACBrAnsiToUTF8", que chama o método do "LConvEncoding.ConvertEncoding"... e esse método do Lazarus, se receber o parâmetro como "ANSI", irá tentar descobrir qual é o Encoding do sistema operacional... que no seu caso, resultará em UTF8 Ou seja, o método " LConvEncoding.ConvertEncoding" não faz nada...se o parâmetro de "FromEncoding" for "ansi" Correção já está no SVN...

Obrigado pela contribuição... Efetuei algumas modificações na implementação, para ficar semelhante aos demais métodos...

Hummm.. o problema pode estar na ACBrUtil... ela não deve estar conseguindo detectar qual o Encoding de ANSI para ser usado com essa distribuição Pode ser ainda, algo relacionado ao FPC 2.6.4... Verifique, qual é o retorno do método a seguir: {$IfDef FPC} function GetSysANSIencoding: String; begin Result := {$IfDef NOGUI}GetConsoleTextEncoding{$Else}GetDefaultTextEncoding{$EndIf}; if Result = EncodingUTF8 then Result := 'cp1252'; // Usando página de código ANSI padrão para o Brasil end; {$EndIf} (deve ser algo diferente de UTF8)

OK... já no SVN... obrigado mais uma vez...

Não existe isso... os XMLs são diferentes... NFCe = NFe <> CFe

Vai depender muito, de qual Gerenciador TEF você está usando... melhor se basear na documentação do Integradora

Obrigado Waldir... modificações já estão noSVN

Por favor ative as linhas de Debug em ACBrSocket.pas // DEBUG // 773 RespHTTP.SaveToFile('c:\temp\HttpResp.txt'); 774 HTTPSend.Headers.SaveToFile('c:\temp\HeaderResp.txt'); Isso irá salvar em arquivo, a exata resposta do Servidor, e o Header do HTTP... com isso poderemos compreender o que pode estar ocorrendo...

Leia as observações do TEFDDemo... 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: 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; ......

Obrigado pela analise e correção.... Enviei para o SVN com pequenas modificações... Favor conferir se está tudo ok...

Muito bem observado a falta do cabeçalho... obrigado.. já está no SVN...

O problema parece ser o fato de estar ocorrendo uma dupla conversão para UTF8... Como reproduzir o problema com o Demo do ACBr ? (qual o ambiente ?)

Qual é exatamente o problema ??

Esse provedor precisa ou não do Certificado para a conexão ?? Verifique se para esse provedor está configurada a opção para não usar o Certificado..

Se você fosse criar uma classe filha de DFe, nenhuma complicação desnecessária (como generics) seria necessário... Vou fechar o tópico... dou esse assunto como encerrado... Não está nos planos recentes do "ACBrTeam" o desenvolvimento dessa finalidade... Por favor seja mais cuidadoso, antes de se dispor a fazer algo e anunciar em um fórum público... fica deselegante voltar atrás..

Realmente não faz sentido usar ambos... Talvez a DLL tenha uma opção parecida com o "ControlePorta" do ACBrPosPrinter Como vantagem, o ACBrPosPrinter é compatível com vários equipamentos... Rode o PosPrinterTeste, e veja todas as "Tags" em ação

function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; begin if T = crtSimplesNacional then Result := RTSimplesNacional else Result := RTRegimeNormal; end; Revendo as opções existentes do Tipo "TpcnCRT" ... preferi implementar com um IF simples, principalmente por ser mais legível... Veem algum problema ?

Porque não enviar da sua aplicação, o comando de ativação ? ECF.Ativar

Desculpem-me pela demora... e MUITO Obrigado pela colaboração... já está no SVN...

Não há como responder a sua pergunta... É fundamental, você ter o um bom roteiro de testes... a aplicação final só deve ir para o Cliente, depois de você rodar: Seus testes Unitários e os seus Roteiros de Teste.. Use o ACBrInstall, para recompilar/reinstalar o ACBr

O componente ACBrPosPrinter, não faz uso da DLL da Daruma...

Pode ser algo no VSPE... eu uso o com0com..

STDCALL, e você precisará da DLL da TANCA

Essa exceção é controlada... não vaza para a aplicação... analise os fontes do ACBr

Não existe isso... O que existe é impressora Fiscal, lacrada para o Desenvolvimento Fiscal (lacrada no nome da Software House) Dependendo da marca/modelo, você poderia usar um Emulador... Se é uma impressora fiscal... ela NUNCA irá imprimir relatórios do Windows.... isso é contra a lei...