FiveTech Support Forums

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

//----------------------------------------------------------------------------//