Tweet
Hey folks,
For some reason, as the title says, my secondary report wont save anywhere and it wont print either. I'm almost convinced that it isn't even being created. I've put "x"'s everywhere that a part number or confidential info is, just an FYI.
Take a look at this code from the beginning of the program:
The WeildSheet is what i want printed, and I'm declaring it here in the beginning of the program. Fast forward after the measurement routine:
Any help is appreciated.
For some reason, as the title says, my secondary report wont save anywhere and it wont print either. I'm almost convinced that it isn't even being created. I've put "x"'s everywhere that a part number or confidential info is, just an FYI.
Take a look at this code from the beginning of the program:
Code:
STARTUP =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
ALIGNMENT/END
MODE/MANUAL
FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;MEAS,NOM,TOL,MAXMIN,DEV,OUTTOL,
MOVESPEED/ 500
TOUCHSPEED/ 2
SCANSPEED/500
ACCELERATION/MAXACCELX=500, MAXACCELY=500, MAXACCELZ=500
LOADPROBE/HPSX1HS_3BY50MM
TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
PLACE PART IN CENTER OF TABLE WITH -A- (LONG LEG) DOWN,
MAKE SURE YOU HAVE CLEARANCE FROM TOOL CHANGER!
TOP OF PART IS MANUAL PLANE, INNER BORE IS MANUAL CIRCLE.
PROGRAM USES HPSX1HS_3BY50MM AND HPSX1HS_5BY_50_90DEG PROBES
WORKPLANE/ZPLUS
C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
Inspectors Initials
C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
Finish S/N
C4 =COMMENT/INPUT,NO,FULL SCREEN=NO,
Forging S/N
C5 =COMMENT/INPUT,NO,FULL SCREEN=NO,
Forging Heat Code
C6 =COMMENT/INPUT,NO,FULL SCREEN=NO,
Machine Operator
ASSIGN/PNAM=GETTEXT("Part Name",0,"FILEHEDR")
ASSIGN/REVNO=GETTEXT("Revision Number",0,"FILEHEDR")
ASSIGN/OPNO=GETTEXT("Serial Number",0,"FILEHEDR")
ASSIGN/STNO=GETTEXT("Statistics Count",0,"FILEHEDR")
ASSIGN/PROGNAM=PNAM
S_N =LABEL/
IF_GOTO/C2.INPUT==0,GOTO = S_N
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Serial : C2.INPUT
TRACEFIELD/NO_DISPLAY,LIMIT=15 ; Operator : C1.INPUT
ASSIGN/SERN=C2.INPUT
ASSIGN/PATH="J:\PCDMIS Reports\XXXXXXXXXXX\\"
ASSIGN/MYFILENAME=PROGNAM + "_" + SERN
ASSIGN/MYFILENAME=PATH + MYFILENAME + ".RTF"
[B]ASSIGN/WEILDSHEET="J:\PCDMIS Reports\XXXXXXXX\\"+"XXX_Weld"+"_"+SERN+".RTF"[/B]
C3 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
DO YOU WANT TO RUN SETUP?
Note: (Must run setup if this is the 1st part ran or part has been moved.)
IF_GOTO/C3.INPUT=="YES",GOTO = SETUP
GOTO/PROG
SETUP =LABEL/
The WeildSheet is what i want printed, and I'm declaring it here in the beginning of the program. Fast forward after the measurement routine:
Code:
EXTERNALCOMMAND/NO_DISPLAY, NO_WAIT ; C:\DILLON CMM FILES\DATAPAGE\DATAPAGESTATS.EXE
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=MYFILENAME,AUTO OPEN REPORT=OFF,$
TO_PRINTER=ON,COPIES=1,$
TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME= ,$
REPORT_THEORETICALS=ALL,REPORT_FEATURE_WITH_DIMENS IONS=NO,$
TO_EXCEL_OUTPUT=OFF,
PREVIOUS_RUNS=DELETE_INSTANCES
ASSIGN/MYDATE=SYSTEMDATE("MM/dd/yyyy")
CS2 =REPORT/CUSTOM, FILENAME=XXXX_Weld_Sheet, Section=-1
PARAM/TEXT_1.TEXT=C2.INPUT
PARAM/TEXT_2.TEXT="*"+C2.INPUT+"*"
PARAM/TEXT_3.TEXT=C4.INPUT
PARAM/TEXT_4.TEXT="*"+C4.INPUT+"*"
PARAM/TEXT_5.TEXT=C5.INPUT
PARAM/TEXT_6.TEXT="*"+C5.INPUT+"*"
PARAM/TEXT_7.TEXT="XXXXXXXXX"
PARAM/TEXT_8.TEXT="*"+"XXXXXXXX"+"*"
PARAM/TEXT_9.TEXT="XXXXXXXXX"
PARAM/TEXT_10.TEXT="*"+"XXXXXXXXXXX"+"*"
PARAM/TEXT_11.TEXT=CIR_34_492_OD.DIAM
PARAM/TEXT_12.TEXT="*"+CIR_34_492_OD.DIAM+"*"
PARAM/TEXT_13.TEXT=V1
PARAM/TEXT_14.TEXT="*"+V1+"*"
PARAM/TEXT_15.TEXT=V5
PARAM/TEXT_16.TEXT="*"+V5+"*"
PARAM/TEXT_17.TEXT="FULL"
PARAM/TEXT_18.TEXT="*"+"FULL"+"*"
PARAM/TEXT_19.TEXT=C6.INPUT
PARAM/BARCODEWIZ1.BARCODE=C2.INPUT+",XXXXXXXXXX,"+C4.INPUT+",XXXXXXXXXX,"+C5.INPUT+",FULL"
PARAM/=
ENDCUSTOM/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,OVERWRITE=WEILDSHEET,AUTO OPEN REPORT=OFF,$
TO_PRINTER=ON,COPIES=1,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
TO_EXCEL_OUTPUT=OFF,
PREVIOUS_RUNS=DELETE_INSTANCES
Comment