João Paulo F. Bellucci

Seu CNAE não se enquadra no requisito do SEFAZ, os CNAEs permidos são: 6201-5/00, 6202-3/00, 6203-1/00, 6204-0/00, 6109-1/00 Caso precise de assessoria pra resolver este problema minha esposa é contadora e possui um escritório de contabilidade, segue o contato: [email protected]. Fone: (15)3384.4987

Ok, vou comentar as funções que derem erro só para ir testando essa unit aqui.

Desculpa ai, segue o erro no arquivo. Erro.zip

Bom dia, Daniel. Fui rodar o instalador dos componentes Acbr e deu erro na compilação da Unit ACBrUtil.pas, segue o erro: Compiling package D:\Fontes\Componentes\ACBr_DelphiXE5\\Pacotes\Delphi\ACBrNFSe\ACBrNFSeDanfseFRpkg.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin\dcc32.exe" "D:\Fontes\Componentes\ACBr_DelphiXE5\\Pacotes\Delphi\ACBrNFSe\ACBrNFSeDanfseFRpkg.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\lib\Win32\release" -U"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Users\Public\Documents\RAD Studio\12.0\Bpl;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;C:\Program Files (x86)\FastReports\LibD19;C:\Program Files (x86)\FastReports\FastReport FMX Embarcadero edition\LibD19;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;c:\program files (x86)\nevrona\rave11\xe5-32;D:\Fontes\Componentes\ComPort-4.11\Source;D:\Fontes\Componentes\mb\mbUteis;D:\Fontes\Componentes\mb\mbProtecao;D:\Fontes\Componentes\mb\mbSoftKey\DelphiXE5;D:\Fontes\Componentes\mb\mbTouch;D:\Fontes\Componentes\mb\mbTouch\DelphiXE;D:\Fontes\Componentes\mb\mbWSNFP;D:\Fontes\Componentes\mb\mbAtualizador\DelphiXE;D:\Fontes\Componentes\mb\Packages\DelphiXE5\build\Win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\Colorido;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\PretoBranco;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCapicom;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrComum;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrConvenio115;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCTe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos\ACBrFalaWaves;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrGNRE;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrLFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrMDFe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFe2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrPAF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSAT;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSEF2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSerial;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSintegra;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDContabil;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFCont;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTCP;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTEFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\Imagens;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\PCN2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\SintegraSultan;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\synalist;D:\Fontes\Componentes\mb\mbUteis\DelphiXE5;D:\Fontes\Componentes\TSerialPort_DelphiXE5;D:\Fontes\Componentes\mb\mbSADM;D:\Fontes\Componentes\mb\mbJv;D:\Fontes\Componentes\JVCL348\jcl\lib\d19\win32;D:\Fontes\Componentes\JVCL348\jcl\source\include;D:\Fontes\Componentes\JVCL348\jvcl\lib\D19\win32;D:\Fontes\Componentes\JVCL348\jvcl\common;D:\Fontes\Componentes\JVCL348\jvcl\Resources;D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDECF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win64;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\zlib;D:\Fontes\Componentes\LockBox3\packages\Delphi\Win32\Release;D:\Fontes\Componentes\mb\mbSoftKey" -U"D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19" -I"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Users\Public\Documents\RAD Studio\12.0\Bpl;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;C:\Program Files (x86)\FastReports\LibD19;C:\Program Files (x86)\FastReports\FastReport FMX Embarcadero edition\LibD19;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;c:\program files (x86)\nevrona\rave11\xe5-32;D:\Fontes\Componentes\ComPort-4.11\Source;D:\Fontes\Componentes\mb\mbUteis;D:\Fontes\Componentes\mb\mbProtecao;D:\Fontes\Componentes\mb\mbSoftKey\DelphiXE5;D:\Fontes\Componentes\mb\mbTouch;D:\Fontes\Componentes\mb\mbTouch\DelphiXE;D:\Fontes\Componentes\mb\mbWSNFP;D:\Fontes\Componentes\mb\mbAtualizador\DelphiXE;D:\Fontes\Componentes\mb\Packages\DelphiXE5\build\Win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\Colorido;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\PretoBranco;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCapicom;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrComum;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrConvenio115;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCTe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos\ACBrFalaWaves;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrGNRE;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrLFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrMDFe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFe2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrPAF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSAT;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSEF2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSerial;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSintegra;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDContabil;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFCont;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTCP;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTEFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\Imagens;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\PCN2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\SintegraSultan;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\synalist;D:\Fontes\Componentes\mb\mbUteis\DelphiXE5;D:\Fontes\Componentes\TSerialPort_DelphiXE5;D:\Fontes\Componentes\mb\mbSADM;D:\Fontes\Componentes\mb\mbJv;D:\Fontes\Componentes\JVCL348\jcl\lib\d19\win32;D:\Fontes\Componentes\JVCL348\jcl\source\include;D:\Fontes\Componentes\JVCL348\jvcl\lib\D19\win32;D:\Fontes\Componentes\JVCL348\jvcl\common;D:\Fontes\Componentes\JVCL348\jvcl\Resources;D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDECF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win64;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\zlib;D:\Fontes\Componentes\LockBox3\packages\Delphi\Win32\Release;D:\Fontes\Componentes\mb\mbSoftKey" -R"c:\program files (x86)\embarcadero\rad studio\12.0\lib\Win32\release;c:\program files (x86)\embarcadero\rad studio\12.0\Imports;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;c:\program files (x86)\embarcadero\rad studio\12.0\include;C:\Users\Public\Documents\RAD Studio\12.0\Bpl;C:\Users\Public\Documents\RAD Studio\12.0\Dcp;C:\Program Files (x86)\FastReports\LibD19;C:\Program Files (x86)\FastReports\FastReport FMX Embarcadero edition\LibD19;C:\Program Files (x86)\Raize\CS5\Lib\RS-XE5\Win32;c:\program files (x86)\nevrona\rave11\xe5-32;D:\Fontes\Componentes\ComPort-4.11\Source;D:\Fontes\Componentes\mb\mbUteis;D:\Fontes\Componentes\mb\mbProtecao;D:\Fontes\Componentes\mb\mbSoftKey\DelphiXE5;D:\Fontes\Componentes\mb\mbTouch;D:\Fontes\Componentes\mb\mbTouch\DelphiXE;D:\Fontes\Componentes\mb\mbWSNFP;D:\Fontes\Componentes\mb\mbAtualizador\DelphiXE;D:\Fontes\Componentes\mb\Packages\DelphiXE5\build\Win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\Colorido;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrBoleto\Logos\PretoBranco;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCapicom;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrComum;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrConvenio115;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrCTe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrDiversos\ACBrFalaWaves;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrGNRE;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrLFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrMDFe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFe2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrPAF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSAT;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSEF2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSerial;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSintegra;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDContabil;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFCont;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDFiscal;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDPisCofins;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTCP;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrTEFD;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\Imagens;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\PCN2;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\SintegraSultan;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\synalist;D:\Fontes\Componentes\mb\mbUteis\DelphiXE5;D:\Fontes\Componentes\TSerialPort_DelphiXE5;D:\Fontes\Componentes\mb\mbSADM;D:\Fontes\Componentes\mb\mbJv;D:\Fontes\Componentes\JVCL348\jcl\lib\d19\win32;D:\Fontes\Componentes\JVCL348\jcl\source\include;D:\Fontes\Componentes\JVCL348\jvcl\lib\D19\win32;D:\Fontes\Componentes\JVCL348\jvcl\common;D:\Fontes\Componentes\JVCL348\jvcl\Resources;D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrSPED\ACBrSPEDECF;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win32;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\win64;D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ZLibExGZ\zlib;D:\Fontes\Componentes\LockBox3\packages\Delphi\Win32\Release;D:\Fontes\Componentes\mb\mbSoftKey" -N0"D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19" -LE"D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19" -LN"D:\Fontes\Componentes\ACBr_DelphiXE5\Lib\Delphi\LibD19" -NS"Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell" Embarcadero Delphi for Win32 compiler version 26.0 Copyright © 1983,2013 Embarcadero Technologies, Inc. D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe\pnfsNFSeR.pas(692) Error: E2251 Ambiguous overloaded call to 'Poem_Zeros' + ACBrUtil.pas(1043) Related method: function Poem_Zeros(const string; const Integer): string; + ACBrUtil.pas(1048) Related method: function Poem_Zeros(const Int64; Integer): string; D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe\pnfsNFSeR.pas(693) Error: E2251 Ambiguous overloaded call to 'Poem_Zeros' + ACBrUtil.pas(1043) Related method: function Poem_Zeros(const string; const Integer): string; + ACBrUtil.pas(1048) Related method: function Poem_Zeros(const Int64; Integer): string; D:\Fontes\Componentes\ACBr_DelphiXE5\Fontes\ACBrNFSe\ACBrNFSeNotasFiscais.pas(1951) Fatal: F2063 Could not compile used unit 'pnfsNFSeR.pas' Compilation failure

