Argument is Incorrect Data Type

[forskare]

I am using Bill Warner's script from the 4-1-04 newsletter. It gets down to the last line and I get this message;

Argument is Incorrect Data Type

(see attached jpg)

FWIW, I also had to change the 2nd line of the script from:

cstnam = ui_get_text("CUSTOMER NAME","Enter Customer Name",cstnam)

to:

cstnam = ui_get_text("CUSTOMER NAME","Enter Customer Name","")

W/o the change of cstnam to the double quotes, I got the error message, cstnam not found.

Any thoughts as to why I get the error messages, especially the first one?

Thanks,

kenn

[forskare]

RE: Argument is Incorrect Data Type

Got to thinking afterwards it might be useful to show the entire script for reference to save time looking it up. Here's the entire script Bill wrote.

kenn

dim cname[200] as c
cstnam = ui_get_text("CUSTOMER NAME","Enter Customer Name",cstnam)
if cstnam = ""
end
end if

ln = len(cstnam)
tc = table.open("customer")
query.order = "Custid"
query.filter = "left(Custname,var-"ln) = var-"cstnam"
query.options = ""
ndx = tc.query_create()
qt = ndx.records_get()
tc.fetch_first()

if qt = 0
ui_msg_box("CUSTOMER NOT FOUND","There is no match for " + trim(cstnam) + ".",16)
end
elseif qt = 1
cstid = tc.custid
else
I = 0
WHILE .not.tc.fetch_eof()
I = I + 1
cname[I] = tc.Custid + tc.custname
tc.fetch_next()
END WHILE
cstn = ui_get_list_array("SELECT CUSTOMER",1,"cname")
cstid = word(cstn,1)
end if

parentform.Index_Set("Cust_ID")
parentform.find( cstid )

[Stan Mathews]

RE: Argument is Incorrect Data Type

If you are working with AlphaSports, I found the following adjustments to be helpful...

insert second line
dim cstnam as c

change any references to


custid to be CustOMER_id

custname to be LASTname

Or you can change the name of customer_id to be custid and add a custname field, probably calculated from firstname and lastname.

[forskare]

RE: Argument is Incorrect Data Type

Hi Stan,

Not working w/AlphaSports but similar app. The first part helped (Dim cstnam as c) but the last part is a hum-dinger. No matter what I try, I keep getting the same error message as posted above on either of the last 2 lines. just depends on the combination:

parentform.Index_Set("Custid")
parentform.find( cstid )

or

parentform.Index_Set("Cust_id")
parentform.find( cstid )

Whatever........thanks,

kenn

[Stan Mathews]

RE: Argument is Incorrect Data Type

parentform.Index_Set("Cust_ID") - sets the index-in-effect to "cust_id". If you don't have an index by this name you will get that error message.

[forskare]

RE: Argument is Incorrect Data Type

Well...........That's what I thought. I have changed/created that index 4-5 times but Alpha keeps changing the indexes on me, 1) removing the _ so it reads custid instead of cust_id and then creating 2 indexes with the same name, Inv_Number (See attached)

I've renamed it and it stays for awhile and then is renamed by A5. Sometimes A5 asks me to rename one of them but as soon as I do, it deletes itself.

Not really sure what I have going that is forcing Alpha to react with such an upset stomach.

What should I look for?

Thanks,

kenn

[Stan Mathews]

RE: Argument is Incorrect Data Type

Alpha creates indexes as needed for linking to child tables, etc. Note that one of the inv_number indexes is sorted ascending and the other descending.

Without your tables I couldn't even guess why it is being semi-duplicated.

[forskare]

RE: Argument is Incorrect Data Type

Stan,

I knew Alpha would generate it's own index/s when needed and to avoid spending a bunch of time (both you and me), I created a 2 table database and got it working.

I'll just remove the tables from the app and copy the new ones, using copy and paste rather than alpha.

Thanks for the suggestions,

kenn