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
| Call connexion()
Dim vnbpiece As Integer = 0
Dim vnat As String = ""
Dim vannee As Integer = 0
Dim mntanP As Double = 0
Dim mntanAP As Double = 0
Dim typProprio As String = ""
cmd.CommandText = "select * from contribuable c,avoirLocal al,local l where c.numcont=al.numcont and al.numloc=l.numloc and c.numcont='" & txtNumero.Text & "'"
cmd2.CommandText = "select sum('" & vnbpiece & "' * pu *12) as [Montant a Paye] from nature where nature='" & vnat & "' and annee<='" & vannee & "'"
cmd3.CommandText = "select sum( montant ) as [Montant Payé] from contribuable c,avoirLocal al,payements p where c.numcont=al.numcont and c.numcont=p.numcont and al.numloc='" & TextBox2.Text & "' and c.numcont='" & txtNumero.Text & "' and modePay='local'"
Try
cnx.Open()
li = cmd.ExecuteReader
If li.Read Then
txtnom.Text = li(1)
txtPre.Text = li(2)
TextBox1.Text = li(3)
txtPro.Text = li.GetString(4)
txtAdresseEnre.Text = li.GetString(5)
txtTel.Text = li.GetString(6)
cmbSexe.Text = li.GetString(7)
Cmbsit.Text = li.GetString(8)
txtEmail.Text = li.GetString(9)
Txtnationnalite.Text = li.GetString(10)
vnat = li.GetString(15)
vnbpiece = li.GetValue(19)
vannee = li.GetValue(13)
End If
li.Close()
lire = cmd2.ExecuteReader
If (lire.Read()) Then
If (typProprio = "PROPRIETAIRE") Then
mntanAP = lire.GetValue(0) * 0.1
Exit sub
Else
mntanAP = lire.GetValue(0) * 0.15
End If
Exit Sub
End If
lire.Close()
lir = cmd3.ExecuteReader
If (lir.Read()) Then
mntanP = lir.GetValue(0)
Else
mntanP = 0
End If
If (mntanAP > mntanP) Then
Lblmontant.Text = mntanAP - mntanP
Lblrestpayer.Text = mntanAP - mntanP
ElseIf (mntanAP < mntanP) Then
Lblmontant.Text = 0
Label15.Text = "En Avance de"
Lblrestpayer.Text = mntanP - mntanAP
Else
Lblmontant.Text = 0
Lblrestpayer.Text = mntanP - mntanAP
Exit Sub
End If
lir.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub |
