haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Quintiq file version 2.0
#parent: #root
Method VerifyThatTheItemCodeIsNotDuplicated
{
  TextBody:
  [*
    itemCodes := selectuniquevalues( this, 
                                     MatAttrSettingAndPlanStrategyDataColumn.MatAttrSettingAndPlanStrategyDataCell, 
                                     tempMASAPSDC,
                                     tempMASAPSDC.MatAttrSettingAndPlanStrategyDataColumn().name() = "物料编码",
                                     tempMASAPSDC.value() );
    
    traverse ( itemCodes, Elements, ic ) {
      icTotal := selectset( this, 
                            MatAttrSettingAndPlanStrategyDataColumn.MatAttrSettingAndPlanStrategyDataCell, 
                            tempMASAPSDC,
                            tempMASAPSDC.MatAttrSettingAndPlanStrategyDataColumn().name() = "物料编码" and tempMASAPSDC.value() = ic );
      if ( icTotal.Size() > 1 ) {
        error( "存在重复物料编码:", ic );
      }
    }
  *]
}