I saw that. But I do not have the right structure for customer.
I changed forumsetup().
Best regards,
Otto
LOCAL_PATH := "c:\fwharb\samples\"
cLocal := "C:\fwharb\samples\"
and I changed
- Code: Select all Expand view RUN
function forumsetup()
local aFields:={}, aF2:={}
cFile = LOCAL_PATH + "brwsetup.dbf"
IF .NOT. FILE( cFile )
aFields := { { "BRWNAAM", "C", 15, 0 },;
{ "TOP", "N", 4, 0 },;
{ "LEFT", "N", 4, 0 },;
{ "BREED", "N", 4, 0 },;
{ "HOOGTE", "N", 4, 0 },;
{ "DATABASE", "C", 15, 0 },;
{ "RELATION", "C", 200, 0 },;
{ "INDEX", "C", 15, 0 },;
{ "INFO", "C", 250, 0 },;
{ "MASTER", "C", 10, 0 } }
DbCreate( cFile, aFields, "DBFCDX" )
use cFile NEW VIA "DBFCDX"
index on upper(brwnaam) tag code
append blank
brwsetup->brwnaam = "CUSTOMERS"
brwsetup->DATABASE = "CUSTOMER"
close brwsetup
endif