Report Formatter format id change

elizabethm

I've modified ICR710 (Stock Status Report) to add a new flag which will run a new format id.

I've added in ICR71A this new validation. With line 25640 commented out the program behaves as normal
25600 ! ----- VAL CATALOG TOTAL -----
25601 VAL_CATALOG_TOTAL:
25603 setesc 9710; setesc 9810
25610 perform "prog/SM/SMC999;val_z4"; if go_back then goto *return
25620 if x$="Y" then x1$="I",x7_3$="N",x2$=dim(20),x3$=dim(20,"z")
25630 if x7_3$="Y" then format_id$=" 5" else format_id$=tbl(pos(x1$="IAVRC"),format_id$," 1"," 1"," 2"," 3"," 4")
25640 ! if x$="Y" then format_id$=new_format_id$
25650 gosub CHANGE_FORMAT
25690 return

25500 ! ----- CHANGE FORMAT -----
25501 CHANGE_FORMAT:
25510 if save_format$<>format_id$ then _exit_to_driver=1,_format_changed=1
25520 save_format$=format_id$
25525 return

With this code where 25640 is not commented out, It never goes pass the OK button on the selection screen. When I hit OK it just goes back to the selection inputs. I have to un-check the new flag or click cancel to be able to continue.

25600 ! ----- VAL CATALOG TOTAL -----
25601 VAL_CATALOG_TOTAL:
25603 setesc 9710; setesc 9810
25610 perform "prog/SM/SMC999;val_z4"; if go_back then goto *return
25620 if x$="Y" then x1$="I",x7_3$="N",x2$=dim(20),x3$=dim(20,"z")
25630 if x7_3$="Y" then format_id$=" 5" else format_id$=tbl(pos(x1$="IAVRC"),format_id$," 1"," 1"," 2"," 3"," 4")
25640 if x$="Y" then format_id$=new_format_id$
25650 gosub CHANGE_FORMAT
25690 return

So I'm stuck because I can't get the program to run the new format id. It seems to be having an issue when the format_id$ changes.

Can anyone shed some light on this please???

bob-fitzgibbon

Sissy,

Unless "new_format_id$" is set somewhere else in your code, you are making the format_id$ value blank on line 25640 (unremarked) and the report formatter will not run with a blank format_id$ value.

Bob Fitzgibbon
Earnest & Associates