Index: APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml =================================================================== diff -u -r734 -r794 --- APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 734) +++ APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 794) @@ -1,10 +1,10 @@ - + vhLib.Macro 1 %RegisteredObject -62094,53127.302811 +62123,49838.77593 61886,61062.984522 0 @@ -163,6 +163,7 @@ do BehandeldOnderwerp.KlantSetObjectId("") do BehandeldOnderwerp.LevSetObjectId("") + set BehandeldOnderwerp.Oorsprong.ID = dtoBehandeldOnderwerp.OorsprongID if dtoBehandeldOnderwerp.DerdeType = "K" { do BehandeldOnderwerp.KlantSetObjectId(dtoBehandeldOnderwerp.DerdeID) } elseif dtoBehandeldOnderwerp.DerdeType = "L" { do BehandeldOnderwerp.LevSetObjectId(dtoBehandeldOnderwerp.DerdeID) } @@ -185,8 +186,10 @@ Set dtoBehandeldOnderwerp.Datum = BehandeldOnderwerp.Datum Set dtoBehandeldOnderwerp.Opvolging = BehandeldOnderwerp.Opvolging - Set dtoBehandeldOnderwerp.OnderwerpID = BehandeldOnderwerp.OnderwerpGetObjectId() + + Set dtoBehandeldOnderwerp.OorsprongID = BehandeldOnderwerp.Oorsprong.ID + Do dtoBehandeldOnderwerp.Acties.Clear() For ctrActies = 1 : 1 : BehandeldOnderwerp.Acties.Count() { Do dtoBehandeldOnderwerp.Acties.Insert(BehandeldOnderwerp.Acties.GetAt(ctrActies).ActieGetObjectId()) @@ -222,5 +225,5 @@ ]]> - +