Name of the person who made it and the one from whom you executed a program.

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Name of the person who made it and the one from whom you executed a program.

    Good Morning,
    With two technicians operating alternately in the same CMM, someone could indicate me a way to enter the name of who made a program and that can not be changed, and also the name of which executes it but in this one that can be modified as the person performs ?

    Thanks for the answers.

  • #2
    Put this at the beginning of program. You can use any of these kinds of inputs. It will be put on in the beginning of the report.

    C1 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    'JOB / LOT NO:'
    C2 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    'SERIAL NO-----:'
    C3 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    'CMM OPERATOR:'
    C4 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    'CMM ID NO:'
    C5 =COMMENT/INPUT,YES,FULL SCREEN=NO,
    'CAL DUE DATE:'
    ASSIGN/LOT=C1.INPUT
    ASSIGN/SERIAL=C2.INPUT

    And this at the end of the program. It will direct where the report is saved.

    PRINT/REPORT,EXEC MODE=END,$
    TO_FILE=ON,OVERWRITE="M:\file location here\Customer Here\"+C1.INPUT+"\\part number here"+C2.INPUT+"_cmm.PDF",AUTO OPEN REPORT=OFF,$
    TO_PRINTER=ON,COPIES=1,$
    TO_DMIS_REPORT=OFF,FILE_OPTION=OVERWRITE,FILENAME= ,$
    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
    TO_EXCEL_OUTPUT=OFF,
    PREVIOUS_RUNS=DELETE_INSTANCES
    Time for the Trolls to leave.

    Comment


    • #3
      Okay ... thank you so much ... I'll rehearse.

      Comment


      • #4
        Originally posted by Francisco Rebelo da Cruz View Post
        Okay ... thank you so much ... I'll rehearse.
        As far as the name of the person that made the program I just put their name here at the top of the program. These are put in the header of the report. As the serial number is in the previous inputs that I listed before.

        PART NAME : Part Number Here
        REV NUMBER : 05
        SER NUMBER : WCJ
        STATS COUNT : 1
        Last edited by William Johnson; 07-19-2019, 06:08 AM.
        Time for the Trolls to leave.

        Comment


        • #5
          This is what I have at the beginning of my programs:

          Code:
          $$ NO,
                      Enter part information here
                      ASSIGN/PARTNUM="Part Number"
                      ASSIGN/NOMEN="Part Nomenclature"
                      ASSIGN/PROC="Dimensional Inspection"
                      ASSIGN/DWGNUM="Drawing or MBD"
                      ASSIGN/DWGREV="Drawing or MBD Rev"
                      ASSIGN/MOD_DIR="Location of Inspection media"
          MWO        =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      'MWO #.'
          PARTS      =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      'Number of parts to measure?'
                      IF/PARTS.INPUT > 1
          STARTNUM     =COMMENT/INPUT,NO,FULL SCREEN=NO,
                        Last part measured (1st part = 0)
                      END_IF/
          PRODNUM    =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      'Process number of inspection'
          CMM1       =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      'Select which Machine your are working with?'
                      1  = CMM1 (6614)
                      2  = CMM2 (6108)
                      3  = CMM3 (6134)
          SPHERE     =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      Enter the Cal Sphere used.
          OPERATOR   =COMMENT/INPUT,NO,FULL SCREEN=NO,
                      Enter the Operators Stamp #.
                     IF/CMM1.INPUT=="1"
                        ASSIGN/CMM= 6614
                      END_IF/
                      IF/CMM1.INPUT=="2"
                        ASSIGN/CMM= 6108
                      END_IF/
                      IF/CMM1.INPUT=="3"
                        ASSIGN/CMM= 6134
                      END_IF/
                        Rebuild the heading to write to the report.
                        ASSIGN/W_REP1="DATE: "   + SYSTEMDATE("MM'/'dd'/'yyyy") + "     TIME:" + SYSTEMTIME("hh:mm:ss tt")+"      Cal Sphere:  "+ SPHERE.INPUT
                        ASSIGN/W_REP2="Part No.: " + PARTNUM + "    Drawing #  " + DWGNUM + "   PL/MBD REV: " + DWGREV
                        ASSIGN/W_REP3="Work Order No.: " + MWO.INPUT + "     Process Step: " + PROC + "; Process Number: " + PRODNUM.INPUT
                        ASSIGN/W_REP4="Nomenclature: " + NOMEN+ " # " + (COUNT +1) + " of " + PARTS.INPUT +"         CMM #  "    +CMM+"         Operator #  "    +OPERATOR.INPUT
                        COMMENT/REPT,
                        " "
                        COMMENT/REPT,
                        W_REP1
                        COMMENT/REPT,
                        W_REP2
                        COMMENT/REPT,
                        W_REP3
                        COMMENT/REPT,
                        W_REP4

          Comment


          • #6
            Is it possible to add where to enter the name who elaborates the program in the box of start of the program? as? (see attached image)
            Thanks for the answers.
            Attached Files

            Comment


            • #7
              Is this not what Post #4 does?
              Sheffield Endeavor3 9.20.8, Tesastar-SM, Leitz LSP-X1s & LSP-X1M, PCDMIS 2011 MR1

              Comment


              • #8
                Post # 4?
                I do not know what, where can I see it?
                thank you

                Comment


                • mckenzie
                  mckenzie commented
                  Editing a comment
                  in the top right of each post is the #. or just count down 4 from your first post

              • #9
                Originally posted by Francisco Rebelo da Cruz View Post
                Post # 4?
                I do not know what, where can I see it?
                thank you
                Reply I gave at the beginning of this thread. where I said put this at end of program.

                here it is again.

                PART NAME : Part Number Here
                REV NUMBER : 05
                SER NUMBER : WCJ
                STATS COUNT : 1
                Time for the Trolls to leave.

                Comment


                • #10
                  Okay, thank you. Good Weekend

                  Comment

                Related Topics

                Collapse

                Working...
                X