Ok, unit colocada para testes se tiver algum problema aviso aqui no tópico.

Com essa função funcionou perfeito. Pelo que vi todas função que estão fazendo acesso a variável ShortDateFormat vão ter problema com essa versão do Delphi o correto é mudar para a variável FormatSettings.ShortDateFormat.

Segue o arquivo de LOG como solicitado. Não tenho permissão para enviar o arquivo de log vou mandar a string do log aqui mesmo: - 13:01:27:399 - ACBrSAT.Inicializado - 13:01:49:111 - -- 13:01:49:110 - numeroSessao: 335926 - Comando: ConsultarStatusOperacional - 13:01:49:317 - NumeroSessao: 335926 - Resposta:335926|10000|Resposta com Sucesso.|||123456789|DHCP|127.127.127.100|22:d9:d0:45:17:02|255.255.000.000|127.127.127.100|127.127.127.100|127.127.127.100|CONECTADO|ALTO|1000.00|10.00|20150306130149|00.00.03|0.06|35150111111111111111591234567890000893118444|35150111111111111111591234567890000017062536|20150306130149|20150306130149|20150108|20161228|0 - 13:02:26:159 - -- 13:02:26:158 - numeroSessao: 707999 - Comando: ConsultarStatusOperacional - 13:02:26:466 - NumeroSessao: 707999 - Resposta:707999|10000|Resposta com Sucesso.|||123456789|DHCP|127.127.127.100|22:d9:d0:45:17:02|255.255.000.000|127.127.127.100|127.127.127.100|127.127.127.100|CONECTADO|ALTO|1000.00|10.00|20150306130226|00.00.03|0.06|35150111111111111111591234567890000893118444|35150111111111111111591234567890000017062536|20150306130226|20150306130226|20150108|20161228|0

