**************************************************************
* PGM PERMETTANT DE FORCER LES COMPTES COMPTABLES A 4710000000
* DANS LE FICHIER DES RUBRIQUES DE SAISIE ET DES RUBRIQUES DE
* CHARGES
**************************************************************
OPEN "","RUBSAISIE" TO F.RUBSAISIE ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
COMPTE="4710000000"
EXECUTE "SELECT RUBSAISIE"
10 READNEXT CLESAISIE ELSE GOTO 20
READ ENRRUBSAISIE FROM F.RUBSAISIE,CLESAISIE ELSE GOTO 10
ENRRUBSAISIE<12>=COMPTE
ENRRUBSAISIE<13>=COMPTE
WRITE ENRRUBSAISIE ON F.RUBSAISIE,CLESAISIE
GOTO 10
20 EXECUTE "SELECT RUBCHARGE"
30 READNEXT CLECHARGE ELSE STOP
READ ENRRUBCHARGE FROM F.RUBCHARGE,CLECHARGE ELSE GOTO 30
ENRRUBCHARGE<20>=COMPTE
ENRRUBCHARGE<21>=COMPTE
ENRRUBCHARGE<22>=COMPTE
ENRRUBCHARGE<23>=COMPTE
WRITE ENRRUBCHARGE ON F.RUBCHARGE,CLECHARGE
GOTO 30