Acbrsat.status.dh_Atual Sem Vazia

[João Paulo F. Bellucci]

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]

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]

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 ;

[Daniel Simoes]

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]

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]

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]

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

 

[Daniel Simoes]

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

 

por favor anexe o LOG solicitado

[João Paulo F. Bellucci]

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]

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]

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]

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]

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

[João Paulo F. Bellucci]

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

[Daniel Simoes]

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]

Desculpa ai, segue o erro no arquivo.

Erro.zip

[Daniel Simoes]

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]

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