Index: zTryout/WV/PM/Test.cls.xml =================================================================== diff -u -r57305 -r57306 --- zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 57305) +++ zTryout/WV/PM/Test.cls.xml (.../Test.cls.xml) (revision 57306) @@ -16,9 +16,9 @@ Set Vergelijker = ##class(zTryout.WV.PM.Test).%New() #dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() - #dim PRNr,IngegevenKenmerken,ProductSpecificatie + #dim PRNr,IngegevenKenmerken,ProductSpecificatieID #dim ErrorLijst,Familie,Variant,Status,ParsedStatus - #dim ProductSpecificatieID As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = "" + #dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = "" #dim Product As DOM.PM.TBXProduct.TBXLade = "" #dim Teller = 0 @@ -91,7 +91,7 @@ Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, IngegevenKenmerken) } Else { - Do ProductSpecificatie.ZetIngegevenKenmerken(IngegevenKenmerken) + Do ProductSpecificatie.ZetIngegevenKenmerkenWV(IngegevenKenmerken) } Do ProductSpecificatie.Annotaties.SetAt("De ingegeven kenmerken werden gegenereerd door conversie van het oude product","Gegenereerd door") Set Status = ProductSpecificatie.%Save()