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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'**********************************suppression************************
connexion.con.Open() ' ouverture de la connexion vers la base
Dim cmd2 As New SqlCommand("delete from [hichem].[dbo].[FACTURELIGNE4] where LREF=" & txtCustomComplete.Text, connexion.con) ' la commande
cmd2.ExecuteNonQuery()
connexion.con.Close()
'***************ajout****************************
Dim i As Integer = 0
Do
connexion.con.Open() ' ouverture de la connexion vers la base
Dim cmd As New SqlCommand("insert into [hichem].[dbo].[FACTURELIGNE4] (LREF,LCART,LDES,LQLIV,LPRXU,LREM,LTVA,LNOMCL,LAUXCL,LDATOP,LCTVA,LLIGNE) VALUES(@parm1,@parm2,@parm3,@parm4,@parm5,@parm6,@parm7,@parm8,@parm9,@parm10,@parm11,@parm12)", connexion.con) ' la commande
cmd.Parameters.Add("@parm1", SqlDbType.VarChar).Value = Me.txtCustomComplete.Text
cmd.Parameters.Add("@parm2", SqlDbType.VarChar).Value = Dg.Rows(i).Cells(0).Value
cmd.Parameters.Add("@parm3", SqlDbType.VarChar).Value = Dg.Rows(i).Cells(1).Value
Dim qte As Double
Dim ss As String = Dg.Rows(i).Cells(2).Value
qte = CDbl(ss)
cmd.Parameters.Add("@parm4", SqlDbType.Float).Value = qte
cmd.Parameters.Add("@parm5", SqlDbType.Int).Value = Dg.Rows(i).Cells(3).Value
cmd.Parameters.Add("@parm6", SqlDbType.Float).Value = Dg.Rows(i).Cells(4).Value
cmd.Parameters.Add("@parm7", SqlDbType.Float).Value = Dg.Rows(i).Cells(5).Value
cmd.Parameters.Add("@parm8", SqlDbType.VarChar).Value = Me.nom.Text
cmd.Parameters.Add("@parm9", SqlDbType.VarChar).Value = Me.code.Text
cmd.Parameters.Add("@parm10", SqlDbType.Date).Value = Me.dat.Text
Dim tva As String = Dg.Rows(i).Cells(5).Value
Select Case tva
Case 18
tva = 2
Case 22.5
tva = 2
Case 29
tva = 3
Case 0
tva = 0
Case 12
tva = 1
Case 15
tva = 1
Case 20
tva = 4
Case 20
tva = 4
End Select
tva = CStr(tva)
cmd.Parameters.Add("@parm11", SqlDbType.NVarChar).Value = tva
cmd.Parameters.Add("@parm12", SqlDbType.NVarChar).Value = Dg.Rows(i).Cells(9).Value
cmd.ExecuteNonQuery()
Dim c As String = Dg.Rows(i).Cells(0).Value
Dim cmd5 As New SqlCommand("UPDATE [hichem].[dbo].[ARTICLE] SET QTDISP=QTDISP+" & Dg.Rows(i).Cells(11).Value & "-" & Dg.Rows(i).Cells(2).Value & " WHERE ART='" & c & "'", connexion.con) ' la commande
cmd5.ExecuteNonQuery()
i = i + 1
connexion.con.Close()
Loop While Dg.Rows(i).Cells(0).Value <> ""
'*************************nbre ligne***********************
Dim b As Integer
nlg = 0
For b = 0 To 120
If Dg.Rows(b).Cells(0).Value <> "" Then
nlg = nlg + 1
Else
Exit For
End If
Next
nl.Text = nlg |
