4.5.2.Liste des debiteurs du Mutuel
a. Forme
Cette liste permet de connaitre les agents qui ont une dette du
mutuel. Ici les prêts sont faits aux agents à partir de la caisse
sociale de l'hôpital que nous appelons caisse mutuelle.
b. Codes de l'état Liste des débiteurs du
mutuel
Private Sub
ListeDesAgentsEmprunteursDuMutuelToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ListeDesAgentsEmprunteursDuMutuelToolStripMenuItem.Click
con = New OleDbConnection
con.ConnectionString =
"Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\ZADO\Documents\GESTION_RESSOURCES_HUMAINES_DB.accdb"
con.Open()
cmd = New OleDbCommand
cmd.Connection = con
cmd.CommandText = "select * from REqEMPRUNTAGENT"
da = New OleDbDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "REqEMPRUNTAGENT")
Dim ListeAgentEmprunteur = New ListeAgentEmprunteur
ListeAgentEmprunteur.SetDataSource(ds.Tables(0))
Dim frmListeAgentEmpunteur = New
frmListeAgentEmprunteur
frmListeAgentEmpunteur.CrystalReportViewer1.ReportSource
= ListeAgentEmprunteur
frmListeAgentEmpunteur.CrystalReportViewer1.Refresh()
frmListeAgentEmpunteur.CrystalReportViewer1.Update()
frmListeAgentEmpunteur.Show()
con.Close()
End Sub
4.5.3.Liste des remboursements de dettes du mutuel
a. Forme
Cette liste permet de connaitre les dettes remboursées
en partie ou en totalité. Elle renseigne sur le montant octroyé
à l'emprunteur et son numéro matricule, la
référence de l'emprunt, la date d'octroi, la date de
remboursement, la tranche remboursée et le reste à payer.
b. Code de l'état Liste des
remboursements
Private Sub
ListeDesRemboursementsDeDetteDuMutuelToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ListeDesRemboursementsDeDetteDuMutuelToolStripMenuItem.Click
con = New OleDbConnection
con.ConnectionString =
"Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\ZADO\Documents\GESTION_RESSOURCES_HUMAINES_DB.accdb"
con.Open()
cmd = New OleDbCommand
cmd.Connection = con
cmd.CommandText = "select * from
REqREMBOURSEMENTEMPRUNT"
da = New OleDbDataAdapter(cmd)
ds = New DataSet
da.Fill(ds, "REqREMBOURSEMENTEMPRUNT")
Dim ListeRemboursementDette = New
ListeRemboursementDette
ListeRemboursementDette.SetDataSource(ds.Tables(0))
Dim frmListeRemboursementDet = New
frmListeRemboursementDet
frmListeRemboursementDet.CrystalReportViewer1.ReportSource =
ListeRemboursementDette
frmListeRemboursementDet.CrystalReportViewer1.Refresh()
frmListeRemboursementDet.CrystalReportViewer1.Update()
frmListeRemboursementDet.Show()
con.Close()
End Sub
| 
