Atenção no fuso horário

[JoséQuintas]

A rotina de fuso horário estava errada.
Ao invés de somar 1 hora, estava tirando 1 hora.
Este é o primeiro horário de verão desde que a rotina foi criada.

Código: Selecionar todos

FUNCTION DateTimeXml( dDate, cTime, cUF, lUTC )
   ...
   DO CASE
   CASE ! lUTC ; cText += "" // no UTC
   CASE cUF $ "AC"                                             ; cText += "-05:00"
   CASE cUF $ "MT,MS" .AND. lHorarioVerao                      ; cText += "-03:00"
   CASE cUF $ "DF,ES,GO,MG,PR,RJ,RS,SC,SP" .AND. lHorarioVerao ; cText += "-02:00"
   CASE cUF $ "AM,MT,MS,RO,RR"                                 ; cText += "-04:00"
   OTHERWISE                                                   ; cText += "-03:00" // demais casos
   ENDCASE

   RETURN cText

[malcarli]

José, na linha 475 de ze_SpedDaEvento.prg onde lê IF Len( ::aCorrecoes )

deve ser: IF Len( ::aCorrecoes ) > 0

correto?

[JoséQuintas]

Valeu.
Quando cheguei vi sua mensagem no Skype e já fiz a correção, é isso mesmo que indicou.