Sub: pass fail no required

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

  • Sub: pass fail no required

    Hi guys

    I need Ur support in this situation

    In my program 100 results available in that how many pass how many fail I need number in my report is it possible to do that.

  • #2
    Here is example of a PC-DMIS code for reporting Number Out of Tolerance and Measured.

    Code:
    $$ NO,
    Routine Report Footer
    ROUTINE_REPORT_FOOTER_GRP1=GROUP/SHOWALLPARAMS=YES
    REPORT_FOOTER_L1 =LABEL/
    ASSIGN/NUMMEAS_V1=GETPROGRAMINFO("NUMMEAS")
    ASSIGN/NUMOOT_V1=GETPROGRAMINFO("NUMOOT")
    ASSIGN/ELAPSEDTIME_V1=GETPROGRAMINFO("ELAPSEDTIME")
    ASSIGN/ELAPSEDTIME_V2=ELAPSEDEXECUTIONTIME()
    COMMENT/REPT,
    "Estimated Number Measured: "+NUMMEAS_V1
    IF/NUMOOT_V1 < 1
    COMMENT/REPT,
    "Estimated Number Out of Tolerance: "+NUMOOT_V1
    END_IF/
    ELSE_IF/NUMOOT_V1 > 0
    COMMENT/REPT,
    "~~4 Estimated Number Out of Tolerance: "+NUMOOT_V1
    END_ELSEIF/
    COMMENT/REPT,
    "Routine Elapse Time: "+ELAPSEDTIME_V2
    TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Out of Tolerance: " ; Estimated Number Out of Tolerance : NUMOOT_V1
    TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Measured: " ; Estimated Number Measured : NUMMEAS_V1
    TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Routine Elapse Time: " ; Routine Elapse Time : ELAPSEDTIME_V2
    COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
    Routine Execution Complete.
    .
    REPORT_FOOTER_L2 =LABEL/
    ENDGROUP/ID=ROUTINE_REPORT_FOOTER_GRP1
    Last edited by davehocum; 08-04-2020, 01:14 PM.

    Comment


    • #3
      Hello davehocum.

      I paste this code in my program it's working excellent thank you very much.

      Comment


      • davehocum
        davehocum commented
        Editing a comment
        No problem.

    • #4
      Here is a very a easy one that I use at the end of all my programs


      $$ NO,

      paste this at end of all programs





      ASSIGN/RUNTIME=GETPROGRAMINFO("ELAPSEDTIME")
      ASSIGN/NUMMEAS=GETPROGRAMINFO("NUMMEAS")
      ASSIGN/NUMOUT=GETPROGRAMINFO("NUMOOT")
      COMMENT/REPT,
      **********************
      "~~1 Run Time : "+ RUNTIME
      COMMENT/REPT,
      **********************
      "NUMBER OF DIMENSIONS EXECUTED : "+ NUMMEAS
      COMMENT/REPT,
      **********************
      "~~4 NUMBER OF DIMENSIONS OUT OF TOLERANCE : "+ NUMOUT




      and looks like this on the report in color even
      See attachment
      Attached Files
      Michael A Wildschutz Sr
      I Walk on The WildSide
      "To Each is Own"

      Comment

      Related Topics

      Collapse

      Working...
      X