SELECT RemoteView ShowCursorProp("c:\temp\rv.txt") SELECT SptCursor ShowCursorProp("c:\temp\spt.txt") ************************************************ PROCEDURE ShowCursorProp ************************************************ * Author............: Daniel Gramunt *) Description.......: Writes the values of CURSORGETPROP() of the currently selected *) : table/cursor to < tcFile >. Handy for debugging. * Calling Samples...: * Parameter List....: tcFile - Path\filename to which the properties are written. * : [tnSql] - Optional. SQL connection handle. * : If omitted, uses This.inSql * Major change list.: *-------------------------------------------------------------------------------------------------- LPARAMETERS tcFile ASSERT VARTYPE(tcFile) = "C" AND NOT EMPTY(tcFile); MESSAGE "Parameter < tcFile > : Parameter missing or wrong type (Expecting 'C')" LOCAL lnSourceType *-- make sure cursor/table is selected IF EMPTY(ALIAS()) *-- No cursor/table selected. Inform user and bail out. This.MessageBox("No table is open in the current work area.",; MB_ICONEXCLAMATION,; This.icMessageBoxCaption) RETURN -1 ENDIF lnSourceType = CURSORGETPROP("SourceType") SET TEXTMERGE TO (tcFile) SET TEXTMERGE ON NOSHOW \Generated at <<DATE()>> <<TIME()>> \ \Table = <<ALIAS()>> \DBF = <<DBF()>> \ \CursorGetProp() \ DO CASE CASE lnSourceType = 1 && local view \Local View \BatchUpdateCount = <<CURSORGETPROP("BatchUpdateCount")>> \Buffering = <<CURSORGETPROP("Buffering")>> \CompareMemo = <<CURSORGETPROP("CompareMemo")>> \Database = <<CURSORGETPROP("Database")>> \FetchAsNeeded = <<CURSORGETPROP("FetchAsNeeded")>> \FetchMemo = <<CURSORGETPROP("FetchMemo")>> \FetchSize = <<CURSORGETPROP("FetchSize")>> \KeyFieldList = <<CURSORGETPROP("KeyFieldList")>> \MaxRecords = <<CURSORGETPROP("MaxRecords")>> \Prepared = <<CURSORGETPROP("Prepared")>> \SendUpdates = <<CURSORGETPROP("SendUpdates")>> \SourceName = <<CURSORGETPROP("SourceName")>> \SourceType = <<CURSORGETPROP("SourceType")>> \SQL = <<CURSORGETPROP("SQL")>> \Tables = <<CURSORGETPROP("Tables")>> \UpdatableFieldList = <<CURSORGETPROP("UpdatableFieldList")>> \UpdateNameList = <<CURSORGETPROP("UpdateNameList")>> \UpdateType = <<CURSORGETPROP("UpdateType")>> \UseMemoSize = <<CURSORGETPROP("UseMemoSize")>> \WhereType = <<CURSORGETPROP("WhereType")>> CASE lnSourceType = 2 \Remote View \BatchUpdateCount = <<CURSORGETPROP("BatchUpdateCount")>> \Buffering = <<CURSORGETPROP("Buffering")>> \CompareMemo = <<CURSORGETPROP("CompareMemo")>> \ConnectHandle = <<CURSORGETPROP("ConnectHandle")>> \ConnectName = <<CURSORGETPROP("ConnectName")>> \Database = <<CURSORGETPROP("Database")>> \FetchAsNeeded = <<CURSORGETPROP("FetchAsNeeded")>> \FetchMemo = <<CURSORGETPROP("FetchMemo")>> \FetchSize = <<CURSORGETPROP("FetchSize")>> \KeyFieldList = <<CURSORGETPROP("KeyFieldList")>> \MaxRecords = <<CURSORGETPROP("MaxRecords")>> \Prepared = <<CURSORGETPROP("Prepared")>> \SendUpdates = <<CURSORGETPROP("SendUpdates")>> \SourceName = <<CURSORGETPROP("SourceName")>> \SourceType = <<CURSORGETPROP("SourceType")>> \SQL = <<CURSORGETPROP("SQL")>> \Tables = <<CURSORGETPROP("Tables")>> \UpdatableFieldList = <<CURSORGETPROP("UpdatableFieldList")>> \UpdateNameList = <<CURSORGETPROP("UpdateNameList")>> \UpdateType = <<CURSORGETPROP("UpdateType")>> \UseMemoSize = <<CURSORGETPROP("UseMemoSize")>> \WhereType = <<CURSORGETPROP("WhereType")>> CASE lnSourceType = 3 \Table/Cursor \Buffering = <<CURSORGETPROP("Buffering")>> \Database = <<CURSORGETPROP("Database")>> \KeyFieldList = <<CURSORGETPROP("KeyFieldList")>> \SourceName = <<CURSORGETPROP("SourceName")>> \SourceType = <<CURSORGETPROP("SourceType")>> ENDCASE SET TEXTMERGE OFF SET TEXTMERGE TO MODIFY COMMAND (tcFile) NOEDIT *-- EOF Method ShowSqlProp -------------------------------------------------------------------------------HTH