FiveTech Software tech support forums

... DEFAULT oDataBase:=oDb RETURN TTable():New(cSql,lLoad,oDataBase) CLASS Ttable DATA oDataBase DATA oCursor DATA lAppend INIT .T. DATA aBuffer INIT {} DATA cWhere INIT "" DATA cTable DATA cSql DATA cSqlExec INIT "" METHOD New(cSql,lLoad,oDataBase) CONSTRUCTOR METHOD ...

... skips to the record, apparently it does not like one of the values in the date fields it sees. It fails at line 1048: for n = 1 to Len( ::aBuffer ) ::aBuffer[ n ] = ( ::cAlias )->( FieldGet( n ) ) next SO ... Any thoughts on a strategy here to trap in invalid date existing in a field ...

... if cFilter is nil, no action - New: ClearFilter() clears filter - New: ReIndex() - New Data: nBufRec. Represents recno() corresponding to the oDbf:aBuffer in memory. When oDbf:Blank() is called, this value is Zero. - Hint: If the programmers wants to copy data of one record and paste to another ...

DATAS 1. aBuffer ( ReadOnly Type: "A" ): Array holding the field values of the current record when ::lBuffer is .T. 2. aFldNames ( ReadOnly Type: "A" ): Array containing field names of DBF 3. aStruct ( ReadOnly ...

... DEFAULT oDataBase:=oDb RETURN TTable():New(cSql,lLoad,oDataBase) CLASS Ttable DATA oDataBase DATA oCursor DATA lAppend INIT .T. DATA aBuffer INIT {} DATA cWhere INIT "" DATA cTable DATA cSql DATA cSqlExec INIT "" METHOD New(cSql,lLoad,oDataBase) CONSTRUCTOR METHOD ...

Tim, You can also check to see if oRecord:load() is returning .f. This would indicate that the aBuffer array hasn't been loaded. The only reason I can see that it wouldn't be loaded is that the parent table has been closed. However, if the parent table (database) was closed ...

Tim, TRecord's aBuffer array must be empty. The only way I can see that this would happen is the TData's aBuffer is empty and that is inherited from TDatabase. Perhaps you can confirm this by adding a temp button to display one of ...

#INCLUDE "FIVEWIN.CH" // ------------------------------------------------------------------- // CLASS TBookMark DATA cAlias DATA aBuffer DATA aFld DATA oDb DATA nRecno DATA cnIndex METHOD New() CONSTRUCTOR METHOD Set() END CLASS // ------------------------------------------------------------------- ...

... CLASS TDb DATA nArea AS NUMERIC INIT 0 DATA lBuffer DATA lShared AS LOGICAL INIT .t. DATA aBuffer DATA bBoF, bEoF, bNetError AS CODEBLOCK DATA cAlias, cFile, cDriver AS String INIT "" DATA lReadOnly AS LOGICAL INIT .f. DATA lOemAnsi ...

... Have you checked what happens when you compare the same record number between the file copy and the actual file ? If you use DATABASE class with aBuffer , It happens sometime that the record pointer changes ( for example in a browse ) and executes an update on a different record . Checks whether ...

Hello Antonio, if I check immediately afte assigning ::abuffer in METHOD Blank() ( ::cAlias )->( FieldGet( 1 ) ) returns the value of the first record in the database. Are you sure modified is working if you add a record using blank() Best regards, ...

... "FieldGet", ::FieldGet( 1 ) } ) for n := 1 to Len( ::aFldNames ) if ! ( ::cAlias )->( FieldGet( n ) ) == ::aBuffer[ n ] msginfo(( ::cAlias )->( FieldGet( n ) )) msginfo(::aBuffer[ n ]) return .t. endif next return .f.

... METHOD Modified() CLASS TDataBase local n if ::lBuffer for n := 1 to ( ::nArea )->( FCount() ) if ! ( ::cAlias )->( FieldGet( n ) ) == ::aBuffer[ n ] return .t. endif next endif return .f.

... with any data file. However, a disadvantage of this method is that you have to use an array reference which is hard to understand later. E.G.: aBuffer:= scatter() redefine get var aBuffer[3] A much better approach is to use a database object. Database objects are also generic and can be used ...

... I was trying to explain. You can add a blank record to a TDatabase object but you cannot display it in the browse. Then blank is just an empty aBuffer so you cannot see it by doing a goBottom() because there is no blank record. Going to the bottom will load that last record into aBuffer for ...