Небольшая помарка в классе 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