3250 lines
107 KiB
Plaintext
3250 lines
107 KiB
Plaintext
VERSION 5.00
|
|
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
|
|
Begin VB.Form frmPruefvorgaben
|
|
BorderStyle = 0 'Kein
|
|
Caption = "Pruef2000"
|
|
ClientHeight = 11475
|
|
ClientLeft = 105
|
|
ClientTop = 105
|
|
ClientWidth = 14100
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 11475
|
|
ScaleWidth = 14100
|
|
ShowInTaskbar = 0 'False
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton cmdCancel
|
|
Cancel = -1 'True
|
|
Caption = "Abbrechen"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 6960
|
|
TabIndex = 56
|
|
Top = 120
|
|
Width = 1455
|
|
End
|
|
Begin VB.CommandButton cmdOK
|
|
Caption = "OK"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 495
|
|
Left = 5250
|
|
TabIndex = 55
|
|
Top = 90
|
|
Width = 1455
|
|
End
|
|
Begin VB.Frame frMain
|
|
Height = 10545
|
|
Left = 60
|
|
TabIndex = 42
|
|
Top = 690
|
|
Width = 13275
|
|
Begin VB.CommandButton cmdBerechneZeiten
|
|
Caption = "Berechne Prüfzeit"
|
|
Height = 465
|
|
Left = 12030
|
|
TabIndex = 135
|
|
Top = 7830
|
|
Width = 1035
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 1
|
|
Left = 3930
|
|
TabIndex = 134
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 2
|
|
Left = 4860
|
|
TabIndex = 133
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 3
|
|
Left = 5760
|
|
TabIndex = 132
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 4
|
|
Left = 6630
|
|
TabIndex = 131
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 5
|
|
Left = 7530
|
|
TabIndex = 130
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 6
|
|
Left = 8430
|
|
TabIndex = 129
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 7
|
|
Left = 9360
|
|
TabIndex = 128
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 8
|
|
Left = 10260
|
|
TabIndex = 127
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 9
|
|
Left = 11130
|
|
TabIndex = 126
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.CheckBox chkPruefvolumen
|
|
Caption = "Prüfvolumen Liter"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 405
|
|
Left = 270
|
|
TabIndex = 125
|
|
ToolTipText = "Hier können sie das Prüfvolumen eingeben, um die Prüfzeit zu berechnen."
|
|
Top = 7890
|
|
Width = 2535
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 0
|
|
Left = 3000
|
|
TabIndex = 124
|
|
Top = 7890
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtKundeneigeneSNr
|
|
Alignment = 2 'Zentriert
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 7800
|
|
Locked = -1 'True
|
|
TabIndex = 122
|
|
Top = 240
|
|
Width = 1905
|
|
End
|
|
Begin VB.CheckBox chkBefundpruefung
|
|
Alignment = 1 'Rechts ausgerichtet
|
|
Caption = "Befundprüfung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 120
|
|
TabIndex = 121
|
|
Top = 4470
|
|
Width = 2235
|
|
End
|
|
Begin VB.Frame Frame8
|
|
Caption = " Einbaulage "
|
|
Height = 2115
|
|
Left = 11430
|
|
TabIndex = 115
|
|
Top = 2130
|
|
Width = 1605
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "-unsichtbar-"
|
|
Height = 255
|
|
Index = 0
|
|
Left = 150
|
|
TabIndex = 120
|
|
Top = 1740
|
|
Value = -1 'True
|
|
Visible = 0 'False
|
|
Width = 1215
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "horizontal"
|
|
Height = 375
|
|
Index = 1
|
|
Left = 150
|
|
TabIndex = 119
|
|
Tag = "H"
|
|
Top = 330
|
|
Width = 1125
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "Steigleitung"
|
|
Height = 255
|
|
Index = 3
|
|
Left = 150
|
|
TabIndex = 118
|
|
Tag = "S"
|
|
Top = 1050
|
|
Width = 1155
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "vertikal"
|
|
Height = 375
|
|
Index = 2
|
|
Left = 150
|
|
TabIndex = 117
|
|
Tag = "V"
|
|
Top = 660
|
|
Width = 1185
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "Fallleitung"
|
|
Height = 255
|
|
Index = 4
|
|
Left = 150
|
|
TabIndex = 116
|
|
Tag = "F"
|
|
Top = 1380
|
|
Width = 1215
|
|
End
|
|
End
|
|
Begin VB.CommandButton cmdInitComboIdentNr
|
|
Caption = "<<"
|
|
Height = 405
|
|
Left = 11700
|
|
TabIndex = 114
|
|
ToolTipText = "Klicken Sie hier um die Auswahlliste zu aktualisieren"
|
|
Top = 5070
|
|
Width = 525
|
|
End
|
|
Begin VB.CheckBox chkAlleEinbauplaetze
|
|
Caption = "gültig für alle eingebauten Zähler"
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 6750
|
|
TabIndex = 113
|
|
Top = 10230
|
|
Width = 5265
|
|
End
|
|
Begin MSComctlLib.ProgressBar ProgressBar1
|
|
Height = 345
|
|
Left = 3000
|
|
TabIndex = 112
|
|
Top = 5100
|
|
Visible = 0 'False
|
|
Width = 8325
|
|
_ExtentX = 14684
|
|
_ExtentY = 609
|
|
_Version = 393216
|
|
Appearance = 1
|
|
End
|
|
Begin VB.CheckBox chkSaveZeiten
|
|
Caption = "Zeiten in DB aktualisieren"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 6750
|
|
TabIndex = 109
|
|
Top = 9900
|
|
Width = 4965
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 9
|
|
Left = 11100
|
|
TabIndex = 38
|
|
Top = 6540
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 8
|
|
Left = 10200
|
|
TabIndex = 34
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 7
|
|
Left = 9300
|
|
TabIndex = 30
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 6
|
|
Left = 8400
|
|
TabIndex = 26
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 5
|
|
Left = 7500
|
|
TabIndex = 22
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 4
|
|
Left = 6600
|
|
TabIndex = 18
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 3
|
|
Left = 5700
|
|
TabIndex = 14
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 2
|
|
Left = 4800
|
|
TabIndex = 10
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 1
|
|
Left = 3900
|
|
TabIndex = 6
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.CheckBox chkUnreguliert
|
|
Alignment = 1 'Rechts ausgerichtet
|
|
Caption = "unreguliert"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 8370
|
|
TabIndex = 108
|
|
Top = 4080
|
|
Value = 2 'Zwischenzustand
|
|
Width = 1935
|
|
End
|
|
Begin VB.CheckBox ChkAktualisieren
|
|
Caption = "Durchfluß und Fehlergrenzen in DB aktualisieren"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = 600
|
|
TabIndex = 107
|
|
Top = 9900
|
|
Width = 6195
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 5
|
|
Left = 7500
|
|
TabIndex = 24
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 1
|
|
Left = 3900
|
|
TabIndex = 8
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 4
|
|
Left = 6600
|
|
TabIndex = 20
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 3
|
|
Left = 5700
|
|
TabIndex = 16
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 2
|
|
Left = 4800
|
|
TabIndex = 12
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 0
|
|
Left = 3000
|
|
TabIndex = 4
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 6
|
|
Left = 8400
|
|
TabIndex = 28
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 7
|
|
Left = 9300
|
|
TabIndex = 32
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 8
|
|
Left = 10200
|
|
TabIndex = 36
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtZeit
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 9
|
|
Left = 11100
|
|
TabIndex = 40
|
|
Top = 7410
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtKZPVersion
|
|
Alignment = 1 'Rechts
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 10170
|
|
Locked = -1 'True
|
|
TabIndex = 104
|
|
Top = 3240
|
|
Width = 375
|
|
End
|
|
Begin VB.TextBox txtBemerkung
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 435
|
|
Left = 5400
|
|
MaxLength = 99
|
|
TabIndex = 101
|
|
Top = 1560
|
|
Width = 6495
|
|
End
|
|
Begin VB.TextBox txtSerienNr
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 3540
|
|
Locked = -1 'True
|
|
TabIndex = 100
|
|
Top = 240
|
|
Width = 1815
|
|
End
|
|
Begin VB.TextBox txtIdentNr
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 96
|
|
Top = 1560
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtEinbauplatzNr
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 1620
|
|
Locked = -1 'True
|
|
TabIndex = 95
|
|
Top = 240
|
|
Width = 375
|
|
End
|
|
Begin VB.TextBox txtPruefKZ
|
|
Alignment = 2 'Zentriert
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 9450
|
|
MaxLength = 10
|
|
TabIndex = 92
|
|
Top = 3720
|
|
Width = 1515
|
|
End
|
|
Begin VB.TextBox txtTemperatur
|
|
Alignment = 1 'Rechts
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 8520
|
|
Locked = -1 'True
|
|
TabIndex = 91
|
|
Top = 2760
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtTyp
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 7680
|
|
Locked = -1 'True
|
|
TabIndex = 90
|
|
Top = 2040
|
|
Width = 1750
|
|
End
|
|
Begin VB.TextBox txtNennweite
|
|
Alignment = 1 'Rechts
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 8520
|
|
Locked = -1 'True
|
|
TabIndex = 89
|
|
Top = 2400
|
|
Width = 915
|
|
End
|
|
Begin VB.TextBox txtZusatz
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
ForeColor = &H00808080&
|
|
Height = 1155
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
MultiLine = -1 'True
|
|
ScrollBars = 2 'Vertikal
|
|
TabIndex = 85
|
|
Top = 3240
|
|
Width = 6195
|
|
End
|
|
Begin VB.TextBox txtKZP
|
|
Alignment = 1 'Rechts
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Left = 9210
|
|
Locked = -1 'True
|
|
TabIndex = 84
|
|
Top = 3240
|
|
Width = 675
|
|
End
|
|
Begin VB.TextBox txtDeckel
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 5160
|
|
Locked = -1 'True
|
|
TabIndex = 82
|
|
Top = 2760
|
|
Width = 1750
|
|
End
|
|
Begin VB.TextBox txtFarbe
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 5160
|
|
Locked = -1 'True
|
|
TabIndex = 80
|
|
Top = 2400
|
|
Width = 1750
|
|
End
|
|
Begin VB.TextBox txtAnzeige
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 5160
|
|
Locked = -1 'True
|
|
TabIndex = 78
|
|
Top = 2040
|
|
Width = 1750
|
|
End
|
|
Begin VB.TextBox txtImpulswert
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 76
|
|
Top = 2760
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtBohrung
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 74
|
|
Top = 2400
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtBezeichnung
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 73
|
|
Top = 1920
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtAuftragNr
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 70
|
|
Top = 840
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtMitarbeiter
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 4860
|
|
Locked = -1 'True
|
|
TabIndex = 68
|
|
Top = 1200
|
|
Width = 7095
|
|
End
|
|
Begin VB.TextBox txtOrt
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 420
|
|
Left = 9060
|
|
Locked = -1 'True
|
|
TabIndex = 66
|
|
Top = 780
|
|
Width = 2895
|
|
End
|
|
Begin VB.TextBox txtKunde
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 4860
|
|
Locked = -1 'True
|
|
TabIndex = 64
|
|
Top = 825
|
|
Width = 3495
|
|
End
|
|
Begin VB.TextBox txtLiefertermin
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 1920
|
|
Locked = -1 'True
|
|
TabIndex = 61
|
|
Top = 1200
|
|
Width = 1995
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 9
|
|
Left = 11100
|
|
TabIndex = 37
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 9
|
|
Left = 11100
|
|
TabIndex = 39
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 8
|
|
Left = 10200
|
|
TabIndex = 33
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 8
|
|
Left = 10200
|
|
TabIndex = 35
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 7
|
|
Left = 9300
|
|
TabIndex = 29
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 7
|
|
Left = 9300
|
|
TabIndex = 31
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 6
|
|
Left = 8400
|
|
TabIndex = 25
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 6
|
|
Left = 8400
|
|
TabIndex = 27
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 0
|
|
Left = 3000
|
|
TabIndex = 3
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 2
|
|
Left = 4800
|
|
TabIndex = 11
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 3
|
|
Left = 5700
|
|
TabIndex = 15
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 4
|
|
Left = 6600
|
|
TabIndex = 19
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 5
|
|
Left = 7500
|
|
TabIndex = 23
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.ComboBox cmbIdentNr
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 390
|
|
ItemData = "Pruefvorgaben.frx":0000
|
|
Left = 3000
|
|
List = "Pruefvorgaben.frx":0002
|
|
Style = 2 'Dropdown-Liste
|
|
TabIndex = 0
|
|
Top = 5070
|
|
Width = 8595
|
|
End
|
|
Begin VB.TextBox txtFGu
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 1
|
|
Left = 3900
|
|
TabIndex = 7
|
|
Top = 6990
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtInfo
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1290
|
|
Left = 3015
|
|
Locked = -1 'True
|
|
MultiLine = -1 'True
|
|
ScrollBars = 2 'Vertikal
|
|
TabIndex = 41
|
|
ToolTipText = "Pruefpunkte.Info"
|
|
Top = 8565
|
|
Width = 8895
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 5
|
|
Left = 7500
|
|
TabIndex = 21
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 4
|
|
Left = 6600
|
|
TabIndex = 17
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 3
|
|
Left = 5700
|
|
TabIndex = 13
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 2
|
|
Left = 4800
|
|
TabIndex = 9
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 1
|
|
Left = 3900
|
|
TabIndex = 5
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtFGo
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Index = 0
|
|
Left = 3000
|
|
TabIndex = 2
|
|
Top = 6570
|
|
Width = 800
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Alignment = 1 'Rechts
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 9.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 345
|
|
Index = 0
|
|
Left = 3000
|
|
TabIndex = 1
|
|
Top = 6120
|
|
Width = 800
|
|
End
|
|
Begin VB.CheckBox chkMetrologAktualisieren
|
|
Caption = "Metrolog (in Auftragposition) aktualisieren"
|
|
BeginProperty Font
|
|
Name = "Arial"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = 600
|
|
TabIndex = 111
|
|
Top = 10170
|
|
Width = 6195
|
|
End
|
|
Begin VB.Label Label9
|
|
AutoSize = -1 'True
|
|
Caption = "Knd. SerienNr"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 5940
|
|
TabIndex = 123
|
|
Top = 270
|
|
Width = 1680
|
|
End
|
|
Begin VB.Label Label8
|
|
Caption = "Es gelten die Daten des ersten auftretenen Prüfpunktes (Reihenfolge: Einbauplatz 1..6)"
|
|
Height = 285
|
|
Left = 3030
|
|
TabIndex = 110
|
|
Top = 8310
|
|
Width = 7785
|
|
End
|
|
Begin VB.Label Label6
|
|
Caption = "Prüfzeit sek"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 1200
|
|
TabIndex = 106
|
|
Top = 7470
|
|
Width = 1455
|
|
End
|
|
Begin VB.Label Label4
|
|
Caption = "/"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 9930
|
|
TabIndex = 105
|
|
Top = 3240
|
|
Width = 255
|
|
End
|
|
Begin VB.Label Label5
|
|
Caption = "Prüfhinweise"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 285
|
|
Left = 1020
|
|
TabIndex = 103
|
|
Top = 8700
|
|
Width = 1695
|
|
End
|
|
Begin VB.Label lblBemrkung
|
|
Caption = "Bemerkung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 3960
|
|
TabIndex = 102
|
|
Top = 1560
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblSerienNr
|
|
AutoSize = -1 'True
|
|
Caption = "SerienNr"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 2340
|
|
TabIndex = 99
|
|
Top = 240
|
|
Width = 1065
|
|
End
|
|
Begin VB.Label lblEinbauplatzNr
|
|
AutoSize = -1 'True
|
|
Caption = "Einbauplatz"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 98
|
|
Top = 240
|
|
Width = 1440
|
|
End
|
|
Begin VB.Label lblIdentNr
|
|
AutoSize = -1 'True
|
|
Caption = "IdentNr"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 97
|
|
Top = 1560
|
|
Width = 1275
|
|
End
|
|
Begin VB.Label Label1
|
|
AutoSize = -1 'True
|
|
Caption = "Langtext"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 360
|
|
Left = 120
|
|
TabIndex = 94
|
|
Top = 3240
|
|
Width = 1185
|
|
End
|
|
Begin VB.Label lblruefKZ
|
|
Caption = "Metrolog"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 8250
|
|
TabIndex = 93
|
|
Top = 3720
|
|
Width = 1155
|
|
End
|
|
Begin VB.Label lblTemperatur
|
|
AutoSize = -1 'True
|
|
Caption = "Temperatur"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 7080
|
|
TabIndex = 88
|
|
Top = 2760
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblNennweite
|
|
AutoSize = -1 'True
|
|
Caption = "Nennweite"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 7080
|
|
TabIndex = 87
|
|
Top = 2400
|
|
Width = 1275
|
|
End
|
|
Begin VB.Label lblTyp
|
|
AutoSize = -1 'True
|
|
Caption = "Typ"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 7080
|
|
TabIndex = 86
|
|
Top = 2040
|
|
Width = 435
|
|
End
|
|
Begin VB.Label lblKZP
|
|
Caption = "KZP"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 255
|
|
Left = 8370
|
|
TabIndex = 83
|
|
Top = 3240
|
|
Width = 615
|
|
End
|
|
Begin VB.Label lblDeckel
|
|
AutoSize = -1 'True
|
|
Caption = "Deckel"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 4080
|
|
TabIndex = 81
|
|
Top = 2760
|
|
Width = 840
|
|
End
|
|
Begin VB.Label lblFarbe
|
|
AutoSize = -1 'True
|
|
Caption = "Farbe"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 4080
|
|
TabIndex = 79
|
|
Top = 2400
|
|
Width = 720
|
|
End
|
|
Begin VB.Label lblAnzeige
|
|
AutoSize = -1 'True
|
|
Caption = "Anzeige"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 4080
|
|
TabIndex = 77
|
|
Top = 2040
|
|
Width = 990
|
|
End
|
|
Begin VB.Label lblImpulswert
|
|
AutoSize = -1 'True
|
|
Caption = "Impulswert."
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 75
|
|
Top = 2760
|
|
Width = 1395
|
|
End
|
|
Begin VB.Label lblBohrung
|
|
AutoSize = -1 'True
|
|
Caption = "Bohrung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 72
|
|
Top = 2400
|
|
Width = 1035
|
|
End
|
|
Begin VB.Label lblBezeichnung
|
|
AutoSize = -1 'True
|
|
Caption = "Bezeichnung"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 71
|
|
Top = 1920
|
|
Width = 1575
|
|
End
|
|
Begin VB.Label lblAuftrag
|
|
AutoSize = -1 'True
|
|
Caption = "Auftrag/Pos."
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 120
|
|
TabIndex = 69
|
|
Top = 840
|
|
Width = 1515
|
|
End
|
|
Begin VB.Label lblMitarbeiter
|
|
AutoSize = -1 'True
|
|
Caption = "Sachb."
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 3960
|
|
TabIndex = 67
|
|
Top = 1200
|
|
Width = 855
|
|
End
|
|
Begin VB.Label lblOrt
|
|
AutoSize = -1 'True
|
|
Caption = "Ort"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 8520
|
|
TabIndex = 65
|
|
Top = 840
|
|
Width = 390
|
|
End
|
|
Begin VB.Label lblKunde
|
|
AutoSize = -1 'True
|
|
Caption = "Kunde"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Left = 3960
|
|
TabIndex = 63
|
|
Top = 840
|
|
Width = 780
|
|
End
|
|
Begin VB.Label lblLiefertermin
|
|
AutoSize = -1 'True
|
|
Caption = "Lieferdatum"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 300
|
|
Index = 0
|
|
Left = 120
|
|
TabIndex = 62
|
|
Top = 1200
|
|
Width = 1455
|
|
End
|
|
Begin VB.Line Line4
|
|
X1 = 120
|
|
X2 = 11940
|
|
Y1 = 660
|
|
Y2 = 660
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "10"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 9
|
|
Left = 11100
|
|
TabIndex = 60
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "9"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 8
|
|
Left = 10140
|
|
TabIndex = 59
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "8"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 7
|
|
Left = 9300
|
|
TabIndex = 58
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "7"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 6
|
|
Left = 8400
|
|
TabIndex = 57
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblQ
|
|
Caption = "Durchfluß m3/h"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 720
|
|
TabIndex = 53
|
|
Top = 6180
|
|
Width = 1995
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "obere Fehlergrenze %"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 180
|
|
TabIndex = 52
|
|
Top = 6630
|
|
Width = 2715
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "untere Fehlergrenze %"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 120
|
|
TabIndex = 51
|
|
Top = 7050
|
|
Width = 2805
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "1"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 0
|
|
Left = 2940
|
|
TabIndex = 50
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPruefpunkteTitel
|
|
Caption = "Prüfpunkte:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 120
|
|
TabIndex = 49
|
|
Top = 5550
|
|
Width = 2475
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "2"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 1
|
|
Left = 3900
|
|
TabIndex = 48
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "3"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 2
|
|
Left = 4860
|
|
TabIndex = 47
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "4"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 3
|
|
Left = 5760
|
|
TabIndex = 46
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "5"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 4
|
|
Left = 6660
|
|
TabIndex = 45
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblPP
|
|
Alignment = 2 'Zentriert
|
|
Caption = "6"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Index = 5
|
|
Left = 7560
|
|
TabIndex = 44
|
|
Top = 5550
|
|
Width = 795
|
|
End
|
|
Begin VB.Label Label7
|
|
Caption = "Werte aus Zählertyp"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 315
|
|
Left = 120
|
|
TabIndex = 43
|
|
Top = 5070
|
|
Width = 3555
|
|
End
|
|
Begin VB.Line Line1
|
|
X1 = 120
|
|
X2 = 11880
|
|
Y1 = 5970
|
|
Y2 = 5970
|
|
End
|
|
End
|
|
Begin VB.Label lblTitle
|
|
Caption = "lblTitle"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 12
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 375
|
|
Left = 240
|
|
TabIndex = 54
|
|
Top = 120
|
|
Width = 4995
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmPruefvorgaben"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
'==============================================================================
|
|
'
|
|
' File : Pruefvorgaben.frm
|
|
' Date : 31.03.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, Reinhard Henning, lindner&partner
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' Formular zur Vorgabe von Prüfpunkten
|
|
'
|
|
'==============================================================================
|
|
'
|
|
' History:
|
|
'
|
|
' Date : 31.03.1999
|
|
' Version: 1.00
|
|
' Author : Andreas Schmidt, Reinhard Henning, lindner&partner
|
|
'
|
|
' Erste dokumentierte Version.
|
|
'
|
|
'==============================================================================
|
|
|
|
Option Explicit
|
|
|
|
' Private Member
|
|
' --------------
|
|
Private Const MAX_PP% = 10
|
|
Private Const MAX_REGULIERUNG% = 3
|
|
|
|
Private Const FORMAT_Q = "####0.00000"
|
|
Private Const FORMAT_FGo = "####0.00"
|
|
Private Const FORMAT_FGu = "####0.00"
|
|
Private Const FORMAT_VOL = "####0"
|
|
|
|
Private Const FORMAT_ZEIT = "####0"
|
|
Private Const FORMAT_Daempfung = "####0"
|
|
Private Const FORMAT_Steigung = "####0"
|
|
Private Const FORMAT_RSollwert = "#0.00"
|
|
|
|
Private m_nRet As Integer
|
|
Private m_bInLoad As Boolean
|
|
Private m_Pruefzaehler As CPruefzaehler
|
|
Private m_Pruefpunkte As CPruefpunkte
|
|
Private m_colIdentNrPruefklasseKZ As Collection
|
|
Private m_Einbauplatz As CEinbauplatz
|
|
Private m_bZeitChanged As Boolean
|
|
|
|
Private m_bFormActivated As Boolean
|
|
|
|
Public m_colEinbauplatz As Collection
|
|
|
|
|
|
' @return Code, mit dem endDialog aufgerufen wurde
|
|
'
|
|
Public Function getExitCode() As Integer
|
|
getExitCode = m_nRet
|
|
End Function
|
|
|
|
' Dialog beenden
|
|
'
|
|
' @param nRet Returncode des Dialogs
|
|
'
|
|
Private Sub endDialog(nRet As Integer)
|
|
m_nRet = nRet
|
|
Unload Me
|
|
End Sub
|
|
|
|
' @param Pruefzaehler zu bearbeitendes Pruefzaehler-Objekt
|
|
'
|
|
Public Sub setPruefzaehler(Pruefzaehler As CPruefzaehler)
|
|
Set m_Pruefzaehler = Pruefzaehler
|
|
Set m_Pruefpunkte = Pruefzaehler.getPruefpunkte()
|
|
End Sub
|
|
|
|
' @param Pruefzaehler anzuzeigenes Einbauplatz Objekt
|
|
'
|
|
Public Sub setEinbauplatz(Einbauplatz As CEinbauplatz)
|
|
Set m_Einbauplatz = Einbauplatz
|
|
End Sub
|
|
|
|
|
|
' @param bSave true = Daten in Member speichern,
|
|
' false = Daten in GUI-Elemente schreiben
|
|
'
|
|
Private Function updateData(bSave) As Boolean
|
|
Dim i As Integer
|
|
|
|
If (bSave) Then
|
|
' Eingaben in Pruefpunkte-Objekt speichern
|
|
' ----------------------------------------
|
|
Dim colPP As New CPruefpunktCol
|
|
Dim Pruefpunkt As CPruefpunkt
|
|
|
|
' Prüfpunkte speichern
|
|
For i = 1 To MAX_PP
|
|
If Trim$(txtQ(i - 1)) <> "" Then
|
|
Set Pruefpunkt = New CPruefpunkt
|
|
Call Pruefpunkt.setMember( _
|
|
stringToDouble(txtQ(i - 1)), _
|
|
stringToDouble(txtFGo(i - 1)), _
|
|
stringToDouble(txtFGu(i - 1)), , _
|
|
stringToLong(txtZeit(i - 1).text) _
|
|
)
|
|
colPP.Add Pruefpunkt
|
|
End If
|
|
Next i
|
|
|
|
' Speichere Bemerkung in Prüfzähler Objekt und Datenbank
|
|
Call m_Pruefzaehler.setBemerkung(txtBemerkung)
|
|
|
|
Call m_Pruefpunkte.setPruefpunkte(colPP)
|
|
' SortQ nicht mehr möglich da sonst ZuOrdnung zwischen Q und Zeit verloren geht
|
|
|
|
Call m_Pruefpunkte.setInfo(txtInfo.text)
|
|
|
|
Else
|
|
' Felder mit den Werten aus dem Pruefpunkte-Objekt laden
|
|
' ------------------------------------------------------
|
|
For i = 1 To MAX_PP
|
|
If i <= m_Pruefpunkte.getPruefpunkteCount() Then
|
|
|
|
'txtQ(i - 1).text = doubleToString(m_Pruefpunkte.getPruefpunkt(i).getQ(), FORMAT_Q)
|
|
txtQ(i - 1).text = FormatDurchfluss(m_Pruefpunkte.getPruefpunkt(i).getQ())
|
|
txtFGo(i - 1).text = doubleToString(m_Pruefpunkte.getPruefpunkt(i).getFGo(), FORMAT_FGo)
|
|
txtFGu(i - 1).text = doubleToString(m_Pruefpunkte.getPruefpunkt(i).getFGu(), FORMAT_FGu)
|
|
txtZeit(i - 1).text = LongToString(m_Pruefpunkte.getPruefpunkt(i).GetTime(), FORMAT_ZEIT)
|
|
Else
|
|
txtQ(i - 1).text = ""
|
|
txtFGo(i - 1).text = ""
|
|
txtFGu(i - 1).text = ""
|
|
txtZeit(i - 1).text = ""
|
|
End If
|
|
Next i
|
|
|
|
' Rein informativ geben wir noch einige Daten zu dem Prüfzähler,
|
|
' sofern vorhanden, aus.
|
|
|
|
txtSerienNr.text = FormatSerienNr(m_Pruefzaehler.getSerienNr())
|
|
txtKundeneigeneSNr.text = m_Pruefzaehler.getAuftragPositionSerienNr.getKundeneigeneSerienNr
|
|
txtEinbauplatzNr = m_Einbauplatz.getNr()
|
|
txtInfo.text = m_Pruefpunkte.getInfo()
|
|
txtIdentNr.text = m_Pruefzaehler.getIdentNr()
|
|
If m_Pruefpunkte.m_bPruefung_nach_MID Then
|
|
txtInfo.text = txtInfo.text & "Prüfpunkte nach MID: Ratio=" & m_Pruefpunkte.m_dblRatio & vbCrLf
|
|
End If
|
|
|
|
' könnte auch über m_Pruefzaehler.getAuftragPositionSerienNr... laufen:
|
|
txtBemerkung = m_Pruefzaehler.getBemerkung()
|
|
|
|
' Rein informativ geben wir noch einige Daten zu dem Auftrag,
|
|
' sofern vorhanden, aus.
|
|
' -----------------------------------------------------------
|
|
Dim Auftrag As CAuftrag
|
|
Dim AuftragPosition As CAuftragPosition
|
|
Dim Kunde As CKunde
|
|
Dim Mitarbeiter As CMitarbeiter
|
|
Dim IdentNr As CIdentNr
|
|
Dim KZP As CKZP
|
|
|
|
Set Auftrag = m_Pruefzaehler.getAuftrag()
|
|
Set AuftragPosition = m_Pruefzaehler.getAuftragPosition()
|
|
If Not Auftrag Is Nothing Then Set Kunde = Auftrag.getKunde()
|
|
|
|
If Not AuftragPosition Is Nothing Then
|
|
Set Mitarbeiter = AuftragPosition.getMitarbeiter()
|
|
Set IdentNr = AuftragPosition.getIdentNrObj()
|
|
Set KZP = AuftragPosition.getKZPObj()
|
|
End If
|
|
|
|
|
|
If Not Kunde Is Nothing Then
|
|
txtKunde = Kunde.getName() & " (" & Kunde.getNr() & ")"
|
|
txtOrt = Kunde.getOrt()
|
|
End If
|
|
|
|
If Not Auftrag Is Nothing Then
|
|
txtAuftragNr = Auftrag.getNr()
|
|
End If
|
|
|
|
If Not AuftragPosition Is Nothing Then
|
|
txtAuftragNr = txtAuftragNr & "/" & AuftragPosition.getNr()
|
|
txtLiefertermin = AuftragPosition.getVersanddatum() & " KW " & AuftragPosition.getKW()
|
|
txtBezeichnung = AuftragPosition.GetBezeichnung()
|
|
txtBohrung = AuftragPosition.getBohrung()
|
|
txtImpulswert = AuftragPosition.getImpulswert1() & " / " & AuftragPosition.getImpulswert2()
|
|
txtAnzeige = AuftragPosition.getAnzeige()
|
|
txtFarbe = AuftragPosition.getFarbe()
|
|
txtDeckel = AuftragPosition.getDeckel()
|
|
txtKZP = AuftragPosition.getKZP()
|
|
|
|
chkBefundpruefung.Enabled = False
|
|
chkBefundpruefung.value = IIf(AuftragPosition.GetBefundpruefung, vbChecked, vbUnchecked)
|
|
chkBefundpruefung.Enabled = True
|
|
|
|
' gibt Fehler, falls KZP Objekt nothing (bei Ermittlung über Fall 3)
|
|
' txtKZPVersion = m_Pruefzaehler.getKZP.getKZPVersion()
|
|
' besser
|
|
txtKZPVersion = m_Pruefzaehler.getAuftragPosition.getKZPVersion()
|
|
|
|
txtZusatz = AuftragPosition.getZusatztext()
|
|
chkUnreguliert.value = IIf(AuftragPosition.getUnreguliert(), 1, 0)
|
|
End If
|
|
|
|
If Not IdentNr Is Nothing Then
|
|
txtTyp = IdentNr.getTyp() & " " & IdentNr.getTypzusatz()
|
|
txtNennweite = LongToString(IdentNr.getNennweite(), "###")
|
|
txtTemperatur = LongToString(IdentNr.GetTemperatur(), "###")
|
|
End If
|
|
|
|
txtPruefKZ.text = m_Pruefpunkte.getPruefklasseKZ()
|
|
If txtPruefKZ.text = "" Then
|
|
txtPruefKZ.text = m_Pruefzaehler.getPruefklasseKZ
|
|
End If
|
|
|
|
' Muss beschreibbar sein wenn nicht ermittelbar
|
|
If txtPruefKZ.text = "" Then
|
|
txtPruefKZ.Enabled = True
|
|
End If
|
|
|
|
If Not Mitarbeiter Is Nothing Then
|
|
txtMitarbeiter = Trim$(Mitarbeiter.getVorname() & " " & Mitarbeiter.getName()) + " Tel. " + Mitarbeiter.getTelefon()
|
|
End If
|
|
End If
|
|
|
|
'Call UpdateZeiten(False)
|
|
|
|
updateData = True
|
|
End Function
|
|
|
|
Private Function savePruefpunkte() As Boolean
|
|
' Speichert Prüfpunkt-Daten Q, FGo, FGu in Datenbank, Tabelle Pruefpunkte
|
|
' Abhängig der Textfelder ( Q, FGo, FGu) und PruefklasseKZ, IdentNr
|
|
|
|
On Error GoTo savePruefpunkteError
|
|
|
|
Dim sPruefklasseKZ As String
|
|
Dim nIdentNr As Long
|
|
Dim rs As CRecordset
|
|
Dim sFeldname As String
|
|
Dim sSQL As String
|
|
Dim i As Integer
|
|
|
|
|
|
sPruefklasseKZ = txtPruefKZ.text
|
|
nIdentNr = txtIdentNr.text
|
|
|
|
Set rs = New CRecordset
|
|
sSQL = "SELECT * from Pruefpunkte where PruefklasseKZ = '" & sPruefklasseKZ & "' and IdentNr = " & nIdentNr
|
|
|
|
If Not rs.openRS(sSQL) Then
|
|
DebugMsg "Prüfpunktdaten konnten nicht aktualisiert werden: Datenbankfehler"
|
|
savePruefpunkte = False
|
|
Exit Function
|
|
End If
|
|
|
|
If Not rs.EOF Then
|
|
For i = 1 To 10
|
|
If txtQ(i - 1).text <> "" Then
|
|
sFeldname = "Q" & CStr(i)
|
|
Call rs.setValue(sFeldname, CDbl(txtQ(i - 1).text))
|
|
End If
|
|
If txtFGo(i - 1).text <> "" Then
|
|
sFeldname = "FGo" & CStr(i)
|
|
Call rs.setValue(sFeldname, CSng(txtFGo(i - 1).text))
|
|
End If
|
|
If txtFGu(i - 1).text <> "" Then
|
|
sFeldname = "FGu" & CStr(i)
|
|
Call rs.setValue(sFeldname, CSng(txtFGu(i - 1).text))
|
|
End If
|
|
Next
|
|
rs.update
|
|
savePruefpunkte = True
|
|
Else
|
|
ErrorMsg ("Prüfpunkte können nicht aktualisiert werden, da sie nicht vorhanden sind.")
|
|
savePruefpunkte = False
|
|
' Experimental: dem Prüfer erlauben, Prüfpunkte neu anzulegen
|
|
' If MsgBox("Möchten Sie neue Prüfpunkte für IdentNr=" & nIdentNr & "/ PrüfklasseKZ= " & sPruefklasseKZ & " neu anlegen ?", vbYesNo Or vbDefaultButton2) = vbYes Then
|
|
' rs.addNew
|
|
' Call rs.setValue("PruefklasseKZ", sPruefklasseKZ)
|
|
' Call rs.setValue("IdentNr", nIdentNr)
|
|
'
|
|
' For i = 1 To 10
|
|
' If txtQ(i - 1).text <> "" Then
|
|
' sFeldname = "Q" & CStr(i)
|
|
' Call rs.setValue(sFeldname, CDbl(txtQ(i - 1).text))
|
|
' End If
|
|
' If txtFGo(i - 1).text <> "" Then
|
|
' sFeldname = "FGo" & CStr(i)
|
|
' Call rs.setValue(sFeldname, CSng(txtFGo(i - 1).text))
|
|
' End If
|
|
' If txtFGu(i - 1).text <> "" Then
|
|
' sFeldname = "FGu" & CStr(i)
|
|
' Call rs.setValue(sFeldname, CSng(txtFGu(i - 1).text))
|
|
' End If
|
|
' Next
|
|
' rs.update
|
|
' End If
|
|
End If
|
|
Exit Function
|
|
savePruefpunkteError:
|
|
ErrorMsg ("Kann Prüfpunkte nicht aktualisieren: " & Err.Description)
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub chkBefundpruefung_Click()
|
|
If chkBefundpruefung.Enabled = False Then Exit Sub
|
|
If Not m_Pruefzaehler Is Nothing Then
|
|
m_Pruefzaehler.getAuftragPosition.SetBefundpruefung chkBefundpruefung.value
|
|
m_Pruefzaehler.getAuftragPosition.save m_Pruefzaehler.getAuftrag
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub chkPruefvolumen_Click()
|
|
Dim Index As Integer
|
|
|
|
If chkPruefvolumen.value = vbChecked Then
|
|
cmdBerechneZeiten.Visible = True
|
|
For Index = 0 To 9
|
|
txtVolumen(Index).Visible = True
|
|
|
|
BerechneVolumen Index
|
|
Next Index
|
|
Else
|
|
cmdBerechneZeiten.Visible = False
|
|
For Index = 0 To 9
|
|
txtVolumen(Index).Visible = False
|
|
Next Index
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdBerechneZeiten_Click()
|
|
Dim Index As Integer
|
|
Dim dblVolumen As Double
|
|
Dim dblQ As Double
|
|
|
|
|
|
For Index = 0 To 9
|
|
dblVolumen = Val(Replace(txtVolumen(Index), ",", "."))
|
|
dblQ = Val(Replace(txtQ(Index), ",", "."))
|
|
If dblVolumen <> 0 And dblQ <> 0 Then
|
|
txtZeit(Index).text = Round(dblVolumen * 3.6 / dblQ)
|
|
End If
|
|
Next Index
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub BerechneVolumen(Index As Integer)
|
|
Dim dblZeit As Double
|
|
Dim dblQ As Double
|
|
|
|
dblZeit = Val(Replace(txtZeit(Index), ",", "."))
|
|
dblQ = Val(Replace(txtQ(Index), ",", "."))
|
|
If dblZeit <> 0 And dblQ <> 0 Then
|
|
txtVolumen(Index).text = Round(dblZeit * dblQ / 3.6, 3)
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cmdInitComboIdentNr_Click()
|
|
cmdInitComboIdentNr.Enabled = False
|
|
Me.MousePointer = vbHourglass
|
|
Call loadIdentNrComboBox
|
|
Me.MousePointer = vbNormal
|
|
cmdInitComboIdentNr.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
Screen.MousePointer = vbHourglass
|
|
|
|
If m_bFormActivated = False Then
|
|
Call init
|
|
m_bFormActivated = True
|
|
End If
|
|
Screen.MousePointer = vbNormal
|
|
chkPruefvolumen_Click
|
|
End Sub
|
|
|
|
Private Sub Form_KeyPress(KeyAscii As Integer)
|
|
Debug.Print KeyAscii
|
|
End Sub
|
|
|
|
'------------------------------------------------------------------------------
|
|
' Event-Handling
|
|
'------------------------------------------------------------------------------
|
|
|
|
Private Sub Form_Load()
|
|
m_bInLoad = True
|
|
|
|
If m_Pruefpunkte Is Nothing Then
|
|
Set m_Pruefpunkte = New CPruefpunkte
|
|
lblTitle.caption = "Für diese Zähler existieren keine Prüfvorgaben. Bitte geben Sie die Prüfpunkte manuell ein."
|
|
cmbIdentNr.Enabled = True
|
|
Else
|
|
lblTitle.caption = "Bearbeitung der Prüfvorgaben für diesen Zähler"
|
|
End If
|
|
|
|
Call setupStdDlg(Me)
|
|
|
|
If g_App.Mitarbeiter.GetPruefstellenleiter() = True Or g_blnVersuch Then
|
|
chkSaveZeiten.Enabled = True
|
|
chkMetrologAktualisieren.Enabled = True
|
|
ChkAktualisieren.Enabled = True
|
|
Else
|
|
chkSaveZeiten.value = vbUnchecked
|
|
ChkAktualisieren.value = vbUnchecked
|
|
End If
|
|
|
|
' Einbaulage
|
|
Dim i As Integer
|
|
For i = 1 To 4
|
|
If optEinbaulage(i).Tag = m_Einbauplatz.m_strEinbaulage Then
|
|
optEinbaulage(i).value = True
|
|
End If
|
|
Next
|
|
|
|
|
|
' chkAlleEinbauplaetze.Enabled = False
|
|
' chkAlleEinbauplaetze.Caption = chkAlleEinbauplaetze.Caption & " (Auswahl z.Zeit gesperrt)"
|
|
' chkAlleEinbauplaetze.Font.Size = 8
|
|
End Sub
|
|
|
|
|
|
Private Sub init()
|
|
DoEvents
|
|
'Call loadIdentNrComboBox
|
|
DoEvents
|
|
|
|
Call updateData(False)
|
|
|
|
|
|
chkPruefvolumen_Click
|
|
|
|
|
|
'Auf Wunsch (EMail von 8.9.1999) ist der OK Button auch ohne Änderungen enabled:
|
|
'cmdOK.Enabled = False
|
|
m_bInLoad = False
|
|
End Sub
|
|
|
|
Private Sub cmdOk_Click()
|
|
' Speichere Zeiten in Member
|
|
' Call UpdateZeiten(False)
|
|
Dim strBegruendung As String
|
|
|
|
''''''''''''''''''
|
|
If g_blnZulassungspruefung = True And (optEinbaulage(1).value = False And optEinbaulage(2).value = False And optEinbaulage(3).value = False And optEinbaulage(4).value = False) Then
|
|
If MsgBox("Für Zulassungspruefungen muß die Einbaulage ausgewählt werden.", vbOKCancel Or vbDefaultButton1) = vbOK Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
Dim i As Integer
|
|
For i = 1 To 4
|
|
If optEinbaulage.Item(i).value = True Then
|
|
m_Einbauplatz.m_strEinbaulage = optEinbaulage.Item(i).Tag
|
|
End If
|
|
Next
|
|
''''''''''''''''''
|
|
|
|
|
|
If chkSaveZeiten.value = vbChecked Or ChkAktualisieren.value = vbChecked Or chkMetrologAktualisieren.value = vbChecked Then
|
|
strBegruendung = InputBox("Sie müssen einen Grund für die dauerhafte Änderung der Prüfpunktdaten angeben:")
|
|
If strBegruendung = "" Then Exit Sub
|
|
LogIntoDB "Prüfer " & g_App.Mitarbeiter.getAnfangsbuchstabeVornameundName & " ändert " & IIf(ChkAktualisieren.value = vbChecked, "Prüfpunkte", "") & " " & IIf(chkMetrologAktualisieren.value = vbChecked, "Metrolog", "") & " " & IIf(chkSaveZeiten.value = vbChecked, "Prüfzeiten", "") & " für IdentNr " & txtIdentNr.text & " / " & txtPruefKZ.text & ":" & strBegruendung, "Pruefpunkte"
|
|
End If
|
|
|
|
If chkSaveZeiten.value = vbChecked Then
|
|
If saveZeiten() Then
|
|
MsgBox "Prüfpunkt-Zeiten wurden in DB aktualisiert"
|
|
End If
|
|
End If
|
|
|
|
If ChkAktualisieren.value = vbChecked Then
|
|
' Todo: Pruefpunkte in DB aktualisieren
|
|
If savePruefpunkte() Then
|
|
MsgBox ("Prüfpunkt-Daten Q,FGo,FGu wurden in der Datenbank aktualisiert")
|
|
End If
|
|
End If
|
|
|
|
If chkMetrologAktualisieren.value = vbChecked Then
|
|
Call MetrologAktualisieren
|
|
g_MetrologAktualisieren = True
|
|
Else
|
|
g_MetrologAktualisieren = False
|
|
End If
|
|
|
|
If updateData(True) Then
|
|
Call m_Pruefzaehler.setPruefpunkte(m_Pruefpunkte)
|
|
If chkAlleEinbauplaetze.value = vbChecked And Not m_colEinbauplatz Is Nothing Then
|
|
If MsgBox("Sollen diese Prüfpunkte (Q,FGo,FGu,T) auch für alle anderen eingebauten Zähler gelten?", vbYesNo Or vbDefaultButton2) = vbYes Then
|
|
Dim Einbauplatz As CEinbauplatz
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
|
|
For Each Einbauplatz In m_colEinbauplatz
|
|
Set Pruefzaehler = Einbauplatz.getPruefzaehler
|
|
If Not Pruefzaehler Is Nothing Then
|
|
If Not Pruefzaehler Is m_Pruefzaehler Then
|
|
'Debug.Print "Einbauplatz " & Einbauplatz.getNr & " erhält PP von Einbauplatz " & m_Einbauplatz.getNr
|
|
Pruefzaehler.setPruefpunkte m_Pruefzaehler.getPruefpunkte.GetPruefpunkteKopie
|
|
Pruefzaehler.getPruefpunkte.setInfo m_Pruefzaehler.getPruefpunkte.getInfo & vbCrLf & "(Kopierte PP von Einbauplatz " & m_Einbauplatz.getNr & ")"
|
|
Else
|
|
' gleicher Einbauplatz: PP werden nicht kopiert
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
Else
|
|
DebugMsg "frmPruefvorgaben.cmdOK: updateData(true) returned false"
|
|
End If
|
|
Call endDialog(IDOK)
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click()
|
|
Call endDialog(IDCANCEL)
|
|
End Sub
|
|
|
|
Private Sub cmbIdentNr_Click()
|
|
If cmbIdentNr.Enabled = False Then Exit Sub
|
|
|
|
Screen.MousePointer = vbHourglass
|
|
|
|
Dim l As Long
|
|
Dim i As Integer
|
|
|
|
If m_bInLoad Then GoTo exitOfSub
|
|
|
|
' Todo: komt wohl nicht vor
|
|
If cmbIdentNr.ListIndex < 0 Then
|
|
Exit Sub
|
|
End If
|
|
|
|
' Nr im Array
|
|
l = cmbIdentNr.ItemData(cmbIdentNr.ListIndex)
|
|
DebugMsg "ListIndex: " & cmbIdentNr.ListIndex
|
|
DebugMsg "ArrayIndex:" & l
|
|
|
|
If l < 0 Then GoTo exitOfSub
|
|
|
|
bDummy = m_Pruefpunkte.load( _
|
|
g_ArrayIdentNrPK(l).IdentNr, _
|
|
g_ArrayIdentNrPK(l).PruefklasseKZ _
|
|
)
|
|
|
|
Call updateData(False)
|
|
|
|
'Call UpdateZeiten(False)
|
|
|
|
For i = 0 To 9
|
|
txtQ(i).ForeColor = vbBlack
|
|
txtQ(i).FontBold = False
|
|
txtFGo(i).ForeColor = vbBlack
|
|
txtFGo(i).FontBold = False
|
|
txtFGu(i).ForeColor = vbBlack
|
|
txtFGu(i).FontBold = False
|
|
Next i
|
|
|
|
cmdOK.Enabled = True
|
|
|
|
|
|
If m_Pruefzaehler.getAuftrag.getNr = 99999 Then
|
|
' RH 12.08.2004 Bei Testzählern sollen die Metrolog-Daten
|
|
' nicht in der DB aktualisiert werden.
|
|
chkMetrologAktualisieren.value = vbUnchecked
|
|
Else
|
|
'chkMetrologAktualisieren.Enabled = False
|
|
chkMetrologAktualisieren.value = vbChecked
|
|
End If
|
|
|
|
exitOfSub:
|
|
Screen.MousePointer = vbNormal
|
|
End Sub
|
|
|
|
|
|
' Veränderung von Eingabewerten
|
|
'
|
|
|
|
Private Sub txtFGo_Change(Index As Integer)
|
|
cmdOK.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub txtFGu_Change(Index As Integer)
|
|
cmdOK.Enabled = True
|
|
End Sub
|
|
|
|
|
|
Private Sub txtPruefKZ_Validate(Cancel As Boolean)
|
|
m_Pruefpunkte.setPruefklasseKZ (txtPruefKZ.text)
|
|
End Sub
|
|
|
|
|
|
Private Sub txtQ_Change(Index As Integer)
|
|
cmdOK.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub txtQ_KeyPress(Index As Integer, KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
txtFGo(Index).SetFocus
|
|
KeyAscii = 0
|
|
Else
|
|
' Feld wurde geändert
|
|
If cmbIdentNr.ListCount > 0 Then
|
|
cmbIdentNr.ListIndex = 0
|
|
End If
|
|
txtQ(Index).ForeColor = vbBlue
|
|
txtQ(Index).FontBold = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtFGo_KeyPress(Index As Integer, KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
txtFGu(Index).SetFocus
|
|
KeyAscii = 0
|
|
Else
|
|
' Feld wurde geändert
|
|
If cmbIdentNr.ListCount > 0 Then
|
|
cmbIdentNr.ListIndex = 0
|
|
End If
|
|
|
|
txtFGo(Index).ForeColor = vbBlue
|
|
txtFGo(Index).FontBold = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtFGu_KeyPress(Index As Integer, KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
If Index + 1 > 9 Then
|
|
txtQ(0).SetFocus
|
|
Else
|
|
txtQ(Index + 1).SetFocus
|
|
End If
|
|
KeyAscii = 0
|
|
Else
|
|
' Feld wurde geändert
|
|
If cmbIdentNr.ListCount > 0 Then
|
|
cmbIdentNr.ListIndex = 0
|
|
End If
|
|
|
|
txtFGu(Index).ForeColor = vbBlue
|
|
txtFGu(Index).FontBold = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtQ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
|
|
' Setzt Fokus ins darunterliegende Textfeld bei Cursor-Down
|
|
If KeyCode = 40 Then txtFGo(Index).SetFocus
|
|
' Setzt Fokus ins darüberliegende Textfeld bei Cursor-UP
|
|
If KeyCode = 38 Then txtFGu(Index).SetFocus
|
|
End Sub
|
|
Private Sub txtFGo_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
|
|
' Setzt Fokus ins darunterliegende Textfeld bei Cursor-Down
|
|
If KeyCode = 40 Then txtFGu(Index).SetFocus
|
|
' Setzt Fokus ins darüberliegende Textfeld bei Cursor-UP
|
|
If KeyCode = 38 Then txtQ(Index).SetFocus
|
|
End Sub
|
|
Private Sub txtFGu_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
|
|
' Setzt Fokus ins darunterliegende Textfeld bei Cursor-Down
|
|
If KeyCode = 40 Then txtQ(Index).SetFocus
|
|
' Setzt Fokus ins darüberliegende Textfeld bei Cursor-UP
|
|
If KeyCode = 38 Then txtFGo(Index).SetFocus
|
|
End Sub
|
|
|
|
|
|
'
|
|
' Focusverlust bei Eingabefeldern
|
|
'
|
|
|
|
Private Sub txtQ_LostFocus(Index As Integer)
|
|
If Trim$(txtQ(Index).text) <> "" Then
|
|
txtQ(Index).text = FormatDurchfluss(stringToDouble(txtQ(Index)))
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub txtVolumen_LostFocus(Index As Integer)
|
|
If Trim$(txtVolumen(Index).text) <> "" And (InStr(1, txtVolumen(Index).text, ",") > 0 Or InStr(1, txtVolumen(Index).text, ".") > 0) Then
|
|
txtVolumen(Index).text = doubleToString(stringToDouble(txtVolumen(Index)), "#####0.0##")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub txtFGo_LostFocus(Index As Integer)
|
|
If Trim$(txtFGo(Index).text) <> "" Then
|
|
txtFGo(Index).text = doubleToString(stringToDouble(txtFGo(Index)), FORMAT_FGo)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtFGu_LostFocus(Index As Integer)
|
|
If Trim$(txtFGu(Index).text) <> "" Then
|
|
txtFGu(Index).text = doubleToString(stringToDouble(txtFGu(Index)), FORMAT_FGu)
|
|
End If
|
|
End Sub
|
|
|
|
' Collection mit allen verfügbaren Ident-Nr. laden, zu denen es Prüfpunkte gibt.
|
|
'
|
|
Private Sub loadIdentNrComboBox()
|
|
On Error GoTo Errorhandler
|
|
|
|
Dim IdentNr As Long
|
|
Dim PruefklasseKZ As String
|
|
Dim LPreset As Long
|
|
Dim Display As String
|
|
Dim l As Long
|
|
Dim blnGefunden As Boolean
|
|
|
|
cmbIdentNr.Clear
|
|
cmbIdentNr.AddItem ""
|
|
cmbIdentNr.ItemData(cmbIdentNr.newIndex) = -1
|
|
DebugMsg "erster NewIndex: " & cmbIdentNr.newIndex
|
|
LPreset = 0
|
|
blnGefunden = False
|
|
|
|
Debug.Print "suche in Pulldown nach " & m_Pruefpunkte.getIdentNr() & "/" & m_Pruefpunkte.getPruefklasseKZ
|
|
|
|
If UBound(g_ArrayIdentNrPK) = 1 Then
|
|
cmdCancel.Enabled = False
|
|
cmdOK.Enabled = False
|
|
Call ModMain.LoadIdentNrPK(Me)
|
|
cmdCancel.Enabled = True
|
|
cmdOK.Enabled = True
|
|
End If
|
|
|
|
ProgressBar1.Visible = True
|
|
ProgressBar1.Max = UBound(g_ArrayIdentNrPK)
|
|
For l = 0 To UBound(g_ArrayIdentNrPK)
|
|
If l / 100 = Int(l / 100) Then
|
|
ProgressBar1.value = l
|
|
DoEvents
|
|
End If
|
|
|
|
IdentNr = g_ArrayIdentNrPK(l).IdentNr
|
|
PruefklasseKZ = g_ArrayIdentNrPK(l).PruefklasseKZ
|
|
Display = g_ArrayIdentNrPK(l).Display & ", " & IdentNr
|
|
|
|
cmbIdentNr.AddItem Display
|
|
cmbIdentNr.ItemData(cmbIdentNr.newIndex) = l
|
|
|
|
'Debug.Print IdentNr & "/" & PruefklasseKZ
|
|
If IdentNr = m_Pruefpunkte.getIdentNr() And PruefklasseKZ = m_Pruefpunkte.getPruefklasseKZ() And m_Pruefpunkte.m_bPruefung_nach_MID = False Then
|
|
LPreset = l
|
|
blnGefunden = True
|
|
End If
|
|
Next
|
|
ProgressBar1.Visible = False
|
|
|
|
DebugMsg "Preset der ComboBox: " & LPreset
|
|
If blnGefunden = True Then
|
|
cmbIdentNr.Enabled = False
|
|
cmbIdentNr.ListIndex = LPreset + 1
|
|
DoEvents
|
|
cmbIdentNr.Enabled = True
|
|
Else
|
|
cmbIdentNr.ListIndex = 0
|
|
End If
|
|
|
|
Exit Sub
|
|
Errorhandler:
|
|
LogIntoDB "Fehler " & Err.Number & "in LoadIdentNrComboBox :" & Err.Description
|
|
End Sub
|
|
|
|
Private Sub SaveZeitenInMember()
|
|
|
|
End Sub
|
|
|
|
Private Function saveZeiten() As Boolean
|
|
On Error GoTo saveZeitenError
|
|
|
|
' speichert die Prüfpunkt-Zeiten in Datenbank in Tabelle SollwertRegulierung
|
|
' Abhängig von IdentNr, PruefklasseKZ in m_Pruefpunkte und PruefstationNr
|
|
' Vorraussetzung: m_Pruefpunkte muß gesetzt sein, sonst Fehler
|
|
|
|
Dim rs As CRecordset
|
|
Dim sSQL As String
|
|
Dim Index As Integer
|
|
Dim Pruefzeit As Long
|
|
|
|
Dim IdentNr As Long
|
|
Dim PruefklasseKZ As String
|
|
Dim Feldname As String
|
|
|
|
IdentNr = m_Pruefpunkte.getIdentNr
|
|
PruefklasseKZ = m_Pruefpunkte.getPruefklasseKZ
|
|
|
|
sSQL = "SELECT * FROM SollwertRegulierung"
|
|
' Zuordnung zwischen Q und Zeit durch Stelle 1 bis 10 definiert:
|
|
' " INNER JOIN Pruefpunkte ON (Pruefpunkte.PruefklasseKZ = SollwertRegulierung.PruefklasseKZ) where"
|
|
sSQL = sSQL & " where"
|
|
sSQL = sSQL & " SollwertRegulierung.PruefklasseKZ = '" & PruefklasseKZ & "'"
|
|
sSQL = sSQL & " and SollwertRegulierung.IdentNr = " & IdentNr
|
|
' sSQL = sSQL & " and SollwertRegulierung.PruefstationNr = " & g_App.PruefstationNr
|
|
|
|
Set rs = New CRecordset
|
|
rs.openRS sSQL
|
|
|
|
If Not rs.EOF Then
|
|
For Index = 1 To 10
|
|
Feldname = "P" & CStr(Index) & "SollPruefzeit"
|
|
If txtZeit(Index - 1).text <> "" Then
|
|
rs.setValue Feldname, CLng(txtZeit(Index - 1).text)
|
|
End If
|
|
Next
|
|
rs.update
|
|
saveZeiten = True
|
|
End If
|
|
Set rs = Nothing
|
|
Exit Function
|
|
saveZeitenError:
|
|
ErrorMsg "frmPruefvorgaben.saveZeiten Fehler: " & Err.Description
|
|
End Function
|
|
|
|
Private Sub txtZeit_Change(Index As Integer)
|
|
' Zeit-Leiste wurde geändert
|
|
m_bZeitChanged = True
|
|
End Sub
|
|
|
|
|
|
Private Sub MetrologAktualisieren()
|
|
On Error GoTo Errorhandler
|
|
Dim AuftragPosition As CAuftragPosition
|
|
Dim strAlteMetrolog As String
|
|
|
|
|
|
Set AuftragPosition = m_Pruefzaehler.getAuftragPosition
|
|
strAlteMetrolog = AuftragPosition.getMetrolog
|
|
AuftragPosition.setMetrolog m_Pruefpunkte.getPruefklasseKZ()
|
|
|
|
AuftragPosition.save m_Pruefzaehler.getAuftrag
|
|
LogIntoDB g_App.Mitarbeiter.getAnfangsbuchstabeVornameundName & " ändert Metrolog in Auftrag/Pos " & m_Pruefzaehler.getAuftragPosition.getAuftragNr & "/" & m_Pruefzaehler.getAuftragPosition.getNr & " von " & strAlteMetrolog & " nach " & AuftragPosition.getMetrolog, "Auftragposition"
|
|
Exit Sub
|
|
Errorhandler:
|
|
ErrorMsg "frmPruefvorgaben.MetrologAktualisieren Fehler " & Err.Number & ": " & Err.Description
|
|
End Sub
|
|
|
|
|
|
Private Sub CopyPruefpunkteToAll(m_Pruefpunkte As CPruefpunkte)
|
|
Dim Einbauplatz As CEinbauplatz
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
|
|
For Each Einbauplatz In m_colEinbauplatz
|
|
Set Pruefzaehler = Einbauplatz.getPruefzaehler
|
|
If Not Pruefzaehler Is Nothing Then
|
|
|
|
End If
|
|
Next
|
|
End Sub
|