newsgroups-index (beta)

Current group: dbase.reports

Program Alert

Program Alert  
Bill P
 Re: Program Alert  
Todd Kreuter [dBVIPS]
 Re: Program Alert  
Bill P
 Re: Program Alert  
Bill P
 Re: Program Alert  
Todd Kreuter [dBVIPS]
 Re: Program Alert  
Ken Mayer [dBVIPS]
From:Bill P
Subject:Program Alert
Date:Fri, 26 Nov 2004 13:25:43 -0600
This is a multi-part message in MIME format.
--------------020101030901080406010401
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

I've been working on a number of reports, with most running the way I
think they should, but one of them brings up a Program Alert specifying
an invalid subscript reference and pointing to line 7 (r.render()) of
the .rep file.

I'm really surprised that when I click on the Cancel button or the
Ignore button of the Program Alert box, the report goes ahead and prints
out correctly!

I've attached the three small files required to demonstrate this problem.

Any thoughts as to what is causing the Program Alert would sure be
appreciated.

--------------- Bill

--------------020101030901080406010401
Content-Type: text/plain;
name="invwoisu.sql"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="invwoisu.sql"

SELECT Invtrx.STOCK_NO, Invtrx.DESCRIPTN, Invtrx.QTY_ISSUED, Invtrx.UNIT_COST, Invtrx.TYPE_TRANS, Invtrx.WO_NO
FROM "Invtrx.dbf" Invtrx
WHERE type_trans = "ISS'D"

--------------020101030901080406010401
Content-Type: text/plain;
name="invtrx.rep"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="invtrx.rep"

** END HEADER -- do not remove this line
//
// Generated on 10/12/04
//
local r
r = new INVISSTRXREPORT()
r.render()

class INVISSTRXREPORT of REPORT
with (this)
title = "Invtrx"
output = 1 // Printer
endwith

this.INVTRX1 = new QUERY()
this.INVTRX1.parent = this
with (this.INVTRX1)
left = -15.0
top = -15.0
sql = 'select * from invtrx.dbf"'
requestLive = false
active = true
endwith

with (this.printer)
duplex = 1 // None
orientation = 1 // Portrait
paperSource = 15
paperSize = 1
resolution = 4 // High
color = 2 // Color
trueTypeFonts = 2 // Download
endwith

this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
with (this.PAGETEMPLATE1)
height = 12240.0
width = 15840.0
marginTop = 1080.0
marginLeft = 1080.0
marginBottom = 1080.0
marginRight = 1080.0
gridLineWidth = 0
endwith

this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.STREAMFRAME1)
height = 11592.0
left = 255.0
top = 1410.0
width = 9900.0
form.STREAMFRAME1 = form.pagetemplate1.streamframe1
endwith

this.PAGETEMPLATE1.TEXT1 = new TEXT(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.TEXT1)
height = 288.0
left = 410.0
top = 615.0
width = 6885.0
prefixEnable = false
fontSize = 14.0
fontBold = true
text = "INVENTORY TRANSACTION FILE"
form.TEXT1 = form.pagetemplate1.text1
endwith

this.PAGETEMPLATE1.TEXT2 = new TEXT(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.TEXT2)
height = 233.0
left = 9275.0
top = 835.0
width = 820.0
prefixEnable = false
text = {||Date()}
form.TEXT2 = form.pagetemplate1.text2
endwith

this.STREAMSOURCE1 = new STREAMSOURCE(this)
this.STREAMSOURCE1.detailBand.TITLETEXTSTOCK_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTSTOCK_NO1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 0.0
top = 0.0
width = 800.0
prefixEnable = false
suppressIfBlank = true
fontSize = 7.0
text = "

Stock No

"
endwith

this.STREAMSOURCE1.detailBand.TEXTSTOCK_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTSTOCK_NO1)
height = 1.0
left = 15.0
top = 256.0
width = 800.0
variableHeight = true
prefixEnable = false
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["STOCK_NO"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTDESCRIPTN1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTDESCRIPTN1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 795.0
top = 0.0
width = 2428.0
prefixEnable = false
alignHorizontal = 1 // Center
suppressIfBlank = true
fontSize = 9.0
fontBold = true
text = "Description"
endwith

this.STREAMSOURCE1.detailBand.TEXTDESCRIPTN1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTDESCRIPTN1)
height = 1.0
left = 839.0
top = 234.0
width = 2323.0
variableHeight = true
prefixEnable = false
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["DESCRIPTN"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTTYPE_TRANS1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTTYPE_TRANS1)
canRender = {||this.parent.firstOnFrame}
height = 203.0
left = 3210.0
top = 5.0
width = 507.0
prefixEnable = false
alignHorizontal = 1 // Center
suppressIfBlank = true
fontSize = 8.0
fontBold = true
text = "Type"
endwith

this.STREAMSOURCE1.detailBand.TEXTTYPE_TRANS1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTTYPE_TRANS1)
height = 1.0
left = 3230.0
top = 233.0
width = 489.0
variableHeight = true
prefixEnable = false
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["TYPE_TRANS"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTQTY_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTQTY_ISSUED1)
canRender = {||this.parent.firstOnFrame}
height = 197.0
left = 3755.0
top = 0.0
width = 530.0
prefixEnable = false
alignHorizontal = 1 // Center
suppressIfBlank = true
fontSize = 9.0
fontBold = true
text = "Qty."
endwith

this.STREAMSOURCE1.detailBand.TEXTQTY_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTQTY_ISSUED1)
height = 1.0
left = 3755.0
top = 226.0
width = 530.0
variableHeight = true
prefixEnable = false
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["QTY_ISSUED"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTACCT_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTACCT_NO1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 5275.0
top = 0.0
width = 800.0
prefixEnable = false
alignHorizontal = 1 // Center
suppressIfBlank = true
fontSize = 7.0
text = "

Acct No

"
endwith

this.STREAMSOURCE1.detailBand.TEXTACCT_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTACCT_NO1)
height = 1.0
left = 5250.0
top = 226.0
width = 800.0
variableHeight = true
prefixEnable = false
alignHorizontal = 2 // Right
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["ACCT_NO"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTWO_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTWO_NO1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 6120.0
top = 0.0
width = 853.0
prefixEnable = false
alignHorizontal = 1 // Center
suppressIfBlank = true
fontSize = 7.0
text = "

Wo No

"
endwith

this.STREAMSOURCE1.detailBand.TEXTWO_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTWO_NO1)
height = 1.0
left = 6120.0
top = 211.0
width = 853.0
variableHeight = true
prefixEnable = false
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["WO_NO"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTUNIT_COST1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTUNIT_COST1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 4335.0
top = 0.0
width = 898.0
prefixEnable = false
suppressIfBlank = true
fontSize = 7.0
text = "

Unit Cost

"
endwith

this.STREAMSOURCE1.detailBand.TEXTUNIT_COST1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTUNIT_COST1)
height = 1.0
left = 4305.0
top = 211.0
width = 890.0
variableHeight = true
prefixEnable = false
alignHorizontal = 1 // Center
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["UNIT_COST"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTQTY_RCVD1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTQTY_RCVD1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 7000.0
top = 0.0
width = 800.0
prefixEnable = false
suppressIfBlank = true
fontSize = 7.0
text = "

Qty Rcvd

"
endwith

this.STREAMSOURCE1.detailBand.TEXTQTY_RCVD1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTQTY_RCVD1)
height = 1.0
left = 7000.0
top = 211.0
width = 800.0
variableHeight = true
prefixEnable = false
alignHorizontal = 1 // Center
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["qty_rcvd"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTINV_UNTCST1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTINV_UNTCST1)
canRender = {||this.parent.firstOnFrame}
height = 200.0
left = 7850.0
top = 0.0
width = 860.0
prefixEnable = false
suppressIfBlank = true
fontSize = 7.0
text = "

Inv UntCst

"
endwith

this.STREAMSOURCE1.detailBand.TEXTINV_UNTCST1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTINV_UNTCST1)
height = 1.0
left = 7850.0
top = 211.0
width = 900.0
variableHeight = true
prefixEnable = false
alignHorizontal = 1 // Center
fontSize = 7.0
text = {||this.form.invtrx1.rowset.fields["inv_untcst"].value}
endwith

