From 4b60afbb9fe35115958a3560c55b2ae08e267d71 Mon Sep 17 00:00:00 2001 From: yanweiyuan3 <yanweiyuan3@gmail.com> Date: 星期四, 14 九月 2023 20:25:16 +0800 Subject: [PATCH] Data input & output add --- _Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl b/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl index c5d5ef1..9c93bdf 100644 --- a/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl +++ b/_Main/BL/Type_VersionControl/StaticMethod_CreateNewVersion.qbl @@ -33,8 +33,8 @@ // Calculate new version info - additionversionid := [Number]( createtime.MinutesAsReal( starttime ) * 60 ); - newversionid := oldversion_id + additionversionid.AsQUILL(); + additionversionid := ( createtime.MinutesAsReal( starttime ) * 60 * 10 + createtime.SecondOfMinute() ).Round( 0 ); + newversionid := oldversion_id + [String]additionversionid; newcaltype := GlobalOTDTable::GetNextCalType( oldcaltype, businesstype ); newsingleversionname := newcaltype + "(" + createtime.Format( "Y-M2-D2 H:m:s" ) + ")"; newversionname := oldversion_name + newsingleversionname; -- Gitblit v1.9.3