>******************************************************************** >* Description.......: FieldsToString - creates a string with fields in a table >* Calling Samples...: >* Parameter List....: tlAddTypes, tlAddAlias >* Created by........: Nadya Nosonovsky 04/21/2005 >* Modified by.......: *-- CHANGE - NN - August 10, 2005 - 15:10:45 >******************************************************************** >function FieldsToString >lparameters tlAddTypes, tlAddAlias > >local lcStr, lnI, lnFields, laFields[1], lcType >lnFields = afields(laFields) >lcStr = "" > >for lnI = 1 to m.lnFields > lcType = laFields[m.lnI,2] > lcStr = m.lcStr + ", " + iif(m.tlAddAlias,alias() + ".", "") + ; > lower(left(laFields[m.lnI, 1],1)) + ; > proper(substr(laFields[m.lnI, 1],2)) + ; > iif(m.tlAddTypes, " " + m.lcType + ; > iif(not inlist(m.lcType, "D","T","I","G","M","Y"), "(" + transform(laFields[m.lnI,3]) + ; > iif(laFields[m.lnI,4] > 0, ", " + transform(laFields[m.lnI,4]),"") + ")",""),"") >next >_cliptext = substr(m.lcStr, 3) >******************************************************************************* >