VFP7 Multi-Tables report

[cj001]

Hello,

I have a form that has check boxes for each table to be printed. I have a report which is used for these tables.

I check the box for the OEASGN table and click the print button and it prints.
Then I check the box for OESTAT table and click the print button and it prints.

I could print OCCELL table next if I want to.

Instead I decided to check the OEASGN table to print it again.

When I press the print button I receive the program error:

Alias 'OEASGN' is not found.

The Debugger shows the program blowing up on the line: SELECT OEASGN



What do I do to fix this error? Below is my code.



Thanks!
CJ







** ================================================
** ================== SHIFT ASSIGN ==============

IF thisform.pgfrm.pg2.check11.value = 1 && SHIFT ASSIGN Report
USE (vdesc+'\oetbls.frx')
LOCATE FOR objtype = 26

REPLACE oetbls.expr WITH 'Alias = "oeasgn" Order = "oeshft" Database = ..\data\xoee1.dbc CursorSource = "oeasgn" Name = "Cursor1"'
LOCATE FOR uniqueid = '_1740URJFZ'
REPLACE oetbls.expr WITH '(OEASGN.OESHFT)'
LOCATE FOR uniqueid = '_16U12XYN6'
REPLACE oetbls.expr WITH 'TRANSFORM(OESHFT)'
LOCATE FOR uniqueid = '_16U12XYN7'
REPLACE oetbls.expr WITH '(OESDESC)'
USE

SELECT OEASGN
cReportTitle = "Shift/Assigned"
** ---------------------------------------------------
DEFINE WINDOW xview FROM 1,1 TO 25,50 TITLE "ASSIGNED" SYSTEM CLOSE FLOAT GROW ZOOM
ZOOM WINDOW xview MAX &&FullScreen
REPORT FORM (vdesc+'\oetbls.frx') PREVIEW WINDOW xview && NOWAIT NOCONSOLE
Release Window xview
** ----------------------------------------------------
ThisForm.pgfrm.pg2.Check11.Value = 0
ThisForm.pgfrm.pg2.Check11.Refresh()
ENDIF

** =======================================================
** ================== STATUS ===========================

IF thisform.pgfrm.pg2.check13.value = 1 && STATUS Report

USE (vdesc+'\oetbls.frx')

LOCATE FOR objtype = 26
REPLACE oetbls.expr WITH 'Alias = "oestat" Order = "oessts" Database = ..\data\xoee1.dbc CursorSource = "oestat" Name = "Cursor4"'
LOCATE FOR uniqueid = '_1740URJFZ'
REPLACE oetbls.expr WITH '(OESTAT.OESSTS)' && GROUP
LOCATE FOR uniqueid = '_16U12XYN6'
REPLACE oetbls.expr WITH 'TRANSFORM(OESSTS)'
LOCATE FOR uniqueid = '_16U12XYN7'
REPLACE oetbls.expr WITH '(OESDSC)'
USE

SELECT OESTAT
cReportTitle = "STATUS"
** ------------------------------------------------------
DEFINE WINDOW xview FROM 1,1 TO 25,50 TITLE "STATUS" SYSTEM CLOSE FLOAT GROW ZOOM
ZOOM WINDOW xview MAX &&FullScreen
REPORT FORM (vdesc+'\oetbls.frx')PREVIEW WINDOW xview && NOWAIT NOCONSOLE
Release Window xview
** ----------------------------------------------------
ThisForm.pgfrm.pg2.Check13.Value = 0
ThisForm.pgfrm.pg2.Check13.Refresh()
ENDIF

** =====================================================
** ================== CELL ===========================
IF thisform.pgfrm.pg2.check8.value = 1 && Cell Report
USE (vdesc+'\oetbls.frx')
LOCATE FOR objtype = 26
REPLACE oetbls.expr WITH 'Alias = "occell" Order = "wizard_1" Database = ..\data\xoee1.dbc CursorSource = "occell" Name = "cursor2"'
LOCATE FOR uniqueid = '_1740URJFZ'
REPLACE oetbls.expr WITH '(occell.occell)'
LOCATE FOR uniqueid = '_16U12XYN6'
REPLACE oetbls.expr WITH 'TRANS(OCCELL)'
LOCATE FOR uniqueid = '_16U12XYN7'
REPLACE oetbls.expr WITH '(OCDESC)'
USE

SELECT Occell
cReportTitle = "Cell"
** ------------------------------------------------

DEFINE WINDOW xview FROM 1,1 TO 25,50 TITLE "CELL" SYSTEM CLOSE FLOAT GROW ZOOM
ZOOM WINDOW xview MAX &&FullScreen
REPORT FORM (vdesc+'\oetbls.frx') PREVIEW WINDOW xview && NOWAIT NOCONSOLE
Release Window xview
** ------------------------------------------------
ThisForm.pgfrm.pg2.Check8.Value = 0
ThisForm.pgfrm.pg2.Check8.Refresh()
ENDIF

 

[Dan Freeman]

This line:

USE (vdesc+'\oetbls.frx')

will close any dbf open in the current workarea, presumably OEASGN.

Change it to

USE (vdesc+'\oetbls.frx') IN 0
SELECT oetbls

 

[cj001]

The SELECT and USE IN are exactly what I needed.

Thank you for your help!