Essai de la mise en place d'une plate- forme informatique Direction Générale des Impôts opérateur économique "déclaration électronique " en RDC

5.5.9. ALGORITHME DE LA DECLARATION

L'algorithme est une procédure de résolution d'un problème énoncé sous la forme de série d'opérations à effectuer, c'est une suite logique de petites et courtes phrases qui traduisent les actions et les conditions nécessaires pour résoudre un problème.11(*)

10. Début

20. Ouverture F Decl

30. Initialisation de la zone de travail

40. Saisie code d'accès

50. test code accès « code d'accès valide ? »

Si oui, aller à 60 ;

Si non, message d'erreurs : code incorrecte.

60. Lecture F decl

70. Test « es ce que c'est la fin du fichier » ?

Si oui , aller à 120

Si non aller à 80

80. Traitement `saisie de données'

90. Mise à blanc

100. Transfert de données

110. Ecriture, aller à 60

120. Fin du travail

5.5.10. ORDINOGRAMME DE LA DECLARATION

L'ordinogramme est en fait une représentation de façon symbolique et conventionnelle d'un algorithme

MESSAGE

Code incorrect

DEBUT

Ouverture FDECL

RAISOC = FORJUR = SECTAT = ELTDECL = «  » 

NATIMPOT = NUMIMPOT = «  »

BASEDECL = TAUX = MONTPAYE = 0

Introduire Code Accès

Code Accès valide ?

/*

Lire FDECL

EOJ

RAISOC ZRAISOC

FORJUR ZFORJUR

SECTAT ZSECTAT

ELTDECL  ZELTDECL

NATIMPOT ZNATIMPOT

NUMIMPOT ZNUMIMPOT

BASEDECL ZBASEDECL

TAUX ZTAUX

MONTPAYE ZMONTPAYE

MAB

OUI

OUI

NON

NON

ECRIRE 1 LIGNE

5.5.11. PROGRAMMATION DE LA DECLARATION

Option Compare Database

Private Sub Commande33_Click()

On Error GoTo Err_Commande33_Click

Dim stDocName As String

stDocName = "Enregis"

DoCmd.RunMacro stDocName

Exit_Commande33_Click:

Exit Sub

Err_Commande33_Click:

MsgBox Err.Description

Resume Exit_Commande33_Click

End Sub

Private Sub Commande34_Click()

On Error GoTo Err_Commande34_Click

Dim stDocName As String

stDocName = "Envoie"

DoCmd.RunMacro stDocName

Exit_Commande34_Click:

Exit Sub

Err_Commande34_Click:

MsgBox Err.Description

Resume Exit_Commande34_Click

End Sub

Private Sub Commande35_Click()

On Error GoTo Err_Commande35_Click

DoCmd.PrintOut

Exit_Commande35_Click:

Exit Sub

Err_Commande35_Click:

MsgBox Err.Description

Resume Exit_Commande35_Click

End Sub

Private Sub Commande36_Click()

On Error GoTo Err_Commande36_Click

Dim stDocName As String

stDocName = "impression"

DoCmd.RunMacro stDocName

Exit_Commande36_Click:

Exit Sub

Err_Commande36_Click:

MsgBox Err.Description

Resume Exit_Commande36_Click

End Sub

Private Sub Commande37_Click()

On Error GoTo Err_Commande37_Click

DoCmd.Close

Exit_Commande37_Click:

Exit Sub

Err_Commande37_Click:

MsgBox Err.Description

Resume Exit_Commande37_Click

End Sub

Private Sub Commande77_Click()

On Error GoTo Err_Commande77_Click

Dim stDocName As String

stDocName = "QUITTER APPLICATION"

DoCmd.RunMacro stDocName

Exit_Commande77_Click:

Exit Sub

Err_Commande77_Click:

MsgBox Err.Description

Resume Exit_Commande77_Click

End Sub

* ¹¹ P. KIKUNGA , cours d'algorithme, G2 INFO/soir, ISC Matadi, 2008.