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
.
.
.
.
.
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
.
.
.
.
.
