*-- 05/2005 il faut réaliser une table croisée en ajoutant un élement en abscisse *-- en créant un champs composé. SELECT ALLTRIM( TRANSFORM( H.iemployeeid ) ) + H.no AS 'iemplId' ,; H.ddate , H.cnomp AS 'Min'; FROM tpsH H ORDER BY 1 , 2 INTO CURSOR PauseBefore_vfpTabCursor DO vfpxtab.prg WITH 'NomPauseMois',.T.,.F.,.F.,,,,.T.,0,.F. *!* *--------------------------------------------------------------------------- *!* *-- Nom de la Deuxième pause ( Cpauseid2) 'CE' 'AC' etc... *!* SELECT H.iemployeeid AS 'iemplId' , H.ddate, H.cnomp AS 'Min'; *!* FROM tpsH H WHERE H.no = 2 ; *!* UNION ; *!* SELECT c.iemplId , c.ddate , c.MIN; *!* FROM cLeurre c ORDER BY 1 , 2 INTO CURSOR PauseNo2 *!* DO vfpxtab.prg WITH 'NomP2',.T.,.F.,.F.,,,,.T.,0,.F. *!* *--------------------------------------------------------------------------- *!* *-- On unit pour les motifs énumérés ci dessus ..... SELECT 'P1' AS 'cPauseNo' , NomPauseMois.* FROM NomPauseMois WHERE ; '/1' $ NomPauseMois.iemplId ; UNION; SELECT 'P2' AS 'cPauseNo' , NomPauseMois.* FROM NomPauseMois WHERE; '/2' $ NomPauseMois.iemplId INTO CURSOR TotPauseLettre READWRITE *-- UT 05/2005 Le tour est joué , on transforme '1458/1' ou '1458/2' en 1458 ( entier ) ALTER TABLE TotPauseLettre ALTER iemplId Ibernhart