>SELECT New.Numero,New.Titre AS Title,New.Message AS Summary,; > IIF(New.Type=2,PADR(New.Url,250),; > PADR(GetUrlArticleMagazine(New.Month,New.Year,New.Page,New.Type,New.Url),250) AS Url,; > New.Creation FROM Temp; > INNER JOIN New ON Temp.Numero=New.Numero; > ORDER BY 5 DESCENDING INTO CURSOR Temp >>
>FUNCTION GetURLArticleMagazine >PARAMETERS tnMonth,tnYear,tnPage >RETURN 'http://www.something...' >>
>SELECT New.Numero,New.Titre AS Title,New.Message AS Summary,; > GetUrlArticleMagazine2(New.Month,New.Year,New.Page,New.Type,New.Url) AS Url,; > New.Creation FROM Temp; > INNER JOIN New ON Temp.Numero=New.Numero; > ORDER BY 5 DESCENDING INTO CURSOR Temp >>
>FUNCTION GetURLArticleMagazine2 >PARAMETERS tnMonth,tnYear,tnPage,tnType,tcUrl >LOCAL lcURL >lcURL='' >IF tnType=2 > lcURL=tcUrl > ELSE > lcURL='http://www.something...' >ENDIF >RETURN PADR(lcURL,250) >>