1387 lines
41 KiB
Plaintext
1387 lines
41 KiB
Plaintext
VERSION 5.00
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
|
|
Begin VB.Form frmMain
|
|
BorderStyle = 1 'Fest Einfach
|
|
Caption = "Pruef2000"
|
|
ClientHeight = 10470
|
|
ClientLeft = 150
|
|
ClientTop = 720
|
|
ClientWidth = 14190
|
|
KeyPreview = -1 'True
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 10470
|
|
ScaleWidth = 14190
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdSPSInfo
|
|
Caption = "Schaubild"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 9060
|
|
TabIndex = 12
|
|
Top = 120
|
|
Width = 1935
|
|
End
|
|
Begin VB.Frame frMain
|
|
Height = 9315
|
|
Left = 480
|
|
TabIndex = 10
|
|
Top = 660
|
|
Width = 13095
|
|
Begin VB.CommandButton cmdMeitwin_eRegisterPruefung
|
|
Caption = "Meitwin eRegister Prüfung "
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 735
|
|
Left = 4680
|
|
TabIndex = 30
|
|
Top = 4740
|
|
Width = 1785
|
|
End
|
|
Begin VB.CommandButton Command2
|
|
Caption = "Verbundzähler Prüfung "
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 735
|
|
Left = 2670
|
|
TabIndex = 29
|
|
Top = 4740
|
|
Width = 1725
|
|
End
|
|
Begin VB.CommandButton cmdVerbundzaehlerPrüfung
|
|
Caption = "Verbundzähler"
|
|
Height = 735
|
|
Left = 600
|
|
TabIndex = 28
|
|
Top = 4740
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command5
|
|
BackColor = &H00C0FFFF&
|
|
Caption = "Referenz- Zähler- Prüfung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1065
|
|
Left = 6660
|
|
Style = 1 'Grafisch
|
|
TabIndex = 27
|
|
Top = 1200
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdRezFehler
|
|
BackColor = &H00C0E0FF&
|
|
Caption = "RZ Fehler drucken"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 6660
|
|
Style = 1 'Grafisch
|
|
TabIndex = 26
|
|
Top = 2520
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdRefZPP
|
|
BackColor = &H00C0FFFF&
|
|
Caption = "RZ Prüfpunkte"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 540
|
|
Left = 6660
|
|
Style = 1 'Grafisch
|
|
TabIndex = 25
|
|
Top = 600
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdSchaubild
|
|
BackColor = &H00FFFFFF&
|
|
Caption = "SPS Schaubild"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 720
|
|
Left = 6720
|
|
Style = 1 'Grafisch
|
|
TabIndex = 24
|
|
Top = 5580
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command10
|
|
BackColor = &H00C0C000&
|
|
Caption = "Meitwin MID Prüfung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 2640
|
|
Style = 1 'Grafisch
|
|
TabIndex = 23
|
|
ToolTipText = "Prüfdaten werden wieder gelöscht, nachdem sie notiert werden müssen. Keine Regulierung."
|
|
Top = 2520
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command9
|
|
Caption = "PrüfpunkteTest"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 720
|
|
Left = 4680
|
|
TabIndex = 22
|
|
Top = 5580
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdPSEPruefung
|
|
BackColor = &H00C0C0FF&
|
|
Caption = "Ultraschall Prüfzähler Prüfung FW2 (neu)"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 4710
|
|
Style = 1 'Grafisch
|
|
TabIndex = 21
|
|
Top = 600
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdMitteilungen
|
|
BackColor = &H8000000B&
|
|
Caption = "Mitteilungen"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 720
|
|
Left = 2640
|
|
MaskColor = &H8000000B&
|
|
Style = 1 'Grafisch
|
|
TabIndex = 7
|
|
Top = 5580
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command8
|
|
Caption = "Test Regulierung"
|
|
Height = 315
|
|
Left = 10680
|
|
TabIndex = 14
|
|
Top = 6720
|
|
Visible = 0 'False
|
|
Width = 1695
|
|
End
|
|
Begin VB.CommandButton cmdRuecklaeuferanalyse
|
|
Caption = "Rückläufer analyse"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 705
|
|
Left = 600
|
|
TabIndex = 6
|
|
Top = 5580
|
|
Width = 1740
|
|
End
|
|
Begin VB.CommandButton cmdKennwort
|
|
Caption = "Kennwort ändern"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1635
|
|
Left = 10680
|
|
TabIndex = 2
|
|
Tag = "txtAuftraege"
|
|
Top = 2460
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton cmdTurbo2epc
|
|
BackColor = &H00808080&
|
|
Caption = "OMNI Turbo² Compound² Prüfung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 600
|
|
Style = 1 'Grafisch
|
|
TabIndex = 4
|
|
Top = 2520
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command7
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Ultraschall Prüfzähler Prüfung FW1 (alt)"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 2700
|
|
Style = 1 'Grafisch
|
|
TabIndex = 3
|
|
Top = 600
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command4
|
|
BackColor = &H00FFC0C0&
|
|
Caption = "Hand- Prüfung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 4680
|
|
Style = 1 'Grafisch
|
|
TabIndex = 5
|
|
Top = 2520
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command6
|
|
BackColor = &H008080FF&
|
|
Caption = "Schichtende"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 10680
|
|
Style = 1 'Grafisch
|
|
TabIndex = 8
|
|
Top = 4320
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command3
|
|
Caption = "Auftrags- daten"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 10680
|
|
TabIndex = 1
|
|
Tag = "txtAuftraege"
|
|
Top = 600
|
|
Width = 1755
|
|
End
|
|
Begin VB.CommandButton Command1
|
|
BackColor = &H00C0FFC0&
|
|
Caption = "Prüfzähler Prüfung mit PC Steuerung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 600
|
|
Style = 1 'Grafisch
|
|
TabIndex = 0
|
|
Top = 600
|
|
Width = 1755
|
|
End
|
|
Begin VB.Label lblDatenbankname
|
|
BorderStyle = 1 'Fest Einfach
|
|
Height = 315
|
|
Left = 7740
|
|
TabIndex = 20
|
|
Top = 8910
|
|
Width = 2295
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "Datenbankname:"
|
|
Height = 255
|
|
Left = 6330
|
|
TabIndex = 19
|
|
Top = 8970
|
|
Width = 1365
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "Version:"
|
|
Height = 255
|
|
Left = 570
|
|
TabIndex = 18
|
|
Top = 8940
|
|
Width = 915
|
|
End
|
|
Begin VB.Label lblVersion
|
|
BorderStyle = 1 'Fest Einfach
|
|
Height = 315
|
|
Left = 1560
|
|
TabIndex = 17
|
|
Top = 8910
|
|
Width = 3795
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Programm:"
|
|
Height = 315
|
|
Left = 570
|
|
TabIndex = 16
|
|
Top = 8550
|
|
Width = 915
|
|
End
|
|
Begin VB.Label lblProgrammname
|
|
BorderStyle = 1 'Fest Einfach
|
|
Height = 315
|
|
Left = 1560
|
|
TabIndex = 15
|
|
Top = 8520
|
|
Width = 8475
|
|
End
|
|
Begin VB.Label lblMessage
|
|
BorderStyle = 1 'Fest Einfach
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1665
|
|
Left = 510
|
|
TabIndex = 13
|
|
Top = 6600
|
|
Width = 9525
|
|
End
|
|
End
|
|
Begin MSComctlLib.StatusBar stbMain
|
|
Align = 2 'Unten ausrichten
|
|
Height = 315
|
|
Left = 0
|
|
TabIndex = 9
|
|
Top = 10155
|
|
Width = 14190
|
|
_ExtentX = 25030
|
|
_ExtentY = 556
|
|
_Version = 393216
|
|
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
|
|
NumPanels = 5
|
|
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
Alignment = 1
|
|
AutoSize = 2
|
|
Object.Width = 2302
|
|
MinWidth = 2294
|
|
Object.ToolTipText = "Nr. der Prüfstation"
|
|
EndProperty
|
|
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
Alignment = 1
|
|
Object.Width = 4323
|
|
MinWidth = 4323
|
|
Object.ToolTipText = "aktueller Benutzer"
|
|
EndProperty
|
|
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
AutoSize = 1
|
|
Object.Width = 15134
|
|
EndProperty
|
|
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
Style = 5
|
|
Alignment = 1
|
|
AutoSize = 2
|
|
Object.Width = 1323
|
|
MinWidth = 1324
|
|
Text = "99:99"
|
|
TextSave = "15:22"
|
|
EndProperty
|
|
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
|
|
Style = 6
|
|
Alignment = 1
|
|
AutoSize = 2
|
|
Object.Width = 1799
|
|
MinWidth = 1764
|
|
TextSave = "05.10.2017"
|
|
EndProperty
|
|
EndProperty
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
End
|
|
Begin VB.Label lblTitle
|
|
Caption = "Titel"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 0
|
|
TabIndex = 11
|
|
Tag = "frmMain"
|
|
Top = 60
|
|
Width = 13125
|
|
End
|
|
Begin VB.Menu mnuDatei
|
|
Caption = "Datei"
|
|
Begin VB.Menu mnuAbmelden
|
|
Caption = "Abmelden"
|
|
End
|
|
Begin VB.Menu mnuEnde
|
|
Caption = "Ende"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuExtras
|
|
Caption = "Extras"
|
|
Begin VB.Menu mnuSelbstTest
|
|
Caption = "Selbsttest"
|
|
End
|
|
Begin VB.Menu mnuDauerlauf
|
|
Caption = "Dauerlauf"
|
|
End
|
|
Begin VB.Menu mnuInitFM85Waage
|
|
Caption = "Init FM85/Waage"
|
|
End
|
|
Begin VB.Menu mnuFM85Terminal
|
|
Caption = "FM85 Terminal"
|
|
End
|
|
Begin VB.Menu mnuRS232Test
|
|
Caption = "RS232 Test"
|
|
End
|
|
Begin VB.Menu mnuFunkTest
|
|
Caption = "Funktionstest"
|
|
End
|
|
Begin VB.Menu mnuIni
|
|
Caption = "Optionen (ini-Datei)"
|
|
End
|
|
Begin VB.Menu mnuEntsperren
|
|
Caption = "Entsperren"
|
|
End
|
|
Begin VB.Menu mnuSperren
|
|
Caption = "Sperren"
|
|
End
|
|
Begin VB.Menu mnuRZFehler
|
|
Caption = "Referenzzähler Fehler"
|
|
End
|
|
Begin VB.Menu mnuPassword
|
|
Caption = "Kennwort ändern"
|
|
End
|
|
Begin VB.Menu mnuTestForm
|
|
Caption = "( Testformular )"
|
|
End
|
|
Begin VB.Menu cmdTest2
|
|
Caption = "(Testformular 2)"
|
|
End
|
|
Begin VB.Menu mnuMitteilungen
|
|
Caption = "Mitteilungen"
|
|
End
|
|
Begin VB.Menu mnuKundeneigeneSNr
|
|
Caption = "Kundeneigene Serien-Nr vergeben..."
|
|
End
|
|
Begin VB.Menu mnuRueklaeuferErinnerung
|
|
Caption = "Rückläufer Erinnerung"
|
|
End
|
|
Begin VB.Menu mnuBehaelterTest
|
|
Caption = "Behälter Test"
|
|
End
|
|
Begin VB.Menu ProdaveSetup
|
|
Caption = "Prodave Setup"
|
|
End
|
|
Begin VB.Menu mnuSPSTest
|
|
Caption = "SPS Test"
|
|
End
|
|
Begin VB.Menu mnuUSFW2Tools
|
|
Caption = "US FW2 Tools"
|
|
End
|
|
Begin VB.Menu mnuSPSDurchflussmessung
|
|
Caption = "Durchflussmessung (SPS)"
|
|
End
|
|
Begin VB.Menu mnuFM85Durchflussmessung
|
|
Caption = "FM85 Durchflussmessung"
|
|
End
|
|
Begin VB.Menu mnuVersuchProduktion
|
|
Caption = "Versuch => Produktion"
|
|
End
|
|
Begin VB.Menu mnuFW2JustageSimulation
|
|
Caption = "FW2 Justage Simulation"
|
|
End
|
|
Begin VB.Menu mnuFM85log
|
|
Caption = "FM85 log einschalten"
|
|
End
|
|
Begin VB.Menu mnu_eRegister_Test
|
|
Caption = "eRegister Test"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuPruefung
|
|
Caption = "Pruefung"
|
|
Begin VB.Menu mnuReferenzzaehler
|
|
Caption = "Referenzzähler"
|
|
End
|
|
Begin VB.Menu mnuPruefzaehler
|
|
Caption = "Prüfzähler"
|
|
End
|
|
Begin VB.Menu mnuRuecklaeufer
|
|
Caption = "Rückläufer Analyse"
|
|
End
|
|
Begin VB.Menu mnuFertigmelden
|
|
Caption = "Fertigmelden"
|
|
End
|
|
End
|
|
Begin VB.Menu mnuHilfe
|
|
Caption = "Hilfe"
|
|
Begin VB.Menu mnuInfoNeu
|
|
Caption = "Was ist neu"
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmMain"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
' Private Member
|
|
' --------------
|
|
Private m_nRet As Integer
|
|
Private mblnFunktionWurdeBeendet As Boolean
|
|
|
|
' @return Code, mit dem endDialog aufgerufen wurde
|
|
'
|
|
Public Function getExitCode() As Integer
|
|
getExitCode = m_nRet
|
|
End Function
|
|
|
|
|
|
'------------------------------------------------------------------------------
|
|
' Private Funktionalität
|
|
'------------------------------------------------------------------------------
|
|
|
|
' Dialog beenden
|
|
'
|
|
' @param nRet Returncode des Dialogs
|
|
'
|
|
Private Sub endDialog(nRet As Integer)
|
|
m_nRet = nRet
|
|
Unload Me
|
|
End Sub
|
|
|
|
'Private Sub cmdFertigmeldenMAV_Click()
|
|
' Dim colEbp As Collection
|
|
' Dim ebp As CEinbauplatz
|
|
' Dim pz As CPruefzaehler
|
|
'
|
|
' Set colEbp = New Collection
|
|
'
|
|
' Set pz = New CPruefzaehler
|
|
' Set ebp = New CEinbauplatz
|
|
' pz.loadForSerienNr 9889255
|
|
' ebp.setPruefzaehler pz
|
|
' colEbp.Add ebp
|
|
'
|
|
' Set pz = New CPruefzaehler
|
|
' Set ebp = New CEinbauplatz
|
|
' pz.loadForSerienNr 70461
|
|
' ebp.setPruefzaehler pz
|
|
' colEbp.Add ebp
|
|
'
|
|
' Set pz = New CPruefzaehler
|
|
' Set ebp = New CEinbauplatz
|
|
' pz.loadForSerienNr 9896772
|
|
' ebp.setPruefzaehler pz
|
|
' colEbp.Add ebp
|
|
'
|
|
' Set pz = New CPruefzaehler
|
|
' Set ebp = New CEinbauplatz
|
|
' pz.loadForSerienNr 9895644
|
|
' ebp.setPruefzaehler pz
|
|
' colEbp.Add ebp
|
|
'
|
|
'
|
|
' Call PruefungFertigmeldenDialog("Die Prüfung wurde beendet.", colEbp)
|
|
'End Sub
|
|
|
|
Private Sub cmdKennwort_Click()
|
|
mnuPassword_Click
|
|
End Sub
|
|
|
|
'Private Sub cmdManuellFM85_Click()
|
|
' Me.Visible = False
|
|
' frmManuellePruefung.Show vbModal, Me
|
|
' Me.Visible = True
|
|
'End Sub
|
|
|
|
Private Sub cmdMitteilungen_Click()
|
|
On Error Resume Next
|
|
frmMitteilungen.Show vbModal, Me
|
|
Call AktualisiereMitteilungsbutton
|
|
g_blnMitteilungengelesen = True
|
|
End Sub
|
|
|
|
Private Sub AktualisiereMitteilungsbutton()
|
|
Dim lngAnzahl As Long
|
|
lngAnzahl = AnzahlNeueMails()
|
|
If lngAnzahl = 1 Then
|
|
cmdMitteilungen.BackColor = &H80FF80
|
|
cmdMitteilungen.caption = AnzahlNeueMails() & " neue" & vbCrLf & "Mitteilung"
|
|
ElseIf lngAnzahl > 1 Then
|
|
cmdMitteilungen.BackColor = &H80FF80
|
|
cmdMitteilungen.caption = AnzahlNeueMails() & " neue" & vbCrLf & "Mitteilungen"
|
|
Else
|
|
cmdMitteilungen.BackColor = &H8000000F
|
|
cmdMitteilungen.caption = "Mitteilungen"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdPSEPruefung_Click()
|
|
Dim dlg As frmUSFW2Pruefzaehlerpruefung
|
|
Set dlg = New frmUSFW2Pruefzaehlerpruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
|
|
End Sub
|
|
|
|
'Private Sub cmdPSETest_Click()
|
|
'frmUSFW2Tools.Show vbModal
|
|
'End Sub
|
|
|
|
Private Sub cmdRefZPP_Click()
|
|
frmReferenzzaehlerPruefpunkte.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub cmdRezFehler_Click()
|
|
Dim dlg As frmRefZFehler
|
|
Set dlg = New frmRefZFehler
|
|
dlg.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub cmdRuecklaeuferanalyse_Click()
|
|
Call mnuRuecklaeufer_Click
|
|
End Sub
|
|
|
|
Private Sub cmdSchaubild_Click()
|
|
Call g_App.getSPS().ActivateProTool
|
|
End Sub
|
|
|
|
Private Sub cmdSPSInfo_Click()
|
|
Call g_App.getSPS().ActivateProTool
|
|
End Sub
|
|
|
|
Private Sub cmdTest2_Click()
|
|
Me.Visible = False
|
|
frmTest2.Show vbNormal, Me
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
'Private Sub cmdTestQ_Click()
|
|
'
|
|
' Dim SPS As CSPS
|
|
' Set SPS = g_App.getSPS()
|
|
' Debug.Print SPS.getQIst
|
|
' Sleep 100, True
|
|
'
|
|
' g_frmMain.Visible = False
|
|
' frmTestDurchflussmessung.Show vbNormal
|
|
'
|
|
'End Sub
|
|
|
|
Private Sub cmdTurbo2epc_Click()
|
|
On Error GoTo Errorhandler
|
|
Dim objSensusIF As Object
|
|
Set objSensusIF = CreateObject("SensusIF2.Interface")
|
|
|
|
Dim dlg As frmTurbo2PruefzaehlerPruefung
|
|
Set dlg = New frmTurbo2PruefzaehlerPruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
Exit Sub
|
|
Errorhandler:
|
|
If Err = 429 Then
|
|
If MsgBox("Die neue SensusIF2.dll ist nicht installiert. Möchten Sie sie jetzt installieren?", vbYesNo Or vbDefaultButton1) = vbYes Then
|
|
If Dir("C:\WINDOWS\system32\") <> "" Then
|
|
LogIntoDB "reg SensusIF2.dll für WINDOWS (XP).bat ausgeführt", "Autoupdate"
|
|
ExecuteAndWait "\\sla12file\Auftrag\Pruefstation 2000 EXE\reg SensusIF2.dll für WINDOWS (XP).bat", ""
|
|
ElseIf Dir("C:\WINNT\system32\") <> "" Then
|
|
LogIntoDB "reg SensusIF2.dll für WINNT (Windows 2000).bat ausgeführt", "Autoupdate"
|
|
ExecuteAndWait "\\sla12file\Auftrag\Pruefstation 2000 EXE\reg SensusIF2.dll für WINNT (Windows 2000).bat", ""
|
|
End If
|
|
End If
|
|
Else
|
|
MsgBox "Fehler: " & Err & ": " & Err.Description
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub cmdVerbundzaehlerPrüfung_Click()
|
|
frmVerbundzaehlerPruefung.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub Command1_Click()
|
|
Dim dlg As frmPruefzaehlerPruefung
|
|
|
|
g_bMeitwinMID_Sonderpruefung = False
|
|
|
|
Set dlg = New frmPruefzaehlerPruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Command10_Click()
|
|
Dim dlg As frmPruefzaehlerPruefung
|
|
|
|
g_bMeitwinMID_Sonderpruefung = True
|
|
|
|
Set dlg = New frmPruefzaehlerPruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cmdMeitwin_eRegisterPruefung_Click()
|
|
frmVerbundzaehler_eRegister_Eingabe.Show vbNormal, Me
|
|
frmVerbundzaehler_eRegister_Eingabe.ClearEbp
|
|
End Sub
|
|
|
|
Private Sub Command2_Click()
|
|
frmVerbundzaehlerEingabe.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub Command3_Click()
|
|
Dim dlg As frmAuftraege
|
|
Set dlg = New frmAuftraege
|
|
dlg.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub Command4_Click()
|
|
|
|
Set frmPruefzaehlerPruefungManuell.mParentForm = Me
|
|
|
|
bDummy = doNonModal(frmPruefzaehlerPruefungManuell, True)
|
|
|
|
Me.Hide
|
|
|
|
End Sub
|
|
|
|
Private Sub Command5_Click()
|
|
'Dim dlg As frmRefZaehlerPrf
|
|
'Set dlg = New frmRefZaehlerPrf
|
|
'dlg.Show 'vbModal
|
|
' darf nicht modal angezeigt werden, weil frmRefZaehlerPrf selbst ein nicht madalen Dialog öffnet
|
|
|
|
frmRefZaehlerPrf.Show , Me
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
End Sub
|
|
|
|
Public Sub Command7_Click()
|
|
Dim dlg As USPruefzaehlerPruefung
|
|
Set dlg = New USPruefzaehlerPruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
g_blnMitteilungengelesen = False
|
|
|
|
ButtonFunktionBeendet
|
|
End Sub
|
|
|
|
|
|
Private Sub Ende_Click()
|
|
Dim SPS As CSPS
|
|
Set SPS = g_App.getSPS
|
|
SPS.DisconnectSPS
|
|
End
|
|
End Sub
|
|
|
|
Private Sub FM85Terminal_Click()
|
|
Dim dlg As frmFM85BusTerminal
|
|
Set dlg = New frmFM85BusTerminal
|
|
Call doModal(dlg, True)
|
|
End Sub
|
|
|
|
Private Sub Hilfe_Click()
|
|
frmAbout.Show vbModal
|
|
End Sub
|
|
|
|
|
|
Private Sub Command6_Click()
|
|
WriteToLog "Prüfer " & g_App.Mitarbeiter.getAnfangsbuchstabeVornameundName & " meldet sich ab."
|
|
Dim dlgLogin As frmLogin
|
|
Set dlgLogin = New frmLogin
|
|
If doModal(dlgLogin, True) <> IDOK Then
|
|
Call exitInstance
|
|
End If
|
|
g_App.Mitarbeiter = dlgLogin.getMitarbeiter()
|
|
|
|
Call PruefeAufUpdate
|
|
Call PruefungGesperrtAktualisieren
|
|
Call ShowBegruessungsRitual
|
|
g_blnMitteilungengelesen = False
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Command8_Click()
|
|
Dim dlgRegulierung As frmRegulierung
|
|
Dim Einbauplatz As CEinbauplatz
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
Dim ColEinbauplatz As Collection
|
|
Dim Referenzzaehler As CRefzaehler
|
|
Dim Regulierdaten As CRegulierdaten
|
|
Dim colUniquePP As CPruefpunktCol
|
|
|
|
|
|
Set Pruefzaehler = New CPruefzaehler
|
|
Dim strSerienNr As String
|
|
|
|
strSerienNr = InputBox("SerienNr", , "70067687")
|
|
|
|
|
|
Pruefzaehler.loadForSerienNr Val(strSerienNr)
|
|
|
|
Set Einbauplatz = New CEinbauplatz
|
|
Set ColEinbauplatz = New Collection
|
|
Einbauplatz.setNr 1
|
|
Einbauplatz.setPruefzaehler Pruefzaehler
|
|
ColEinbauplatz.Add Einbauplatz
|
|
|
|
Set Referenzzaehler = New CRefzaehler
|
|
Referenzzaehler.loadForDurchfluss 80, 0
|
|
|
|
Set dlgRegulierung = New frmRegulierung
|
|
Set dlgRegulierung.m_colEinbauplatz = ColEinbauplatz
|
|
Set Regulierdaten = New CRegulierdaten
|
|
Regulierdaten.load Pruefzaehler.getAuftragPosition.getIdentNr, Pruefzaehler.getPruefklasseKZ
|
|
|
|
Set dlgRegulierung.m_Regulierdaten = Regulierdaten
|
|
|
|
Set dlgRegulierung.m_Referenzzaehler = Referenzzaehler
|
|
|
|
|
|
Set colUniquePP = New CPruefpunktCol
|
|
Set dlgRegulierung.m_colUniquePP = colUniquePP
|
|
|
|
|
|
'dlgRegulierung.m_Durchfluss = m_DurchflussSoll
|
|
|
|
dlgRegulierung.m_ImpulswertigkeitPZ = 1000
|
|
|
|
' dlgRegulierung.m_bAutomatik = m_bAutomatik
|
|
|
|
dlgRegulierung.Show vbModal
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Command9_Click()
|
|
frmPrüfpunkteTest.Show
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
AktualisiereMitteilungsbutton
|
|
|
|
If mblnFunktionWurdeBeendet = True Then
|
|
mblnFunktionWurdeBeendet = False
|
|
If Not gblnIsInIDE Then
|
|
PruefeAufUpdate
|
|
End If
|
|
|
|
If AnzahlNeueMails() > 0 Then
|
|
If g_blnMitteilungengelesen = False Then
|
|
frmMitteilungen.Show vbModal
|
|
g_blnMitteilungengelesen = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' falls neuer User angemeldet wurde
|
|
stbMain.Panels(1).text = "Prüfstation: " & g_App.PruefstationNr
|
|
stbMain.Panels(2).text = "Prüfer : " & Trim$(g_App.Mitarbeiter().getVorname()) & " " & g_App.Mitarbeiter().getName()
|
|
|
|
End Sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
' Event-Handling
|
|
'------------------------------------------------------------------------------
|
|
|
|
Private Sub Form_Load()
|
|
|
|
lblProgrammname = App.Path & "\" & App.EXEName & ".exe"
|
|
|
|
If Dir(App.Path & "\" & App.EXEName & ".exe") <> "" Then
|
|
lblVersion = App.Major & "." & App.Minor & "." & App.Revision & " vom " & FileDateTime(App.Path & "\" & App.EXEName & ".exe")
|
|
End If
|
|
lblDatenbankname = g_App.getDB.getConnection.DefaultDatabase
|
|
|
|
|
|
Me.Width = Screen.Width
|
|
'Me.Height = Screen.Height
|
|
Me.Icon = frmRes.Icon
|
|
Me.caption = "Pruef2000 Version " & g_App.AppVersion
|
|
Me.WindowState = vbMaximized
|
|
|
|
' stbMain.Panels(1).Text = "Prüfstation: " & g_App.PruefstationNr
|
|
' stbMain.Panels(2).Text = "Prüfer: " & Trim$(g_App.Mitarbeiter().getVorname()) & " " & g_App.Mitarbeiter().getName()
|
|
|
|
stbMain.Panels(1).text = "Prüfstation: " & g_App.PruefstationNr
|
|
stbMain.Panels(2).text = "Prüfer : " & Trim$(g_App.Mitarbeiter().getVorname()) & " " & g_App.Mitarbeiter().getName()
|
|
|
|
lblTitle.caption = "Prüfstation: " & g_App.PruefstationNr
|
|
|
|
Call centerFormInScreen(Me)
|
|
Call g_Logger.log(3, "Anwendung gestartet.")
|
|
|
|
Call setupStdDlg(Me)
|
|
|
|
If g_ohneSPS Then
|
|
'Command7.Enabled = False ' Ultraschall
|
|
Command5.Enabled = True
|
|
lblTitle.caption = "Prüfstation: " & g_App.PruefstationNr & " (ohne SPS)"
|
|
End If
|
|
|
|
If g_App.Mitarbeiter.getNr = 6316 Then
|
|
Command8.Visible = True
|
|
End If
|
|
|
|
Select Case g_App.PruefstationTyp
|
|
Case 5
|
|
Command1.Enabled = False
|
|
Command4.Enabled = False
|
|
Command5.Enabled = False
|
|
Command7.Enabled = False
|
|
cmdTurbo2epc.Enabled = False
|
|
Case Else
|
|
End Select
|
|
|
|
Call ShowBegruessungsRitual
|
|
Me.Visible = True
|
|
DoEvents
|
|
|
|
If TageBiszurLetztenRZPrüfung() >= 7 Then
|
|
lblMessage.caption = "Die letzte Referenzzählerprüfung liegt " & TageBiszurLetztenRZPrüfung() & " Tage zurück."
|
|
lblMessage.BackColor = RGB(255, 255, 0)
|
|
End If
|
|
|
|
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter Or g_App.Mitarbeiter.getName = "Henning" Then
|
|
mnuVersuchProduktion.Enabled = True
|
|
Else
|
|
mnuVersuchProduktion.Enabled = True
|
|
'mnuVersuchProduktion.Enabled = False
|
|
End If
|
|
|
|
If g_blnVersuch = False Then
|
|
mnuVersuchProduktion.caption = "Umschalten Produktion => Versuch"
|
|
Else
|
|
mnuVersuchProduktion.caption = "Umschalten Versuch => Produktion"
|
|
cmdVerbundzaehlerPrüfung.Enabled = False
|
|
End If
|
|
|
|
|
|
|
|
Call PruefungGesperrtAktualisieren
|
|
|
|
' If Not g_blnVersuch And Not IsInIDE() Then
|
|
' cmdPSEPruefung.Enabled = False
|
|
' cmdPSETest.Enabled = False
|
|
' End If
|
|
End Sub
|
|
|
|
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
|
Call exitInstance
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
Call g_Logger.log(3, "Anwendung beendet.")
|
|
Call exitInstance
|
|
End Sub
|
|
|
|
|
|
|
|
' Event für jede Keyboard Taste in der Form
|
|
'
|
|
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuAbmelden_Click()
|
|
Dim dlgLogin As frmLogin
|
|
WriteToLog "Prüfer abgemeldet"
|
|
Set dlgLogin = New frmLogin
|
|
If doModal(dlgLogin, True) <> IDOK Then
|
|
Call exitInstance
|
|
End If
|
|
|
|
g_App.Mitarbeiter = dlgLogin.getMitarbeiter()
|
|
Call PruefeAufUpdate
|
|
|
|
End Sub
|
|
|
|
Private Sub mnuBehaelterTest_Click()
|
|
frmBehaelterTest.Show
|
|
End Sub
|
|
|
|
Private Sub mnuDauerlauf_Click()
|
|
frmDauerlauf.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub mnuEnde_Click()
|
|
WriteToLog "Anwendung über Menü beendet"
|
|
exitInstance
|
|
End Sub
|
|
|
|
Private Sub mnuEntsperren_Click()
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter = True Or g_blnVersuch = True Then
|
|
g_App.Settings.Gesperrt = 0
|
|
LogIntoDB "Prüfstation wurde entsperrt", "Sperrung"
|
|
MsgBox "Prüfstation wurde entsperrt"
|
|
PruefungGesperrtAktualisieren
|
|
Else
|
|
MsgBox "nur Prüfstellenleiter dürfen entsperren!"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuFM85Durchflussmessung_Click()
|
|
Me.Visible = False
|
|
frmManuellePruefung.Show vbModal, Me
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub mnuFM85log_Click()
|
|
If g_blnFM85log = False Then
|
|
' Einschalten
|
|
g_blnFM85log = True
|
|
MsgBox "Das Loggen der FM85 Kommunikation wurde aktiviert"
|
|
mnuFM85log.caption = "FM85 log ausschalten"
|
|
Else
|
|
g_blnFM85log = False
|
|
MsgBox "Das Loggen der FM85 Kommunikation wurde deaktiviert"
|
|
mnuFM85log.caption = "FM85 log einschalten"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuFW2JustageSimulation_Click()
|
|
frmUSFW_JustageSimulation.Show vbModal
|
|
End Sub
|
|
|
|
|
|
Private Sub mnuKundeneigeneSNr_Click()
|
|
ExecuteAndWait "\\sla12file\Auftrag\Aktuelle Anwendungen\KundeneigeneSerNrVergeben\KundeneigeneSerNrvergeben.exe", "", 0, 1
|
|
End Sub
|
|
|
|
Private Sub mnuMitteilungen_Click()
|
|
frmMitteilungen.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuRS232Test_Click()
|
|
frmRS232Test.Show vbNormal
|
|
End Sub
|
|
|
|
Private Sub mnuRueklaeuferErinnerung_Click()
|
|
frmRuecklaeuferOhneGrund.Show vbNormal
|
|
End Sub
|
|
|
|
Private Sub mnuSelbstTest_Click()
|
|
frmSelbsttest.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuSperren_Click()
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter = True Or g_blnVersuch = True Then
|
|
g_App.Settings.Gesperrt = 1
|
|
MsgBox "Prüfstation wurde gesperrt"
|
|
LogIntoDB "Prüfstation wurde gesperrt", "Sperrung"
|
|
PruefungGesperrtAktualisieren
|
|
Else
|
|
MsgBox "nur Prüfstellenleiter dürfen sperren!"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuFertigmelden_Click()
|
|
Dim colEbp As Collection
|
|
Dim ebp As CEinbauplatz
|
|
Dim pz As CPruefzaehler
|
|
Dim strSNR As String
|
|
|
|
Set colEbp = New Collection
|
|
|
|
Set pz = New CPruefzaehler
|
|
Set ebp = New CEinbauplatz
|
|
|
|
strSNR = InputBox("Bitte geben Sie eine SerienNr einer Auftragsposition an, die an der Prüfstation fertig gemeldet werden soll.")
|
|
|
|
pz.loadForSerienNr Val(strSNR)
|
|
ebp.setPruefzaehler pz
|
|
If pz.getSerienNr <> 0 Then
|
|
colEbp.Add ebp
|
|
|
|
Call PruefungFertigmeldenDialog("", colEbp)
|
|
Else
|
|
MsgBox "Ungültige SerienNr"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuFM85Terminal_Click()
|
|
Dim dlg As frmFM85BusTerminal
|
|
Set dlg = New frmFM85BusTerminal
|
|
bDummy = doModal(dlg, True)
|
|
End Sub
|
|
|
|
Private Sub mnuFunkTest_Click()
|
|
Me.Hide
|
|
frmFunktionstest.Show vbModal, Me
|
|
Me.Show
|
|
End Sub
|
|
|
|
Private Sub mnuInfoNeu_Click()
|
|
'frmAbout.Show vbModal
|
|
frmWasIstNeu.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuIni_Click()
|
|
Call Shell("notepad " & g_App.AppPath & "pruef2000.ini", vbNormalFocus)
|
|
End Sub
|
|
|
|
Private Sub mnuInitFM85Waage_Click()
|
|
Dim dlg As frmInitFM85
|
|
Set dlg = New frmInitFM85
|
|
Call doModal(dlg, True)
|
|
End Sub
|
|
|
|
Private Sub mnuPassword_Click()
|
|
frmKennwortAendern.Show vbModal, Me
|
|
End Sub
|
|
|
|
Private Sub mnuPruefzaehler_Click()
|
|
Dim dlg As frmPruefzaehlerPruefung
|
|
Set dlg = New frmPruefzaehlerPruefung
|
|
bDummy = doNonModal(dlg, True)
|
|
End Sub
|
|
|
|
Private Sub mnuReferenzzaehler_Click()
|
|
Dim dlg As frmRefZaehlerPrf
|
|
Set dlg = New frmRefZaehlerPrf
|
|
dlg.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuRuecklaeufer_Click()
|
|
Dim objForm As frmRuecklaeuferanalyse
|
|
Set objForm = New frmRuecklaeuferanalyse
|
|
objForm.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuRZFehler_Click()
|
|
Dim dlg As frmRefZFehler
|
|
Set dlg = New frmRefZFehler
|
|
dlg.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuSPSDurchflussmessung_Click()
|
|
Dim SPS As CSPS
|
|
Set SPS = g_App.getSPS()
|
|
Debug.Print SPS.getQIst
|
|
Sleep 100, True
|
|
|
|
g_frmMain.Visible = False
|
|
frmTestDurchflussmessung.Show vbNormal
|
|
End Sub
|
|
|
|
Private Sub mnuSPSTest_Click()
|
|
|
|
frmSPSTest.Show vbModal, Me
|
|
|
|
End Sub
|
|
|
|
Private Sub mnuTestForm_Click()
|
|
Dim dlg As frmTest
|
|
Set dlg = New frmTest
|
|
dlg.Show vbModal
|
|
End Sub
|
|
|
|
Private Function TageBiszurLetztenRZPrüfung() As Long
|
|
Dim strSQL As String
|
|
Dim rs As CRecordset
|
|
|
|
strSQL = "SELECT TOP 1 DATEDIFF(d, ReferenzzaehlerFehler.Datum, GETDATE()) AS Tage "
|
|
strSQL = strSQL & "FROM ReferenzzaehlerFehler "
|
|
strSQL = strSQL & "Inner Join Referenzzaehler ON ReferenzzaehlerFehler.SerienNr = Referenzzaehler.SerienNr "
|
|
strSQL = strSQL & "WHERE (Referenzzaehler.PruefstationNr = " & g_App.PruefstationNr & ") "
|
|
strSQL = strSQL & "ORDER BY ReferenzzaehlerFehler.Datum DESC "
|
|
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL, True
|
|
If Not rs.EOF Then
|
|
TageBiszurLetztenRZPrüfung = rs.getLongValue("Tage")
|
|
Else
|
|
TageBiszurLetztenRZPrüfung = -1
|
|
End If
|
|
End Function
|
|
|
|
Private Sub PruefungGesperrtAktualisieren()
|
|
|
|
Const MSGGESPERRT = "Die Prüfstation wurde aufgrund einer fehlerhaften Referenzzählerprüfung gesperrt."
|
|
|
|
If g_App.Settings.Gesperrt = 1 And g_App.Settings.Versuch <> "1" Then
|
|
lblMessage.caption = MSGGESPERRT
|
|
' Nur ein Prüfstellenleiter darf weitermachen
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter = False Then
|
|
MsgBox "Die Prüfstation wurde aufgrund einer fehlerhaften Referenzzählerprüfung gesperrt. " & vbCrLf & "Bitte benachrichtigen Sie den Prüfstellenleiter."
|
|
Call Command6_Click ' Ausloggen
|
|
End If
|
|
Else
|
|
lblMessage.caption = Replace(lblMessage.caption, MSGGESPERRT, "")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub ButtonFunktionBeendet()
|
|
Call AktualisiereMitteilungsbutton
|
|
mblnFunktionWurdeBeendet = True
|
|
End Sub
|
|
|
|
Private Sub mnuUSFW2Tools_Click()
|
|
frmUSFW2Tools.Show vbModal
|
|
End Sub
|
|
|
|
Private Sub mnuVersuchProduktion_Click()
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter Or g_App.Mitarbeiter.getName = "Henning" Then
|
|
If g_blnVersuch = True Then
|
|
g_blnVersuch = False
|
|
MsgBox "umgeschaltet in Produktion"
|
|
mnuVersuchProduktion.caption = "Umschalten Produktion => Versuch"
|
|
Else
|
|
g_blnVersuch = True
|
|
MsgBox "umgeschaltet in Versuch"
|
|
mnuVersuchProduktion.caption = "Umschalten Versuch => Produktion"
|
|
End If
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ProdaveSetup_Click()
|
|
modProdave6.CreateIniWerte
|
|
End Sub
|