From ec281ac5c229dee6effc1645811a8fbc4f6f7f4d Mon Sep 17 00:00:00 2001 From: Stoyan Zlatev Date: Mon, 15 May 2023 06:45:15 +0000 Subject: [PATCH] Replace frmRuecklaeuferanalyse.frm --- Shared/frmRuecklaeuferanalyse.frm | 120 +++++++++++++++--------------- 1 file changed, 60 insertions(+), 60 deletions(-) diff --git a/Shared/frmRuecklaeuferanalyse.frm b/Shared/frmRuecklaeuferanalyse.frm index 7f7b7eed..a8dce1fa 100644 --- a/Shared/frmRuecklaeuferanalyse.frm +++ b/Shared/frmRuecklaeuferanalyse.frm @@ -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