FiveTech Software tech support forums

Code: Select all | Expand

function Preferences()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Preferences" SIZE 400, 200

   @ 1.2, 1.5 SAY "Default RDD: " + cDefRdd OF oDlg
   
   @ 2.4, 1.2 COMBOBOX cDefRdd ITEMS { "DBFNTX", "DBFCDX", "ADS" } ;
      OF oDlg SIZE 180, 150
   
   @ 4, 7 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( SavePreferences(), oDlg:End() )

   @ 4, 18 BUTTON "&Cancel" OF oDlg SIZE 45, 13 ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil  

Code: Select all | Expand

INIT PROCEDURE Sets()
   
   LoadPreferences()
   
   if UPPER( cDefRdd ) = 'ADS'
      REQUEST ADS,ADSKeyCount,ADSKeyNo,OrdKeyCount,OrdKeyNo,AdsGetRelKeyPos,AdsSetRelKeyPos,DBFCDX,DBFFPT
      rddRegister( "ADS", 1 )
      rddsetdefault( "ADS" )
      AdsSetServerType(1)
      AdsSetFileType(2)
      SET SERVER LOCAL
      AdsSetFileType( ADS_CDX )   
   ELSE
      REQUEST DBFCDX 
   ENDIF
   
   SET DATE FORMAT TO "DD/MM/YYYY"
   
return

Code: Select all | Expand

   @ 4, 15 BUTTON "&Ok" OF oDlg SIZE 45, 13 ;
      ACTION ( cFilter := AllTrim( cFilter ),;
               If( Empty( cFilter ), DbClearFilter(), DbSetFilter( GENBLOCK( cFilter ), cFilter ) ),;
               oBrw:Refresh(), oDlg:End() )