I only discovered this file today.
Best regards,
Otto
- Code: Select all Expand view RUN
include "fivewin.ch"
REQUEST DBFCDX
REQUEST DBFFPT
function main
? "nInfoType determines the type of information, as specified by the constants below. Note, however, that not all constants are supported for all RDDs. These constants are defined in the dbinfo.ch header file, which must be included (#include) in your application."
use ("customer2.dbf") new
? rddInfo(10)
? rddInfo(14)
GOTO 1
? "DBRI_RAWRECORD " + DBRECORDINFO( 7 )
? "DBRI_RAWMEMOS " + DBRECORDINFO( 8 )
? "DBRI_RAWDATA " + DBRECORDINFO( 9 )
return
INIT PROCEDURE PrgInit
SET CENTURY ON
SET EPOCH TO YEAR(DATE())-98
SET DELETED ON
SET EXCLUSIVE OFF
REQUEST HB_Lang_DE
HB_LangSelect("DE")
SET DATE TO GERMAN
rddsetdefault( "DBFCDX" )
EXTERN DESCEND
RETURN
//----------------------------------------------------------------------------//