FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"
#include "ads.ch"   // Ads.ch Can not found at Fwh, Harbour, xHarbour folders

* ---------------------------------------
FUNCTION main()
* ---------------------------------------

   ANNOUNCE RDDSYS
   REQUEST ADS

   REQUEST DBFCDX
   REQUEST DBFFPT

   RddRegister(   "ADS", 1 )
   RddSetDefault( "ADS"    )

   REQUEST ADSKeyNo
   REQUEST ADSKeyCount
   REQUEST ADSGetRelKeyPos
   REQUEST ADSSetRelKeyPos

   SET DELETE OFF
   SET DATE ANSI
   SET CENT ON

   SET SERVER   LOCAL
   SET FILETYPE TO CDX
   SET OPTIMIZE ON

   USE customer NEW ALIAS customer  VIA "ADS"  SHARE

   // ads Xbrowse problem in fhw 16.11
   // Harbour work fine.
   // but Error appears in xharbour.

   XBROWSER 'customer' TITLE 'ads test' FASTEDIT

   USE

RETURN NIL

 

Code: Select all

Application
===========
   Path and name: c:\fwh\samples\xbrads.exe (32 bits)
   Size: 3,487,744 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161123)
   FiveWin  Version: FWHX 16.11
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 2016.12.18, 22:11:35
   Error description: Error BASE/1004  Class: 'NUMERIC' has no exported method: LDRAG
   Args:
     [   1] = N   -16

Stack Calls
===========
   Called from:  => LDRAG( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETRDD( 4835 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 480 )
   Called from:  => TXBROWSE:SKIP( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CALCROWSELPOS( 1642 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1609 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 511 )
   Called from:  => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 14107 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3306 )
   Called from:  => WNDWIDTH( 0 )
   Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL:TCONTROL( 179 )
   Called from:  => TXBROWSE:_NWIDTH( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:BRWFITSIZE( 1220 )
   Called from: .\source\function\XBROWSER.PRG => FITSIZES( 292 )
   Called from: .\source\function\XBROWSER.PRG => (b)XBROWSE( 262 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 706 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 898 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: .\source\function\XBROWSER.PRG => XBROWSE( 262 )
   Called from: xbrads.prg => MAIN( 33 )

 

Code: Select all

but Error appears in xharbour.
 

Code: Select all

#include "fivewin.ch"
#include "ads.ch"

function main()

   RddRegister( "ADS", 1 )
   AdsSetServerType( ADS_LOCAL_SERVER )
   RDDSetDefault( "ADSCDX" )

   USE CUSTOMER NEW ALIAS CUST VIA "ADSCDX"
   XBROWSER "CUST" FASTEDIT TITLE FWVERSION

return nil

REQUEST ADSKEYCOUNT, ADSGETRELKEYPOS, ADSSETRELKEYPOS, ADSKEYNO