Data input & output add

yanweiyuan3

2023-09-14 4b60afbb9fe35115958a3560c55b2ae08e267d71

 _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;