Seria o ideal, mas isso teria que mandar sugestões para o fisco exigir que essa informação fosse enviada. Mas o problema que já vejo é que o SAT da DIMEP que já esta homologado e rodando em estabelecimentos, já possui uma função extra que é o TimeOut e não tem nada que determine que funções extras não possam existir, dai vem a ideia de identificar o fabricante somente para poder executar esses tipos de funções extras.

Daniel, segue imagens da tela e do meu DEBUG na rotina que esta com erro.

Perfeito o correto é seguir as especificações.

Utilizo o Delphi XE5 aqui e o retorno dessa função vem correto o problema esta ao ler o parâmetro: "Acbrsat.status.dh_Atual" este parâmetro esta retornando a data "30/12/1899" pois ele passa pela função StoD para transformar string em formato data e hora, essa função que esta com bug no Delphi XE5. Simplesmente estou pegando os valores desse parâmetro se decodificar a string que vem de retorno do SAT vem correto.

Ok, dai serve a sugestão de criar o parâmetro do fabricante no componente para tratar casos específicos. Seria algo assim TACBrSATFabricante = ( fabDIMEP, fabKryptus, fabBematech, fabPadrao ) ; Onde o "fabPadrao" usaria somente as especificações padrões do SEFAZ, algo assim.

A função que carrega os dados do Status é essa o problema ocorre na chamada da linha 531 "DH_ATUAL := StoD( fsResposta.RetornoLst[17] );" onde a função "StoD" esta pegando as variáveis de formatação errada. function TACBrSAT.ConsultarStatusOperacional : String ; Var ok: Boolean; I: Integer; begin fsComandoLog := 'ConsultarStatusOperacional'; IniciaComando; Result := FinalizaComando( fsSATClass.ConsultarStatusOperacional ) ; ok := True; if fsResposta.codigoDeRetorno = 10000 then begin with fsRede do begin tipoLan := StrToTipoLan(ok, fsResposta.RetornoLst[06]) ; lanIP := fsResposta.RetornoLst[07]; lanMask := fsResposta.RetornoLst[09]; lanGW := fsResposta.RetornoLst[10]; lanDNS1 := fsResposta.RetornoLst[11]; lanDNS2 := fsResposta.RetornoLst[12]; end; with fsStatus do begin Clear; NSERIE := fsResposta.RetornoLst[05]; LAN_MAC := fsResposta.RetornoLst[08]; STATUS_LAN := StrToStatusLan(ok, fsResposta.RetornoLst[13]) ;; NIVEL_BATERIA := StrToNivelBateria(ok, fsResposta.RetornoLst[14]) ;; MT_TOTAL := fsResposta.RetornoLst[15]; MT_USADA := fsResposta.RetornoLst[16]; DH_ATUAL := StoD( fsResposta.RetornoLst[17] ); VER_SB := fsResposta.RetornoLst[18]; VER_LAYOUT := fsResposta.RetornoLst[19]; ULTIMO_CFe := fsResposta.RetornoLst[20]; LISTA_INICIAL := fsResposta.RetornoLst[21]; { Workaround para leitura de Status do Emulador do Fiscl, que não retorna o campo: LISTA_FINAL } I := 22; if fsResposta.RetornoLst.Count > 27 then begin LISTA_FINAL := fsResposta.RetornoLst[22]; Inc(I); end; DH_CFe := StoD( fsResposta.RetornoLst ); Inc(I); DH_ULTIMA := StoD( fsResposta.RetornoLst ); Inc(I); CERT_EMISSAO := StoD( fsResposta.RetornoLst ) ; Inc(I); CERT_VENCIMENTO:= StoD( fsResposta.RetornoLst ) ; Inc(I); ESTADO_OPERACAO:= StrToEstadoOperacao(ok, fsResposta.RetornoLst) ;; end; end; end ;

