| | |
|---|
| | | } |
|---|
| | | if( createPurchaseSupplyMaterial ) { |
|---|
| | | toCreateBomList := construct( Strings ); |
|---|
| | | alterCodes := construct( Strings ); |
|---|
| | | |
|---|
| | | if( isKeyProduct){ |
|---|
| | | toCreateBomList := selectuniquevalues( bomList, Elements, item, |
|---|
| | | item.ComponentType() = "P" and keyProductList.Find( item.ComponentCode())>=0, item.OrganCode() + item.ComponentCode()); |
|---|
| | | |
|---|
| | | alterCodes := selectuniquevalues( bomList, Elements, item, |
|---|
| | | not item.AlternativeMaterialCode() = "" and item.AlternativeMaterialType() = "P" and keyProductList.Find( item.ComponentCode())>=0, item.OrganCode() + item.AlternativeMaterialCode()); |
|---|
| | | }else{ |
|---|
| | | toCreateBomList := selectuniquevalues( bomList, Elements, item, |
|---|
| | | item.ComponentType() = "P" , item.OrganCode() + item.ComponentCode()); |
|---|
| | | |
|---|
| | | } |
|---|
| | | alterCodes := selectuniquevalues( bomList, Elements, item, |
|---|
| | | not item.AlternativeMaterialCode() = "" and item.AlternativeMaterialType() = "P", item.OrganCode() + item.AlternativeMaterialCode()); |
|---|
| | | } |
|---|
| | | toCreateBomList := toCreateBomList.Union( alterCodes); |
|---|
| | | traverse( toCreateBomList, Elements, key ) { |
|---|
| | | boms := selectset( bomList, Elements, item, item.ComponentType() = "P" and item.OrganCode() + item.ComponentCode() = key ); |
|---|
| | | bom := boms.First(); |
|---|
