EntityCollection.SaveMulti in Transaction Fails
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 22-Aug-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Joined: 05-Sep-2005
You may edit your messages, David 
.
(edit)
'step through items in collection
For Each Me._TableFrom In Me._CollectionFrom
'convert between object structs
Me.ConvertStructures(Me._TableTo, Me._TableFrom)
'add to the collection
Me._CollectionTo.Add(Me._TableTo)
'write to detail log
Me.WriteDetailLog(Me._TableTo, CommitType.Add)
Next
This adds the same entity in every loop iteration, it every time adds _TableTo to CollectionTo. ConvertStructures also doesn't create a new entity. Is that what's supposed to be done? 
Joined: 05-Sep-2005
Joined: 05-Sep-2005
Otis:
Sorry for the lengthy messages, I'll edit out irrelavant items when we're done to conserve space 
Ok you asked:
This adds the same entity in every loop iteration, it every time adds _TableTo to CollectionTo. ConvertStructures also doesn't create a new entity. Is that what's supposed to be done?
The answer is actually yes, this is ok. However, that is because this is my custom collection of vs structs, not LLBL entities. Soooo., Here is the code in the converstion routine from my struct to your entity collection ... and yes, I only declared the entity outside the for each loop where we add the entity. I modified the code to declare a new entity INSIDE the for each loop and I'll test and EDIT this message !!
Public Shared Function ToActivityEntityCollection(ByRef myActivityCollection As dsActivityCollection) As CollectionClasses.ActivityCollection
'define the collection to answer
Dim myCollection As New CollectionClasses.ActivityCollection
'define structures to convert
Dim myStruct As New ActivityStruct
'Dim myEntity As New EntityClasses.ActivityEntity
'step through each Activity
For Each myStruct In myActivityCollection
Dim myEntity As New EntityClasses.ActivityEntity
myEntity = ToActivityEntity(myStruct)
myCollection.Add(myEntity)
Next
'return the result
Return myCollection
End Function
Ok, that didn't help. Here is the code for the ToActivityEntity() method, where it creates a new entity as well. This is frustrating! I must be missing the forest for the trees although it would be different if this code hadn't worked in the past!
Public Shared Function ToActivityEntity(ByRef myActivity As ActivityStruct) As EntityClasses.ActivityEntity
'create structure to hold Activity
Dim myEntity As New EntityClasses.ActivityEntity
'check primary key first and fill record if not blank (nothing)
If Not myActivity.ActivityID = Nothing Then
myEntity.FetchUsingPK(myActivity.ActivityID)
If myEntity.ActivityID = 0 Then
myEntity.ActivityID = myActivity.ActivityID
End If
End If
'if no record exists then the Primary Key field returned will be zero
'be sure to set the Primary Key field to the correct amount
If myEntity.ActivityID = 0 Then myEntity.ActivityID = myActivity.ActivityID
'now fill the remaining fields.
If Not myActivity.ActivityNum = Nothing Then
myEntity.ActivityNum = myActivity.ActivityNum
End If
If Not myActivity.ActivityName = Nothing Then
myEntity.ActivityName = myActivity.ActivityName
End If
myEntity.PhaseID= myActivity.PhaseID
myEntity.Active = myActivity.Active
'return the filled out structure
Return myEntity
End Function
Otis, is there a difference in the way an entity is created between versions when you execute the following code and the activityID does not yet exist in the persistant storage?
Dim myE as New Entity
myE.FetchUsingPK(newActivityID)
myE (entity) now appears to be created and already have the newActivityID value assigned. Based on my code, didn't this used to be a zero return instead of the new value?
Thanks much!!!
Joined: 05-Sep-2005
Otis:
I have found the problem. If I execute the following code, the save performs fine:
Dim myEntity As New EntityClasses.ActivityEntity
myEntity.ActivityID = 100
myEntity.ActivityName = "TestSave"
myEntity.ActivityNum = "99999"
myEntity.PhaseId = 1
myEntity.Active = 1
myEntity.Save(True)
However, if I execute the following code, the save throws the Null exception for the ActivityID:
Dim myEntity As New EntityClasses.ActivityEntity
myEntity.FetchUsingPK(100)
myEntity.ActivityName = "TestSave"
myEntity.ActivityNum = "99999"
myEntity.PhaseId = 1
myEntity.Active = 1
myEntity.Save(True)
BUT, if you look at the entity prior to the save, the ActivityID field contains the value 100!
Thus, it appears that calling the FetchUsingPK(value), while returning false, sets the value for the Entity, but the save cannot access it.
I can think of some work arounds, like checking for false and setting the entity to New again and then setting the ActivityID again, but that seems redundant and inefficient and I should probably be sure that I am using the entity functions the way you designed them.
Questions for you: In your intended design, is this behavior what you wanted? If so, is there a preferred way to determine if an entity exists in the persistant storage that might not cause this later save problem? I know you are consistently telling users that we have to follow your intended design, which I wholeheartedly agree with .
Thanks again, I know you are tremendously busy.
David.
Joined: 05-Sep-2005