Cita:
Empezado por javipes
Sí, si eso lo tengo codificado, sin problemas:
Código Delphi [-]function DTHuso(Valor: TdateTime):string; begin Result := FormatDateTime('yyyy-mm-ddThh:nn:ss',Valor)+HusoHorario(Valor); end;
Y HusoHorario me devuelve ese diferencial que indicas, solo que yo devuelvo en HusoHorario '+00:00' '+01:00' o '+02:00'
Yo realmente preguntaba si al importar el wsdl el dato FechaHoraHusoGenRegistro se habia importado como TXSDateTime
en cuyo caso la asignacion al dato sería algo así:
....FechaHoraHusoGenRegistro:=DateTimeToXSDateTime(Fecha); --> aaaa-mm-ddThh:nn:ss:ddddZ p
pero no sale el HusoHorario
por ello, he redefinido dicho tipo como un string (podría ser como un dato TextMax25Type o similar)
con la redefinicion planteada le asigno
....FechaHoraHusoGenRegistro:=DTHuso(Fecha); --> aaaa-mm-ddThh:nn:ss+0x:00
(normalmente la fecha será el timedateactual, now() pero quería preparar una funcion) |
De todas formas personalmente trato ese dato como un texto. Actualmente estoy cambiando el modelo creado con el wsdl a un modelo manual, "todo hecho a pelo". A menos que vea algo insalvable lo dejaré manual.
Me da mucha mas libertad para actuar y para las actualizaciones. Ayer tomé la decisión y ya casi lo tengo terminado. Voy a probar de una manera local y ver que genera. (Respetando el código actual por si acaso)
Un consejo si me lo permite, preste mucha atención a la fechahora actual y la la fechahora dtc. No vaya a sacar esto de cada terminal si tiene un modelo de soft centralizado. Podría ocurrir que si una máquina no está en hora generaría un registro que no esté ordenado por fechahora y eso daría errores en la AEAT.
Mejor dejar que el sistema centralizado ofrezca tales datos si es que así lo ha concebido.
Un saludo.