Acbrsat.status.dh_Atual Sem Vazia

João Paulo F. Bellucci · 4 Março, 2015

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?

Daniel Simoes · 5 Março, 2015

De qual linha dos fontes você está falando ?

Verifique que StoD, recebe um String... pode ser que o método chamador esteja passando uma variável "AnsiString" para ela

João Paulo F. Bellucci · 6 Março, 2015

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 ;

Daniel Simoes · 6 Março, 2015

Continuo sem compreender o que você quer dizer...

Fiz um teste com o emulador de SAT do fisco, e o retorno foi correto... Veja:

-- 08:59:45:720 - numeroSessao: 504263 - Comando: ConsultarStatusOperacional
NumeroSessao: 504263 - Resposta:504263|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|20150306085945|00.00.03|0.06|35150211111111111111591234567890000042166394|35150211111111111111591234567890000017356193|20150306085945|20150306085945|20150203|20170123|0
NSERIE.........: 123456789
LAN_MAC........: 22:d9:d0:45:17:02
STATUS_LAN.....: CONECTADO
NIVEL_BATERIA..: ALTO
MT_TOTAL.......: 1000.00
MT_USADA.......: 10.00
DH_ATUAL.......: 06/03/2015 08:59:45
VER_SB.........: 00.00.03
VER_LAYOUT.....: 0.06
ULTIMO_CFe.....: 35150211111111111111591234567890000042166394
LISTA_INICIAL..: 35150211111111111111591234567890000017356193
LISTA_FINAL....:
DH_CFe.........: 06/03/2015 08:59:45
DH_ULTIMA......: 06/03/2015 08:59:45
CERT_EMISSAO...: 03/02/2015
CERT_VENCIMENTO: 23/01/2017
ESTADO_OPERACAO: DESBLOQUEADO

João Paulo F. Bellucci · 6 Março, 2015

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.

Daniel Simoes · 6 Março, 2015

Por favor anexe o LOG gerado pelo SATTeste.exe...

Mostre um exemplo do seu retorno...

Tenho o Delphi XE7, para testes... poste o passo a passo para a reprodução do problema

João Paulo F. Bellucci · 6 Março, 2015

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

Daniel Simoes · 6 Março, 2015

Não ajuda muito... preciso descobrir o que consta em "fsResposta.RetornoLst[17]"

por favor anexe o LOG solicitado

João Paulo F. Bellucci · 6 Março, 2015

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

Daniel Simoes · 6 Março, 2015

Você precisa anexar um arquivo "ZIPado"

O Retorno está correto... "20150306130226", o seu Debug confirma isso...

Experimente essa nova versão de StoD()

{-----------------------------------------------------------------------------
  Converte uma String no formato YYYYMMDDhhnnss  para TDateTime
 ---------------------------------------------------------------------------- }
function StoD( YYYYMMDDhhnnss: String) : TDateTime;
begin
  YYYYMMDDhhnnss := trim( YYYYMMDDhhnnss ) ;

  Result := EncodeDateTime( StrToIntDef(copy(YYYYMMDDhhnnss, 1,4),0),  // YYYY
                            StrToIntDef(copy(YYYYMMDDhhnnss, 5,2),0),  // MM
                            StrToIntDef(copy(YYYYMMDDhhnnss, 7,2),0),  // DD
                            StrToIntDef(copy(YYYYMMDDhhnnss, 9,2),0),  // hh
                            StrToIntDef(copy(YYYYMMDDhhnnss,11,2),0),  // nn
                            StrToIntDef(copy(YYYYMMDDhhnnss,13,2),0),  // ss
                            0 );
end;

João Paulo F. Bellucci · 6 Março, 2015

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.

Editado 6 Março, 2015 por João Paulo F. Bellucci

Daniel Simoes · 6 Março, 2015

Sim, favor testar com essa Unit em anexo...

06/03/2015
-- ACBrUtil -- (por: DSA)
[+] Adicionado métodos:
    function Poem_Zeros(const NumInteiro : Int64 ; Tamanho : Integer) : String ; overload;
    function FormatFloatBr(const AValue: Extended; AFormat: String = ''): String;
    function FloatMask(const DecimalDigits: SmallInt = 2): String;
    function FormatDateBr(const ADateTime: TDateTime; AFormat: String = ''): String;
    function FormatDateTimeBr(const ADate: TDateTime; AFormat: String = ''): String;
    function ApplicationPath: String;
    function TranslateUnprintable( const ABinaryString: AnsiString ): AnsiString;
    function UnZip(S: TStream): AnsiString; overload;
    function UnZip(S: AnsiString): AnsiString; overload;
[*] Modificada assinatura dos métodos:
    function FloatToString(const AValue: Double; SeparadorDecimal: Char = '.';
       AFormat: String = ''): String;

ACBrUtil.pas

João Paulo F. Bellucci · 6 Março, 2015

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

João Paulo F. Bellucci · 9 Março, 2015

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

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

Daniel Simoes · 9 Março, 2015

Minha nossa quanto texto... não fui capaz de achar o erro no meio dessa confusão..

Por favor evite postar arquivos dentro da Msg... uso o recurso de anexo (com zip)

João Paulo F. Bellucci · 9 Março, 2015

Desculpa ai, segue o erro no arquivo.

Erro.zip

Daniel Simoes · 9 Março, 2015

Humm.. realmente não vai funcionar... eu fiz um amplo refactoring e algumas dessas funções hoje existem em outras Units

https://svn.code.sf.net/p/acbr/code/branches/Daniel/

O refactoring deve ser concluído em algumas semanas... (anunciaremos no fórum)

João Paulo F. Bellucci · 9 Março, 2015

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

Entrar

Sobre nós...

Acbrsat.status.dh_Atual Sem Vazia

Recommended Posts

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Daniel Simoes

João Paulo F. Bellucci

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante