is not a valid time ao gerarnfe

[Alberto.Leal]

Bom dia 
No acbrnfemonitor ao gerar a nfe eu passo a data no ini da seguinte forma:
Emissao=17/08/201509:09:15-04:00 e funciona bem.. 
porem no acbrmonitorplus quando eu passo o mesmo comando ele me retorna
ERRO: "17/08/201509:09:15-04:00" is not a valid time
tenho que usar outra tag ? estou passando o comando de forma errada ?

[Juliomar Marchetti]

Bom dia!

Tem certeza disso? chegou a conferir se a data está correta na NF-e mesmo após emitir?

Pois peguei a informação acima e rodei no unit teste e mesmo no trunk2 ocorre o problema!

[Alberto.Leal]

Sim esta correta.. eu gerei a nota no abcrnfemonitor e depois fechei ele abri o acbrmonitor plus e mandei gerar novamente sem alterar nada no ini
Sera que é pq eu compilei o acbrmonitorplus em um Windows em que data é formato americano ?

 

Fiz o teste com a versão do forum e deu mesmo erro

[Alberto.Leal]

esta olhando as units do monitor 

no nfemonitor esta assim
Ide.dEmi       := NotaUtil.StringToDateTime(INIRec.ReadString( 'Identificacao','Emissao',INIRec.ReadString( 'Identificacao','dEmi',INIRec.ReadString( 'Identificacao','dhEmi','0'))));
já no plus esta
Ide.dEmi       := StringToDateTime(INIRec.ReadString( 'Identificacao','Emissao',INIRec.ReadString( 'Identificacao','dEmi',INIRec.ReadString( 'Identificacao','dhEmi','0'))));

o NotaUtil nao é mais necessario ?

[Juliomar Marchetti]

Isso agora pega e vai lá e olha o código que tinha no NotaUtil

[Alberto.Leal]

Antigo era assim:

function StringToDateTime(const DateTimeString : String ; const Format : String
   ) : TDateTime ;
 Var
    OldShortDateFormat, AStr : String ;
begin
  OldShortDateFormat := ShortDateFormat ;
  try
     if Format <> '' then
        ShortDateFormat := Format ;

     AStr := Trim( StringReplace(DateTimeString,'/',DateSeparator, [rfReplaceAll])) ;
     AStr := StringReplace(AStr,':',TimeSeparator, [rfReplaceAll]) ;

     Result := StrToDateTime( AStr ) ;
  finally
     ShortDateFormat := OldShortDateFormat ;
  end ;
end ;

Agora esta assim:

function StringToDateTime(const DateTimeString : String ; const Format : String
   ) : TDateTime ;
Var
  AStr : String;
  {$IFDEF HAS_FORMATSETTINGS}
  FS: TFormatSettings;
  {$ELSE}
  OldShortDateFormat: String ;
  {$ENDIF}
begin
  Result := 0;
  if (DateTimeString = '0') or (DateTimeString = '') then
    exit;

  {$IFDEF HAS_FORMATSETTINGS}
  FS := CreateFormatSettings;
  if Format <> '' then
    FS.ShortDateFormat := Format;

  AStr := Trim( StringReplace(DateTimeString,'/',FS.DateSeparator, [rfReplaceAll])) ;
  AStr := StringReplace(AStr,':',FS.TimeSeparator, [rfReplaceAll]) ;

  Result := StrToDateTime(AStr, FS);
  {$ELSE}
  OldShortDateFormat := ShortDateFormat ;
  try
    if Format <> '' then
      ShortDateFormat := Format ;

    AStr := Trim( StringReplace(DateTimeString,'/',DateSeparator, [rfReplaceAll])) ;
    AStr := StringReplace(AStr,':',TimeSeparator, [rfReplaceAll]) ;

    Result := StrToDateTime( AStr ) ;
  finally
    ShortDateFormat := OldShortDateFormat ;
  end ;
  {$ENDIF}
end ;

 

As diferencas sao que agora tem um ifdef e 

  if (DateTimeString = '0') or (DateTimeString = '') then
    exit;

[Daniel Simoes]

Acho que a diferença entre as versões é apenas o fato de que o ACBrNFeMonitor é compilado em Delphi, e o ACBrMonitorPLUS é compilado em Lazarus...

A chamada a StringToDateTime em ambos os casos (NotaUtil ou ACBrUtil) irá na verdade chamar o método nativo "StrToDateTime"...

Provavelmente o Lazarus faz um "parse" diferente da maneira que o Delphi fazia...

O Tipo "Ide.dEmi", (assim como todos os tipos data de TNFe) são do tipo TDateTime... que simplesmente não aproveitam a informação de UTC

Porque você está usando esse formato para datas ? Ele segue algum padrão ou recomendação ?

Talvez seja mais simples, você modificar a sua rotina de geração do TXT... Os problemas no seu campo são:

• Sem espaço de separação entre a Data e Hora.
• Com informação UTC

Experimente enviar como:

Emissao=17/08/2015 09:09:15

 

[Alberto.Leal]

Deu certo assim passando separado e sem o utc.. o componente já acresentou o utc ao xml gerado

Obrigado