*======================================================================================== * Converts an object based on EMPTY to a string. *======================================================================================== Lparameters toObject Local lnIndex, lcVariable, laPEM[1], lcName For m.lnIndex=1 to AMembers(laPEM,m.toObject) lcName = laPEM[m.lnIndex] lcVariable = "__pem_" + m.lcName If Type("Alen(m.toObject."+m.lcName+")") == "N" If Alen(m.toObject.&lcName,2) == 0 Local (m.lcVariable+"[Alen(m.toObject."+m.lcName+",1)]") Else Local (m.lcVariable+"[Alen(m.toObject."+m.lcName+",1),Alen(m.toObject."+m.lcName+",2)]") EndIf Acopy( m.toObject.&lcName, &lcVariable ) Else Local (m.lcVariable) Store GetPem(m.toObject,m.lcName) to (m.lcVariable) EndIf EndFor Local lcData If Used("curMemo") Select curMemo Else Create Cursor curMemo (cMemo M) Append Blank EndIf Save to memo cMemo all like __pem_* lcData = cMemo Return cMemo