Good morning, Everyone.

In my installation xHb.com, the program below creates DBF files using the
CREATE command. If You use the RDD DBFCDX (lAds = .f.) are created 15 files.
If  You use the RDD ADS (lAds = .t.) are created only 9 files and not
runtime error occurs.

#include "ADS.CH"
FUNCTION MAIN()
   lAds = .T.    // change to .f. to request DBFCDX
   ADSRIGHTSCHECK( .F. )
   IF KAxs
     REQUEST ADS
     RDDSETDEFAULT( "ADS" )
     SET SERVER REMOTE
  ELSE
     REQUEST DBFCDX
     RDDSETDEFAULT( "DBFCDX" )
     SET AUTORDER TO 1
  ENDIF
  SET FILETYPE TO CDX
  SET DBFLOCKSCHEME TO 5
  FOR I = 1 TO 15
     SELE 0
     CREATE ( 'i' + strzero( i, i ) )
  NEXT
  RETURN NIL

Please could someone check if this problem also occurs with you?
Thank You,
Fabio Nery




---
Este email foi escaneado pelo Avast antivĂ­rus.
http://www.avast.com



------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to