ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Rapport multi bande de détail

	Description
Retour à la liste L'auteur Nathalie Chacon France Membre Simple # 0000000022 enregistré le 13/10/2004 84510 CAUMONT SUR DURANCE de la société Design or decline Fiche personnelle Note des membres pas de note	Contributions > 03 - FRX : Etat, impression, Report Rapport multi bande de détail # 0000000468 ajouté le 23/08/2007 10:51:51 et modifié le 23/08/2007 consulté 8165 fois Niveau débutant Version(s) Foxpro : VFP 9.0 Télécharger le ZIP (2.36 Ko)
	Faire un rapport en multi bande de détail avec des curseurs. Cet exemple est basé sur un de ceux que l'on peut trouver dans VFP9
	Code source :
	---> Curseur du personnel select 0 create cursor PERSONNEL (MATRICULE C(2), NOM C(10), PRENOM C(10)) index on MATRICULE tag MATRICULE ---> Curseur des Villes du personnel select 0 create cursor VILLE (MATRICULE C(2), VILLE C(20)) index on MATRICULE tag MATRICULE ---> Curseur des ventes select 0 create cursor VENTE (MATRICULE C(2), NOINTERNE C(10), CLIENT C(10)) index on MATRICULE tag MATRICULE ---> Remplissage du curseur Personnel select PERSONNEL append blank replace MATRICULE with "01", ; NOM with "DUPOND", ; PRENOM with "PIERRE" append blank replace MATRICULE with "02", ; NOM with "DURAND", ; PRENOM with "JACQUES" ---> Remplissage des Villes select VILLE append blank replace MATRICULE with "01", ; VILLE with "AVIGNON" append blank replace MATRICULE with "01", ; VILLE with "CAVAILLON" append blank replace MATRICULE with "02", ; VILLE with "MARSEILLE" append blank replace MATRICULE with "02", ; VILLE with "AIX EN PROVENCE" ---> Ventes select VENTE append blank replace MATRICULE with "01", ; NOINTERNE with "0000000001", ; CLIENT with "TOTO" append blank replace MATRICULE with "01", ; NOINTERNE with "0000000002", ; CLIENT with "TITI" append blank replace MATRICULE with "01", ; NOINTERNE with "0000000003", ; CLIENT with "TATA" append blank replace MATRICULE with "02", ; NOINTERNE with "0000000004", ; CLIENT with "MACHIN" append blank replace MATRICULE with "02", ; NOINTERNE with "0000000005", ; CLIENT with "BIDULE" append blank replace MATRICULE with "02", ; NOINTERNE with "0000000006", ; CLIENT with "TRUC" ---> Relation select PERSONNEL set order to MATRICULE && MATRICULE set relation to MATRICULE into VILLE, ; MATRICULE into VENTE additive ---> Edition report form "TEST" preview *---> Suppression des curseurs select VILLE use select VENTE use select PERSONNEL use return
	Commentaires
	Aucun commentaire enregistré ...

Rapport multi bande de détail

Contributions > 03 - FRX : Etat, impression, Report