Ok, I know how to create a pushbutton to run a query and return a tableview, or even open a report, and this works when everything is in the working directory. I have, however, run into a problem when trying to open a report not in the working directory, since not everyone uses the same working directory I wanted to make it work for anyone. I have tried using an alias TEMP, but to no avail. I am running WinXP with Paradox 9. The code is below:
method pushButton(var eventInfo Event)
var
myQuery Query
xraydt String
r Report
endVar
xraydt.view("Enter Date of X-Ray")
myQuery = Query
ANSWER: RIV:ANSWER.DB
SORT: X-Ray DB.DB->"LAST NAME",
X-Ray DB.DB->"FIRST NAME", X-Ray DB.DB->"MIDDLE"
X-Ray DB.DB | SS # | TITLE | LAST NAME |
| Check | Check _join2 | Check |
X-Ray DB.DB | FIRST NAME | MIDDLE | DOB | DATE OF XRAY |
| Check | Check | Check | Check ~xraydt |
X-Ray DB.DB | PLACE OF X-RAY |
| Check _join1, ..COT.. |
0DOCTORS.DB | PLACE OF X-RAY | DOCTOR | CITY | STATE |
| _join1 | Check | Check | Check |
0GENDER.DB | TITLE | GENDER |
| _join2 | Check |
EndQuery
if myQuery.executeQBE() then
if r.open(":TEMP:XR-LABEL.rsl") then
r.wait()
endIf
endIf
endMethod
What am I missing?
method pushButton(var eventInfo Event)
var
myQuery Query
xraydt String
r Report
endVar
xraydt.view("Enter Date of X-Ray")
myQuery = Query
ANSWER: RIV:ANSWER.DB
SORT: X-Ray DB.DB->"LAST NAME",
X-Ray DB.DB->"FIRST NAME", X-Ray DB.DB->"MIDDLE"
X-Ray DB.DB | SS # | TITLE | LAST NAME |
| Check | Check _join2 | Check |
X-Ray DB.DB | FIRST NAME | MIDDLE | DOB | DATE OF XRAY |
| Check | Check | Check | Check ~xraydt |
X-Ray DB.DB | PLACE OF X-RAY |
| Check _join1, ..COT.. |
0DOCTORS.DB | PLACE OF X-RAY | DOCTOR | CITY | STATE |
| _join1 | Check | Check | Check |
0GENDER.DB | TITLE | GENDER |
| _join2 | Check |
EndQuery
if myQuery.executeQBE() then
if r.open(":TEMP:XR-LABEL.rsl") then
r.wait()
endIf
endIf
endMethod
What am I missing?