Gestion automatisée d'un service comptable au sein d'un ASBL. Cas du comité d'assistance Nyiragongo, 2007

ANNEXE

Annexe 1 : Fiche de remboursement crédit CAN

Comité d'Assistance Nyiragongo

C.A.N. asbl

Adresse locale : 1, Avenue de BENI, Centre Ville, Ville de Goma, RDC Tel. -081 31 40 722 09 98 90 26 96
E-mail : [e-mail]

FICHE DE REMBOURSEMENT DE CREDIT No /.... ...

Nom du groupe solidaire :

Nom du Président du groupe

Nom du Bénéficiaire

Date d'acquisition du crédit Montant reçu : 300 $US Taux d'intérêt : 4% Durée du crédit : 5
mois Total Intérêt : 38$US

Activité financée

Mois à payer Mwezi kulipi wa	Date de paie Siku ya kulipa	Capital circulant Au mois Asilimali ya kutu Mika ku Mwezi	Remboursement prévu chaque mois. Malipo inayo pangwa ku kila mwezi.			Montant Remboursé au mois Pesa ilyo lipiwa mu mwezi			Reste au mois Baki ku mwezi		Observ date de remboursement et N° reçu Uchunguzi wa siku alipa na No
			Capital Asilim ali	Intérêt wa Faida	Total Jumla	Capital Asilimali	Intérêt Faida	Total Jumla	Capital Asilimali	Intérêt Faida	Date et Sceau du guichet
1		300	60	12	72
2		240	60	10	70
3		180	60	8	68
4		120	60	5	65
5		60	60	3	63
Total		00	300	38	338

N.B. Cette prévision de remboursement n'est valable que si vous respectez l'échéance prévue. Dans le cas contraire, l'intérêt sera calculé sur le capital en circulation plus le montant non rembourser au mois

= := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := := :=

Annexe 2 : AUTORISATION MARITALE D'ACCES AU CREDIT CAN

Je soussigné, Monsieur :

Résident à

Mari de Madame

Résident à

Exerçant les activités de

à

Du groupe solidaire Autorise mon épouse à prendre un crédit auprès de CAN à l'instar des autres mamans de son groupe solidaire ci - haut repris.

Je me porte garant de payer le dit crédit en lieu et place de mon épouse en cas de difficultés de solvabilité et souscrit au protocole de collaboration de CAN - Partenaire.

Fait à Goma, le _____/ _____/200___
Le Mari de
Signature

91 Annexe 3 : PROCESSUS D'ECHEANCE

Private Su b Echeance_Exit(Cancel As I nteger)

On Error Resu me Next

Dim vDateFinEch As Date, TempM, m, a, TempA, LesMois

If Not IsNull(Me.CodeOctroi) Then

If IsNull(Me.Echeance) Or Me.Echeance <= 0 Then

MsgBox "La valeur d'échéance ne doit pas être nulle ou inférieure ou égale à 0 (zéro)." & vbCr & _

"Modifiez cette valeur avant de continuer S.V.P.!", vbCritical, "Valeur incorrecte d'échéance"

Me. Echeance.SetFocus

Cancel = True

Exit Sub

End If

If IsNull(Me.DateOctroi) Then

MsgBox "Spécifiez une date d'octroi du crédit avant de continuer." & vbCr & _ "La valeur que vous venez de saisir va être effacée!", vbCritical, "Valeur nulle de date"

Me.CodeCl i .SetFocus

Me.Echeance = Null

Exit Sub

End If

a = CI nt(Format(Me. DateOctroi, "yy"))

m = Format(Me.DateOctroi, "m")

LesMois = Me.Echeance + m

' MsgBox m & " -> " & a

If LesMois > 12 Then

TempA = Int(LesMois / 12)

TempM = LesMois - (Int(TempA) * 12)

vDateFinEch = Format(Me.DateOctroi, "dd") & "/" & TempM & "/" & (a + TempA) ' MsgBox vDateFinEch

Else

vDateFinEch = CDate(Format(Me.DateOctroi, "dd") & "/" &

Format(Me.DateOctroi, "mm") + Me.Echeance & "/" & Format(Me.DateOctroi, "yyyy")) End If

'MsgBox Me.DateOctroi & " ->" & vDateFinEch

Me.DateFinEch = vDateFinEch

'DoCmd.GoToRecord , , acNext

Exit Sub

Else

MsgBox "Le code d'octroi ne peut être nul. Veuillez le renseigner avant de continuer."

Me.CodeOctroi .SetFocus

End If

End Sub

Annexe 4 : Processus de remboursement

Private Sub CodeOctroi_Exit (Cancel As Integer) If IsNull(Me.CodeOctroi) Then

Cancel = True

Exit Sub

End If

DoCmd.OpenForm "frSituationRemb", , , , , acIcon DoCmd.FindRecord Me.CodeOctroi, , True, , True

Me. ResteARemb = Forms!frSituationRemb! MontOctroi - Forms!frSituationRemb!TotRemb

DoCmd.Close acForm, "frSituationRemb"

End Sub

Private Sub Commande23_Click()

Dim Mkopo, Mwezi

Mkopo = Me.CodeOctroi.Column(2) Mwezi = Me.CodeOctroi.Column(4) Me.MontRemb = Mkopo / Mwezi

Me.IntRemb = (Mkopo / Mwezi) * 0.04 Me.Remb = Me.MontRemb

Me.Solde = Me.ResteARemb - Me.Remb End Sub