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