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

Forms

JNeville89
We currently fill out a CMM Request Sheet for each part we put on the CMM.

Is it possible to add this information to a Form that comes up at the start of each CMM Program for the details section?

Will then need a Pass / Fail Section at the end of the CMM Program and approval.

I'd like these to appear at the start and end of the CMM Reports

TIA for your help
Attached Files
  • I would do it like this, but I'm not sure that it's what you need... 
    Set PcApp = createobject("PCDLRN.application")
Set PcPart = PcApp.activepartprogram
Set Var1 = PcPart.GetVariableValue("V1")..............with ASSIGN/V1=SYSTEMTIME("HH:mm:ss") in the part program
time=Var1.stringvalue
Set Var2 = PcPart.GetVariableValue("V2")..............with ASSIGN/V2=SYSTEMDATE("MM’/’dd’/’yy") in the part program
date=Var2.stringvalue
    ​
  • I would do it like this, but I'm not sure that it's what you need... 
    Set PcApp = createobject("PCDLRN.application")
Set PcPart = PcApp.activepartprogram
Set Var1 = PcPart.GetVariableValue("V1")..............with ASSIGN/V1=SYSTEMTIME("HH:mm:ss") in the part program
time=Var1.stringvalue
Set Var2 = PcPart.GetVariableValue("V2")..............with ASSIGN/V2=SYSTEMDATE("MM’/’dd’/’yy") in the part program
date=Var2.stringvalue
    ​

    Thanks JEFMAN i have sorted the date and time now, as per below

    ASSIGN/V1=SYSTEMDATE("dd/MM/yy")
    ASSIGN/V2=SYSTEMTIME("HH:mm:ss")
    COMMENT/REPT,
    DATE:
    V1
    COMMENT/REPT,
    TIME:
    V2​

    Just need to fix why Select User and Result text Boxes don't show suddenly
  • PARAM/TXTUSER.TEXT=STR_USER
    PARAM/TXTRESULT.TEXT=STR_RESULT
    PARAM/=
    ENDFORM/
    COMMENT/REPT,
    ********************
    CMM Layout Approval
    ********************
    COMMENT/REPT,
    "NAME: "+STR_USER
    COMMENT/REPT,
    "RESULT: "+STR_RESULT
    ASSIGN/V1=SYSTEMDATE("dd/MM/yy")
    ASSIGN/V2=SYSTEMTIME("HH:mm:ss")
    COMMENT/REPT,
    DATE:
    V1
    COMMENT/REPT,
    TIME:
    V2​
  • in reply to JNeville89
    Hello,

    "txtResult.Text=comboResult.TextValue"
    "txtUser.Text = cboUser.TextValue"

    overwrites the content of the text object with the content of the combobox,
    there is nothing inside the combobox,
    so the text object gets an empty string, which means that it becomes invisible

    I only see the first line from the event handler in your post, so I can't say more about it
  • Thanks to Jon and Henniger123 I know have this working as intended

    For reference please see new code below

    ASSIGN/STR_USER=""
    ASSIGN/STR_RESULT=""
    CS2 =FORM/FILENAME= C:\PCDMIS\APPROVAL FORM.FORM
    PARAM/CBOUSER.TEXTVALUE=STR_USER
    PARAM/COMBORESULT.TEXTVALUE=STR_RESULT
    PARAM/=
    ENDFORM/
    COMMENT/REPT,
    ********************
    CMM Layout Approval
    ********************​
    COMMENT/REPT,
    "NAME: "+STR_USER
    COMMENT/REPT,
    "RESULT: "+STR_RESULT
    ASSIGN/V1=SYSTEMDATE("dd/MM/yy")
    ASSIGN/V2=SYSTEMTIME("HH:mm:ss")
    COMMENT/REPT,
    DATE:
    V1
    COMMENT/REPT,
    TIME:
    V2​
  • Is there a way to make the form open in maximised view?

    Have tried the below from Jon but also making the form maximum size, none of which has worked
    Attached Files
  • Maybe play with Height and width... ?

    I have already maxed the Height and Width
  • in reply to JNeville89
    Hello, these options toggle the maximize/minimize button visible or invisible.

    the form is called as a child within the pcDMIS window, which makes maximizing or minimizing difficult, or it is not intended to be done that way in pcDMIS.
    Because it is not possible to give the "Form.Top" and "Form.Left" a value with the pcDMIS internal VBA editor.
    (clicking on Form.maximize buttom doesn't seem to work either ?)

    I am afraid that this part of your plan is not feasible.
    With Windows DLL functions, this can perhaps be implemented, but that is beyond my knowledge.
    sorry my friend
  • I have now added a Text Box that can have information typed into.

    Would it be possible to have this emailed to me when data is entered?
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement