>>>>* phase 1 : grouping info >>>>SELECT ; >>>> DOW(Date) dateW ; >>>>, Shaa ; >>>>, PCode ; >>>>, Oper rowGroupNum ; && Oper must to be a INTEGER >>>> INTO CURSOR tempPhase1 READWRITE; >>>> FROM Yoman ; >>>> ORDER BY 1,2 >>>> && WHERE Date between m.lStartDate AND m.lStartDate+3 AND Bit NOT IN ("ì", "ð", "á" ) AND m.RofeCode IN ( M1, M2, M3, M4 ) >>>> >>>>* this numbers the rows of every group >>>>PRIVATE dateW,Shaa >>>>DO WHILE NOT EOF() >>>> SCATTER FIELDS dateW,Shaa MEMVAR >>>> REPLACE WHILE dateW=m.dateW AND CTime==m.Shaa rowGroupNum WITH _TALLY >>>>ENDDO >>>>RELEASE dateW,Shaa >>>> >>>>* final group transposition >>>>SELECT T.Shaa ; >>>>, MAX( IIF(dateW=1, Patient.Shem+Sug+left(NVL(SugTip.SugTipul," "),2) ,SPACE(28))) AS Sunday ; >>>>, MAX( IIF(dateW=2, Patient.Shem+Sug+left(NVL(SugTip.SugTipul," "),2) ,SPACE(28))) AS Monday; >>>>, MAX( IIF(dateW=3, Patient.Shem+Sug+left(NVL(SugTip.SugTipul," "),2) ,SPACE(28))) AS Tuesday ; >>>>, MAX( IIF(dateW=4, Patient.Shem+Sug+left(NVL(SugTip.SugTipul," "),2) ,SPACE(28))) AS Wednesday ; >>>>FROM tempPhase1 T; >>>>LEFT JOIN Patient ON T.PCode=Patient.Code ; >>>>LEFT JOIN Sugtip ON T.Tipul=SugTip.Code ; >>>>GROUP BY Shaa , rowGroupNum ; >>>>INTO TABLE mytesttable >>>>USE IN tempPhase1 >>>>