Ok, se precisar de ajuda estou a disposição, estou com meu SAT 98 % implementado podendo contribuir com o projeto.

Estou tendo problema com o componente quando ocorre o cancelamento da ultima venda e vem o retorno 7007 que pode não é permitido cancelar por tempo superior a 30 minutos, quando ocorre isso existe uma gambiarra no código para tentar identificar se esta utilizando SAT Kryptus e muda o prefixo a variavel do fsPrefixoCFe = 'Cfe' depois disso se tentar cancelar qualquer outro cupom não que esteja dentro do tempo não será mais possível. Estou utilizando SAT da DIMEP, para resolver comentei a parte da gambiarra do código. Sugestão: Para este tipo de caso seria interessante criar um parâmetro no componente identificando o fabricante para tratar casos específicos. Segue a função e a parte do código que comentei. function TACBrSAT.CancelarUltimaVenda(chave, dadosCancelamento : AnsiString ) : String ; var XMLRecebido, NomeCFe, ChaveAntiga: String; begin fsComandoLog := 'CancelarUltimaVenda( '+chave+', '+dadosCancelamento+' )'; if Trim(chave) = '' then raise EACBrSATErro.Create('Parâmetro: "chave" não informado'); if Trim(dadosCancelamento) = '' then raise EACBrSATErro.Create('Parâmetro: "dadosCancelamento" não informado'); if SalvarCFes then begin ForceDirectories( PastaCFeCancelamento ); NomeCFe := PastaCFeCancelamento + PathDelim + chave + '-can-env.xml'; WriteToTXT(NomeCFe, dadosCancelamento, False, False); end; IniciaComando; Result := FinalizaComando( fsSATClass.CancelarUltimaVenda(chave, dadosCancelamento) ) ; {// Workaround para SAT Kryptus, que usa o prefixo como: "Cfe" ao inves de "CFe" if (fsResposta.codigoDeRetorno = 7007) and (LeftStr(chave,3) = CPREFIXO_CFe) then begin fsPrefixoCFe := 'Cfe'; // Ajusta o Prefixo ChaveAntiga := chave; chave := fsPrefixoCFe + copy(chave,4,Length(chave)); dadosCancelamento := StringReplace( dadosCancelamento, ChaveAntiga, chave, [rfReplaceAll] ); CancelarUltimaVenda( chave, dadosCancelamento); // Tenta novamente exit; // cai fora por já tratou na chamada acima end;} if fsResposta.codigoDeRetorno = 7000 then begin XMLRecebido := DecodeBase64(fsResposta.RetornoLst[6]); CFeCanc.AsXMLString := XMLRecebido; if SalvarCFes then begin NomeCFe := PastaCFeCancelamento + PathDelim + chave + '-can.xml'; WriteToTXT(NomeCFe, XMLRecebido, False, False); end; end; end ;

Estou tendo problema para pegar o retorno do status da data atual que está vindo sempre vazia, o problema esta ocorrendo na função StoD do ACBrUtil isso ocorre para Delphi XE 3 ou superior, deve ser por causa das variáveis de formatação que foram migradas para essa versão do Delphi. Alguém já passou por esse problema e conseguiu a solução?

A função ConfiguraTimeout() do SAT será implementada no componente? Estou efetuando testes com o Kit de desenvolvimento da DIMEP e notei que será preciso utilizar essa função.

Segue imagens do processo que resulta o erro utilizando o exemplo do Acbr.

Estão sim, já testei em varias maquinas e com dois leitores e Certificados A3 diferentes, se você tiver um certificado A3 ai acredito que irá conseguir reproduzir este erro. Na hora de digitar o PIN no envio da nota click em cancelar irá retornar a exceção.

Analisando mais a fundo o erro verifiquei que ele esta ocorrendo no arquivo ACBrHTTPReqResp.pas na linha 340 "if HttpSendRequest(pRequest, nil, 0, Pointer(FData), Length(FData)) then" a exceção ocorre neste ponto. O problema é que isso é uma chamada interna da API não tendo como contornar, o correto seria antes de chamar a função HttpSendRequest validar se a senha foi digitada corretamente. Alguém já fez isso ou tem alguma outra ideia para contornar esta situação?

Estou com este erro no certificado Tipo A3, quando o usuário informa a senha do certificado e por algum motivo clica em cancelar é retornado 'Access violation' depois de duas tentativas o componente fica instável não realizando mais a transmissão. Já testei em várias maquinas e o resultado é sempre o mesmo. Alguém já passou por este problema?

Olhando os fontes do ACBrSATExtratoESCPOS notei que o projeto esta parado, os comandos enviados para a impressora são sempre os mesmo. Existe a propriedade "MarcaImpressora" mas ela não é utilizada no código. Existe alguma atualização para este componente, ou o projeto esta parado?

Ok, vou atualizar e fazer o teste. Obrigado.

Também passei por esse problema e notei que o componente não esta mais gerando exceção para rejeição do SAFAZ. Verifique o exemplo do componente NFe2 que vem junto com os fontes e la também não se trata mais exceção. Agora eu pego o status de retorno e trato caso a caso.

Como prometido segue o DANFE para FastReports basico em modo paisagem. DANFePaisagem_Basic.zip