Index: EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml =================================================================== diff -u -r36457 -r36517 --- EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml (.../OrderConverter.cls.xml) (revision 36457) +++ EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml (.../OrderConverter.cls.xml) (revision 36517) @@ -58,24 +58,38 @@ If OrderLine.Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%ClassName($$$True)) { set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New() if OrderLine.Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("FrontBevestiging") - if OrderLine.Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("Glijder") + if OrderLine.Product.NietMeeleveren.Geleider do LadeEigenschappen.NietMeeleveren.Insert("Geleider") do ..Converter.Convert(OrderLine.Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesTAX) } ElseIf OrderLine.Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%ClassName($$$True)) { set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New() if OrderLine.Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("FrontBevestiging") - if OrderLine.Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("Glijder") + if OrderLine.Product.NietMeeleveren.Geleider do LadeEigenschappen.NietMeeleveren.Insert("Geleider") + if OrderLine.Product.NietMeeleveren.AfdekkapBinnen do LadeEigenschappen.NietMeeleveren.Insert("AfdekkapBinnen") + if OrderLine.Product.NietMeeleveren.AfdekkapBuiten do LadeEigenschappen.NietMeeleveren.Insert("AfdekkapBuiten") + if OrderLine.Product.NietMeeleveren.BevestigingBodemFront do LadeEigenschappen.NietMeeleveren.Insert("BevestigingBodemFront") + if OrderLine.Product.NietMeeleveren.InschuifElementVoor do LadeEigenschappen.NietMeeleveren.Insert("InschuifElementVoor") + if OrderLine.Product.NietMeeleveren.InschuifElementZijkant do LadeEigenschappen.NietMeeleveren.Insert("InschuifElementZijkant") + if OrderLine.Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("Opvullijst") + if OrderLine.Product.NietMeeleveren.Zijstabilisering do LadeEigenschappen.NietMeeleveren.Insert("Zijstabilisering") + if OrderLine.Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers") + if OrderLine.Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter") + if OrderLine.Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang") + if OrderLine.Product.NietMeeleveren.TIPONComponents { + do LadeEigenschappen.NietMeeleveren.Insert("TiponSynchronisatieSet"_"TiponSynchronisatieStang") + Do ##class(Tools.Wlip).%New(127).String("samengezet") + } do ..Converter.Convert(OrderLine.Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesLBX) } ElseIf OrderLine.Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) { set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New() if OrderLine.Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("NMFS") - if OrderLine.Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("NMCP") + if OrderLine.Product.NietMeeleveren.Geleider do LadeEigenschappen.NietMeeleveren.Insert("NMCP") if OrderLine.Product.NietMeeleveren.Reling do LadeEigenschappen.NietMeeleveren.Insert("NMRL") - if OrderLine.Product.NietMeeleveren.Afdekkap do LadeEigenschappen.NietMeeleveren.Insert("NMAK") - if OrderLine.Product.NietMeeleveren.TOBSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSET") + if OrderLine.Product.NietMeeleveren.Afdekkappen do LadeEigenschappen.NietMeeleveren.Insert("NMAK") + if OrderLine.Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSET") if OrderLine.Product.NietMeeleveren.TOBSynchronisatieToebehoren do LadeEigenschappen.NietMeeleveren.Insert("NMTOBTOEB") - if OrderLine.Product.NietMeeleveren.TOBSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSTG") + if OrderLine.Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSTG") if OrderLine.Product.NietMeeleveren.Bodemsteun do LadeEigenschappen.NietMeeleveren.Insert("NMBDS") if OrderLine.Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("NMOVL") if OrderLine.Product.NietMeeleveren.LadeZijkant do LadeEigenschappen.NietMeeleveren.Insert("NMBS") Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml =================================================================== diff -u -r33543 -r36517 --- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml (.../KenmerkNaarDtoVisitor.cls.xml) (revision 33543) +++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml (.../KenmerkNaarDtoVisitor.cls.xml) (revision 36517) @@ -54,8 +54,10 @@ Set IngegevenKenmerken.CorpusBreedte = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeCorpusBreedteBepaler().GeefCorpusBreedte(TAORKenmerken) Set IngegevenKenmerken.RugHoogte = TAORKenmerken.RugHoogte - Do ..WisCorpusBreedteIndienNul(TAORKenmerken, IngegevenKenmerken) + Do ..WisCorpusBreedteIndienNul(TAORKenmerken, .IngegevenKenmerken) + Do ..KopieerNietMeeleveren(TAORKenmerken,.IngegevenKenmerken) + Quit $$$OK ]]> @@ -64,11 +66,6 @@ Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 @@ -121,6 +120,8 @@ Set ..IngegevenKenmerken.Kleur = MATKenmerken.Kleur Set ..IngegevenKenmerken.Type = MATKenmerken.Type + Do ..KopieerNietMeeleveren(MATKenmerken,..IngegevenKenmerken) + Quit $$$OK ]]> @@ -175,12 +176,17 @@ Set IngegevenKenmerken.UitsparingDataBreedteZ2 = ..LeegIndienNul(UitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData)) Set IngegevenKenmerken.UitsparingDataCodeZ1 = UitsparingData.UitsparingZ1 Set IngegevenKenmerken.UitsparingDataCodeZ2 = UitsparingData.UitsparingZ2 - Set IngegevenKenmerken.ZijWandType = LBXKenmerken.ZijWandType - Set IngegevenKenmerken.HeeftDwarsverdeling = +LBXKenmerken.GUIKenmerken.HeeftDwarsverdeling Set IngegevenKenmerken.AantalDwarsverdelingen = $select(LBXKenmerken.AantalDwarsverdelingen=0:"",1:LBXKenmerken.AantalDwarsverdelingen) - + + Do ..KopieerNietMeeleveren(LBXKenmerken,.IngegevenKenmerken) + If (##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet()) && ##class(TECH.ListUtils).Contains(IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())) { + Do IngegevenKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet()_##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang()) + Do ##class(TECH.ListUtils).RemoveItemFromList(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet(), IngegevenKenmerken.NietMeeleveren) + Do ##class(TECH.ListUtils).RemoveItemFromList(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang(), IngegevenKenmerken.NietMeeleveren) + } + Quit $$$OK ]]> @@ -232,6 +238,17 @@ + + + +1 + +