Небольшая помарка в классе Atol10.SetParamDateTime - из-за неё не устанавливаются секунды и дата чека коррекции:
Код: Выделить всё
Atol10.SetParamDateTime    PROCEDURE(LONG lParam, <LONG lDate>, <LONG lTime>)
….
  libfptr_set_param_datetime(SELF.fptr, LIBFPTR_PARAM_DATE_TIME, YEAR(d), MONTH(d), DAY(d), SUB(FORMAT(t,@T04),1,2), |
   SUB(FORMAT(t,@T04),4,2), SUB(FORMAT(t,@T04),6,2))  
   
   ! ПРАВИЛЬНО: lParam вместо LIBFPTR_PARAM_DATE_TIME и SUB(FORMAT(t,@T04),7,2) вместо SUB(FORMAT(t,@T04),6,2)
или можно вообще упростить метод:
Код: Выделить всё
Atol10.SetParamDateTime  Procedure(LONG lParam, <LONG lDate>, <LONG lTime>)
Loc:Date  Long
Loc:Time  Long
  Code
  If Self.FlagLoaded = True
     If Omitted(3) = False then Loc:Date = lDate else Loc:Date = ToDay().
     If Omitted(4) = False then Loc:Time = lTime else Loc:Time = Clock().
     libfptr_set_param_datetime(Self.fptr, lParam, Year(Loc:Date), Month(Loc:Date), Day(Loc:Date), |
                      Sub(Format(Loc:Time,@T05),1,2), Sub(Format(Loc:Time,@T05),3,2), Sub(Format(Loc:Time,@T05),5,2))
  end