Erro [dcc32 Error] ACBrD5.pas(356): E2003 Undeclared identifier: 'DateSeparator'

[ThiagoHB]

Olá Pessoal!
 

Estou com o seguinte problema, uso Delphi XE8 instalei o ACBR fiz update, tudo atualizado certinho, instalei tudo certo, ao compilar ele aparece o seguintes erros

 

CODIGO ACBR:

procedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute,
  ASecond, AMilliSecond: Word; const ABaseDate: TDateTime);
  function Translate(AOrig, AValue: Word): string;
  begin
    if AValue = RecodeLeaveFieldAsIs then
      if ABaseDate = 0 then
        Result := SMissingDateTimeField
      else
        Result := IntToStr(AOrig)
    else
      Result := IntToStr(AValue);
  end;
var
  LYear, LMonth, LDay, LHour, LMinute, LSecond, LMilliSecond: Word;
begin
  DecodeDate(ABaseDate, LYear, LMonth, LDay);
  DecodeTime(ABaseDate, LHour, LMinute, LSecond, LMilliSecond);
  raise EConvertError.CreateFmt(SInvalidDateTime,
                                [Translate(LYear, AYear) + DateSeparator +
                                 Translate(LMonth, AMonth) + DateSeparator +
                                 Translate(LDay, ADay) + ' ' +
                                 Translate(LHour, AHour) + TimeSeparator +
                                 Translate(LMinute, AMinute) + TimeSeparator +
                                 Translate(LSecond, ASecond) + DecimalSeparator +
                                 Translate(LMilliSecond, AMilliSecond)]);
end;

 

LOGS:

[dcc32 Error] ACBrD5.pas(356): E2003 Undeclared identifier: 'DateSeparator'
[dcc32 Warning] ACBrD5.pas(356): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[dcc32 Error] ACBrD5.pas(358): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(359): E2003 Undeclared identifier: 'TimeSeparator'
[dcc32 Error] ACBrD5.pas(360): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(361): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(362): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Fatal Error] U_ACBR_ECE.pas(8): F2063 Could not compile used unit 'ACBrD5.pas'

[BigWings]

42 minutos atrás, ThiagoHB disse:

[dcc32 Error] ACBrD5.pas

Está referenciando essa unit em algum lugar no seu projeto?

[Juliomar Marchetti]

1 hora atrás, ThiagoHB disse:

Olá Pessoal!
 

Estou com o seguinte problema, uso Delphi XE8 instalei o ACBR fiz update, tudo atualizado certinho, instalei tudo certo, ao compilar ele aparece o seguintes erros

 

CODIGO ACBR:

procedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute,
  ASecond, AMilliSecond: Word; const ABaseDate: TDateTime);
  function Translate(AOrig, AValue: Word): string;
  begin
    if AValue = RecodeLeaveFieldAsIs then
      if ABaseDate = 0 then
        Result := SMissingDateTimeField
      else
        Result := IntToStr(AOrig)
    else
      Result := IntToStr(AValue);
  end;
var
  LYear, LMonth, LDay, LHour, LMinute, LSecond, LMilliSecond: Word;
begin
  DecodeDate(ABaseDate, LYear, LMonth, LDay);
  DecodeTime(ABaseDate, LHour, LMinute, LSecond, LMilliSecond);
  raise EConvertError.CreateFmt(SInvalidDateTime,
                                [Translate(LYear, AYear) + DateSeparator +
                                 Translate(LMonth, AMonth) + DateSeparator +
                                 Translate(LDay, ADay) + ' ' +
                                 Translate(LHour, AHour) + TimeSeparator +
                                 Translate(LMinute, AMinute) + TimeSeparator +
                                 Translate(LSecond, ASecond) + DecimalSeparator +
                                 Translate(LMilliSecond, AMilliSecond)]);
end;

 

LOGS:

[dcc32 Error] ACBrD5.pas(356): E2003 Undeclared identifier: 'DateSeparator'
[dcc32 Warning] ACBrD5.pas(356): W1058 Implicit string cast with potential data loss from 'string' to 'ShortString'
[dcc32 Error] ACBrD5.pas(358): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(359): E2003 Undeclared identifier: 'TimeSeparator'
[dcc32 Error] ACBrD5.pas(360): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(361): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Error] ACBrD5.pas(362): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Fatal Error] U_ACBR_ECE.pas(8): F2063 Could not compile used unit 'ACBrD5.pas'

Seu projeto foi migrado de alguma versão antiga? creio que o problema esteja relacionado a isso

http://docwiki.embarcadero.com/RADStudio/Rio/en/Unit_Scope_Names

[ti.suricatto.com]

Boa tarde estou com o mesmo problema  na classe 

{ Error reporting }

procedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute,

  ASecond, AMilliSecond: Word; const ABaseDate: TDateTime);

  function Translate(AOrig, AValue: Word): string;

  begin

    if AValue = RecodeLeaveFieldAsIs then

      if ABaseDate = 0 then

        Result := SMissingDateTimeField

      else

        Result := IntToStr(AOrig)

    else

      Result := IntToStr(AValue);

  end;

var

  LYear, LMonth, LDay, LHour, LMinute, LSecond, LMilliSecond: Word;

begin

  DecodeDate(ABaseDate, LYear, LMonth, LDay);

  DecodeTime(ABaseDate, LHour, LMinute, LSecond, LMilliSecond);

  raise EConvertError.CreateFmt(SInvalidDateTime,

                                [Translate(LYear, AYear) + DateSeparator +

                                 Translate(LMonth, AMonth) + DateSeparator +

                                 Translate(LDay, ADay) + ' ' +

                                 Translate(LHour, AHour) + TimeSeparator +

                                 Translate(LMinute, AMinute) + TimeSeparator +

                                 Translate(LSecond, ASecond) + DecimalSeparator +

                                 Translate(LMilliSecond, AMilliSecond)]);

end;

 

para resolver isso teria de colocar no uses a classe ACBrConsts 

Com isto vai resolver o problema na compilação deveria de adicioná e aplicar um commit.

[Juliomar Marchetti]

3 horas atrás, ti.suricatto.com disse:

para resolver isso teria de colocar no uses a classe ACBrConsts 

de que lugar tu fala?

 

[ti.suricatto.com]

nesta classe ACBrD5 caminho Fontes\ACBrComum 

[Juliomar Marchetti]

1 hora atrás, ti.suricatto.com disse:

nesta classe ACBrD5 caminho Fontes\ACBrComum 

você usa com delphi 5 o ACBR?

[ti.suricatto.com]

não o delphi 10.3 mas não tenho componente instalado só importado no projeto as classe. 

 

com a alteração em anexo funciona normal mas para poder ficar versionado com o acbr não funciona

ACBrD5.pas

[Juliomar Marchetti]

1 hora atrás, ti.suricatto.com disse:

não o delphi 10.3 mas não tenho componente instalado só importado no projeto as classe. 

 

com a alteração em anexo funciona normal mas para poder ficar versionado com o acbr não funciona

ACBrD5.pas 15.75 kB · 0 downloads

mas tu referencia essa unit em seu sistema? 

ela só serve para Delphi 5 ! no 10.3 ela nem deve ser usada

[ti.suricatto.com]

obrigado pela ajuda removi unit em seu sistema e voltou a funcionar 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.