new to xbasic, asking for help

[Mike Konoff]

Hello,

I�m new to xbasic and would like some help. To get familiar with xbasic, I�m trying to copy some tables from my Alpha Four directory to my Alpha Five directory, update the indexes, and be able to view all records using Alpha Five. We�re still using Alpha Four for data entry for these tables. But I�d like to be able to copy the data over for aid in developing my forms & reports.

Here�s what I have so far. I�ve added the first 8 lines of text below to the xbasic for a button to open the form for a set that list records for the tables. Deltik.dbf is the parent and dellin.dbf is the child in the set. The records for the parent (deltik) are being copied and I can view all those records with A5, however, I am not able to view the related child records from the set (dellin). What could I do to get that to happen?

file_copy("h:a4v6deltik.dbf", "c:program filesa5v4deltik.dbf")
file_copy("h:a4v6dellin.dbf", "c:program filesa5v4dellin.dbf")

table.open("c:program filesa5v4deltik.dbf")
tbl=table.current()
tbl.update_production_index()

table.open("c:program filesa5v4dellin.dbf")
tbl=table.current()
tbl.update_production_index()

DIM ax_choice as C
DIM ax_response as N
DIM ax_dialog as P


ON ERROR GOTO ax_error_trap
DIM ax_error_trap_desc as C
DIM ax_error_trap_offset as C
DIM ax_error_trap_msg as C
DIM ax_error_trap_response as N

ax_error_trap_desc = "Action Script"
ax_error_trap_offset = "0"
ax_error_trap_desc = "Inline Xbasic"
ax_error_trap_offset = "1"
if is_object("Delivery") then
Delivery.show()
Delivery.activate()
else
:Form.view("Delivery")
end if


END
ax_error_trap:
ax_error_trap_msg = "Trapped error in action command: [" + ax_error_trap_offset + "] " + chr(13) + chr(13) + "Command: " + ax_error_trap_desc + chr(13) + "Error: " + error_text_get()
ax_error_trap_response = ui_msg_box("Action Program Error", ax_error_trap_msg, 2)
IF ax_error_trap_response = 4 THEN ''Retry
RESUME 0
ELSEIF ax_error_trap_response = 5 THEN ''Ignore
RESUME NEXT
ELSE ''Abort
END
END IF
''****
''**** End

THANK YOU,
MIKE

[martinwcole]

RE: new to xbasic, asking for help

first, i would close the tables before i opened the form, since the form will open the tables, thus having two copies of each open.

second - have you defined a set in alpha5 for the parent and child, and if so, is the form based on that set?

if so, should display

[martinwcole]

RE: new to xbasic, asking for help

PS: are you putting your application in the same folder as Alpha? if so - DON'T!! it will be nightmare trying to distinguish your application files from alpha files, later.

[Ohlen Cartmell]

RE: new to xbasic, asking for help

Like Martin said, create a subfolder in your Alpha folder to hold your data files. Then copy your data files (including the memo files) from A4 to the new folder. Next, create a database in A5 and add your tables (which were called databases in A4)to the new database using A5's control panel. Save your database in the new folder. Now open your new database. Go to the control panel, tables tab, and right click on the table. Choose the default form or default browse and you should be able to view your records.

[Mike Konoff]

RE: new to xbasic, asking for help

Have defined both the set and form. Both work fine. If I go in and update the indexes for the set after manually copying the tables from the A4 directory I "can" view and manipulate all records as aniticipated.

The thing is that for the set in question, we still enter the data into our system using Alpha Four. I would like to arrange the button in Alpha Five so that each time I press it to load the set form, the parent and child files are copied to the A5 directory, the indexes are updated, and I can see the most recent files in A5 each time I go in there. I don't want to have to manually copy the tables over and manually update the indexes.

Presently, the xbasic for the button I previously will copy and update the parent index, not the child index.

[russ Boehle]

RE: new to xbasic, asking for help

Hi mike,
I'm not any better than you at xbasic but for the dbf's to work in A5 you have to copy both the dbf and dbt files over (as Ohlen said in his response).

Russ

[martinwcole]

RE: new to xbasic, asking for help

here is a script that will update the production indexes of all db's in your application.

are you getting the records with an "append operation" or are you just copying them over with explorer? if so, are they immediately readable by A5V4? if so, then the following script should take care of all indexing problems.


dim files as p
dim tbl as p
dim table_name as c
dim location as c

statusbar.clear()
statusbar.set_text("Updating All Production Indexes")
statusbar.disable()
hourglass_cursor(.T.)
on error goto noproblem
files = filefind.first(A_DB_CURRENT_PATH+"*.dbf")
WHILE .not. files.eof()
table_name = files.name()
tbl=table.open(table_name)
tbl.update_production_index()
tbl.close()
files.next()
END WHILE
statusbar.enable()
statusbar.clear()

noproblem:
resume next

[Pat Bremkamp]

RE: new to xbasic, asking for help

Mike,

Alpha may be getting confused about your primary table. According to my documentation, opening a table with table.open does not necessarily make the table the primary table, so you might want to try:

dim tbl as p 'set up tbl as table pointer
tbl=table.open("first file name") 'assign pointer to file
tbl.update_production_index()
tbl.close()

tbl=table.open("next file name") 'reassign pointer to next file
tbl.update_production_index()
tbl.close()
and so on
then open your form.

Pat

[Mike Konoff]

RE: new to xbasic, asking for help

Hi All,

I have been trying to do what I wanted using the xbasic as per some listings in the reference manual...no luck. I did a search of these boards and found a post by Dr. Wayne that contained some xbasic. After going over that I tried some xbasic style that he had listed in there.

Pat...it's the same as what you have in your suggestion...and it now works...like a charm!

Thank you all for your help and suggestions.
:)
Mike