Daniel Simoes

Lembrando que você pode distribuir o INI com a sua aplicação (sem depender do Resource)... e com isso, ganhar a possibilidade de modificar as URLs em RunTime

Imprima da mesma maneira que vc imprime em qq impressora do Windows...

Trata-se de uma impressora NÃO fiscal... Você pode imprimir qualquer coisa nela....

não....

Mesmo com a adição de "Reintroduce" como está nos fontes atuais... o Delphi acusa um warning ? Se SIM, qual é a msg ? procedure Assign(DeGeralConf: TGeralConf); reintroduce; virtual; PS: Noto que você não tem muita preocupação com a edentação dos fontes... (não vejo um padrão, e não está nos semelhate ao dos fontes atuais..) No inicio do ACBr usávamos 3 espaços.. atualmente tentamos seguir as recomendações do Delphi Team

Enviei commit para os demais casos... Acredito que tudo está ok agora... no SVN...

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...