Your Products have been synced, click here to refresh
Sub Main '''''Create Dialog With these Input items: Begin Dialog DIALOG_1 50,10, 1000, 500, oOPERATORINPUT TextBox 85,13,135,12, .EditBox_1 TextBox 95,43,135,12, .EditBox_2 TextBox 105,73,135,12, .EditBox_3 OptionGroup .GROUP_2 Button 55,15,800,100, "WORK ORDER #20" Button 55,125,800,100, "WORK ORDER #30" Button 55,235,800,100, "WORK ORDER #40" Button 55,345,800,100, "WORK ORDER #50" OKButton 195,210,65,45 CancelButton 120,275,48,16 End Dialog ''''' Set the Dialog For Access: Dim Dialg As DIALOG_1 button1 = Dialog(Dialg) ''''' Declar VB variables: Dim Progtype As String Dim SerNum As String Dim MANUALQ As String MANUALQ= "YES" '''''Quit If Dialog got canceled, Or go On To take the operator inputs And Put them into VB variables: If button1 = 0 Then Progtype= "END" Else Select Case Dialg.GROUP_2 Case 0 MANUALQ= "YES" Case 1 MANUALQ= "NO" End Select End If '''''Link up To PC-DMIS: Dim App As Object Set App = CreateObject("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim Cmds As Object Dim Cmd As Object Set Cmds = Part.Commands '''''Find the PC-DMIS variables And fill their values In With the current values of VB variables: For Each Cmd In Cmds If Cmd.Type = ASSIGNMENT Then If Cmd.GetText(DEST_EXPR, 0) = "OPERATOR" Then bln = Cmd.PutText("""" + Oper + """", SRC_EXPR, 0) Cmd.ReDraw End If If Cmd.GetText(DEST_EXPR, 0) = "JOB" Then bln = Cmd.PutText("""" + Job + """", SRC_EXPR, 0) Cmd.ReDraw End If If Cmd.GetText(DEST_EXPR,0) = "SERNO" Then bln = Cmd.PutText("""" + SerNum + """", SRC_EXPR, 0) Cmd.ReDraw End If If Cmd.GetText(DEST_EXPR,0) = "MANUAL" Then bln = Cmd.PutText("""" + MANUALQ + """", SRC_EXPR, 0) Cmd.ReDraw End If End If Next Cmd '''''Finish. End Sub
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |