***<SelectCmd> TEXT TO lcTemp NOSHOW PRETEXT 7 SELECT Auftrag.cName, Auftrag.cSomefield FROM Auftrag WHERE (Auftrag.iTyp=dnTyp_Projekt AND Auftrag.iSubTyp=1 AND (llAllProjekt OR Auftrag.iObJ_Ix=lnProjekt_Ix ) AND (llAuftrag OR !Auftrag.L1F2 ) ) OR (llAuftrag AND Auftrag.iTyp=1 AND Auftrag.iSubTyp=1 ) ORDER BY 2 ENDTEXT lcTemp = STRTRAN(lcTemp,CHR(13)+CHR(10)," ") &&clean extra linebreaks lcTemp = STRTRAN(lcTemp,dcTab,"") &&clean extra tabs THIS.SELECTCMD = lcTemp &&store to property ***</SelectCmd> ***<CursorSchema> TEXT TO lcTemp NOSHOW PRETEXT 7 CNAME C(40), CSomeField C( 5) ENDTEXT lcTemp = STRTRAN(lcTemp,CHR(13)+CHR(10), "") &&clean extra linebreaks THIS.CURSORSCHEMA = lcTemp &&store to property ***</CursorSchema> * and so on ***<Tables> TEXT TO lcTemp NOSHOW PRETEXT 7 ENDTEXT lcTemp = STRTRAN(lcTemp,CRLF, "") THIS.TABLES = lcTemp ***</Tables> ***<KeyFieldList> TEXT TO lcTemp NOSHOW PRETEXT 7 ENDTEXT lcTemp = STRTRAN(lcTemp,CRLF, "") THIS.KEYFIELDLIST = lcTemp ***</KeyFieldList> ***<UpdatableFieldList> TEXT TO lcTemp NOSHOW PRETEXT 7 ENDTEXT lcTemp = STRTRAN(lcTemp,CRLF, "") THIS.UPDATABLEFIELDLIST = lcTemp ***</UpdatableFieldList> ***<UpdateNameList> TEXT TO lcTemp NOSHOW PRETEXT 7 ENDTEXT lcTemp = STRTRAN(lcTemp,CRLF, "") THIS.UPDATENAMELIST = lcTemp ***</UpdateNameList>Note that there is no semikolon used.