hexagon logo
Register Sign in
  • Replies 6 replies
  • Subscribers 221 subscribers
  • Views 146 views
  • Users 0 members are here
Options
Related

VBScript for reports

vajnc
Hello everyone,

I got a problem.. Slight smile When the measurement ends I want to save report to specific location, depending on where the part was made (we have same part, but we make it on 2 machines)..
I am using PRINT command, but it sometimes saves blank .rtf report for no reason. so I thought, that maybe using script would be better and more secure, but my scripting knowledge is really limited at the moment, since I just started to do scripting.

I tried to get it working with some scripts, but no luck.

Does anyone have any syntax or code example that I could check and make it work ?
Basically, when measurement ends, msgbox opens and you have to choose(checkbox/list/buttons) the destination where it should save report, which has to be .rtf because we use them in some other programs for statistic.

Thank you for help, D.
  • There are several variations of save-as scripts in the Code Samples forum, take a look around there to see if you find anything that might suit you.

    One solution could be to insert an operator comment in the beginning of the program (or right before your print command) that asks which machine the part came from and then via an if-then clause saves it as RTF to your specific location. This is doable with regular PC-DMIS commands (not scripting).
  • Thank you for your reply!

    I will check the Code Samples forum, thanks.

    Yes, we know it can be done like that, we already use this method. but our senior programer think that it would be safer and better(less errors and stuff) if it was made with script. Is he wrong? would it make any difference if we do it with PC-DMIS commands or with script?
  • Both yes and no, I guess. Say that you want to change the location of saved reports for one specific machine. Instead of changing the location (path) in all your programs that saves to the old location, you only change the script (that all programs use) instead.

    Whatever suits you, I guess.
  • This works really well for me. I am saving as pdf but I imagine you can make this an rtf.

    I have two sections of code for all my programs.

    The first section is the header:

    FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ; , , , , , ,
    CAL =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter Machine Calibration Date
    PART =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter part number you are running
    JOB =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter job number
    PROJECT =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter project number
    REQUESTER =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter requester name
    INSPECTOR =COMMENT/INPUT,NO,FULL SCREEN=NO,
    Enter inspectors initials
    ASSIGN/TEMP="N/A"
    ASSIGN/HUMID="N/A"
    ASSIGN/CAL_DATE=CAL.INPUT
    ASSIGN/PART_NUM=PART.INPUT
    ASSIGN/JOB_NUM=JOB.INPUT
    ASSIGN/PROJECT_NUM=PROJECT.INPUT
    ASSIGN/REQUEST=REQUESTER.INPUT
    ASSIGN/INSP=INSPECTOR.INPUT
    ASSIGN/ITEM=GETTEXT(193)
    ASSIGN/PROG=GETTEXT(191)
    ASSIGN/REV="REV " +GETTEXT(192)
    ASSIGN/DIR=LEFT((GETTEXT(191)),2)

    The second section is the footer:

    ASSIGN/FAIL=GETPROGRAMINFO("NUMOOT")
    IF/FAIL>0
    COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    Part FAIL
    END_IF/

    ELSE_IF/FAIL==0
    ASSIGN/FILE_NAME="Y:\Manufacturing\Shop QC\Machine Shop Inspection Data\"+DIR+"-\"+PROG+"\"+REV+"\"+REQUEST+"\\Item "+LEFT(ITEM,2)+"\Job " +JOB_NUM +" Part " +PART_NUM +" Item " +ITEM +" "+SYSTEMDATE("MMMM dd, yyyy")
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,OVERWRITE=FILE_NAME.PDF,AUTO OPEN REPORT=OFF,$
    TO_PRINTER=OFF,COPIES=1,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    END_ELSEIF/

    You can test if the part fails and send them to a reject directory as well. I have a program that Josh Carpenter created that I have modified to fit my needs. It makes inputting this data very easy. You just check a box and it fills this code in to your program.
    The long line of code is where I am sending the data to our network drive.
    Hope this helps
  • This is something I use to send files to a network drive. Not sure if you can use something like this. We went paperless & Pdf or use excel dumps. Slight smile

    ASSIGN/DATE1=SYSTEMDATE("MMM dd,yyyy")
    ASSIGN/TIME1=SYSTEMTIME("hh.mm")
    ASSIGN/RPTNAME="S:\CMM Reports\Knees\1048 Forge\JOB#_"+ELEMENT(1,"-",C3.INPUT)+"_Part_"+ELEMENT(1,"-",C2.INPUT)+"_"+DATE1+"_"+TIME1+".PDF"
    C13 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    Did the part pass Inspection?
    IF_GOTO/C13.INPUT=="YES",GOTO = L15
    IF_GOTO/C13.INPUT=="NO",GOTO = L14
    L14 =LABEL/
    C12 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    Do you want to print the cmm report?
    IF_GOTO/C12.INPUT=="YES",GOTO = L17
    IF_GOTO/C12.INPUT=="NO",GOTO = L16
    L16 =LABEL/
    PROGRAM/END
    L17 =LABEL/
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=OFF,OVERWRITE=RPTNAME.PDF,$
    TO_PRINTER=ON,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=YES,$
    PREVIOUS_RUNS=DELETE_INSTANCES
    PROGRAM/END
    L15 =LABEL/
    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,OVERWRITE=RPTNAME.PDF,$
    TO_PRINTER=OFF,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME=,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=YES,$
    PREVIOUS_RUNS=DELETE_INSTANCES
    PROGRAM/END
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement