Daniel Simoes

Quem gera o XML de resposta é o SAT... Verifique se o regime da Empresa no SAT/SEFAZ, está diferente do que você imagina....

Estava escrito errado (corrigi) ACBr\Fontes\ACBrComum\ACBr.inc

Waldir... se se tratar apenas do "LeftStr"... acho que o mais simples é substitui-lo por "Copy"

Edson, Tenho respostas positivas de que a versão atual dos fontes no SVN, funciona... Não vejo necessidade de modificação nas Units do DFe ou Capicom

Fiquei curioso a respeito das Warnings "W1000 Symbol '%s' is deprecated"... não deve ser difícil eliminá-las... Mas fique a vontade de analisá-las quando tiver um tempo livre... Ainda lhe devo uma resposta a respeito das modificações no TEFD... Foi muito bom contar com a sua ajuda... essas Warnings me incomodavam a um bom tempo... (e ainda sobrou vários de convrsão de String) O SVN já está de volta....

Bem melhor... obrigado pela ajuda Waldir... já está no SVN...

Quem imprime o QRCode é a impressora... o SAT não tem nenhuma relação direta com isso...

Obrigado pela contribuição... Já está no SVN, com pequenos ajustes...

Segundo as informações dessa página... http://docwiki.embarcadero.com/RADStudio/Seattle/en/W1010_Method_'%25s'_hides_virtual_method_of_base_type_'%25s'_%28Delphi%29 o "Reintroduce" é uma das maneiras de suprimir essa Warning... Mas no nosso caso, o método redeclarado com o "reintroduce", tem parâmetros diferentes, do original... Será que falta uma declaração de "overload" ?

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