Solicitação - Comando Para Retornar A Data E Hora Da Máquina Em Que O Acbrnfemonitor Está Instalado

[FabioNery]

Bom Dia

 

Se for possível, poderiam acrescentar um comando no acbrnfemonitor para devolver a data e hora da máquina onde está instalado o acbnfemonitor? 

 

Ex:         else if Cmd.Metodo = 'datahora' then

           Cmd.Resposta := FormatDateTime('dd/mm/yyyy dd:hh:mm', Now )

 

Explico: o servidor onde está instalado o acbrnfemonitor está com a hora correta de Manaus: 11:00 enquanto que a estação está com a hora de SP (12:00). Ao montar o xml na estação, uso o date() e time() que me retornam a data e hora da estação e a nota está sendo rejeitada e precisaria utilizar a data/hora do servidor. Por algum motivo, o usuário não me disse que não pode alterar a hora da estação.

 

Monto o xml (com o horário da estação, mas o fuso de Manaus)

<dhEmi>2015-04-16T12:09:25-04:00</dhEmi>

quando deveria ser 

<dhEmi>2015-04-16T11:09:25-04:00</dhEmi>

[Juliomar Marchetti]

Boa noite

já está no svn 

At revision: 8784

[medeiros.sunsystem]

Já está no ACBRNFEMonitor ? Como usar se sim ?

[Daniel Port]

Mdeiros vc vai ter que baixar os fontes do SVN e compilar com Delphi.

 

Eu tenho essa mesma situação, pricipalmente com horário de verão ativo, mas contornei da seguinte forma.

 

tenho em meu sistema uma variável com a diferença de fuso e para montar o XML uso da seguinte maneira

 

Quando o fuso como no seu caso -e 1 hora a menos em relação a Brasília, coloque -1 no fuso.

 

EX: nFuso := -1;

 

If nFuso <> 0 then

   dhEvento =  FormatDateTime('dd/mm/yy hh:mm:ss', IncHour(Now,  nFuso )));

 

Assim o XML será gerado corretamente com a hora local.

[Juliomar Marchetti]

Bom dia

sim está a partir dessa próxima compilação 

deve de pedir datahora ou data ou hora que ele retorna pra ti

[FabioNery]

Muito obrigado, Júlio!

[FabioNery]

Bom Dia, Júlio.

 

A máscara da hora nos comandos datahora e hora está dd:hh:mm em vez de hh:mm:ss.

[Daniel Port]

 

Bom Dia

 

Ex:         else if Cmd.Metodo = 'datahora' then

           Cmd.Resposta := FormatDateTime('dd/mm/yyyy dd:hh:mm', Now )

 

 

O Julio fez da forma que vc pediu rs.

[Juliomar Marchetti]

Verdade ! não havia me ligado!

Obrigado pela correção!

[FabioNery]

Daniel,

 

Verdade! Coloquei a máscara da hora totalmente errada.

 

Obrigado mais uma vez a todos.