Custom Procedure problem

You are missing a " at the end of this statement

setIntegerValue("QuoteHed.QuoteNum.SCRVALUE:U,QuoteNumber).

There needs to be a " between SCRVALUE and :

I think that is it. But I can't be sure.


--- In vantage@yahoogroups.com, "Jasper Recto" <jrecto@l...> wrote:
> I have this procedure that worked in version 5.2. When I upgraded
to version 6.1, I get an error that says:
>
> Unable to understand "setIntegerValue".
>
> Below is my full statement. I made the changes to account for the
path change.
> Any ideas on why it won't work?
>
> Thanks,
> Jasper
>
> ********************************
> /* include vbp/vb.i so VantageBasic functions are accessible. */
> {v:/mfgsys61/vbp/vb.i}
>
> /* Here define your own variables */
> DEF VAR QuoteNumber as INTEGER.
>
> /* do the calculation */
> QuoteNumber = getIntegerValue("QuoteHed.QuoteNum.SCRVALUE").
>
> /* Set the screen value. */
> setIntegerValue("QuoteHed.QuoteNum.SCRVALUE:U,QuoteNumber).
>
> rb-filter-value = "QUOTEHED.QUOTENUM = " + QuoteNumber.
>
> run aderb\_printrb(
> "V:\MfgSys61\Ud\Reports.prl", /* RB-REPORT-LIBRARY */
> "Feasibility Report", /* RB-REPORT-NAME */
> "", /* RB-DB-CONNECTION */
> "s", /* RB-INCLUDE-RECORDS */
> rb-filter-value, /* RB-FILTER */
> "", /* RB-MEMO-FILE */
> "A", /* RB-PRINT-DESTINATION */
> "", /* RB-PRINTER-NAME */
> "", /* RB-PRINTER-PORT */
> "", /* RB-OUTPUT-FILE */
> 0, /* RB-NUMBER-COPIES - zero */
> 0, /* RB-BEGIN-PAGE - zero */
> 0, /* RB-END-PAGE - zero */
> no, /* RB-TEST-PATTERN */
> "", /* RB-WINDOW-TITLE */
> yes, /* RB-DISPLAY-ERRORS */
> yes, /* RB-DISPLAY-STATUS */
> no, /* RB-NO-WAIT */
> ""). /* RB-OTHER-PARAMETERS */
>
> *************************
I have this procedure that worked in version 5.2. When I upgraded to version 6.1, I get an error that says:

Unable to understand "setIntegerValue".

Below is my full statement. I made the changes to account for the path change.
Any ideas on why it won't work?

Thanks,
Jasper

********************************
/* include vbp/vb.i so VantageBasic functions are accessible. */
{v:/mfgsys61/vbp/vb.i}

/* Here define your own variables */
DEF VAR QuoteNumber as INTEGER.

/* do the calculation */
QuoteNumber = getIntegerValue("QuoteHed.QuoteNum.SCRVALUE").

/* Set the screen value. */
setIntegerValue("QuoteHed.QuoteNum.SCRVALUE:U,QuoteNumber).

rb-filter-value = "QUOTEHED.QUOTENUM = " + QuoteNumber.

run aderb\_printrb(
"V:\MfgSys61\Ud\Reports.prl", /* RB-REPORT-LIBRARY */
"Feasibility Report", /* RB-REPORT-NAME */
"", /* RB-DB-CONNECTION */
"s", /* RB-INCLUDE-RECORDS */
rb-filter-value, /* RB-FILTER */
"", /* RB-MEMO-FILE */
"A", /* RB-PRINT-DESTINATION */
"", /* RB-PRINTER-NAME */
"", /* RB-PRINTER-PORT */
"", /* RB-OUTPUT-FILE */
0, /* RB-NUMBER-COPIES - zero */
0, /* RB-BEGIN-PAGE - zero */
0, /* RB-END-PAGE - zero */
no, /* RB-TEST-PATTERN */
"", /* RB-WINDOW-TITLE */
yes, /* RB-DISPLAY-ERRORS */
yes, /* RB-DISPLAY-STATUS */
no, /* RB-NO-WAIT */
""). /* RB-OTHER-PARAMETERS */

*************************