Replace frmRuecklaeuferanalyse.frm
This commit is contained in:
Stoyan Zlatev
parent
94bd5896e7
commit
ec281ac5c2
@ -3,7 +3,7 @@ Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.2#0"; "MSCOMCTL.OCX"
|
||||
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
|
||||
Begin VB.Form frmRuecklaeuferanalyse
|
||||
BorderStyle = 1 'Fest Einfach
|
||||
Caption = "Rückläuferanaylse QA_M_037"
|
||||
Caption = "Rückläuferanaylse QA_M_037"
|
||||
ClientHeight = 10230
|
||||
ClientLeft = 1155
|
||||
ClientTop = 3915
|
||||
@ -21,7 +21,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 4395
|
||||
Begin VB.Label Label8
|
||||
Alignment = 1 'Rechts
|
||||
Caption = "Geräte-Nr.:"
|
||||
Caption = "Geräte-Nr.:"
|
||||
Height = 195
|
||||
Left = 90
|
||||
TabIndex = 47
|
||||
@ -56,7 +56,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
End
|
||||
Begin VB.Label Label4
|
||||
Alignment = 1 'Rechts
|
||||
Caption = "Prüfgang Datum"
|
||||
Caption = "Prüfgang Datum"
|
||||
Height = 195
|
||||
Left = 60
|
||||
TabIndex = 40
|
||||
@ -73,7 +73,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 2775
|
||||
End
|
||||
Begin VB.Label Label21
|
||||
Caption = "Prüfer:"
|
||||
Caption = "Prüfer:"
|
||||
Height = 255
|
||||
Left = 420
|
||||
TabIndex = 37
|
||||
@ -114,7 +114,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 1395
|
||||
End
|
||||
Begin VB.Label Label19
|
||||
Caption = "Prüfgang:"
|
||||
Caption = "Prüfgang:"
|
||||
Height = 195
|
||||
Left = 420
|
||||
TabIndex = 31
|
||||
@ -148,7 +148,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 795
|
||||
End
|
||||
Begin VB.Label Label9
|
||||
Caption = "Prüfstation:"
|
||||
Caption = "Prüfstation:"
|
||||
Height = 195
|
||||
Left = 420
|
||||
TabIndex = 27
|
||||
@ -191,7 +191,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.Frame fameHistorie
|
||||
Caption = "Rückläufer Historie"
|
||||
Caption = "Rückläufer Historie"
|
||||
Height = 4620
|
||||
Left = 60
|
||||
TabIndex = 21
|
||||
@ -236,7 +236,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Top = 9030
|
||||
Width = 12960
|
||||
Begin VB.CommandButton cmdBeenden
|
||||
Caption = "Schließen"
|
||||
Caption = "Schließen"
|
||||
Height = 375
|
||||
Left = 10830
|
||||
TabIndex = 20
|
||||
@ -262,7 +262,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Begin VB.ListBox lstAusfallgrund
|
||||
Height = 1410
|
||||
Left = 240
|
||||
Style = 1 'Kontrollkästchen
|
||||
Style = 1 'Kontrollkästchen
|
||||
TabIndex = 48
|
||||
Top = 1680
|
||||
Width = 7995
|
||||
@ -321,7 +321,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
_Version = 393216
|
||||
End
|
||||
Begin VB.Label Label13
|
||||
Caption = "Maßnahme erfolgreich:"
|
||||
Caption = "Maßnahme erfolgreich:"
|
||||
Height = 255
|
||||
Left = 375
|
||||
TabIndex = 52
|
||||
@ -353,7 +353,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 4695
|
||||
End
|
||||
Begin VB.Label Label15
|
||||
Caption = "sonstige Ausfallgründe"
|
||||
Caption = "sonstige Ausfallgründe"
|
||||
Height = 195
|
||||
Left = 255
|
||||
TabIndex = 14
|
||||
@ -361,7 +361,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 4035
|
||||
End
|
||||
Begin VB.Label Label14
|
||||
Caption = "Ergebnis der letzten Prüfung"
|
||||
Caption = "Ergebnis der letzten Prüfung"
|
||||
Height = 255
|
||||
Left = 240
|
||||
TabIndex = 12
|
||||
@ -369,7 +369,7 @@ Begin VB.Form frmRuecklaeuferanalyse
|
||||
Width = 2115
|
||||
End
|
||||
Begin VB.Label lblAusfallgrund
|
||||
Caption = "Ausfallgründe"
|
||||
Caption = "Ausfallgründe"
|
||||
Height = 195
|
||||
Left = 240
|
||||
TabIndex = 11
|
||||
@ -502,9 +502,9 @@ Dim mcol_IDs As Collection
|
||||
|
||||
|
||||
Const NEU = "(neu)"
|
||||
Const TXT_BITTEAUSWAEHLEN = "(Bitte auswählen!)"
|
||||
Const TXT_ERFOLGREICH = "Zähler erfolgreich geprüft"
|
||||
Const TXT_ERNEUTAUSGEFALLEN = "Zähler erneut ausgefallen"
|
||||
Const TXT_BITTEAUSWAEHLEN = "(Bitte auswählen!)"
|
||||
Const TXT_ERFOLGREICH = "Zähler erfolgreich geprüft"
|
||||
Const TXT_ERNEUTAUSGEFALLEN = "Zähler erneut ausgefallen"
|
||||
|
||||
Private m_lngID As Long
|
||||
|
||||
@ -525,7 +525,7 @@ Private Sub cmdBeenden_Click()
|
||||
Dim lngReturn As Long
|
||||
|
||||
If cmdSave.Enabled = True Then
|
||||
lngReturn = MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, Me.caption)
|
||||
lngReturn = MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, Me.caption)
|
||||
Select Case lngReturn
|
||||
Case vbYes
|
||||
If speichern() = True Then
|
||||
@ -596,13 +596,13 @@ Private Sub Form_Load()
|
||||
If m_Pruefzaehler Is Nothing Then
|
||||
Set m_Pruefzaehler = New CPruefzaehler
|
||||
|
||||
strSearch = InputBox("Bitte geben Sie die SerienNr, kundeneigene SNr oder Gerätenummer des Zählers an", "Rückläufer Analyse")
|
||||
strSearch = InputBox("Bitte geben Sie die SerienNr, kundeneigene SNr oder Gerätenummer des Zählers an", "Rückläufer Analyse")
|
||||
lngSerienNr = val(strSearch)
|
||||
|
||||
If strSearch <> "" Then
|
||||
Screen.MousePointer = vbHourglass
|
||||
If m_Pruefzaehler.loadForSerienOrFabNummerOrKundeneigene(strSearch) = False Then
|
||||
Call MsgBox("Prüfzählerdaten konnten für Nr. " & lngSerienNr & " nicht geladen werden", vbCritical, "Rückläufer Analyse")
|
||||
Call MsgBox("Prüfzählerdaten konnten für Nr. " & lngSerienNr & " nicht geladen werden", vbCritical, "Rückläufer Analyse")
|
||||
Set m_Pruefzaehler = Nothing
|
||||
Screen.MousePointer = vbNormal
|
||||
Exit Sub
|
||||
@ -631,7 +631,7 @@ Private Sub Form_Load()
|
||||
lblAuftragPosNr.caption = m_objAuftrag.getNr & " / " & m_objAuftragPosition.getNr
|
||||
lblSerienNr.caption = FormatSerienNr(m_Pruefzaehler.getSerienNr)
|
||||
lblKunde.caption = m_objAuftrag.getKunde.getName & ", " & m_objAuftrag.getKunde.getOrt
|
||||
lblBezeichnung.caption = m_objIdentNr.getTyp & " " & m_objIdentNr.getTypzusatz & " DN" & m_objIdentNr.getNennweite & " " & m_objIdentNr.GetTemperatur & "°C/PN " & m_objIdentNr.getDruck & " (" & m_objAuftragPosition.getAnzeige & ")"
|
||||
lblBezeichnung.caption = m_objIdentNr.getTyp & " " & m_objIdentNr.getTypzusatz & " DN" & m_objIdentNr.getNennweite & " " & m_objIdentNr.GetTemperatur & "°C/PN " & m_objIdentNr.getDruck & " (" & m_objAuftragPosition.getAnzeige & ")"
|
||||
lblFabNr.caption = m_Pruefzaehler.getAuftragPositionSerienNr.getFabNr
|
||||
lblKundeneigeneSNr.caption = m_Pruefzaehler.getAuftragPositionSerienNr.getKundeneigeneSerienNr
|
||||
|
||||
@ -653,7 +653,7 @@ Private Sub Form_Load()
|
||||
cmdSave.Enabled = False
|
||||
Exit Sub
|
||||
Errorhandler:
|
||||
MsgBox "Fehler " & Err.Number & " in Rückläuferanalye (Form_Load):" & Err.Description
|
||||
MsgBox "Fehler " & Err.Number & " in Rückläuferanalye (Form_Load):" & Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub clearPruefpunkteFlexgrid()
|
||||
@ -662,7 +662,7 @@ Private Sub clearPruefpunkteFlexgrid()
|
||||
msfgPruefpunkte.Font.Bold = True
|
||||
msfgPruefpunkte.col = 0
|
||||
msfgPruefpunkte.row = 0
|
||||
msfgPruefpunkte.text = "Q [m³/h]"
|
||||
msfgPruefpunkte.text = "Q [m³/h]"
|
||||
msfgPruefpunkte.row = 1
|
||||
msfgPruefpunkte.text = "Fehler [%]"
|
||||
|
||||
@ -775,8 +775,8 @@ End Sub
|
||||
|
||||
Public Function getStatusFertigung(intStatus As Integer) As String
|
||||
Select Case intStatus
|
||||
'0=ohne Bearbeitung, 10=Vorfertigung OK, 20=Montage,22=Prüfung abgebrochen,
|
||||
'25=Grenzwertüberschreitung Prüfstation, 30=Prüfstation geprüft, 40=dieser Zähler ausgeliefert,45= Lagerauftrag an Lager geliefert, 50=Auftrag ausgeliefert
|
||||
'0=ohne Bearbeitung, 10=Vorfertigung OK, 20=Montage,22=Prüfung abgebrochen,
|
||||
'25=Grenzwertüberschreitung Prüfstation, 30=Prüfstation geprüft, 40=dieser Zähler ausgeliefert,45= Lagerauftrag an Lager geliefert, 50=Auftrag ausgeliefert
|
||||
Case 0
|
||||
getStatusFertigung = "ohne Bearbeitung"
|
||||
Case 10
|
||||
@ -784,13 +784,13 @@ Public Function getStatusFertigung(intStatus As Integer) As String
|
||||
Case 20
|
||||
getStatusFertigung = "Montage"
|
||||
Case 22
|
||||
getStatusFertigung = "Prüfung abgebrochen"
|
||||
getStatusFertigung = "Prüfung abgebrochen"
|
||||
Case 25
|
||||
getStatusFertigung = "Grenzwertüberschreitung"
|
||||
getStatusFertigung = "Grenzwertüberschreitung"
|
||||
Case 30
|
||||
getStatusFertigung = "Prüfstation geprüft"
|
||||
getStatusFertigung = "Prüfstation geprüft"
|
||||
Case 40
|
||||
getStatusFertigung = "Zähler ausgeliefert"
|
||||
getStatusFertigung = "Zähler ausgeliefert"
|
||||
Case 45
|
||||
getStatusFertigung = "Lagerauftrag an Lager geliefert"
|
||||
Case 50
|
||||
@ -804,7 +804,7 @@ Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
|
||||
Dim lngReturn As Long
|
||||
If UnloadMode = 0 And cmdSave.Enabled = True Then
|
||||
' Benutzer hat auf [X] rechts oben geklickt
|
||||
lngReturn = MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, Me.caption)
|
||||
lngReturn = MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel Or vbDefaultButton1 Or vbExclamation, Me.caption)
|
||||
Select Case lngReturn
|
||||
Case vbCancel
|
||||
Cancel = 1
|
||||
@ -836,7 +836,7 @@ Private Function speichern() As Boolean
|
||||
rs.openRS "Ruecklaeuferanalyse", False
|
||||
rs.addNew
|
||||
|
||||
' Felder für die Neuanlage
|
||||
' Felder für die Neuanlage
|
||||
|
||||
Call rs.setValue("AuftragNr", m_Pruefzaehler.getAuftrag.getNr)
|
||||
Call rs.setValue("PositionNr", m_Pruefzaehler.getAuftragPosition.getNr)
|
||||
@ -866,7 +866,7 @@ Private Function speichern() As Boolean
|
||||
Call rs.setValue("Bezeichnung", lblBezeichnung.caption)
|
||||
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
'''' Prüfpunkte speichern
|
||||
'''' Prüfpunkte speichern
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
Dim strQ As String
|
||||
Dim strFehler As String
|
||||
@ -916,7 +916,7 @@ Private Function speichern() As Boolean
|
||||
Call rs.setValue("Befund", txtReparaturmassnahme.text)
|
||||
End If
|
||||
If cmbBefund.text = TXT_BITTEAUSWAEHLEN Then
|
||||
' nichts ausgewählt
|
||||
' nichts ausgewählt
|
||||
ElseIf cmbBefund.text = TXT_ERFOLGREICH Then
|
||||
rs.setValue "ReparaturErfolgreich", True
|
||||
ElseIf cmbBefund.text = TXT_ERNEUTAUSGEFALLEN Then
|
||||
@ -926,7 +926,7 @@ Private Function speichern() As Boolean
|
||||
rs.update
|
||||
If m_lngID = 0 Then
|
||||
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
||||
' Die ID des eben gespeicherten Rückläufers
|
||||
' Die ID des eben gespeicherten Rückläufers
|
||||
Set rs = New CRecordset
|
||||
rs.openRS "SELECT newID = @@IDENTITY", True
|
||||
m_lngID = rs.getIntValue("newID")
|
||||
@ -940,7 +940,7 @@ Private Function speichern() As Boolean
|
||||
speichern = True
|
||||
Exit Function
|
||||
Errorhandler:
|
||||
ErrorMsg "Fehler " & Err.Number & " beim Speichern des Rückläufers: " & Err.Description
|
||||
ErrorMsg "Fehler " & Err.Number & " beim Speichern des Rückläufers: " & Err.Description
|
||||
End Function
|
||||
|
||||
Private Sub lstAusfallgrund_Click()
|
||||
@ -989,7 +989,7 @@ Private Sub AktualisiereVonHistorie(lngIndex As Long)
|
||||
txtZeitaufwand = ""
|
||||
|
||||
Fill_lstAusfallgrund
|
||||
' RH 31.07.2007: nichts auswählen
|
||||
' RH 31.07.2007: nichts auswählen
|
||||
'lstAusfallgrund.Selected(0) = True ' erster Eintrag ist selektiert
|
||||
|
||||
FelderEingabenZulassen
|
||||
@ -1083,7 +1083,7 @@ Private Sub AktualisiereVonHistorie(lngIndex As Long)
|
||||
Exit Sub
|
||||
|
||||
Errorhandler:
|
||||
ErrorMsg "Fehler " & Err.Number & " beim Anzeigen des Rückläufers: " & Err.Description
|
||||
ErrorMsg "Fehler " & Err.Number & " beim Anzeigen des Rückläufers: " & Err.Description
|
||||
End Sub
|
||||
|
||||
Private Sub TestAufAusfallgrund()
|
||||
@ -1111,7 +1111,7 @@ Private Function PruefeAufPflichtfelder() As Boolean
|
||||
Next
|
||||
|
||||
If blnAusgewaehlt = False Then
|
||||
MsgBox "Bitte wählen Sie mindestens einen Ausfallgrund!", vbCritical
|
||||
MsgBox "Bitte wählen Sie mindestens einen Ausfallgrund!", vbCritical
|
||||
If lstAusfallgrund.Enabled = True Then
|
||||
lstAusfallgrund.SetFocus
|
||||
End If
|
||||
@ -1120,7 +1120,7 @@ Private Function PruefeAufPflichtfelder() As Boolean
|
||||
End If
|
||||
|
||||
' If Trim(txtAusfallgrund.text) = "" Then
|
||||
' MsgBox "Bitte füllen Sie das Feld 'sonstiges' aus!", vbCritical
|
||||
' MsgBox "Bitte füllen Sie das Feld 'sonstiges' aus!", vbCritical
|
||||
' If txtAusfallgrund.Enabled = True Then
|
||||
' txtAusfallgrund.SetFocus
|
||||
' End If
|
||||
@ -1128,7 +1128,7 @@ Private Function PruefeAufPflichtfelder() As Boolean
|
||||
' Exit Function
|
||||
' End If
|
||||
' If Trim(txtReparaturmassnahme.text) = "" Then
|
||||
' MsgBox "Bitte füllen Sie das Feld 'Reparaturmaßnahmen' aus!", vbCritical
|
||||
' MsgBox "Bitte füllen Sie das Feld 'Reparaturmaßnahmen' aus!", vbCritical
|
||||
' If txtReparaturmassnahme.Enabled = True Then
|
||||
' txtReparaturmassnahme.SetFocus
|
||||
' End If
|
||||
@ -1137,7 +1137,7 @@ Private Function PruefeAufPflichtfelder() As Boolean
|
||||
' End If
|
||||
|
||||
If Trim(txtZeitaufwand.text) = "" Then
|
||||
MsgBox "Bitte füllen Sie das Feld 'Zeitaufwand' aus!", vbCritical
|
||||
MsgBox "Bitte füllen Sie das Feld 'Zeitaufwand' aus!", vbCritical
|
||||
If txtZeitaufwand.Enabled = True Then
|
||||
txtZeitaufwand.SetFocus
|
||||
End If
|
||||
@ -1255,7 +1255,7 @@ Private Sub PrintProtokoll(ByRef PrintObjekt As Object)
|
||||
lngSeite = lngSeite + 1
|
||||
' neue Seite
|
||||
If Not rs.EOF Then
|
||||
' es gibt noch weitere Blöcke für weitere Seiten
|
||||
' es gibt noch weitere Blöcke für weitere Seiten
|
||||
If TypeName(PrintObjekt) = "Printer" Then
|
||||
Printer.NewPage
|
||||
Else
|
||||
@ -1267,7 +1267,7 @@ Private Sub PrintProtokoll(ByRef PrintObjekt As Object)
|
||||
End If
|
||||
Loop
|
||||
Else
|
||||
MsgBox "Es gibt keine Rückläuferdaten zu diesem Zähler"
|
||||
MsgBox "Es gibt keine Rückläuferdaten zu diesem Zähler"
|
||||
Printer.KillDoc
|
||||
Exit Sub
|
||||
End If
|
||||
@ -1431,7 +1431,7 @@ Private Sub PrintProtokoll(ByRef PrintObjekt As Object)
|
||||
PrintText PrintObjekt, mdblLinkerRand + 52, mdblCurrentY, lngGesZeit & " min", , False
|
||||
|
||||
mdblCurrentY = mdblCurrentY + PrintObjekt.TextHeight("X") * 1.5 * 2
|
||||
PrintWithLinie PrintObjekt, "Befund / Reparatur-Maßnahme:"
|
||||
PrintWithLinie PrintObjekt, "Befund / Reparatur-Maßnahme:"
|
||||
mdblCurrentY = mdblCurrentY + PrintObjekt.TextHeight("X") * 1.5 * 2
|
||||
PrintWithLinie PrintObjekt, ""
|
||||
|
||||
@ -1492,22 +1492,22 @@ Private Sub PrintRahmen(ByRef PrintObjekt As Object, Optional lngSeitenNr As Lon
|
||||
PrintObjekt.PaintPicture ImgLogo.Picture, mdblLinkerRand + 2, mdblObererRand + 5, dblBildbreite, dblBildhoehe
|
||||
' Linie Vertikal rechts vom Bild
|
||||
PrintObjekt.Line (mdblLinkerRand + dblBildbreite + 4, mdblObererRand)-(mdblLinkerRand + dblBildbreite + 4, mdblLinie1top)
|
||||
' Linie horizontal halbe Höhe
|
||||
' Linie horizontal halbe Höhe
|
||||
PrintObjekt.Line (mdblLinkerRand + dblBildbreite + 4, mdblObererRand + 13)-(mdblRechterRand, mdblObererRand + 13)
|
||||
|
||||
PrintObjekt.FontSize = 12
|
||||
' PrintText PrintObjekt, mdblLinkerRand + 75, mdblLinie1top - 18, "Anlage 2 zur", , False
|
||||
' PrintText PrintObjekt, mdblLinkerRand + 65, mdblLinie1top - 12, "Arbeits- und Prüfanweisung", , True
|
||||
' PrintText PrintObjekt, mdblLinkerRand + 65, mdblLinie1top - 12, "Arbeits- und Prüfanweisung", , True
|
||||
'
|
||||
PrintObjekt.FontSize = 12
|
||||
'PrintText PrintObjekt, mdblLinkerRand + 95, mdblLinie1top - 6, "Rückläuferanalyse", , True
|
||||
'PrintText PrintObjekt, mdblLinkerRand + 95, mdblLinie1top - 6, "Rückläuferanalyse", , True
|
||||
|
||||
PrintObjekt.Font.Bold = False
|
||||
PrintTextAligned PrintObjekt, "Anlage 2 zur", mdblLinkerRand + dblBildbreite + 4, mdblLinkerRand + dblBildbreite + 100, mdblLinie1top - 18, vbCenter
|
||||
PrintObjekt.Font.Bold = True
|
||||
PrintTextAligned PrintObjekt, "ARBEITS- UND PRÜFANWEISUNG", mdblLinkerRand + dblBildbreite + 4, mdblLinkerRand + dblBildbreite + 100, mdblLinie1top - 12, vbCenter
|
||||
PrintTextAligned PrintObjekt, "ARBEITS- UND PRÜFANWEISUNG", mdblLinkerRand + dblBildbreite + 4, mdblLinkerRand + dblBildbreite + 100, mdblLinie1top - 12, vbCenter
|
||||
|
||||
PrintTextAligned PrintObjekt, "Rückläuferanalyse", mdblLinkerRand + dblBildbreite + 4, mdblLinkerRand + dblBildbreite + 100, mdblLinie1top - 6, vbCenter
|
||||
PrintTextAligned PrintObjekt, "Rückläuferanalyse", mdblLinkerRand + dblBildbreite + 4, mdblLinkerRand + dblBildbreite + 100, mdblLinie1top - 6, vbCenter
|
||||
|
||||
' vertikale Linie rechts , links neben Dokument-Nr
|
||||
PrintObjekt.Line (mdblLinkerRand + dblBildbreite + 100, mdblObererRand)-(mdblLinkerRand + dblBildbreite + 100, mdblLinie1top)
|
||||
@ -1543,10 +1543,10 @@ Private Sub PrintKopfdaten(ByRef PrintObjekt As Object)
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10 + 75, mdblCurrentY, m_objAuftrag.getKunde.getOrt
|
||||
|
||||
mdblCurrentY = mdblCurrentY + 10
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Zählertyp:", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Zählertyp:", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10 + 25, mdblCurrentY, lblBezeichnung.caption
|
||||
mdblCurrentY = mdblCurrentY + 10
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Zählernummer:", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Zählernummer:", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10 + 35, mdblCurrentY, FormatSerienNr(lblSerienNr.caption), , True
|
||||
|
||||
If m_objAuftragPositionSerienNr.getKundeneigeneSerienNr <> "" Then
|
||||
@ -1575,19 +1575,19 @@ Private Sub PrintAusfallBlock(rs As CRecordset, ByRef PrintObjekt As Object)
|
||||
PrintObjekt.Line (dblLinksOben, mdblCurrentY)-(dblRechtsOben, mdblCurrentY)
|
||||
PrintObjekt.Font.Size = 10
|
||||
mdblCurrentY = mdblCurrentY + PrintObjekt.TextHeight("X")
|
||||
PrintText PrintObjekt, mdblLinkerRand + 12, mdblCurrentY, "Prüfstation: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 12, mdblCurrentY, "Prüfstation: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 35, mdblCurrentY, rs.getIntValue("Pruefstation")
|
||||
|
||||
PrintText PrintObjekt, mdblLinkerRand + 50, mdblCurrentY, "Zählerposition: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 50, mdblCurrentY, "Zählerposition: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 80, mdblCurrentY, rs.getIntValue("Einbauplatz")
|
||||
|
||||
PrintText PrintObjekt, mdblLinkerRand + 90, mdblCurrentY, "Prüfer: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 90, mdblCurrentY, "Prüfer: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 107, mdblCurrentY, rs.getStringValue("Pruefer") & " (" & rs.getStringValue("PrueferNr") & ")"
|
||||
|
||||
mdblCurrentY = mdblCurrentY + PrintObjekt.TextHeight("X") * 1.5
|
||||
|
||||
If rs.getLongValue("PruefgangNr") <> 0 Then
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Prüfgang: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Prüfgang: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 30, mdblCurrentY, rs.getLongValue("PruefgangNr")
|
||||
blnHasPruefgang = True
|
||||
End If
|
||||
@ -1599,7 +1599,7 @@ Private Sub PrintAusfallBlock(rs As CRecordset, ByRef PrintObjekt As Object)
|
||||
Dim varTmp As Variant
|
||||
Dim i As Integer
|
||||
i = 1
|
||||
PrintText PrintObjekt, mdblLinkerRand + 80, mdblCurrentY, "Q [m³/h]"
|
||||
PrintText PrintObjekt, mdblLinkerRand + 80, mdblCurrentY, "Q [m³/h]"
|
||||
PrintObjekt.Line (mdblLinkerRand + 80, mdblCurrentY + 5)-(mdblLinkerRand + 80 + 15, mdblCurrentY + 5)
|
||||
PrintText PrintObjekt, mdblLinkerRand + 68, mdblCurrentY + 6, "Abweichung [%]"
|
||||
|
||||
@ -1622,7 +1622,7 @@ Private Sub PrintAusfallBlock(rs As CRecordset, ByRef PrintObjekt As Object)
|
||||
End If
|
||||
|
||||
If rs.getLongValue("FabNr") Then
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Geräte-Nr.:", True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Geräte-Nr.:", True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 30, mdblCurrentY, rs.getLongValue("FabNr")
|
||||
mdblCurrentY = mdblCurrentY + Printer.TextHeight("X") * 1.5
|
||||
End If
|
||||
@ -1639,7 +1639,7 @@ Private Sub PrintAusfallBlock(rs As CRecordset, ByRef PrintObjekt As Object)
|
||||
strSQL = strSQL & "WHERE (Ruecklaeufer_Ausfallgrund.Ruecklaufer_ID = " & rs.getIntValue("ID") & ") ORDER BY Ausfallgruende.Sortorder"
|
||||
rsAusfall.openRS strSQL, True
|
||||
If Not rs.EOF Then
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Ausfallgründe: ", , True
|
||||
PrintText PrintObjekt, mdblLinkerRand + 10, mdblCurrentY, "Ausfallgründe: ", , True
|
||||
|
||||
Do While Not rsAusfall.EOF
|
||||
PrintText PrintObjekt, mdblLinkerRand + 40, mdblCurrentY, rsAusfall.getStringValue("Text")
|
||||
@ -1703,21 +1703,21 @@ Private Sub SaveAusfallgruende(RuecklaeuferID As Long)
|
||||
If rs.EOF Then
|
||||
' kein Datensatz vorhanden
|
||||
If lstAusfallgrund.Selected(i) = True Then
|
||||
' ist ausgewählt ? Dann als neu hinzufügen
|
||||
' ist ausgewählt ? Dann als neu hinzufügen
|
||||
rs.addNew
|
||||
rs.setValue "Ruecklaufer_ID", RuecklaeuferID
|
||||
rs.setValue "Ausfallgrund_ID", lngAusfallgrundID
|
||||
Debug.Print RuecklaeuferID & "/" & lngAusfallgrundID & " neu"
|
||||
rs.update
|
||||
Else
|
||||
'Debug.Print RuecklaeuferID & "/" & lngAusfallgrundID & " bleibt draußen"
|
||||
'Debug.Print RuecklaeuferID & "/" & lngAusfallgrundID & " bleibt draußen"
|
||||
End If
|
||||
Else
|
||||
' Datensatz vorhanden
|
||||
If lstAusfallgrund.Selected(i) = True Then
|
||||
|
||||
Else
|
||||
Debug.Print RuecklaeuferID & "/" & lngAusfallgrundID & " wird gelöscht"
|
||||
Debug.Print RuecklaeuferID & "/" & lngAusfallgrundID & " wird gelöscht"
|
||||
rs.delete
|
||||
rs.update
|
||||
End If
|
||||
|
||||
Loading…
Reference in New Issue
Block a user