Index: AXimpl/Utils.cls.xml =================================================================== diff -u -r48584 -r48586 --- AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 48584) +++ AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 48586) @@ -233,11 +233,11 @@ #dim StockNietStock As %String = Product.Basis.StockNietStock #dim PrimaryVendorId = ..ConvertPrimaryVendorId(Firma,Product) #dim ScanType As %String = Product.Basis.ScanType + #dim ProductNr As %Integer = Product.Basis.ProductNr + #dim ProductImpl As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNr) + #dim HeeftBouwstenen As %Boolean = $$$If(((ProductImpl.GeefKindBouwstenenIterator().HasNext()) || (ProductImpl.GeefHFBouwstenenIterator().HasNext())),$$$True,$$$False) If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() { - #dim ProductNr As %Integer = Product.Basis.ProductNr - #dim ProductImpl As DOM.PM.Product = ..ProductApi.GeefProduct(ProductNr) - #dim HeeftBouwstenen As %Boolean = $$$If(((ProductImpl.GeefKindBouwstenenIterator().HasNext()) || (ProductImpl.GeefHFBouwstenenIterator().HasNext())),$$$True,$$$False) #dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product) #dim NonAktief As %String = Product.Basis.NONAktief #dim SubGroep As %String = Product.Klassificatie.SubGroep @@ -357,6 +357,7 @@ #dim Herbestelsurplus As %String = Product.Basis.HerbestelSurplus #dim Herbestelafronding As %String = Product.Basis.HerbestelAfronding #dim DefaultOrderTypeHLX As %String = ..ConvertDefaultOrderType(Firma,Product) + #dim IsGenerischAfgeleid As %Boolean = $$$If($$$HasLength(ProductImpl.GeefGenerischProductID()),$$$True,$$$False) Set ReqGroupId = "Handmatig" If ((Herbestelsurplus = "") && (Herbestelafronding = "") && (PrimaryVendorId = "05497")){ @@ -389,6 +390,8 @@ Set ReqGroupId = "BTS AngstP" } } + } ElseIf ((DefaultOrderTypeHLX = "Productie") && (HeeftBouwstenen) && (LeverancierNummer = "6332") && ($$$Not(IsGenerischAfgeleid))) { + Set ReqGroupId = "MTS" } } Else { Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!"