1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Public Function FactUpdateOrInsert(ByVal DC As AMILinqClassDataContext, ByVal C As LFact, Optional ByVal submit As Boolean = True) As Integer
Try
Dim Retour As LFact = (From Ligne In DC.LFact Where (Ligne.Id = C.Id) Select Ligne).FirstOrDefault
If Retour Is Nothing Then
Retour = New LFact
DC.LFact.InsertOnSubmit(Retour)
End If
With Retour
.Id = C.Id
.....
End With
If submit Then DC.SubmitChanges()
Return Retour.Id
Catch ex As Exception
TraiteErreur("FactUpdateOrInsert", ex.ToString)
Return 0
End Try |
Partager