this.firstPageTemplate = this.form.pagetemplate1
this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
this.form.pagetemplate1.streamframe1.streamSource = this.form.streamsource1
this.form.streamsource1.rowset = this.form.invtrx1.rowset
endclass

--------------020101030901080406010401
Content-Type: text/plain;
name="invwoisu.rep"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="invwoisu.rep"

** END HEADER -- do not remove this line
//
// Generated on 11/24/04
//
local r
r = new INVWOISUReport()
r.render()

class INVWOISUReport of REPORT
with (this)
title = "Invwoisu"
output = 1 // Printer
endwith

this.INVTRX1 = new QUERY()
this.INVTRX1.parent = this
with (this.INVTRX1)
left = -15.0
top = -15.0
* sql = "SELECT Invtrx.STOCK_NO, Invtrx.DESCRIPTN, Invtrx.QTY_ISSUED, Invtrx.UNIT_COST, TYPE_TRANS, WO_NO FROM " + '"' + "invtrx.dbf" + '"' + " Invtrx WHERE type_trans = " + '"' + "ISS'D" + '"' + " ORDER BY WO_NO"
sql="@invwoisu.sql"
requestLive = false
active = true
endwith

with (this.printer)
duplex = 1 // None
orientation = 1 // Portrait
paperSource = 7
paperSize = 1
resolution = 3 // Medium
color = 2 // Color
trueTypeFonts = 1 // Bitmap
endwith

this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
with (this.PAGETEMPLATE1)
height = 15840.0
width = 12240.0
marginTop = 1080.0
marginLeft = 1080.0
marginBottom = 1080.0
marginRight = 1080.0
gridLineWidth = 0
endwith

this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.STREAMFRAME1)
height = 11592.0
left = 360.0
top = 1365.0
width = 9360.0
form.STREAMFRAME1 = form.pagetemplate1.streamframe1
endwith

this.PAGETEMPLATE1.TEXT1 = new TEXT(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.TEXT1)
height = 525.0
left = 360.0
top = 360.0
width = 6960.0
prefixEnable = false
text = "

Inventory Issues By Work Order

"
form.TEXT1 = form.pagetemplate1.text1
endwith

this.PAGETEMPLATE1.TEXT2 = new TEXT(this.PAGETEMPLATE1)
with (this.PAGETEMPLATE1.TEXT2)
height = 228.0
left = 360.0
top = 915.0
width = 2504.0
prefixEnable = false
text = {||Date()}
form.TEXT2 = form.pagetemplate1.text2
endwith

this.STREAMSOURCE1 = new STREAMSOURCE(this)
this.STREAMSOURCE1.GROUP1 = new GROUP(this.STREAMSOURCE1)
with (this.STREAMSOURCE1.GROUP1)
groupBy = "WO_NO"
endwith

this.STREAMSOURCE1.GROUP1.headerBand.LINE1 = new LINE(this.STREAMSOURCE1.GROUP1.headerBand)
with (this.STREAMSOURCE1.GROUP1.headerBand.LINE1)
canRender = {||this.parent.context == 0}
left = 0.0
right = 9360.0
top = 105.0
bottom = 105.0
width = 1
endwith

this.STREAMSOURCE1.GROUP1.headerBand.TEXT1 = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
with (this.STREAMSOURCE1.GROUP1.headerBand.TEXT1)
height = 300.0
left = 0.0
top = 200.0
width = 855.0
prefixEnable = false
colorNormal = "b+"
text = "

Wo No:

"
endwith

