137 lines
4.2 KiB
Plaintext
137 lines
4.2 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form frmRuecklaeuferOhneGrund
|
|
Caption = "Rückläufer"
|
|
ClientHeight = 6000
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 7920
|
|
LinkTopic = "Form2"
|
|
ScaleHeight = 6000
|
|
ScaleWidth = 7920
|
|
StartUpPosition = 3 'Windows-Standard
|
|
Begin VB.ListBox lstSerienNr
|
|
BeginProperty Font
|
|
Name = "Courier New"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 4050
|
|
Left = 0
|
|
TabIndex = 2
|
|
Top = 1050
|
|
Width = 7875
|
|
End
|
|
Begin VB.CommandButton cmdClose
|
|
Caption = "Schließen"
|
|
Height = 405
|
|
Left = 6330
|
|
TabIndex = 1
|
|
Top = 5490
|
|
Width = 1365
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Für folgende Zähler (Rückläufer) haben Sie noch keinen Ausfallgrund angegeben:"
|
|
BeginProperty Font
|
|
Name = "MS Sans Serif"
|
|
Size = 18
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 1005
|
|
Left = 0
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 7875
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmRuecklaeuferOhneGrund"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim mbIsActivated As Boolean
|
|
|
|
Private Sub cmdClose_Click()
|
|
Unload Me
|
|
End Sub
|
|
|
|
Private Sub Form_Activate()
|
|
If mbIsActivated = False Then
|
|
StartAnzeige
|
|
End If
|
|
mbIsActivated = True
|
|
End Sub
|
|
|
|
Private Sub StartAnzeige()
|
|
Dim strSQL As String
|
|
Dim rs As CRecordset
|
|
Dim rs1 As CRecordset
|
|
Dim strText As String
|
|
|
|
Dim lngSerienNr As Long
|
|
|
|
|
|
strSQL = "SELECT DISTINCT Ruecklaeuferanalyse.SerienNr, Ruecklaeuferanalyse.Bezeichnung ,AnlageDatum FROM Ruecklaeuferanalyse INNER JOIN "
|
|
strSQL = strSQL & "Ruecklaeufer_Ausfallgrund ON Ruecklaeuferanalyse.ID = Ruecklaeufer_Ausfallgrund.Ruecklaufer_ID "
|
|
strSQL = strSQL & "WHERE Ruecklaeufer_Ausfallgrund.Ausfallgrund_ID = 33 and PrueferNr=" & g_App.Mitarbeiter.getNr & " "
|
|
strSQL = strSQL & "ORDER BY AnlageDatum desc"
|
|
|
|
Set rs = New CRecordset
|
|
rs.openRS strSQL
|
|
|
|
lstSerienNr.Clear
|
|
Do While Not rs.EOF
|
|
|
|
lngSerienNr = rs.getLongValue("SerienNr")
|
|
' gibt es schon gepflegte Gründe
|
|
strSQL = "SELECT * FROM Ruecklaeuferanalyse "
|
|
strSQL = strSQL & "INNER JOIN Ruecklaeufer_Ausfallgrund ON Ruecklaeuferanalyse.ID = Ruecklaeufer_Ausfallgrund.Ruecklaufer_ID "
|
|
strSQL = strSQL & "INNER JOIN Ausfallgruende ON Ruecklaeufer_Ausfallgrund.Ausfallgrund_ID = Ausfallgruende.ID "
|
|
strSQL = strSQL & "WHERE (Ruecklaeufer_Ausfallgrund.Ausfallgrund_ID <> 33) and SerienNr=" & lngSerienNr & " "
|
|
|
|
|
|
Set rs1 = New CRecordset
|
|
rs1.openRS strSQL
|
|
|
|
If rs1.EOF Then
|
|
' noch kein Grund
|
|
strText = FormatSerienNr(lngSerienNr) '& ": " & rs.getStringValue("Bezeichnung")
|
|
strText = AddTextInPosition(strText, rs.getStringValue("Bezeichnung"), 10)
|
|
lstSerienNr.AddItem strText
|
|
Else
|
|
' Debug.Print " OK"
|
|
End If
|
|
rs.MoveNext
|
|
Loop
|
|
Set rs = Nothing
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
mbIsActivated = False
|
|
End Sub
|
|
|
|
Private Sub lstSerienNr_DblClick()
|
|
Dim lngSerienNr As Long
|
|
Dim Pruefzaehler As CPruefzaehler
|
|
|
|
lngSerienNr = Val(lstSerienNr.Text)
|
|
|
|
Dim objForm As frmRuecklaeuferanalyse
|
|
|
|
Set objForm = New frmRuecklaeuferanalyse
|
|
objForm.m_EinbauplatzNr = 0
|
|
|
|
Set Pruefzaehler = New CPruefzaehler
|
|
Pruefzaehler.loadForSerienNr lngSerienNr
|
|
|
|
Set objForm.m_Pruefzaehler = Pruefzaehler
|
|
objForm.Show vbModal, Me
|
|
End Sub
|