1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Dim ComDoublons As New System.Data.OleDb.OleDbCommand(sql, ConDoublons)
Dim myTrans_Doublons As OleDb.OleDbTransaction = ConDoublons.BeginTransaction()
ComDoublons.Transaction = myTrans_Doublons
ComDoublons.Parameters().Add("@madate", OleDb.OleDbType.DBDate)
ComDoublons.Parameters("@madate").Value = CDate(enreg("DATEDEMANDE"))
Try
ComDoublons.CommandText = "INSERT INTO SEV_ART_AX_ASP_LOG (ITEMID, ENSEIGNEID, ITEMNAME, NETWEIGHT, PRIMARYVENDORID, " & _
" SEVNOMPHOTO, SEVNOMLATIN, SEVGARANTIE, SEVMARQUE, SEVCADEAU, SEVCADEAUVALPOINT, " & _
" SEVCADEAUVALPOINTMIX, SEVCADEAUVALPRIXMIX, SEVCHEQUECADEAU, SEVNOMENCCODE, SEVTHEMECODE, " & _
" SEVFABRICANTID, BLOCAGEVENTE, SEVINFOTECHNIQUE1, SEVINFOTECHNIQUE2, SEVINFOTECHNIQUE3, " & _
" REMISABLE, D3EMONTANT, TAXCODE, DESIGNATIONLONGUE, ETIKCLASSE, ETIKUNITCONT, ETIKCONTENANCE, " & _
" ETIKREFFAB, CODEFOUPREF, ETIKARTICLEETAT, [ACTION], DATEDEMANDE, ETATCOURANT, DATEETATCOURANT, " & _
" [LOG], LOG_DATE) " & _
" SELECT ITEMID, ENSEIGNEID, ITEMNAME, NETWEIGHT, PRIMARYVENDORID, " & _
" SEVNOMPHOTO, SEVNOMLATIN, SEVGARANTIE, SEVMARQUE, SEVCADEAU, SEVCADEAUVALPOINT, " & _
" SEVCADEAUVALPOINTMIX, SEVCADEAUVALPRIXMIX, SEVCHEQUECADEAU, SEVNOMENCCODE, SEVTHEMECODE, " & _
" SEVFABRICANTID, BLOCAGEVENTE, SEVINFOTECHNIQUE1, SEVINFOTECHNIQUE2, SEVINFOTECHNIQUE3, " & _
" REMISABLE, D3EMONTANT, TAXCODE, DESIGNATIONLONGUE, ETIKCLASSE, ETIKUNITCONT, ETIKCONTENANCE, " & _
" ETIKREFFAB, CODEFOUPREF, ETIKARTICLEETAT, ACTION, DATEDEMANDE, ETATCOURANT, DATEETATCOURANT, " & _
" 'Doublon : un enregistrement plus récent a été pris en compte', getdate() " & _
" FROM SEV_ART_AX_ASP WHERE ITEMID = " & enreg("ITEMID") & " AND DATEDEMANDE = @madate"
ComDoublons.ExecuteNonQuery()
ComDoublons.CommandText = "DELETE FROM SEV_ART_AX_ASP WHERE ITEMID = " & enreg("ITEMID") & " AND DATEDEMANDE = '" & enreg("DATEDEMANDE") & "'"
ComDoublons.ExecuteNonQuery()
myTrans_Doublons.Commit()
Catch e As Exception
mVueImportArticle = mVueImportAssort() & "IMPOSSIBLE D'INSERER LES LOG : " & e.Message
myTrans_Doublons.Rollback()
Finally
' FERMETURE DE LA CONNECTION
ComDoublons.Dispose()
ConDoublons.Close()
ConDoublons.Dispose()
myTrans_Doublons.Dispose()
End Try |
