Can not get "REPEAT" to work. (OIPI.Net)
At 05 MAY 2020 06:23:38PM Richard Hunt wrote:
I created a test program to explain basically what I am doing. The problem is that it will not repeat the rectangle on each page. Four pages display, although the rectangle appears on page 1 and not on pages 2, 3 and 4. A little help would be appreciated.
Windows 7, OI ver 9.4, Vsprinter2
SUBROUTINE TEST_OIPI(RESULT)
* Declare statements. DECLARE FUNCTION GET_PRINTER, SET_PRINTER *
* Set program variables.
HEADER_FONT = 'Lucida Console':@FM:10TEXT_FONT = 'Lucida Console':@FM:10BARCODE_FONT = 'Barcode39':@FM:48FORMNAME_FONT = 'Lucida Console':@FM:48FORMNAME_FONT<8> = 228 + (228 * 256) + (228 * 256 * 256)*
* Initialize printer. FILENAME =
FILENAME<3> = 6 TITLE = 'Creating PDF.' TITLE<2> = 'Preview PDF.' TITLE<3> = '&Cancel' TITLE<4> = 'On printer %s located at %s' TITLE<5> = 'Creating page %d' PAGEINFO =
PAGEINFO<1> = 0 PAGEINFO<2> = 0 PAGEINFO<3> = 0 PAGEINFO<4> = 0 PAGEINFO<7> = 1 PAGEINFO<8> = 1 PAGESETUP =PAGESETUP<1> = 0 PAGESETUP<2> = 5 PRINTSETUP = 4 PRINT_DEVICE =
RESULT = SET_PRINTER('INIT',FILENAME,TITLE,PAGEINFO,PAGESETUP,PRINTSETUP,PRINT_DEVICE) IF RESULT LT 0 THEN RETURN END ** Set up rectangle.
STYLE = 0:@FM:1RESULT = SET_PRINTER('LINESTYLE',STYLE)LEFT = 100TOP = 100WIDTH = 300HEIGHT = 50POSITION = LEFTPOSITION := @FM:TOPPOSITION := @FM:LEFT + WIDTHPOSITION := @FM:TOP + HEIGHTRESULT = SET_PRINTER('RECT',POSITION,1)*
* Add pages. RESULT = SET_PRINTER('TEXTXY','PAGE 1',100:@FM:100,TEXT_FONT,1) RESULT = SET_PRINTER('PAGEBREAK') RESULT = SET_PRINTER('TEXTXY','PAGE 2',200:@FM:200,TEXT_FONT,1) RESULT = SET_PRINTER('PAGEBREAK') RESULT = SET_PRINTER('TEXTXY','PAGE 3',300:@FM:300,TEXT_FONT,1) RESULT = SET_PRINTER('PAGEBREAK') RESULT = SET_PRINTER('TEXTXY','PAGE 4',400:@FM:400,TEXT_FONT,1) *
* Terminate printer.
RESULT = SET_PRINTER('TERM',1)RETURN
At 06 MAY 2020 12:28PM Richard Hunt wrote:
Crap!!!! When I change the SYSENV > CFG_OIPI record to VSPRINTER it then works correctly. The repeat of the rectangle works.
Is this a known issue and is there a workaround?
At 06 MAY 2020 01:04PM bshumsky wrote:
Crap!!!! When I change the SYSENV > CFG_OIPI record to VSPRINTER it then works correctly. The repeat of the rectangle works.
Is this a known issue and is there a workaround?
Hi, Richard. Yes, it's often our advice to try both "traditional" OIPI (VSPRINTER) and OIPI.Net (VSPRINTER2), because there is different code behind each one.
No, this is not a known issue (at least as far as I know about), but I will test it here and see if it's something that can be easily resolved.
Were you planning to use OIPI.Net for a particular reason? If not, perhaps OIPI "classic" would work just as well for you in this instance as a "workaround".
Hope that helps,
- Bryan Shumsky
At 06 MAY 2020 03:32PM bshumsky wrote:
Hi, Richard. I just tried your sample program on a "clean" 9.4 which had been patched using the most recent "roll up" patch (in the Works downloads, you can see it as OpenInsight 9.4 "Roll Up" Patch v5.1 from December 2018), and it seems to work properly? I'm getting the box on each page, and the textxy output as expected (first one on first page, first one and second one on second page, first three on third page, and all four on fourth page). Do you know if you've applied all the patches to your 9.4 system?
Thanks,
- Bryan Shumsky
At 06 MAY 2020 09:11PM Richard Hunt wrote:
Thank you Brian. I will look to see if I updated using all the patches as you suggested. Your help is always appreciated.