>Bingo!!
>This one works perfectly, and in 1.82 seconds by the way.
>A million thanks again, Fabio
>Jaime
>
NO GOOD.

TRY

* 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