Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml =================================================================== diff -u -r71426 -r71427 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml (.../KenmerkenOptiesGenerator.cls.xml) (revision 71426) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml (.../KenmerkenOptiesGenerator.cls.xml) (revision 71427) @@ -54,24 +54,24 @@ #dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID) #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() - Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesAlgemeneKenmerken(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd)) - Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesBijkomend(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd)) + Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptieVoorLadesAlgemeneKenmerken(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd)) + Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptieVoorLadesBijkomend(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd)) Quit Opties ]]> - + Product:DOM.PM.MaatwerkProduct,Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerdGeformateerd:%Integer 1 %ListOfObjects - + Product:DOM.PM.MaatwerkProduct,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerd:%Integer 1 %ListOfObjects @@ -98,16 +98,16 @@ #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom() #dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken) - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "IsSmalleLade", IsSmalleLade)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "IsSmalleLade", IsSmalleLade)) #dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal) #dim BodemHoogte As %Integer = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemHoogte", BodemHoogte)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemHoogte", BodemHoogte)) #dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem()) #dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte() #dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie) - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemBreedte", BodemBreedte)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemBreedte", BodemBreedte)) #dim RugBreedte As %String = "" #dim RugHoogteInMm As %String = "" @@ -117,8 +117,8 @@ Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie) Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte) } - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugBreedte", RugBreedte)) - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugHoogteInMm", RugHoogteInMm)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugBreedte", RugBreedte)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugHoogteInMm", RugHoogteInMm)) #dim PlaatmateriaalKleuren = "" #dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur @@ -128,13 +128,13 @@ } Else { Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de } - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren)) #dim StalenRugBreedte As %String = "" If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) { Set StalenRugBreedte = RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID) } - Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "StalenRugBreedte", StalenRugBreedte)) + Do LijstBijkomendeOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "StalenRugBreedte", StalenRugBreedte)) Quit LijstBijkomendeOpties ]]> Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml =================================================================== diff -u -r71426 -r71427 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 71426) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml (.../RollenEnStuklijstOptiesGenerator.cls.xml) (revision 71427) @@ -37,27 +37,27 @@ While (HalffabItemsIterator.HasNext()) { #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next() If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) { - Do Opties.Insert(..GeefOptieVoorRol(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd)) - Do Opties.Insert(..GeefOptieVoorStuklijst(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd, $Increment(Index))) + Do Opties.Insert(..GeefOptieVoorLadeVoorRol(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd)) + Do Opties.Insert(..GeefOptieVoorLadeVoorStuklijst(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd, $Increment(Index))) } } Quit Opties ]]> - + HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummerBinnenToelevering:%String 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions - + HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummerBinnenToelevering:%String,Index:%Integer 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions @@ -74,7 +74,7 @@ #dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL" #dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem) - Quit ..GeefOptie(SequentieNummerBinnenToelevering, Naam, Waarde) + Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, Naam, Waarde) ]]> Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml =================================================================== diff -u -r71425 -r71427 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71425) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71427) @@ -10,7 +10,7 @@ %ListOfObjects - + SequentieNummer:%String,Naam:%String,Waarde:%String 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml =================================================================== diff -u -r71426 -r71427 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml (.../SequentieOptiesGenerator.cls.xml) (revision 71426) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml (.../SequentieOptiesGenerator.cls.xml) (revision 71427) @@ -11,30 +11,30 @@ #dim SequentieNummerBinnenBatchGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummer) #dim SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering) - Do Opties.Insert(..GeefOptieSequentieInfoBinnenToelevering(SequentieNummerBinnenBatchGeformateerd, UitvoeringInfo.SequentieNummerBinnenToelevering)) - Do Opties.Insert(..GeefOptieSequentieBinnenBatch(SequentieNummerBinnenBatchGeformateerd)) + Do Opties.Insert(..GeefOptieVoorLadeSequentieInfoBinnenToelevering(SequentieNummerBinnenBatchGeformateerd, UitvoeringInfo.SequentieNummerBinnenToelevering)) + Do Opties.Insert(..GeefOptieVoorLadeSequentieBinnenBatch(SequentieNummerBinnenBatchGeformateerd)) Quit Opties ]]> - + SequentieNummerBinnenBatch:%Integer,SequentieNummerBinnenToelevering:%Integer 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions - + SequentieNummer:%Integer 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml =================================================================== diff -u -r71426 -r71427 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 71426) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 71427) @@ -46,9 +46,9 @@ Set DnaCode = DnaCodeObject.DnaCode Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode)) } - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode)) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode)) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort)) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode)) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode)) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort)) #dim AxInventTransId As %String = "" #dim AxConfigId As %String = "" @@ -62,14 +62,14 @@ Set ToeleveringLijnGevonden = $$$True } } - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "InventTransID", AxInventTransId)) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "AxConfigId", AxConfigId)) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "InventTransID", AxInventTransId)) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "AxConfigId", AxConfigId)) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst())) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst())) - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode())) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst())) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst())) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode())) // Mapper voorzien voor FSC - Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout())) + Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout())) Quit Opties