Trying to COPY a custom Alpha/5 Basic Application

[nugget3825]

So,

Here's the app I'm trying to copy, remotely, to my other PC:

-----------------------------------------------------------------------------

'Date Created: 29-Jun-2023 11:04:35 AM
'Last Updated: 16-Sep-2023 08:29:58 AM
'Created By : larry
'Updated By : larry

dim t as p
dim m as p

t = table.open("inswrk")
m = table.open("county")
m.query_create("N",".t.","county")

dim count as n = t.records_get() 'get tne number of records in the transaction table
dim i as n

for i = 1 to count 'loop over all of the records in the transaction table

dim county as c = t.county
m.fetch_find(county) 'find the matching rerd in the county table

dim sequence as n = m.sequence 'get the current sequence value
dim nextsequence as n = sequence + 1 'increment sequence by one

m.change_begin() 'update the sequence in the county table
m.sequence = nextsequence
m.change_end(.t.)

t.change_begin() 'update the sequence in the trnsaction table
t.sequence = nextsequence
t.change_end(.t.)

t.fetch_next()

next i

ui_msg_box("","done")

t.close()
m.close()

---------------------------------------------------------------

It only has 2 files. After I copied the app, I logged onto the REMOTE PC to verify both of the files were there, and that the field names were exactly the same. They were. When I try to run the app, I get an error. So, I don't understand. When I came back to my master PC, it all works fine.

Does anyone have any ideas ???

Thanks,

Lar

[nugget3825]

So here's the error message I'm getting:

Dim county as c = t.county
Property not found
t.county sub element not found

Does anyone understand this ?

Lar

[nugget3825]

So, what does the error mean?

"t.county Subelent not found" ???

I checked the file and the field/subelement t.county is there.

Lar

[Mike Wilson]

Hi Larry,
The error means the field county is not found in the inswrk table as a character field. Run this in the IW and assure the dictionary has the field registered as a character field.
dim vL as C=table.external_field_name_get("inswrk","n,t")
msgbox(vL).

Might try this code instead of yours also.

'DIM VARIABLES
dim county as c
dim sequence as n
dim nextsequence as n
dim vnrecs as N
dim cycle as N=0
dim t as p
dim m as p

'OPEN WAIT DIALOG
DIM GLOBAL pDlg1 as {waitdialog}
pDlg1.Set_Title("Please Wait")
pDlg1.Create(1,"Percent")


'OPEN TABLES
t = table.open("inswrk")
m = table.open("county")
xt=t.order("county",".t.")
vnrecs=xt.records_get()

'LOOP THROUGH INSWRK TABLE
t.fetch_first()
while .not. t.fetch_eof()
county=t.county

'INCREMENT THE WAIT DIALOG
cycle=cycle+1
pDlg1.Set_Message(county)
pDlg1.Set_Bottom_Message(str(cycle)+" of "+(""+vnrecs))
pDlg1.Set_Percent(Var->cycle,Var->vnrecs)

'FIND THE MATCHING RERD IN THE COUNTY TABLE
m.fetch_find(county)

'GET THE CURRENT SEQUENCE VALUE
sequence= m.sequence

'INCREMENT SEQUENCE BY ONE
nextsequence=sequence + 1

'UPDATE THE SEQUENCE IN THE COUNTY TABLE
m.change_begin()
m.sequence = nextsequence
m.change_end(.t.)

'UPDATE THE SEQUENCE IN THE TRNSACTION TABLE
t.change_begin()
t.sequence = nextsequence
t.change_end(.t.)

'NEXT RECORD
t.fetch_next()
end while

'END SCRIPT
t.close()
m.close()
pDlg1.close()
msgbox("Update complete")

END​

[nugget3825]

Mike Thank You. I'll try right now and let you know how it works.

Lar

[nugget3825]

Mike,

Copied the script down to my remote pc, installed it and tried to run. Got the following error:

Script: Test11 Line 20
vnrecs = xt.records_get()
not found
xt.records_get method not found.

???

Lar

[nugget3825]

Mike,

The script I posted runs but, does not change the SEQUENCE field. If you had any clue WHY, I'd be very appreciative.

Lar

[Ronald Anusiewicz]

Mike, I need to compliment you on your code writing discipline. Your code is so easy to read and 5 years from now, one would have no trouble at all reading through your code.

[Ted Giles]

I'm obviously missing summat here.
Why not just zip the app, copy to the new machine and unzip it?

[Mike Wilson]

Hi Ron,
Thank you. It's been all learned from others, including you.

Ted,
I believe Larry is confused in his statement regarding copying an app. I believe he did copy the app over and now trying to operate the app on the other machine and running this code and having issues with this update script. I think.

Larry,
Run this code in the Interactive Window that gather the same information from the table with two different methods. If you get any errors then you have much deeper issues. Only way I could help is for you to zip up the two tables or the whole application and post them and have them to troubleshoot your issues.

'CODE 1
msgbox(""+tablecount("inswrk",".t."))

'CODE 2
dim t as p
dim vnrecs as N
t=table.open("inswrk")
vnrecs=t.records_get()
t.close()
msgbox(""+vnrecs))

[Ted Giles]

Thanks Mike, that makes sense.
I wouldn't do it that way though.
Easier with an Update operation?

Or, run the update script then port the app over?

[nugget3825]

So Ted/Ron, here's the app. The COUNTY portion is working but, the INSWRK9 is not. I'll keep futsing around.

--------------------------------

'Date Created: 16-Sep-2023 12:31:13 PM
'Last Updated: 17-Sep-2023 01:33:08 PM
'Created By : larry
'Updated By : larry
dim t as p
dim m as p

t = table.open("inswrk9")
m = table.open("county")
m.query_create("N",".t.","county")

dim count as n = t.records_get() 'get tne number of records in the transaction table
dim i as n

for i = 1 to count 'loop over all of the records in the transaction table

dim county as c = t.county
m.fetch_find(county) 'find the matching rerd in the county table

dim sequence as n = m.sequence 'get the current sequence value
dim nextsequence as n = sequence + 1 'increment sequence by one

m.change_begin() 'update the sequence in the county table
m.sequence = nextsequence
m.seq = nextsequence
m.change_end(.t.)

t.change_begin() 'update the sequence in the trnsaction table
t.sequence = nextsequence
t.change_end(.t.)

t.fetch_next()

next i

ui_msg_box("","done")

t.close()
m.close()

--------------------------------------------------

Lar

[nugget3825]

In the INSWRK9 file, I am trying to get the field: SEQ to update, unsuccessfully

[Ronald Anusiewicz]

I would insert the debug(1) command in the beginning of the script. Then one can step through the code verifying each line, values and variables.

[nugget3825]

Finally got the script to work with all files and appropriate fields in sync.

Thank you...

Lar