1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| HDécritConnexion("CONNEXION214",XXXXX,XXX,"XXXXXXXXXXX:XXX","BDD",hAccèsHFClientServeur)
HOuvreConnexion("CONNEXION214")
HChangeConnexion("*","CONNEXION214")
HDéclareExterne(".\DOSSIERS.FIC","DOSSIERS214","CONNEXION214")
idconcernés est une Source de Données
requeteid est une chaîne = [
SELECT ID_DOSSIER,NUMERO_IMMATRICULATION_FNI,NUMERO_DOSSIER,NUMERO_SIRET_CABINET,INDICE_SITE_CABINET
FROM DOSSIERS214
WHERE ID_DOSSIER BETWEEN 1501000 AND 1502000
ORDER BY ID_DOSSIER ASC
]
HExécuteRequêteSQL(idconcernés,hRequêteDéfaut,requeteid)
HDécritConnexion("ERIC214",XXXXX,XXX,"XXXXXXXXXXX:XXX","BDD2",hAccèsHFClientServeur)
HOuvreConnexion("ERIC214")
HChangeConnexion("*","ERIC214")
POUR TOUT idconcernés
TableAjouteLigne(TABLE_Table1,idconcernés.ID_DOSSIER,idconcernés.NUMERO_SIRET_CABINET,idconcernés.INDICE_SITE_CABINET,idconcernés.NUMERO_DOSSIER,idconcernés.NUMERO_IMMATRICULATION_FNI)
FIN |
Partager