Index: APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml =================================================================== diff -u -r65106 -r66349 --- APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml (.../HalffabItemParsedFromJson.cls.xml) (revision 65106) +++ APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml (.../HalffabItemParsedFromJson.cls.xml) (revision 66349) @@ -26,6 +26,10 @@ %String + +%String + + @@ -45,10 +49,18 @@ APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson - -DOM.common.dto.MagazijnZoneData + +%String + +%String + + + +%String + + Omschrijving voor op de productiedocumenten, te gebruiken in bv montage-instructies. @@ -106,7 +118,7 @@ -%String +APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r65104 -r66349 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 65104) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 66349) @@ -103,6 +103,10 @@ #dim SubHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..GeefHalffabItem(SubHalffabItemParsedFromJson) Do HalffabItem.VoegToe(SubHalffabItem) } + Set HalffabItem.Aantal = +(HalffabItemParsedFromJson.Aantal) + Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) + Set HalffabItem.OpnemenInEindproduct = HalffabItemParsedFromJson.OpnemenInEindproduct + Set HalffabItem.ProductieRoute = HalffabItemParsedFromJson.ProductieRoute } ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem" { #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = "" @@ -124,24 +128,40 @@ Do HalffabItem.VoegToe(SubHalffabItem) } Set ..IsSubItemVanMaatwerkProductHalffabItem = $$$False + Set HalffabItem.Aantal = +(HalffabItemParsedFromJson.Aantal) + Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) + Set HalffabItem.OpnemenInEindproduct = HalffabItemParsedFromJson.OpnemenInEindproduct } ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem" { #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson) Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", HF.Rol, Halffab) Set HalffabItem.Aantal = +(HalffabItemParsedFromJson.Aantal) - //BuilderBepaaltOpnemenInEindproduct Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) - //GewichtPerStuk wordt al ingevuld door ? - //IsMeeTeRekenenInPrijs wordt al ingevuld door InitialExpression - //IsMeeTeRekenenVoorVoorraad wordt al ingevuld door InitialExpression - //MagazijnZoneID ? + Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID) Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs) Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking) Set HalffabItem.OpmerkingVoorProductieDocument = HalffabItemParsedFromJson.OpmerkingVoorProductieDocument Set HalffabItem.OpnemenInEindproduct = HalffabItemParsedFromJson.OpnemenInEindproduct - //ProductieRoute? + Set HalffabItem.ProductieRoute = HalffabItemParsedFromJson.ProductieRoute + Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs) + Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad) } + ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem" { + #dim HalffabInbegrepen As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson) + Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New("", HF.Rol, HalffabInbegrepen) + + Set HalffabItem.Aantal = +(HalffabItemParsedFromJson.Aantal) + Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) + Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID) + Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs) + Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking) + Set HalffabItem.OpmerkingVoorProductieDocument = HalffabItemParsedFromJson.OpmerkingVoorProductieDocument + Set HalffabItem.OpnemenInEindproduct = HalffabItemParsedFromJson.OpnemenInEindproduct + Set HalffabItem.ProductieRoute = HalffabItemParsedFromJson.ProductieRoute + Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs) + Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad) + } ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem" { #dim HalffabBewerkt As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson) Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("", HF.Rol, HalffabBewerkt) @@ -152,16 +172,15 @@ Set HalffabItem.AfmetingMetBewerkingVerlies = +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies) Set HalffabItem.AfmetingTeBekomen = +(HalffabItemParsedFromJson.AfmetingTeBekomen) Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) - //BuilderBepaaltOpnemenInEindproduct - //GewichtPerStuk wordt al ingevuld door ? - //IsMeeTeRekenenInPrijs wordt al ingevuld door InitialExpression - //IsMeeTeRekenenVoorVoorraad wordt al ingevuld door InitialExpression - //MagazijnZoneID ? + Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID) Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs) Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking) Set HalffabItem.OpmerkingVoorProductieDocument = HalffabItemParsedFromJson.OpmerkingVoorProductieDocument Set HalffabItem.OpnemenInEindproduct = HalffabItemParsedFromJson.OpnemenInEindproduct Set HalffabItem.TeBekomenAantal = +(HalffabItemParsedFromJson.TeBekomenAantal) + Set HalffabItem.ProductieRoute = HalffabItemParsedFromJson.ProductieRoute + Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs) + Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad) #dim WaardenIterator As TECH.Iterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie") #dim BewerkingDimensie As %String