Now, what you can do, is to post your example of the reports here in the code section (with RPT's and everything).
That way, everybody in here can take advantage of your newly found stardom at work! Pay it forward, kind of.
Ok I did try to upload the files but this Friday is more like a Monday.
Invalid file name
Invalid file size
Made a Zip file size is over 200
Split the zip file now wrong extension
Now I see why you had yours on web storage.
No can do.
Sorry vpt.se
I didn’t change any file names to give credit where credit is due.
I did change everything within for our needs.
I will have to change or alter every program made to reflect the new style report.
I used variables and trace fields to set header output options this way I can cut and paste into any preprogramed part. The header will pick up and fill in the blanks. I did remove our company logo (to keep my job) but this is an easy fix if you want to use this style report.
The cut & past for PCDMIS was made as easy as possible part 1 at the beginning, change trace fields to match the part programed. Part 2 past at the end no changes needed. DONE
$$ NO,
SEC 1 START
.
.
.
.
.
$$ NO,
TRACEFIELD = note don't use any math symbles + - /
1 = DRAWING NUMBER
2 = DRAWING REV NUMBER
3 = DOCUMENT ID FRM# (QA#)
4 = VERSION OF THIS DOCUMENT ID
5 = OLD QA#
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; 22j123 :
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; D :
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; FRM 15.12 :
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; 0.0, 06 : 13
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; 1696 :
$$ NO,
SEC 1 END
.
.
.
.
.
$$ NO,
SEC 2 START
.
.
.
.
.
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
.
LOOK AT REPORT NOW IF YOU WANT
.
ONUM =COMMENT/INPUT,NO,FULL SCREEN=NO,
.
ENTER THE ORDER NUMBER
.
ASSIGN/ORNUM1=ONUM.INPUT
SNUM =COMMENT/INPUT,NO,FULL SCREEN=NO,
.
ENTER THE SERIAL NUMBER
.
ASSIGN/SERNUM1=SNUM.INPUT
OPNOT =COMMENT/INPUT,NO,FULL SCREEN=NO,
.
ENTER OPERATOR NOTES
.
COMMENT/REPT,
.
.
COMMENT/REPT,
"~~4 OPERATOR NOTES: " +OPNOT.INPUT
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
.
OPEN REPORT WINDOW AND CLICK THE PAINT
. (REDRAW THE REPORT)
POPT =COMMENT/INPUT,NO,FULL SCREEN=NO,
1 PRINTER ONLY
.
2 SAVE FILE ONLY
.
3 PRINTER AND SAVE FILE
.
0 QUIT OR CLICK CANCLE
IF/POPT.INPUT==1
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=OFF,AUTO=1,$
TO_PRINTER=ON,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
END_IF/
IF/POPT.INPUT==2
ASSIGN/PART1=STR(GETTEXT(191,1,{FILEHEDR}))
ASSIGN/FILESTORLOC="C:\Users\inspector\Desktop\CMM REPORTS\ "
ASSIGN/FILENAM=PART1+"_"+ORNUM1+"_"+SERNUM1+"_"+SYSTEMDATE("MMMM dd, yyyy")+"_"+SYSTEMTIME("HH:mm")+".PDF"
ASSIGN/VAL_FILE=FILESTORLOC+FILENAM
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=VAL_FILE,$
TO_PRINTER=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
END_IF/
IF/POPT.INPUT==3
ASSIGN/PART1=STR(GETTEXT(191,1,{FILEHEDR}))
ASSIGN/FILESTORLOC="C:\Users\inspector\Desktop\CMM REPORTS\ "
ASSIGN/FILENAM=PART1+"_"+ORNUM1+"_"+SERNUM1+"_"+SYSTEMDATE("MMMM dd, yyyy")+"_"+SYSTEMTIME("HH:mm")+".PDF"
ASSIGN/VAL_FILE=FILESTORLOC+FILENAM
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=VAL_FILE,$
TO_PRINTER=ON,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
END_IF/
$$ NO,
SEC 2 END
.
.
.
.
.
