trc存档优化

lihongji

2024-11-22 2edaa39542c551f68522dab8680e8b750176ee5d

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Quintiq file version 2.0
#parent: #root
StaticMethod GetUniqueImportObjectGroupInProfiles (
  UserImportProfiles importprofiles
) remote as owning BaseImportObjectGroupInProfiles
{
  Description: 'Construct one set of ImportObjectGroupInProfiles from all the ImportProfiles that will be executed'
  TextBody:
  [*
    uniqueimportobjectgroupinprofiles := construct( BaseImportObjectGroupInProfiles );
    
    if( importprofiles.Size() > 0 )
    {
      importobjectgroups := selectset( importprofiles, Elements.BaseImportObjectGroupInProfile.ImportObjectGroup, iog, true );
      importobjectgroupinprofiles := selectset( importprofiles, Elements.BaseImportObjectGroupInProfile, e,
                                                e.IsIncludeInImportExport() );
    
      traverse( importobjectgroups, Elements, e )
      {
        importobjectgroupinprofile := select( importobjectgroupinprofiles, Elements, iogip,
                                              iogip.ObjectGroupName() = e.Name() );
        
        uniqueimportobjectgroupinprofiles.Add( importobjectgroupinprofile );
      }
    }
    
    return &uniqueimportobjectgroupinprofiles;
  *]
}