> >m.cCondit = '.T.' > > SELECT DISTINCT ; > E.nType ,; > R.lassimille , ; > CAST( ICASE( INLIST( .F. , E.ltransfert , M.lcondit ) , E.ltransfert ,; > ICASE( D.ddate <= m.dlimit , .T. , .F. )) AS L ) AS ltransfert ,; > NVL( SUM( ICASE( E.nPosCat = 1 , 1 , 0 ) ) , 0 ) AS nCat_O,; > NVL( SUM( ICASE( E.nPosCat = 2 , 1 , 0 ) ) , 0 ) AS nCat_A,; > NVL( SUM( ICASE( E.nPosCat = 3 , 1 , 0 ) ) , 0 ) AS nCat_B,; > NVL( SUM( ICASE( E.nPosCat = 4 , 1 , 0 ) ) , 0 ) AS nCat_C,; > NVL( SUM( ICASE( E.nPosCat = 5 , 1 , 0 ) ) , 0 ) AS nCat_Cd; > FROM amline!Etats E; > INNER JOIN DatesFiltred D ON D.ddate BETW E.ddebut AND EVL( E.dfin , m.dfin ) ; > INNER JOIN amline!Resident R ON R.iid = E.iresidentid ; >WHERE R.iid = 3065 GROUP BY 1,2,3 INTO CURSOR Categ READWRITE > >>
> >m.cCondit = "R.iid=" + TRANSF( 3065 ) > >SELECT DISTINCT ; > E.nType ,; > R.lassimille , ; > CAST( ICASE( INLIST( .F. , E.ltransfert , M.lcondit ) , E.ltransfert ,; > ICASE( D.ddate <= m.dlimit , .T. , .F. )) AS L ) AS ltransfert ,; > NVL( SUM( ICASE( E.nPosCat = 1 , 1 , 0 ) ) , 0 ) AS nCat_O,; > NVL( SUM( ICASE( E.nPosCat = 2 , 1 , 0 ) ) , 0 ) AS nCat_A,; > NVL( SUM( ICASE( E.nPosCat = 3 , 1 , 0 ) ) , 0 ) AS nCat_B,; > NVL( SUM( ICASE( E.nPosCat = 4 , 1 , 0 ) ) , 0 ) AS nCat_C,; > NVL( SUM( ICASE( E.nPosCat = 5 , 1 , 0 ) ) , 0 ) AS nCat_Cd; > FROM amline!Etats E; > INNER JOIN DatesFiltred D ON D.ddate BETW E.ddebut AND EVL( E.dfin , m.dfin ) ; > INNER JOIN amline!Resident R ON R.iid = E.iresidentid ; > WHERE &cCondit GROUP BY 1,2,3 INTO CURSOR Categ READWRITE > >>