this.STREAMSOURCE1.GROUP1.headerBand.TEXT2 = new TEXT(this.STREAMSOURCE1.GROUP1.headerBand)
with (this.STREAMSOURCE1.GROUP1.headerBand.TEXT2)
height = 300.0
left = 855.0
top = 200.0
width = 8505.0
prefixEnable = false
colorNormal = "b+"
text = {||"

" + this.parent.parent.parent.rowset.fields["WO_NO"].value + "

"}
endwith

this.STREAMSOURCE1.GROUP1.footerBand.TEXT1 = new TEXT(this.STREAMSOURCE1.GROUP1.footerBand)
with (this.STREAMSOURCE1.GROUP1.footerBand.TEXT1)
height = 300.0
left = 5790.0
top = 70.0
width = 1890.0
prefixEnable = false
fontBold = true
text = "Sum of Total Costs:"
endwith

this.STREAMSOURCE1.GROUP1.footerBand.TEXT2 = new TEXT(this.STREAMSOURCE1.GROUP1.footerBand)
with (this.STREAMSOURCE1.GROUP1.footerBand.TEXT2)
height = 300.0
left = 8045.0
top = 70.0
width = 1170.0
prefixEnable = false
alignHorizontal = 1 // Center
text = {||this.parent.parent.agSum({||(this.parent.rowset.fields["Unit_Cost"].value)*(this.parent.rowset.fields["Qty_Issued"].value)})}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTSTOCK_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTSTOCK_NO1)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 45.0
top = 0.0
width = 1255.0
prefixEnable = false
alignHorizontal = 2 // Right
suppressIfBlank = true
text = "

Stock No

"
endwith

this.STREAMSOURCE1.detailBand.TEXTSTOCK_NO1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTSTOCK_NO1)
height = 1.0
left = 15.0
top = 465.0
width = 1285.0
variableHeight = true
prefixEnable = false
alignHorizontal = 2 // Right
text = {||this.form.invtrx1.rowset.fields["STOCK_NO"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTDESCRIPTN1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTDESCRIPTN1)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 1470.0
top = 0.0
width = 2848.0
prefixEnable = false
suppressIfBlank = true
text = "

Description

"
endwith

this.STREAMSOURCE1.detailBand.TEXTDESCRIPTN1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTDESCRIPTN1)
height = 1.0
left = 1474.0
top = 465.0
width = 2848.0
variableHeight = true
prefixEnable = false
text = {||this.form.invtrx1.rowset.fields["DESCRIPTN"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTQTY_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTQTY_ISSUED1)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 4410.0
top = 0.0
width = 1330.0
prefixEnable = false
alignHorizontal = 2 // Right
suppressIfBlank = true
text = "

Qty Issued

"
endwith

this.STREAMSOURCE1.detailBand.TEXTQTY_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTQTY_ISSUED1)
height = 1.0
left = 4406.0
top = 465.0
width = 1330.0
variableHeight = true
prefixEnable = false
alignHorizontal = 2 // Right
text = {||this.form.invtrx1.rowset.fields["QTY_ISSUED"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTINV_TOTCST1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTINV_TOTCST1)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 7635.0
top = 0.0
width = 1414.0
prefixEnable = false
alignHorizontal = 2 // Right
suppressIfBlank = true
text = "

Total Cost

"
endwith

this.STREAMSOURCE1.detailBand.TEXTINV_UNTTOT1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTINV_UNTTOT1)
height = 1.0
left = 7950.0
top = 450.0
width = 1159.0
variableHeight = true
prefixEnable = false
alignHorizontal = 2 // Right
text = {||(this.form.invtrx1.rowset.fields["Unit_Cost"].value)*(this.form.invtrx1.rowset.fields["Qty_Issued"].value)}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTDAT_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTDAT_ISSUED1)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 13755.0
top = 0.0
width = 2504.0
prefixEnable = false
suppressIfBlank = true
text = "

Dat Issued

"
endwith

this.STREAMSOURCE1.detailBand.TEXTDAT_ISSUED1 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTDAT_ISSUED1)
height = 1.0
left = 13753.0
top = 300.0
width = 2504.0
variableHeight = true
prefixEnable = false
text = {||this.form.invtrx1.rowset.fields["DAT_ISSUED"].value}
endwith

this.STREAMSOURCE1.detailBand.TITLETEXTINV_UNTCST2 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TITLETEXTINV_UNTCST2)
canRender = {||this.parent.firstOnFrame}
height = 300.0
left = 5940.0
top = 10.0
width = 1440.0
prefixEnable = false
alignHorizontal = 2 // Right
suppressIfBlank = true
text = "

Unit Cost

"
endwith

