طلب مساعدة لجعل الدالة تعمل الأكسيس

الرجاء بالمساعدة في جعل هذه العبارة تعمل مع الأكسيس ،حيث أنه تم تغير الضريبة على الدخل و مع السلم الجديد تم إعطاء الملفين المرفقين :

* PROGRAMME CALCUL IRG 2008/2007

* MINISTERE DES FINANCES

* DIRECTION GENERALE DES IMPOTS

* DIRECTION DE L'INFORMATION ET DE LA DOCUMENTATION

PARAMETERS SOUMIS,RTS1,abat

SET DECIMAL TO 1

STORE 0 TO TC,PAS,R1

SELECT 5

USE TAB07

BRTS=SOUMIS*12

* CALCUL DE L'IMPOT ANNUEL

DO WHILE .NOT.EOF()

IF BRTS<=TRS

EXIT

ELSE

SKIP +1

ENDIF

ENDDO

STORE TAX TO TAUX

SKIP -1

STORE TRS TO TB

STORE IMPAN TO TD

N=BRTS-TB

IMPOTA=(N*TAUX/100)+TD

* CALCUL DU CREDIT D'IMPOT MENSUEL

IMPM=IMPOTA/12

ABAT=(40*IMPM/100)

IF ABAT<1000

ABAT=1000

ENDIF

IF ABAT>1500

ABAT=1500

endif

RET=IMPM-ABAT

IF RET<0

RET=0

endif