Recent Posts

Pages: 1 [2] 3 4 ... 10
11
Prelude Support / Re: Bug in VSI-FAX subroutine
« Last post by Charles Sasaki-Skopp on November 18, 2019, 01:53:05 PM »
Old topic, but useful for something I found in my system. Replying in case it comes up for anyone else, but suggested fix for this would be to modify the faxing routine SEND.FAX3 to clear PARAM after using it to set the variable DOC.FLAG:

*--------------------------------------------------------------------------
* Initialize Constants
*--------------------------------------------------------------------------
*
      DOC.FLAG=FIELD(PARAM,",",1)
      PARAM = '' ;*Clear PARAM so it doesn't get recycled* CAS*20191118

This is a fairly standard pattern in ADS software. Doing this will allow all the fax routines like PRINT.STM.FAX, INVOICE.FORMAT etc. to function properly without having to modify the PARAM block for each one.
12
Prelude Support / Re: Output to the HOLD file
« Last post by Tom Pellitieri on November 04, 2019, 09:48:28 AM »
I wrote this subroutine years ago.  I call it from BASIC programs that need to change printer settings.

PROGRAM CEI.SETPTR
Code: [Select]
      SUBROUTINE CEI.SETPTR(MODE,QUEUE,COPIES,UID)
*
* Call SETPTR with the appropriate options
* MODE: 1=Print, 3=Hold/Suppress, 6=Hold/Print
* QUEUE: Print Queue   COPIES: Number of Copies
* UID:  ID tag for BANNER.  Make unique if UID ends in "-"
*
* Adjust parameters if needed.  Use MODE 3 if invalid.
* If no queue specified, use {default}, MODE 3.  Make certain
* we have a positive integer number of copies, and check
* for a BANNER UNIQUE request.
*
      MOD1 = 3
      Q = QUEUE
      CP = COPIES + 0
      UD = TRIM(UID)
      IF MODE = 1 THEN MOD1 = 1
      IF MODE = 6 THEN MOD1 = 6
      IF TRIM(QUEUE) = "" THEN MOD1 = 3 ; Q = "{default}"
      IF CP < 1 THEN CP = 1
      CP = INT(CP)
      IF MOD1 > 1 AND UD = "" THEN UD = "ZZZZ-"
      BU = 0
      IF UD[LEN(UD),1] = "-" THEN BU = 1 ; UD = UD[1,LEN(UD)-1]
      IF MOD1 = 3 AND MODE # 3 THEN BU = 1
*
* Set up the printer
*
      CMD = "SETPTR 0,133,65,0,0,":MOD1
      CMD = CMD:",NFMT,NOEJECT,NOMESSAGE,BRIEF,DEST ":Q
      CMD = CMD:",COPIES ":CP
      IF MOD1 = 1 THEN CMD = CMD:",NHEAD" ELSE
         CMD = CMD:",BANNER "
         IF BU THEN CMD = CMD:"UNIQUE "
         CMD = CMD:UD
      END
      EXECUTE CMD CAPTURING MSG RETURNING ERR
      RETURN

I also have two INCLUDE file, PTR.PUSH, and PTR.POP, to save and restore the existing printer settings.

INCLUDE PTR.PUSH
Code: [Select]
* Save current Form Queue assignment in ZZZSVQ
*
      ZZZSVQ = GETPTR(0)

INCLUDE PTR.POP
Code: [Select]
* Restore Form Queue assignment from ZZZSVQ
*
      EXECUTE "SETPTR ":ZZZSVQ:",BRIEF" CAPTURING ZMSG RETURNING ZERR

Typical usage would be:

INCLUDE MYPROGS PTR.PUSH
CALL CEI.SETPTR(3,"MYPRT",1,"MYHOLD")
EXECUTE "SORT MYFILE … LPTR" CAPTURING TXTOUT RETURNING ERROUT
INCLUDE MYPROGS PTR.POP


Hope this helps.
13
Prelude Support / Output to the HOLD file
« Last post by DonQuixote on November 01, 2019, 09:07:47 AM »
I'm trying to set output to the HOLD file.
In Process Definition Paragraph (/PD.P)
EXECUTE ">:SETPTR ,,,,,3,BANNER holdName"
EXECUTE "B:basicprogram"

The output in the basic program is not going to the HOLD file as expect.
I've tried the command inside the basic program; that too is not working.
It still goes to the printer.

What does work is a "PA" type process in the VOC that stacks the commands.
My problem there is I can't figure out how to make the 'HOLD NAME' something unique; date & time appended to name.
Any suggestions?
14
Prelude Support / Re: Find new Product number
« Last post by DonQuixote on November 01, 2019, 09:01:05 AM »
fyi.  After the UPR an entry is made in ALT.XREF.   The ID is the old product number and field 1 is the new number.
15
Prelude Support / Prelude File Purposes
« Last post by precisonline on September 19, 2019, 02:19:17 PM »
Does anyone have any documentation on the various files in Prelude and what they do in the scope of the overall application?  For example BIN.QUEUE and BIN.COMMIT - I know basically what they do but I am having a devil of a time understanding the relationship between them or when they're updated.  Help?
16
Prelude Support / Re: Find new Product number
« Last post by precisonline on August 29, 2019, 12:26:17 PM »
If it's not in alternates, it might be in PROD.CAT.  This is where the keywords are stored for product lookup.
17
Prelude Support / Re: Find new Product number
« Last post by DonQuixote on August 29, 2019, 11:47:46 AM »
In Inventory Inquiry ( /II ).  If you enter the old part number that was changed to a new part number in the UPR process, the number will change to the new number.  I've tried to trace this logic but with no success.
18
Prelude Support / Re: DDF.DEFN tool
« Last post by precisonline on August 29, 2019, 11:23:24 AM »
Yup, nothing about the file type changes the name.  I built it that way because you never know what kind of requirements a consumer might have.
19
Prelude Support / Re: DDF.DEFN tool
« Last post by DonQuixote on August 29, 2019, 11:20:03 AM »
I was under the impression that the output file automatically gets a csv extension if you select a comma delimited output.  Now I understand that you can name it anyway you want; upper or lower case and with or without an extension.
20
Prelude Support / Re: Find new Product number
« Last post by precisonline on August 29, 2019, 10:44:17 AM »
After a product replacement/merge?  I don't believe so.  PROD.REPLACE.UPD2 could be modified to add the old product number somewhere - like maybe alternates?
Pages: 1 [2] 3 4 ... 10