this.STREAMSOURCE1.detailBand.TEXTINV_UNTCST2 = new TEXT(this.STREAMSOURCE1.detailBand)
with (this.STREAMSOURCE1.detailBand.TEXTINV_UNTCST2)
height = 300.0
left = 6075.0
top = 445.0
width = 1440.0
variableHeight = true
prefixEnable = false
alignHorizontal = 2 // Right
picture = "999999999.99999"
text = {||this.form.invtrx1.rowset.fields["Unit_Cost"].value}
endwith

this.firstPageTemplate = this.form.pagetemplate1
this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
this.form.pagetemplate1.streamframe1.streamSource = this.form.streamsource1
this.form.streamsource1.rowset = this.form.invtrx1.rowset
endclass

--------------020101030901080406010401--
From:Todd Kreuter [dBVIPS]
Subject:Re: Program Alert
Date:Fri, 26 Nov 2004 15:38:47 -0500
Bill P wrote:
>
> I've been working on a number of reports, with most running the way I
> think they should, but one of them brings up a Program Alert specifying
> an invalid subscript reference and pointing to line 7 (r.render()) of
> the .rep file.
>
> I'm really surprised that when I click on the Cancel button or the
> Ignore button of the Program Alert box, the report goes ahead and prints
> out correctly!

Open the report in the source editor and search for all instances of
".value", quotes excluded. See if there are any fields you are trying to
report on that are not in the table or not in your select fields list
(Acct_no is one that I can see).

--
Todd Kreuter [dBVIPS]
From:Bill P
Subject:Re: Program Alert
Date:Fri, 26 Nov 2004 19:56:31 -0600
Todd -

First off, I see that I didn't send you a copy of Invtrx.dbf as I
intended, but that I tagged Invtrx.rep by mistake. I'm sorry for the
mistake.

Following your suggestion, I found that DAT_ISSUED was not in the SQL's
field list. After I added it to the field list, the Program Alert went
away.

I didn't know that a field name is considered to be a "subscript", but
I'll (hopefully) remember this (and your suggested diagnostic technique)
in the future.

Thank you very much.

----------------- Bill

Todd Kreuter [dBVIPS] wrote:
> Bill P wrote:
>
>>I've been working on a number of reports, with most running the way I
>>think they should, but one of them brings up a Program Alert specifying
>>an invalid subscript reference and pointing to line 7 (r.render()) of
>>the .rep file.
>>
>>I'm really surprised that when I click on the Cancel button or the
>>Ignore button of the Program Alert box, the report goes ahead and prints
>>out correctly!
>
>
> Open the report in the source editor and search for all instances of
> ".value", quotes excluded. See if there are any fields you are trying to
> report on that are not in the table or not in your select fields list
> (Acct_no is one that I can see).
>
From:Bill P
Subject:Re: Program Alert
Date:Sat, 27 Nov 2004 16:15:17 -0600
Todd & Ken -

Thanks again for the help.

----------- Bill
From:Todd Kreuter [dBVIPS]
Subject:Re: Program Alert
Date:Fri, 26 Nov 2004 21:52:48 -0500
"Bill P" wrote in message
news:ahZmLUC1EHA.2372@news-server...
>
> I didn't know that a field name is considered to be a "subscript", but
> I'll (hopefully) remember this (and your suggested diagnostic technique)
> in the future.

Bill,

The invalid subscript error normally relates to an array, which is what
rowset.fields is.

Todd Kreuter [dBVIPS]
From:Ken Mayer [dBVIPS]
Subject:Re: Program Alert
Date:Sat, 27 Nov 2004 06:03:54 -0800
Bill P wrote:
> I didn't know that a field name is considered to be a "subscript", but
> I'll (hopefully) remember this (and your suggested diagnostic technique)
> in the future.

A fieldname is a subscript when it is referenced from the fields ARRAY
of the rowset object.

Ken

--
/(Opinions expressed are purely my own, not those of dataBased
Intelligence, Inc.)/

*Ken Mayer* [dBVIPS]
/Golden Stag Productions/
dBASE at goldenstag dot net
http://www.goldenstag.net/GSP
http://www.goldenstag.net/dbase
   

Copyright © 2006 newsgroups-index   -   All rights reserved   -   Impressum