1734 lines
47 KiB
Plaintext
1734 lines
47 KiB
Plaintext
VERSION 5.00
|
|
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
|
|
Begin VB.Form frmTest
|
|
Caption = "Pruef2000"
|
|
ClientHeight = 13470
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 15285
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 13470
|
|
ScaleWidth = 15285
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.CommandButton Command36
|
|
Caption = "korrektur 1"
|
|
Height = 315
|
|
Left = 8640
|
|
TabIndex = 99
|
|
Top = 60
|
|
Width = 1455
|
|
End
|
|
Begin VB.CommandButton Command35
|
|
Caption = "Prueffehler =>Eichung"
|
|
Height = 735
|
|
Left = 3420
|
|
TabIndex = 98
|
|
Top = 10860
|
|
Width = 1635
|
|
End
|
|
Begin VB.CommandButton Command34
|
|
Caption = "Schott"
|
|
Height = 675
|
|
Left = 660
|
|
TabIndex = 97
|
|
Top = 10920
|
|
Width = 2535
|
|
End
|
|
Begin VB.CommandButton cmdIniCOM
|
|
Caption = "US COM aus Ini"
|
|
Height = 555
|
|
Left = 8700
|
|
TabIndex = 96
|
|
Top = 3120
|
|
Width = 1155
|
|
End
|
|
Begin VB.CommandButton Command33
|
|
Caption = "BUP SEMI"
|
|
Height = 555
|
|
Left = 2460
|
|
TabIndex = 95
|
|
Top = 9180
|
|
Width = 1515
|
|
End
|
|
Begin VB.CommandButton Command32
|
|
Caption = "AES"
|
|
Height = 435
|
|
Left = 14160
|
|
TabIndex = 94
|
|
Top = 4980
|
|
Width = 855
|
|
End
|
|
Begin VB.CommandButton Command25
|
|
Caption = "Prüfprotokoll für einen Prüfgang"
|
|
Height = 495
|
|
Left = 4980
|
|
TabIndex = 93
|
|
Top = 9660
|
|
Width = 1575
|
|
End
|
|
Begin VB.CommandButton Command31
|
|
Caption = "Command31"
|
|
Height = 585
|
|
Left = 13320
|
|
TabIndex = 92
|
|
Top = 9690
|
|
Width = 1215
|
|
End
|
|
Begin VB.CommandButton cmdTestFW2
|
|
Caption = "FW2 Fkt Test"
|
|
Height = 405
|
|
Left = 60
|
|
TabIndex = 91
|
|
Top = 9960
|
|
Width = 2295
|
|
End
|
|
Begin VB.CommandButton Command30
|
|
Caption = "Mail senden"
|
|
Height = 255
|
|
Left = 1080
|
|
TabIndex = 90
|
|
Top = 9360
|
|
Width = 1035
|
|
End
|
|
Begin VB.CommandButton Command29
|
|
Caption = "Auswertung Q3 Q2 Q1"
|
|
Height = 1035
|
|
Left = 8220
|
|
TabIndex = 89
|
|
Top = 9180
|
|
Width = 2235
|
|
End
|
|
Begin VB.CommandButton Command28
|
|
Caption = "off forms"
|
|
Height = 465
|
|
Left = 7020
|
|
TabIndex = 88
|
|
Top = 60
|
|
Width = 825
|
|
End
|
|
Begin VB.CommandButton Command27
|
|
Caption = "AlleBehaelterLeeren"
|
|
Height = 495
|
|
Left = 12300
|
|
TabIndex = 87
|
|
Top = 8640
|
|
Width = 1710
|
|
End
|
|
Begin VB.TextBox txtQtest
|
|
Alignment = 1 'Rechts
|
|
Height = 375
|
|
Left = 13125
|
|
TabIndex = 85
|
|
Text = "Text9"
|
|
Top = 2385
|
|
Width = 1395
|
|
End
|
|
Begin VB.CommandButton Command26
|
|
Caption = "Prüfgang PPx_T_Start/Ende"
|
|
Height = 675
|
|
Left = 12840
|
|
TabIndex = 84
|
|
Top = 210
|
|
Width = 1965
|
|
End
|
|
Begin VB.CommandButton Command24
|
|
Caption = "test fertigmeldemail"
|
|
Height = 765
|
|
Left = 10305
|
|
TabIndex = 83
|
|
Top = 8580
|
|
Width = 1635
|
|
End
|
|
Begin VB.CommandButton Command23
|
|
Caption = "Command23"
|
|
Height = 975
|
|
Left = 12720
|
|
TabIndex = 82
|
|
Top = 1110
|
|
Width = 885
|
|
End
|
|
Begin VB.TextBox txtProcessname
|
|
Height = 285
|
|
Left = 10260
|
|
TabIndex = 81
|
|
Text = "Notepad"
|
|
Top = 7680
|
|
Width = 1935
|
|
End
|
|
Begin VB.CommandButton cmdKill
|
|
Caption = "Kill"
|
|
Height = 345
|
|
Left = 12300
|
|
TabIndex = 80
|
|
Top = 7770
|
|
Width = 885
|
|
End
|
|
Begin VB.Frame Frame8
|
|
Caption = " Einbaulage "
|
|
Height = 2115
|
|
Left = 8220
|
|
TabIndex = 74
|
|
Top = 420
|
|
Width = 1605
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "Fallleitung"
|
|
Height = 255
|
|
Index = 4
|
|
Left = 150
|
|
TabIndex = 79
|
|
Tag = "F"
|
|
Top = 1380
|
|
Width = 1215
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "vertikal"
|
|
Height = 375
|
|
Index = 2
|
|
Left = 150
|
|
TabIndex = 78
|
|
Tag = "V"
|
|
Top = 660
|
|
Width = 1185
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "Steigleitung"
|
|
Height = 255
|
|
Index = 3
|
|
Left = 150
|
|
TabIndex = 77
|
|
Tag = "S"
|
|
Top = 1050
|
|
Width = 1155
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "horizontal"
|
|
Height = 375
|
|
Index = 1
|
|
Left = 150
|
|
TabIndex = 76
|
|
Tag = "H"
|
|
Top = 330
|
|
Width = 1125
|
|
End
|
|
Begin VB.OptionButton optEinbaulage
|
|
Caption = "-unsichtbar-"
|
|
Height = 255
|
|
Index = 0
|
|
Left = 150
|
|
TabIndex = 75
|
|
Top = 1740
|
|
Value = -1 'True
|
|
Visible = 0 'False
|
|
Width = 1215
|
|
End
|
|
End
|
|
Begin VB.CommandButton Command22
|
|
Caption = "RZAbbruch"
|
|
Height = 525
|
|
Left = 6600
|
|
TabIndex = 73
|
|
Top = 1560
|
|
Width = 1125
|
|
End
|
|
Begin VB.CommandButton Command21
|
|
Caption = "Mail fertighmelde test"
|
|
Height = 525
|
|
Left = 5520
|
|
TabIndex = 72
|
|
Top = 330
|
|
Width = 1125
|
|
End
|
|
Begin VB.CommandButton cmdDruckprüfung
|
|
Caption = "SerienNr durch FabNr in Druckprüfung nachtragen"
|
|
Height = 675
|
|
Left = 12030
|
|
TabIndex = 71
|
|
Top = 6990
|
|
Width = 1995
|
|
End
|
|
Begin VB.Frame Frame7
|
|
Caption = "Gewicht -> Volumen"
|
|
Height = 1035
|
|
Left = 5040
|
|
TabIndex = 63
|
|
Top = 8040
|
|
Width = 2355
|
|
Begin VB.CommandButton cmdGewicht2Volumen
|
|
Caption = "G 2 V"
|
|
Height = 315
|
|
Left = 60
|
|
TabIndex = 67
|
|
Top = 600
|
|
Width = 555
|
|
End
|
|
Begin VB.TextBox txtT
|
|
Alignment = 1 'Rechts
|
|
Height = 285
|
|
Left = 1500
|
|
TabIndex = 66
|
|
Text = "22"
|
|
Top = 180
|
|
Width = 495
|
|
End
|
|
Begin VB.TextBox txtGewicht2Vol
|
|
Alignment = 1 'Rechts
|
|
Height = 315
|
|
Left = 60
|
|
TabIndex = 64
|
|
Text = "100"
|
|
Top = 180
|
|
Width = 855
|
|
End
|
|
Begin VB.Label Label6
|
|
Caption = "m³"
|
|
Height = 315
|
|
Left = 2040
|
|
TabIndex = 70
|
|
Top = 660
|
|
Width = 255
|
|
End
|
|
Begin VB.Label Label5
|
|
Caption = "°C"
|
|
Height = 315
|
|
Left = 2040
|
|
TabIndex = 69
|
|
Top = 240
|
|
Width = 195
|
|
End
|
|
Begin VB.Label Label4
|
|
Caption = "kg"
|
|
Height = 315
|
|
Left = 960
|
|
TabIndex = 68
|
|
Top = 240
|
|
Width = 315
|
|
End
|
|
Begin VB.Label lblVol
|
|
Alignment = 1 'Rechts
|
|
BorderStyle = 1 'Fest Einfach
|
|
Caption = " Volumen "
|
|
Height = 315
|
|
Left = 780
|
|
TabIndex = 65
|
|
Top = 600
|
|
Width = 1155
|
|
End
|
|
End
|
|
Begin VB.TextBox TextT
|
|
Height = 345
|
|
Left = 11280
|
|
TabIndex = 62
|
|
Top = 330
|
|
Width = 495
|
|
End
|
|
Begin VB.CommandButton Command20
|
|
Caption = "T"
|
|
Height = 585
|
|
Left = 10620
|
|
TabIndex = 61
|
|
Top = 240
|
|
Width = 585
|
|
End
|
|
Begin VB.CommandButton cmdDBTest
|
|
Caption = "DB Test 1"
|
|
Height = 675
|
|
Left = 10860
|
|
TabIndex = 54
|
|
Top = 1920
|
|
Width = 1215
|
|
End
|
|
Begin VB.CommandButton Command19
|
|
Caption = "load VorPruefpunkte"
|
|
Height = 435
|
|
Left = 10620
|
|
TabIndex = 53
|
|
Top = 7080
|
|
Width = 1395
|
|
End
|
|
Begin VB.TextBox txtStellwert
|
|
Height = 1515
|
|
Left = 7500
|
|
MultiLine = -1 'True
|
|
ScrollBars = 2 'Vertikal
|
|
TabIndex = 50
|
|
Top = 7560
|
|
Width = 2655
|
|
End
|
|
Begin VB.CommandButton Command18
|
|
Caption = "Stellwert"
|
|
Height = 315
|
|
Left = 6540
|
|
TabIndex = 49
|
|
Top = 7620
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox txtQ
|
|
Height = 315
|
|
Left = 5460
|
|
TabIndex = 48
|
|
Text = "80"
|
|
Top = 7620
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton Command17
|
|
Caption = "Druck test"
|
|
Height = 795
|
|
Left = 6900
|
|
TabIndex = 46
|
|
Top = 2280
|
|
Width = 735
|
|
End
|
|
Begin VB.TextBox Text8
|
|
Height = 285
|
|
Left = 12120
|
|
TabIndex = 45
|
|
Text = "test"
|
|
Top = 4140
|
|
Width = 615
|
|
End
|
|
Begin VB.TextBox Text7
|
|
Height = 255
|
|
Left = 12780
|
|
TabIndex = 44
|
|
Text = "2"
|
|
Top = 3720
|
|
Width = 495
|
|
End
|
|
Begin VB.TextBox Text6
|
|
Height = 255
|
|
Left = 12060
|
|
TabIndex = 43
|
|
Text = "2"
|
|
Top = 3720
|
|
Width = 495
|
|
End
|
|
Begin VB.CommandButton Command16
|
|
Caption = "Edit"
|
|
Height = 435
|
|
Left = 10920
|
|
TabIndex = 42
|
|
Top = 4080
|
|
Width = 735
|
|
End
|
|
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
|
|
Height = 2115
|
|
Left = 8820
|
|
TabIndex = 41
|
|
Top = 4620
|
|
Width = 4995
|
|
_ExtentX = 8811
|
|
_ExtentY = 3731
|
|
_Version = 393216
|
|
Rows = 7
|
|
Cols = 11
|
|
End
|
|
Begin VB.CommandButton Command15
|
|
Caption = "letzterFehlerdes RefZ genau"
|
|
Height = 435
|
|
Left = 5430
|
|
TabIndex = 40
|
|
Top = 3720
|
|
Width = 1515
|
|
End
|
|
Begin VB.CommandButton Command9
|
|
Caption = "Command9"
|
|
Height = 615
|
|
Left = 5340
|
|
TabIndex = 39
|
|
Top = 2280
|
|
Width = 555
|
|
End
|
|
Begin VB.CommandButton Command14
|
|
Caption = "Command14"
|
|
Height = 555
|
|
Left = 6090
|
|
TabIndex = 38
|
|
Top = 2310
|
|
Width = 615
|
|
End
|
|
Begin VB.CommandButton Command13
|
|
Caption = "SPS Var PT_Strecke1 Lesen "
|
|
Height = 855
|
|
Left = 5370
|
|
TabIndex = 37
|
|
Top = 1200
|
|
Width = 1755
|
|
End
|
|
Begin VB.Frame Frame5
|
|
Caption = "Behälter"
|
|
Height = 1515
|
|
Left = 240
|
|
TabIndex = 33
|
|
Top = 2160
|
|
Width = 4635
|
|
Begin VB.TextBox Text5
|
|
Height = 315
|
|
Left = 3600
|
|
TabIndex = 36
|
|
Text = "Vol"
|
|
Top = 900
|
|
Width = 855
|
|
End
|
|
Begin VB.TextBox Text4
|
|
Height = 975
|
|
Left = 240
|
|
MultiLine = -1 'True
|
|
TabIndex = 35
|
|
Top = 360
|
|
Width = 3075
|
|
End
|
|
Begin VB.CommandButton Command12
|
|
Caption = "test"
|
|
Height = 375
|
|
Left = 3600
|
|
TabIndex = 34
|
|
Top = 300
|
|
Width = 795
|
|
End
|
|
End
|
|
Begin VB.Frame Frame4
|
|
Caption = "SPS Test"
|
|
Height = 1755
|
|
Left = 120
|
|
TabIndex = 26
|
|
Top = 120
|
|
Width = 4935
|
|
Begin VB.CommandButton cmdSchreibe
|
|
Caption = "Schreiben"
|
|
Height = 735
|
|
Left = 3840
|
|
TabIndex = 32
|
|
Top = 720
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton cmdLese
|
|
Caption = "Lesen"
|
|
Height = 735
|
|
Left = 3000
|
|
TabIndex = 31
|
|
Top = 720
|
|
Width = 735
|
|
End
|
|
Begin VB.TextBox txtVarValue
|
|
Height = 285
|
|
Left = 1320
|
|
TabIndex = 29
|
|
Top = 1200
|
|
Width = 1455
|
|
End
|
|
Begin VB.TextBox txtVarName
|
|
Height = 285
|
|
Left = 1320
|
|
TabIndex = 27
|
|
Text = "PT_Strecke1"
|
|
Top = 720
|
|
Width = 1455
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "Wert"
|
|
Height = 255
|
|
Left = 240
|
|
TabIndex = 30
|
|
Top = 1200
|
|
Width = 975
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Var Name"
|
|
Height = 255
|
|
Left = 240
|
|
TabIndex = 28
|
|
Top = 720
|
|
Width = 975
|
|
End
|
|
End
|
|
Begin VB.Frame Frame3
|
|
Caption = "FM85 Test"
|
|
Height = 1815
|
|
Left = 5040
|
|
TabIndex = 21
|
|
Top = 5520
|
|
Width = 3375
|
|
Begin VB.CommandButton Command1
|
|
Caption = "Reset && Start"
|
|
Height = 495
|
|
Left = 240
|
|
TabIndex = 25
|
|
Top = 360
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton Command2
|
|
Caption = "Lese"
|
|
Height = 495
|
|
Left = 1800
|
|
TabIndex = 24
|
|
Top = 360
|
|
Width = 1335
|
|
End
|
|
Begin VB.TextBox Text1
|
|
Height = 495
|
|
Left = 240
|
|
TabIndex = 23
|
|
Text = "Text1"
|
|
Top = 960
|
|
Width = 1095
|
|
End
|
|
Begin VB.TextBox Text2
|
|
Height = 495
|
|
Left = 1440
|
|
TabIndex = 22
|
|
Text = "Text2"
|
|
Top = 960
|
|
Width = 1095
|
|
End
|
|
End
|
|
Begin VB.CommandButton Command10
|
|
Caption = "letzterFehlerdes RefZ"
|
|
Height = 435
|
|
Left = 5430
|
|
TabIndex = 19
|
|
Top = 3180
|
|
Width = 1515
|
|
End
|
|
Begin VB.Frame Frame2
|
|
Caption = "Waagen Test"
|
|
Height = 5385
|
|
Left = 120
|
|
TabIndex = 8
|
|
Top = 3840
|
|
Width = 4695
|
|
Begin VB.CommandButton cmdNullstellen
|
|
Caption = "Nullstellen"
|
|
Height = 555
|
|
Left = 180
|
|
TabIndex = 60
|
|
Top = 2940
|
|
Width = 1155
|
|
End
|
|
Begin VB.CheckBox chkDauerGewicht
|
|
Caption = "Dauer"
|
|
Height = 315
|
|
Left = 1200
|
|
TabIndex = 59
|
|
Top = 1740
|
|
Width = 885
|
|
End
|
|
Begin VB.Frame Frame6
|
|
Caption = "mit den Einstellungen aus Pruef2000.ini"
|
|
Height = 825
|
|
Left = 240
|
|
TabIndex = 55
|
|
Top = 4350
|
|
Width = 4215
|
|
Begin VB.CommandButton cmdGetWaageFromIni
|
|
Caption = "Get Waage"
|
|
Height = 255
|
|
Left = 2400
|
|
TabIndex = 57
|
|
Top = 240
|
|
Width = 1455
|
|
End
|
|
Begin VB.TextBox txtVolumen
|
|
Alignment = 1 'Rechts
|
|
Height = 285
|
|
Left = 1680
|
|
TabIndex = 56
|
|
Text = "300"
|
|
Top = 240
|
|
Width = 495
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "Volumen"
|
|
Height = 255
|
|
Left = 720
|
|
TabIndex = 58
|
|
Top = 240
|
|
Width = 975
|
|
End
|
|
End
|
|
Begin VB.CommandButton cmdWaageRelease
|
|
Caption = "Waage freigeben"
|
|
Height = 345
|
|
Left = 2730
|
|
TabIndex = 52
|
|
Top = 1200
|
|
Width = 1605
|
|
End
|
|
Begin VB.CommandButton cmdWaageGet
|
|
Caption = "Waage holen"
|
|
Height = 345
|
|
Left = 2730
|
|
TabIndex = 51
|
|
Top = 780
|
|
Width = 1575
|
|
End
|
|
Begin VB.CommandButton cmdCOMReset
|
|
Caption = "COM Reset"
|
|
Height = 375
|
|
Left = 2970
|
|
TabIndex = 47
|
|
Top = 3330
|
|
Width = 1275
|
|
End
|
|
Begin VB.CommandButton Command11
|
|
Caption = "Warte Auf Ruhe"
|
|
Height = 495
|
|
Left = 1650
|
|
TabIndex = 20
|
|
Top = 3330
|
|
Width = 1215
|
|
End
|
|
Begin VB.TextBox txtGrenzwert
|
|
Height = 315
|
|
Left = 2520
|
|
TabIndex = 18
|
|
Top = 240
|
|
Width = 1695
|
|
End
|
|
Begin VB.TextBox txtWaageOut
|
|
Height = 735
|
|
Left = 2340
|
|
TabIndex = 17
|
|
Top = 2460
|
|
Width = 2175
|
|
End
|
|
Begin VB.CommandButton cmdTestWaage
|
|
Caption = "Sende an Waage"
|
|
Height = 435
|
|
Left = 3420
|
|
TabIndex = 16
|
|
Top = 1800
|
|
Width = 1095
|
|
End
|
|
Begin VB.TextBox txtWaageIn
|
|
Height = 435
|
|
Left = 2340
|
|
TabIndex = 15
|
|
Top = 1800
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton cmdWaagenTest
|
|
Caption = "Reset Waage"
|
|
Height = 495
|
|
Left = 180
|
|
TabIndex = 14
|
|
Top = 1140
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton cmdgetWeight
|
|
Caption = "Lese Gewicht"
|
|
Height = 495
|
|
Left = 180
|
|
TabIndex = 13
|
|
Top = 1680
|
|
Width = 975
|
|
End
|
|
Begin VB.CommandButton cmdTara
|
|
Caption = "Tara"
|
|
Height = 495
|
|
Left = 1020
|
|
TabIndex = 12
|
|
Top = 2280
|
|
Width = 735
|
|
End
|
|
Begin VB.CommandButton cmdTaraReset
|
|
Caption = "Tara löschen"
|
|
Height = 495
|
|
Left = 210
|
|
TabIndex = 11
|
|
Top = 2280
|
|
Width = 735
|
|
End
|
|
Begin VB.CommandButton Command4
|
|
Caption = "Waage 1"
|
|
Height = 675
|
|
Left = 180
|
|
TabIndex = 10
|
|
Top = 300
|
|
Width = 915
|
|
End
|
|
Begin VB.CommandButton Command5
|
|
Caption = "Waage 2"
|
|
Height = 675
|
|
Left = 1200
|
|
TabIndex = 9
|
|
Top = 300
|
|
Width = 915
|
|
End
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Caption = "Pruefgang Objekt"
|
|
Height = 3375
|
|
Left = 10380
|
|
TabIndex = 3
|
|
Top = 510
|
|
Width = 1635
|
|
Begin VB.CommandButton Command6
|
|
Caption = "ändere Pruefgang"
|
|
Height = 795
|
|
Left = 240
|
|
TabIndex = 7
|
|
Top = 1200
|
|
Width = 1155
|
|
End
|
|
Begin VB.CommandButton Command7
|
|
Caption = "init Pruefgang"
|
|
Height = 795
|
|
Left = 240
|
|
TabIndex = 6
|
|
Top = 360
|
|
Width = 1155
|
|
End
|
|
Begin VB.CommandButton Command8
|
|
Caption = "save Pruefgang"
|
|
Height = 795
|
|
Left = 240
|
|
TabIndex = 5
|
|
Top = 2040
|
|
Width = 1155
|
|
End
|
|
Begin VB.TextBox Text3
|
|
Height = 375
|
|
Left = 240
|
|
TabIndex = 4
|
|
Text = "Text3"
|
|
Top = 2880
|
|
Width = 1155
|
|
End
|
|
End
|
|
Begin VB.CommandButton Command3
|
|
Caption = "Pumpentest"
|
|
Height = 315
|
|
Left = 8040
|
|
TabIndex = 2
|
|
Top = 4200
|
|
Width = 1275
|
|
End
|
|
Begin VB.TextBox txtDaten
|
|
Height = 1215
|
|
Left = 5400
|
|
MultiLine = -1 'True
|
|
ScrollBars = 2 'Vertikal
|
|
TabIndex = 1
|
|
Top = 4200
|
|
Width = 2475
|
|
End
|
|
Begin VB.CommandButton CmdQuit
|
|
Caption = "QUIT"
|
|
Height = 495
|
|
Left = 8880
|
|
TabIndex = 0
|
|
Top = 6840
|
|
Width = 735
|
|
End
|
|
Begin VB.Label lblQtest
|
|
Alignment = 1 'Rechts
|
|
BorderStyle = 1 'Fest Einfach
|
|
Caption = "Label7"
|
|
BeginProperty Font
|
|
Name = "Courier New"
|
|
Size = 15.75
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 465
|
|
Left = 12735
|
|
TabIndex = 86
|
|
Top = 2835
|
|
Width = 2265
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmTest"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Private oFM85P As CFM85P
|
|
Private oWaage As CWaage
|
|
Private Pruefgang As New CPruefgang
|
|
Private m_colEinbauplatz As Collection
|
|
Private m_DruckMsg As String
|
|
|
|
|
|
Dim Waage(2) As CWaage
|
|
|
|
|
|
|
|
|
|
Private Sub cmdCOMReset_Click()
|
|
frmSerial.commWaage.PortOpen = False
|
|
Sleep 1000, True
|
|
frmSerial.commWaage.PortOpen = True
|
|
End Sub
|
|
|
|
Private Sub cmdDBTest_Click()
|
|
|
|
g_Logger.log 1, "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345"
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdDruckprüfung_Click()
|
|
On Error Resume Next
|
|
|
|
Dim geleseneFabNr As Long
|
|
geleseneFabNr = InputBox("FabNr")
|
|
|
|
If UpdateInDruckpruefung(geleseneFabNr, InputBox("SerienNr")) = False Then
|
|
Call MsgBox("Für diesen Zähler (FabNr=" & geleseneFabNr & ") liegen keine Ergebnisse der Druckprüfung vor!", vbCritical)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdGetWaageFromIni_Click()
|
|
Dim Behaelter As CBehaelter
|
|
Set Behaelter = New CBehaelter
|
|
Behaelter.LoadForVolumen (CDbl(txtVolumen.text))
|
|
|
|
Set oWaage = g_App.getWaage
|
|
oWaage.Initialize (Behaelter.m_Nr)
|
|
|
|
oWaage.Anwahl Behaelter.m_WaageAnwahl
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdgetWeight_Click()
|
|
On Error GoTo getWeightError
|
|
MsgBox (oWaage.GetGewicht)
|
|
Exit Sub
|
|
getWeightError:
|
|
MsgBox ("waage steht nicht zur verfügung")
|
|
End Sub
|
|
|
|
|
|
Private Sub cmdGewicht2Volumen_Click()
|
|
lblVol.caption = Format(Errechne_Volumen_Von_Wasser_in_m3(Val(txtGewicht2Vol.text) * 1000, Val(txtT.text)), "0.000")
|
|
End Sub
|
|
|
|
Private Sub cmdIniCOM_Click()
|
|
Dim comport As Integer
|
|
Dim i As Integer
|
|
|
|
|
|
txtDaten.text = ""
|
|
For i = 1 To 10
|
|
comport = Val(g_App.Settings.getUSComPort(i))
|
|
If comport = 0 Then
|
|
txtDaten.text = txtDaten.text & i & ": -- " & vbCrLf
|
|
Else
|
|
txtDaten.text = txtDaten.text & i & ": COM " & comport & vbCrLf
|
|
End If
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdKill_Click()
|
|
KillProcessByName txtProcessname.text, False
|
|
End Sub
|
|
|
|
Private Sub cmdLese_Click()
|
|
Dim mystr As String
|
|
Dim ProToolObj As CProTool
|
|
Dim SPS As CSPS
|
|
|
|
txtVarValue = ""
|
|
Set SPS = g_App.getSPS
|
|
Set ProToolObj = SPS.ProToolObj
|
|
|
|
txtVarValue = ProToolObj.VarLesen(txtVarName)
|
|
|
|
Set SPS = Nothing
|
|
Set ProToolObj = Nothing
|
|
End Sub
|
|
|
|
|
|
Private Sub cmdNullstellen_Click()
|
|
If oWaage.Nullstellen Then
|
|
MsgBox ("Nullstellen OK")
|
|
Else
|
|
MsgBox ("Nullstellen fehlgeschlagen:" + Str(oWaage.getErrorCode) + " : " + oWaage.getErrorDesc)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub cmdSchreibe_Click()
|
|
Dim mystr As String
|
|
Dim ProToolObj As CProTool
|
|
Dim SPS As CSPS
|
|
Dim Wert As String
|
|
|
|
Set SPS = g_App.getSPS
|
|
|
|
Set ProToolObj = SPS.ProToolObj
|
|
|
|
Call ProToolObj.VarSchreiben(txtVarName, txtVarValue)
|
|
|
|
Set SPS = Nothing
|
|
End Sub
|
|
|
|
Private Sub cmdTara_Click()
|
|
If oWaage.Tara Then
|
|
MsgBox ("Tara OK")
|
|
Else
|
|
MsgBox ("Tara fehlgeschlagen:" + Str(oWaage.getErrorCode) + " : " + oWaage.getErrorDesc)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdTaraReset_Click()
|
|
If oWaage.TaraReset Then
|
|
MsgBox ("Tara Reset OK")
|
|
Else
|
|
MsgBox ("Tara Reset fehlgeschlagen")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub cmdWaageGet_Click()
|
|
Set oWaage = g_App.getWaage
|
|
End Sub
|
|
|
|
Private Sub cmdWaagenTest_Click()
|
|
If oWaage.Reset Then
|
|
MsgBox ("OK")
|
|
Else
|
|
MsgBox ("Reset fehlgeschlagen")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cmdWaageRelease_Click()
|
|
Set oWaage = Nothing
|
|
End Sub
|
|
|
|
Private Sub Command10_Click()
|
|
Dim RefZ As CRefzaehler
|
|
Dim Q As Double
|
|
Dim Fehler As Double
|
|
|
|
Set RefZ = New CRefzaehler
|
|
|
|
Q = InputBox("Bitte Q angeben", 0)
|
|
Call RefZ.loadForDurchfluss(Q, 1)
|
|
|
|
Fehler = RefZ.letzterFehler(Q, 19.2)
|
|
|
|
MsgBox "Fehler: " & Fehler & vbCrLf & RefZ.letzterFehlerString(Q, 19.2) & vbCrLf & RefZ.DatumDesFehlers
|
|
|
|
End Sub
|
|
|
|
Private Sub Command11_Click()
|
|
MsgBox "Achtung: alte Funktion"
|
|
MsgBox ("Warte auf Ruhe startet")
|
|
oWaage.WarteAufRuhe
|
|
MsgBox ("Warte auf Ruhe beendet")
|
|
End Sub
|
|
|
|
Private Sub Command12_Click()
|
|
Dim Behaelter As CBehaelter
|
|
Dim i As Integer
|
|
|
|
Text4.text = "testing..." & vbCrLf
|
|
For i = 1 To 3
|
|
Set Behaelter = New CBehaelter
|
|
Behaelter.LoadFromIni (i)
|
|
|
|
Text4.text = Text4.text & "Nr: " & i & vbCrLf
|
|
Text4.text = Text4.text & "======" & vbCrLf
|
|
|
|
Text4.text = Text4.text & " Anwahl:" & Behaelter.m_WaageAnwahl & vbCrLf
|
|
Text4.text = Text4.text & " OVolumen:" & Behaelter.m_OVolumen & vbCrLf
|
|
Text4.text = Text4.text & " UVolumen:" & Behaelter.m_UVolumen & vbCrLf
|
|
|
|
Text4.text = Text4.text & " Ueb.Faktor:" & Behaelter.m_nUeberlaufFaktor & vbCrLf
|
|
Text4.text = Text4.text & " BehaelterAw:" & Behaelter.m_BehaelterAnwahl & vbCrLf
|
|
|
|
Text4.text = Text4.text & " Ist OK für " & Text5.text & " :" & CStr(Behaelter.IstOkFuerVolumen(Val(Text5.text))) & vbCrLf
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Command13_Click()
|
|
Dim SPS As CSPS
|
|
Dim ProToolObj As CProTool
|
|
Dim myVar As Integer
|
|
Set SPS = g_App.getSPS
|
|
Set ProToolObj = SPS.ProToolObj
|
|
myVar = ProToolObj.VarLesen("PT_Strecke1")
|
|
MsgBox myVar
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Command14_Click()
|
|
PrinterEndDoc
|
|
End Sub
|
|
|
|
Private Sub Command15_Click()
|
|
Dim RefZ As CRefzaehler
|
|
Dim Q As Double
|
|
Dim Fehler As Double
|
|
|
|
Set RefZ = New CRefzaehler
|
|
|
|
Q = InputBox("Bitte Q angeben", 0)
|
|
Call RefZ.loadForDurchfluss(Q, 1)
|
|
|
|
Fehler = RefZ.letzterFehler(Q, 19.2)
|
|
|
|
MsgBox "Fehler: " & Fehler & vbCrLf & RefZ.letzterFehlerString(Q, 19.2) & vbCrLf & RefZ.DatumDesFehlers
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Command16_Click()
|
|
MSFlexGrid1.col = Text6
|
|
MSFlexGrid1.row = Text7
|
|
MSFlexGrid1.text = Text8
|
|
End Sub
|
|
|
|
Private Sub Command17_Click()
|
|
'initPrint (g_App.Settings.PrintDir & "test2.txt")
|
|
'PrintString "hallo dies ist ein Test1"
|
|
'PrintEnd
|
|
'initPrint (g_App.Settings.PrintDir & "test2.txt")
|
|
'PrintString "hallo dies ist ein Test2"
|
|
'PrintEnd
|
|
|
|
'frmVorjustage.Show vbModal, Me
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Command18_Click()
|
|
Dim Referenzzaehler As CRefzaehler
|
|
Dim Q As Double
|
|
Dim alteNennweite As Integer
|
|
Dim altePumpe As String
|
|
|
|
Dim ServoFUStellung As Integer
|
|
Dim Pumpe As CPumpe
|
|
Dim ColPumpen As Collection
|
|
|
|
Set ColPumpen = g_App.Settings.getPumpen
|
|
|
|
|
|
txtStellwert.text = ""
|
|
|
|
Set Referenzzaehler = New CRefzaehler
|
|
Q = 300
|
|
|
|
looop:
|
|
Q = Q * 0.95
|
|
|
|
|
|
Call Referenzzaehler.loadForDurchfluss(Q, g_App.Settings.getMIDGruppe)
|
|
If alteNennweite <> Referenzzaehler.Nennweite Then
|
|
txtStellwert.text = txtStellwert.text & " - - - - NW " & Referenzzaehler.Nennweite & " - - - " & vbCrLf
|
|
End If
|
|
|
|
Set Pumpe = Pumpenwahl(Q, ColPumpen)
|
|
|
|
If Pumpe Is Nothing Then
|
|
txtStellwert.text = txtStellwert.text & "keine Pumpe für Q=" & Format(Q, "0.000") & vbCrLf
|
|
Else
|
|
If Pumpe.getNr <> Val(altePumpe) Then
|
|
txtStellwert.text = txtStellwert.text & " - - Pm " & Pumpe.GetSPSVarname & " - - - " & vbCrLf
|
|
altePumpe = Pumpe.getNr
|
|
End If
|
|
|
|
alteNennweite = Referenzzaehler.Nennweite
|
|
ServoFUStellung = lookupFUServoStellwert(Q)
|
|
|
|
txtStellwert.text = txtStellwert.text & Format(Q, "0.000") & vbTab & ServoFUStellung & vbCrLf
|
|
|
|
|
|
DoEvents
|
|
End If
|
|
If Q > 0.04 Then GoTo looop
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Command19_Click()
|
|
Dim usv As CVorpruefpunkte
|
|
Set usv = New CVorpruefpunkte
|
|
|
|
|
|
MsgBox "CVorpruefpunkte.load Returnwert " & usv.load(829306, 2)
|
|
|
|
|
|
End Sub
|
|
|
|
'
|
|
'Private Sub Command20_Click()
|
|
' Dim SPS As CSPS
|
|
' Dim ProToolObj As CProTool
|
|
' Dim myVar As Integer
|
|
' Set SPS = g_App.getSPS
|
|
'
|
|
' MsgBox SPS.GetTemperatur(Val(TextT.text))
|
|
'
|
|
'End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Command21_Click()
|
|
SendMail "Pruefstation" & g_App.PruefstationNr & "@sensus.com", "juergen.dreyer@sensus.com; reinhard.henning@sensus.com", "Benachrichtigung von Pruefstation " & g_App.PruefstationNr, "Messeinsätze=falsch !" & vbCrLf & "Strecke nicht prüfbereit!"
|
|
End Sub
|
|
|
|
Private Sub Command22_Click()
|
|
'Call frmRefZaehlerPrf.RZPruefungvorzeitigAbbrechenWegenAbweichung(125, "A", 0.2, 0.5, 200, "...info...", Now, Nothing, Nothing)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Command24_Click()
|
|
Dim AuftragPosition As CAuftragPosition
|
|
|
|
Set AuftragPosition = New CAuftragPosition
|
|
AuftragPosition.load 100190365, 10
|
|
|
|
AuftragPosition.AlsGeprueftFertigmelden
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Command25_Click()
|
|
Dim Einbauplatz As CEinbauplatz
|
|
|
|
Dim PruefgangNr As Long
|
|
|
|
Dim Pruefgang As CPruefgang
|
|
Dim m_colEinbauplatz As Collection
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
Dim Prueffehler As CPrueffehler
|
|
Set Einbauplatz = New CEinbauplatz
|
|
Dim AuftragpositionSerienNr As CAuftragPositionSerienNr
|
|
Dim Pruefpunkt As CPruefpunkt
|
|
|
|
Dim strSQL As String
|
|
Dim rs As CRecordset
|
|
Dim rs1 As CRecordset
|
|
Dim rs2 As CRecordset
|
|
|
|
Dim PPNr As Integer
|
|
Dim PPNr2 As Integer
|
|
|
|
Set m_colEinbauplatz = New Collection
|
|
|
|
PruefgangNr = 2020015647#
|
|
|
|
Set Pruefgang = New CPruefgang
|
|
|
|
If Pruefgang.load(PruefgangNr) Then
|
|
|
|
''' alle eingebauten beteiligten SerienNr im Prüfgang
|
|
|
|
strSQL = "SELECT * from AuftragpositionSerienNr where PruefgangNr = " & PruefgangNr & " order by Einbauplatz"
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL, True
|
|
Debug.Print strSQL
|
|
|
|
Do While Not rs.EOF
|
|
Set Einbauplatz = New CEinbauplatz
|
|
Einbauplatz.setNr rs.getIntValue("Einbauplatz")
|
|
m_colEinbauplatz.Add Einbauplatz
|
|
Set Pruefzaehler = New CPruefzaehler
|
|
|
|
If Pruefzaehler.loadForSerienNr(rs.getLongValue("SerienNr")) Then
|
|
Einbauplatz.setPruefzaehler Pruefzaehler
|
|
|
|
Set AuftragpositionSerienNr = New CAuftragPositionSerienNr
|
|
AuftragpositionSerienNr.loadFromRecordset rs
|
|
Pruefzaehler.SetAuftragPositionSerienNr AuftragpositionSerienNr
|
|
strSQL = "SELECT * from Prueffehler where PruefgangNr = " & PruefgangNr & " and SerienNr = " & Pruefzaehler.getSerienNr
|
|
Set rs1 = New CRecordset
|
|
rs1.openRS strSQL, True
|
|
If Not rs1.EOF Then
|
|
|
|
PPNr = 0
|
|
|
|
|
|
|
|
' Dim Index As Integer
|
|
' For Index = 1 To 10
|
|
' If Pruefgang.PP_Soll(Index) = 0 Then
|
|
' ' Abbruch der Schleife wenn Durchfluß = 0
|
|
' Exit For
|
|
' End If
|
|
'
|
|
' If Pruefzaehler.getPruefpunkte.getPruefpunkte.hasQ(Pruefgang.PP_Soll(Index)) Then
|
|
'
|
|
' Set Pruefpunkt = Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(Index)
|
|
'
|
|
' Pruefpunkt.setQ Pruefgang.PP_Soll(Index)
|
|
' Pruefpunkt.SetTime Pruefgang.PP_Zeit(PPNr)
|
|
' Pruefpunkt.setFehler rs1.getDoubleValue("PP" & Index & "_Fehler")
|
|
'
|
|
'
|
|
' End If
|
|
' Next
|
|
'
|
|
|
|
|
|
|
|
' For PPNr = 1 To UBound(Pruefgang.PP_Soll)
|
|
'
|
|
' Next
|
|
'
|
|
' For Each Pruefpunkt In Pruefzaehler.getPruefpunkte.getPruefpunkte.getCollection
|
|
'
|
|
' ' Für alle PP in Prufgang
|
|
' ' wenn Pruefzähler hasQ
|
|
' ' Pruefzaehler.getPruefpunkte.getPruefpunkte Collection neu erzeugen
|
|
'
|
|
' 'Pruefzaehler.getPruefpunkte.getPruefpunkte.getCollection = New Collection
|
|
' Set Pruefpunkt = New CPruefpunkt
|
|
' PPNr = PPNr + 1
|
|
' Pruefpunkt.setQ Pruefgang.PP_Soll(PPNr)
|
|
' Pruefpunkt.SetTime Pruefgang.PP_Zeit(PPNr)
|
|
' Pruefpunkt.setFehler rs1.getDoubleValue("PP" & PPNr & "_Fehler")
|
|
' Pruefzaehler.getPruefpunkte.getPruefpunkte.getCollection.Add Pruefpunkt
|
|
' Next
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
rs.MoveNext
|
|
Loop
|
|
|
|
modDruck.PruefgangDruck Pruefgang, 20, m_colEinbauplatz, 10
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
'Private Sub Command25_Click()
|
|
' Dim AP As CAuftragPosition
|
|
' Dim A As CAuftrag
|
|
' Dim Aps As CAuftragPositionSerienNr
|
|
'
|
|
' Dim lngSNr As Long
|
|
'
|
|
' Set A = New CAuftrag
|
|
' Set Aps = New CAuftragPositionSerienNr
|
|
' Set AP = New CAuftragPosition
|
|
'
|
|
' Dim strSQL As String
|
|
' Dim rs As CRecordset
|
|
'
|
|
' strSQL = "SELECT SerienNr from Seriennummer"
|
|
' Set rs = New CRecordset
|
|
'
|
|
' rs.openRS strSQL, True
|
|
' Do While Not rs.EOF
|
|
' lngSNr = rs.getLongValue("SerienNr")
|
|
'
|
|
' Set Aps = New CAuftragPositionSerienNr
|
|
' Aps.load lngSNr
|
|
'
|
|
' Set AP = New CAuftragPosition
|
|
' AP.load Aps.getAuftragNr, Aps.getPositionNr
|
|
' Set A = New CAuftrag
|
|
' A.load Aps.getAuftragNr, False
|
|
'
|
|
' If AP.GetTLMenge_G < AP.getMenge Then
|
|
' AP.updateTLMenge_G
|
|
'
|
|
' If AP.getMenge = AP.GetTLMenge_G Then
|
|
' AP.AlsGeschlossenFertigmelden
|
|
' End If
|
|
' End If
|
|
'
|
|
'
|
|
' Debug.Print AP.GetTLMenge_G & " =?= "; AP.getMenge
|
|
' DoEvents
|
|
'
|
|
' AP.save A
|
|
'
|
|
' rs.MoveNext
|
|
' Loop
|
|
'
|
|
'
|
|
'
|
|
'
|
|
'End Sub
|
|
|
|
Private Sub Command26_Click()
|
|
Dim pg As CPruefgang
|
|
|
|
Set pg = New CPruefgang
|
|
pg.save
|
|
|
|
Dim i As Integer
|
|
|
|
For i = 1 To 10
|
|
MsgBox i & " " & pg.PruefgangNr
|
|
|
|
pg.PP_T_Start(i) = 10 + i
|
|
pg.PP_T_Ende(i) = 10 + i + 0.5
|
|
pg.save
|
|
Next
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Command27_Click()
|
|
Call AlleBehaelterLeeren(Me, g_App.getSPS, g_App.getWaage)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Command29_Click()
|
|
Dim strSQL As String
|
|
Dim rs As CRecordset
|
|
Dim rsSNr As CRecordset
|
|
Dim strVako As String
|
|
Dim objVako As CVakoCode
|
|
Dim Qn As Double
|
|
Dim Ratio As Double
|
|
Dim Nennweite As Long
|
|
Dim strAusgabe As String
|
|
Dim lngIdentNr As Long
|
|
Dim lngSerienNr As Long
|
|
Dim i As Integer
|
|
Dim Pruefpunkt As CPruefpunkt
|
|
Dim Vorpruefpunkt As CVorpruefpunkt
|
|
|
|
On Error GoTo Skip
|
|
|
|
strAusgabe = strAusgabe & "SerienNr" & vbTab
|
|
strAusgabe = strAusgabe & "IdentNr" & vbTab
|
|
strAusgabe = strAusgabe & "Nennweite" & vbTab
|
|
strAusgabe = strAusgabe & "Qn" & vbTab
|
|
strAusgabe = strAusgabe & "Ratio" & vbTab
|
|
|
|
For i = 1 To 3
|
|
strAusgabe = strAusgabe & "Q" & i & vbTab
|
|
strAusgabe = strAusgabe & "T" & i & vbTab
|
|
strAusgabe = strAusgabe & "Vol" & i & vbTab
|
|
strAusgabe = strAusgabe & "FGo" & i & vbTab
|
|
strAusgabe = strAusgabe & "FGu" & i & vbTab
|
|
Next
|
|
strAusgabe = strAusgabe & vbCrLf
|
|
|
|
|
|
strSQL = "select * from Identnr where IdentNr > = 2500000 and IdentNr <= 2600000 order by Nennweite, Temperatur, Druck, Baulaenge"
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL
|
|
Do While Not rs.EOF
|
|
lngIdentNr = rs.getStringValue("IdentNr")
|
|
|
|
strVako = rs.getStringValue("VakoCode")
|
|
Set objVako = New CVakoCode
|
|
|
|
On Error Resume Next
|
|
objVako.load strVako
|
|
Nennweite = Val(objVako.GetWert("Nennweite"))
|
|
Qn = Val(objVako.GetWert("Qn"))
|
|
Ratio = Val(objVako.GetWert("Ratio"))
|
|
|
|
strSQL = "select SerienNrVon from AlleAuftragPositionen Where IdentNr = " & lngIdentNr & " and Metrolog = ''"
|
|
Set rsSNr = New CRecordset
|
|
|
|
rsSNr.openRS strSQL
|
|
|
|
If Not rsSNr.EOF Then
|
|
|
|
lngSerienNr = rsSNr.getLongValue("SerienNrVon")
|
|
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
|
|
Set Pruefzaehler = New CPruefzaehler
|
|
If Pruefzaehler.loadForSerienNr(lngSerienNr) Then
|
|
If Pruefzaehler.getPruefklasseKZ = "" Then
|
|
|
|
strAusgabe = strAusgabe & lngSerienNr & vbTab & lngIdentNr & vbTab & Nennweite & vbTab & Qn & vbTab & Ratio & vbTab
|
|
|
|
For i = 1 To 3
|
|
|
|
strAusgabe = strAusgabe & Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).getQ & vbTab
|
|
|
|
strAusgabe = strAusgabe & Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).GetTime & vbTab
|
|
|
|
strAusgabe = strAusgabe & Round(Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).getQ * Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).GetTime / 3.6, 2) & vbTab
|
|
|
|
strAusgabe = strAusgabe & Round(Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).getFGo, 1) & vbTab
|
|
|
|
strAusgabe = strAusgabe & Round(Pruefzaehler.getPruefpunkte.getPruefpunkte.Item(i).getFGu, 1) & vbTab
|
|
|
|
Next
|
|
strAusgabe = strAusgabe & vbCrLf
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
DoEvents
|
|
|
|
Skip:
|
|
rs.MoveNext
|
|
Loop
|
|
|
|
Clipboard.setText strAusgabe
|
|
MsgBox "Fertig"
|
|
|
|
End Sub
|
|
|
|
'Private Sub Command23_Click()
|
|
'Dim strSQL As String
|
|
'Dim rs As CRecordset
|
|
'Dim strZusatz As String
|
|
'Dim varZeile As Variant
|
|
'
|
|
'strSQL = "SELECT ZusatzText, AuftragNr , PositionNr From AlleAuftragPositionen WHERE (ZusatzText LIKE '%DKD%') OR (ZusatzText LIKE '%NATA%')"
|
|
'Set rs = New CRecordset
|
|
'rs.openRS strSQL
|
|
'
|
|
'Do While Not rs.EOF
|
|
' strZusatz = rs.getStringValue("Zusatztext")
|
|
' For Each varZeile In Split(strZusatz, vbCrLf)
|
|
' If InStr(1, LCase(varZeile), LCase("DKD")) > 0 Or InStr(1, LCase(varZeile), LCase("NATA")) > 0 Then
|
|
' Debug.Print varZeile
|
|
' End If
|
|
' Next
|
|
' rs.MoveNext
|
|
'Loop
|
|
'
|
|
'
|
|
'End Sub
|
|
|
|
Private Sub Command3_Click()
|
|
Dim ColPumpen As Collection
|
|
Dim Pumpe As CPumpe
|
|
Set ColPumpen = g_App.Settings.getPumpen
|
|
|
|
For Each Pumpe In ColPumpen
|
|
PrintStatus Pumpe.getNr & ": " & Pumpe.GetDurchflussUnten & ": " & Pumpe.getNennweite & " : " & Pumpe.GetDurchflussUnten
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub Command30_Click()
|
|
Call SendMail("reinhard.henning@sensus.com", "reinhard.henning@sensus.com", "Testmail von ASPEMail", "testing....")
|
|
End Sub
|
|
|
|
Private Sub Command31_Click()
|
|
WriteToFM85Log "**0@" & vbCrLf, ">"
|
|
WriteToFM85Log "FM85OK" & vbCrLf, "<"
|
|
End Sub
|
|
|
|
Private Sub Command32_Click()
|
|
Dim strSecret As String
|
|
strSecret = Trim(InputBox("X-Node-Token"))
|
|
If Len(strSecret) > 0 Then
|
|
strSecret = g_App.Settings.AESEncryptString(strSecret)
|
|
If Len(strSecret) > 0 Then
|
|
g_App.Settings.saveStringValue "eRegister", "X-Node-Token-Encrypted", strSecret
|
|
End If
|
|
End If
|
|
|
|
strSecret = ""
|
|
strSecret = g_App.Settings.readStringValue("eRegister", "X-Node-Token-Encrypted", "")
|
|
MsgBox g_App.Settings.AESDecryptString(strSecret)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Command35_Click()
|
|
Verschiebe_Prueffehler_Befundpruefung_Eichung 2016054583
|
|
End Sub
|
|
|
|
'Sub Korrigiere(lngSerienNr As Long, lngPruefgangNr As Long)
|
|
' Dim lngSerieNr As Long
|
|
' Dim APS As CAuftragPositionSerienNr
|
|
'
|
|
' Set APS = New CAuftragPositionSerienNr
|
|
' APS.load (lngSerienNr)
|
|
'
|
|
' APS.setPruefgangNr lngPruefgangNr
|
|
' APS.setWiederholungen (APS.getWiederholungen + 1)
|
|
' APS.setAnlageDatum Now
|
|
' APS.setAnlageMitarbeiterNr 10
|
|
' APS.setBemerkung "Wiederhergestellt von RH"
|
|
'
|
|
' APS.save True
|
|
'
|
|
'End Sub
|
|
|
|
Private Sub Command36_Click()
|
|
|
|
|
|
' Korrigiere 17778269, 2004012756
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Command4_Click()
|
|
Command4.caption = "Waage 1 aktiv"
|
|
Command5.caption = "Waage 2"
|
|
Set oWaage = Waage(1)
|
|
End Sub
|
|
|
|
Private Sub Command5_Click()
|
|
Command4.caption = "Waage 1"
|
|
Command5.caption = "Waage 2 aktiv"
|
|
Set oWaage = Waage(2)
|
|
End Sub
|
|
|
|
Private Sub Command6_Click()
|
|
Text3.text = Pruefgang.PruefgangNr
|
|
|
|
Pruefgang.Anzahl = 2
|
|
|
|
Pruefgang.Typ = "WPD"
|
|
|
|
Pruefgang.PP_Ist(1) = Pruefgang.PP_Ist(1) + 1
|
|
Pruefgang.PP_Ist(2) = Pruefgang.PP_Ist(2) + 2
|
|
|
|
Pruefgang.PP_RefZSerienNr(1) = 1234561
|
|
Pruefgang.PP_RefZSerienNr(2) = 1234562
|
|
|
|
Pruefgang.PP_Zeit(1) = 1111
|
|
Pruefgang.PP_Zeit(2) = 2222
|
|
|
|
Pruefgang.PP_Soll(1) = 331111
|
|
Pruefgang.PP_Soll(2) = 332222
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Command8_Click()
|
|
If Pruefgang.save Then
|
|
Text3.text = Pruefgang.PruefgangNr
|
|
MsgBox ("save ok")
|
|
Else
|
|
Text3.text = Pruefgang.PruefgangNr
|
|
MsgBox ("save nicht ok")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Command7_Click()
|
|
Set Pruefgang = New CPruefgang
|
|
Text3.text = Pruefgang.PruefgangNr
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Form_Load()
|
|
'Set oWaage = g_App.getWaage
|
|
End Sub
|
|
|
|
Private Sub cmdTestWaage_Click()
|
|
txtWaageOut = "..."
|
|
oWaage.send (txtWaageIn.text)
|
|
txtWaageOut = oWaage.receive(2000)
|
|
End Sub
|
|
|
|
Private Sub Command1_Click()
|
|
frmTest.Enabled = False
|
|
frmTest.MousePointer = vbHourglass
|
|
|
|
Set oFM85P = g_App.getFMBus().getFM85P(1)
|
|
MousePointer = vbHourglass
|
|
|
|
If Not oFM85P.sendAttention Then
|
|
MsgBox ("keine Attention")
|
|
MousePointer = vbDefault
|
|
Exit Sub
|
|
End If
|
|
|
|
MousePointer = vbDefault
|
|
' starte Zählvorgang
|
|
oFM85P.send ("O")
|
|
'FM85P.receive
|
|
oFM85P.send ("Q")
|
|
'FM85P.receive
|
|
|
|
frmTest.MousePointer = vbDefault
|
|
frmTest.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub Command2_Click()
|
|
Command2.Enabled = False
|
|
Command1.Enabled = False
|
|
oFM85P.send ("L")
|
|
oFM85P.receive
|
|
Text1.text = oFM85P.getLastAnswer
|
|
oFM85P.send ("U")
|
|
oFM85P.receive
|
|
text2.text = oFM85P.getLastAnswer
|
|
Command1.Enabled = True
|
|
Command2.Enabled = True
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub setError(strQuittung)
|
|
strQuittung = Mid(strQuittung, 1, 2)
|
|
Select Case strQuittung
|
|
Case "w0"
|
|
|
|
Case "w1"
|
|
|
|
Case "w3"
|
|
|
|
Case "w5"
|
|
|
|
Case "w6"
|
|
|
|
Case "w9"
|
|
|
|
Case Else
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Private Sub PrintStatus(sText As String)
|
|
txtDaten.text = txtDaten.text & sText & vbCrLf
|
|
txtDaten.SelStart = Len(txtDaten.text)
|
|
Debug.Print sText
|
|
End Sub
|
|
|
|
|
|
Private Sub txtQtest_Change()
|
|
lblQtest.caption = FormatDurchfluss(Val(txtQtest.text))
|
|
End Sub
|
|
|
|
|
|
|
|
|