neu

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -41,7 +41,6 @@ Partial Class frmBU_Mahnlauf
         Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
-        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.btnExcel = New System.Windows.Forms.Button()
@@ -54,6 +53,7 @@ Partial Class frmBU_Mahnlauf
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -297,31 +297,6 @@ Partial Class frmBU_Mahnlauf
         Me.cbxMahnstufeErh.Text = "Mahnstufe erhöhen"
         Me.cbxMahnstufeErh.UseVisualStyleBackColor = True
         '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = False
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = True
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = False
-        Me.MyTextBox2._TimeOnly_Seconds = False
-        Me.MyTextBox2._value = ""
-        Me.MyTextBox2._Waehrung = False
-        Me.MyTextBox2._WaehrungZeichen = False
-        Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(876, 118)
-        Me.MyTextBox2.MaxLength = 10
-        Me.MyTextBox2.MaxLineLength = -1
-        Me.MyTextBox2.MaxLines_Warning = ""
-        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox2.Name = "MyTextBox2"
-        Me.MyTextBox2.Size = New System.Drawing.Size(138, 20)
-        Me.MyTextBox2.TabIndex = 39
-        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
         'Label8
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -431,7 +406,6 @@ Partial Class frmBU_Mahnlauf
         '
         'Button3
         '
-        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -459,7 +433,6 @@ Partial Class frmBU_Mahnlauf
         '
         'Button1
         '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -470,6 +443,31 @@ Partial Class frmBU_Mahnlauf
         Me.Button1.Text = "Alle auswählen"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = True
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = False
+        Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(876, 118)
+        Me.MyTextBox2.MaxLength = 10
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(138, 20)
+        Me.MyTextBox2.TabIndex = 39
+        Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'frmBU_Mahnlauf
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -25,7 +25,8 @@ Public Class frmBU_Mahnlauf
             End If
 
 
-            Dim sqlStr = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, MAX(d_mahnung) Mahndatum
+            'Dim sqlStr = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum
+            Dim sqlStr = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,KTO.c_plz + ' ' + KTO.c_ort Ort,/*isnull(KTO.c_email,'') Email, */  isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email,count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum
                         " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
                       FROM op_debitor OP
 	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
@@ -37,7 +38,7 @@ Public Class frmBU_Mahnlauf
                       HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
                          " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
                       ORDER BY KTO.c_name"
-
+            'MsgBox(sqlStr)
             Dim dt_OP As DataTable = SQL.loadDgvBySql(sqlStr, "FIBU")
 
             .DataSource = dt_OP
@@ -132,27 +133,50 @@ Public Class frmBU_Mahnlauf
                     WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
                     and OP.i_personenkonto='" & KdNr & "'    
 					and isnull(si_mahnflags,0) <>(1)  
-					and d_netto  <=getdate() "
+					and d_netto<=getdate() "
 
         Return (SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0) > 0)
     End Function
+    Public Function isMahnlauf(KdNr As Integer, Firma_ID As Integer) As Boolean
+        Dim sqlStr = "SELECT count(*)
+                    FROM op_debitor OP
+                    WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
+                    and OP.i_personenkonto='" & KdNr & "'    
+					and isnull(si_mahnstufe,0) >=0  
+					and d_netto<=getdate() "
+
+        Return (SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0) > 0)
+    End Function
+
+    Public Function isFaelligAndMahnlauf(KdNr As Integer, Firma_ID As Integer) As Boolean
+        Dim sqlStr = "SELECT count(*)
+                    FROM op_debitor OP
+                    WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
+                    and OP.i_personenkonto='" & KdNr & "'    
+					and isnull(si_mahnflags,0) <>(1)  
+                    and isnull(si_mahnstufe,0) >=0      
+					and d_netto<=getdate() "
+
+        Return (SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0) > 0)
+    End Function
+
     Public Function increaseMahnstufe(KdNr As Integer, Firma_ID As Integer) As Boolean
-        Dim sqlStr = "UPDATE op_debitor  SET si_mahnstufe=(isnull(si_mahnstufe,0)+1)
+        Dim sqlStr = "UPDATE op_debitor  SET si_mahnstufe=(isnull(si_mahnstufe,0)+1),d_mahnung=GETDATE()
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
-                    and i_personenkonto='" & KdNr & "'  and (si_mahnstufe  >=0 OR si_mahnstufe is NULL)"
+                    and i_personenkonto='" & KdNr & "'  and dec_fremdbrutto>0 and (si_mahnstufe  >=0 OR si_mahnstufe is NULL) and d_netto<=getdate()"
         Return SQL.doSQL(sqlStr, "FIBU")
     End Function
 
     Public Function redoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Boolean
         Dim sqlStr = " UPDATE op_debitor SET si_mahnstufe=(si_mahnstufe-1)
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
-                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "'"
+                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "'  and d_netto<=getdate()"
         Return SQL.doSQL(sqlStr, "FIBU")
     End Function
     Public Function cntRedoMahnstufe(Firma_ID As Integer, Mahn_Datum As Date) As Integer
         Dim sqlStr = " SELECT COUNT(*) FROM op_debitor 
                     WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
-                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "'"
+                     and (si_mahnstufe  >0 AND si_mahnstufe is not NULL) and d_mahnung>='" & Mahn_Datum.ToShortDateString & "' and d_netto<=getdate()"
         Return SQL.getValueTxtBySql(sqlStr, "FIBU",,, 0)
     End Function
     Public Function doMahnung(Mahndruckart As Integer, KdNr As Integer, Firma_ID As Integer, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef forceMahnstufe As String = "", Optional showErr As Boolean = True, Optional hideMahnstopp As Boolean = True) As Boolean
@@ -195,6 +219,7 @@ Public Class frmBU_Mahnlauf
             End If
 
             Dim rpt As New rptMahnung(Sprache)
+            rpt.Document.Printer.PrinterName = ""
             Dim RG_Bezeichnung = "Mahnung.pdf"
 
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
@@ -406,45 +431,87 @@ Public Class frmBU_Mahnlauf
             '        MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
             '    End Try
             'End If
-            ''-------------------------------------------------------------------------------
-
+            ''----------------------------------------------------- 
 
             Select Case Mahndruckart
                 Case 0, 1 'DRUCKEN
 
                     Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
 
-
-
                     Return ret
 
                         'Case 1 'FAX
-                Case 2 'MAIL
+                Case 2, 5 'MAIL
 
                     Path = tmpPath
 
                     Try
-                        Dim outl As New Outlook.Application
-                        Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                        Mail = outl.CreateItem(0)
+                        Dim Mail_Subject = ""
+                        Dim Mail_HTMLBody = ""
+
+                        Dim Mail_To = ""
+
                         Select Case AD.LandKz
                             Case "TR"
-                                Mail.Subject = "PAYMENT REIMDER"
-                                Mail.HTMLBody = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
-                                Mail.HTMLBody &= "<br><br><br>Saygilarimizla<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
+                                Mail_Subject = "PAYMENT REIMDER"
+                                Mail_HTMLBody = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
+                                Mail_HTMLBody &= "<br><br><br>"
+                                Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>, 
+                                                 to which future reminders should be sent.<br>
+                                                 In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
+                                Mail_HTMLBody &= "<br><br><br>Saygilarimizla<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
                             Case "A", "AT", "D", "DE", "CH"
-                                Mail.Subject = MAHNTEXT
-                                Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die o.g. Rechnung."
-                                Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
+                                Mail_Subject = MAHNTEXT
+                                Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
+                                Mail_HTMLBody &= "<br><br><br>"
+                                Mail_HTMLBody &= "<i>Sollten Sie für diesen Sachverhalt nicht zuständig sein, teilen Sie uns bitte per Mail an <b>buchhaltung@verag.ag</b> eine Mailadresse mit, 
+                                                 an welche zukünftig die Mahnungen versandt werden sollen.<br>
+                                                 Derweil bitten wir um Weiterleitung an die zuständigen Personen in ihrem Haus.</i>"
+
+                                Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
                             Case Else
-                                Mail.Subject = "PAYMENT REIMDER"
-                                Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>attached we send you the invoice reminder."
-                                Mail.HTMLBody &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
+                                Mail_Subject = "PAYMENT REIMDER"
+                                Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>attached we send you the invoice reminder."
+                                Mail_HTMLBody &= "<br><br><br>"
+                                Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>, 
+                                                 to which future reminders should be sent.<br> 
+                                                 In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
+                                Mail_HTMLBody &= "<br><br><br>Best regards<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
                         End Select
-                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail.HTMLBody & "</div>"
-                        Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
-                        Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung.pdf")
-                        Mail.Display()
+                        Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
+                        Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
+
+                        If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
+
+                        Select Case Mahndruckart
+                            Case 5 'MAIL_SEND
+                                Dim list As New List(Of String)
+                                list.Add(tmpPath)
+                                Dim bcc = "buchhaltung@verag.ag"
+                                'Mail_To = bcc
+                                VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, "buchhaltung@verag.ag", False, False, , bcc, list)
+
+
+                            Case Else
+                                Dim outl As New Outlook.Application
+                                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                                Mail = outl.CreateItem(0)
+                                Mail.Subject = Mail_Subject
+                                Mail.HTMLBody = Mail_HTMLBody
+
+                                Mail.To = Mail_To
+                                Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Mahnung.pdf")
+
+                                'Mail.Sender = "bewerbung@verag.ag"
+                                Try
+                                    Mail.SentOnBehalfOfName = "buchhaltung@verag.ag"
+                                Catch ex2 As Exception
+                                    MsgBox(ex2.Message)
+                                End Try
+                                Mail.Display()
+                        End Select
+
+
 
                     Catch ex As Exception
                         MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
@@ -605,11 +672,11 @@ Public Class frmBU_Mahnlauf
 
                 Select Case MAHNSTUFE
                     Case -2
-                        MahnTEXT_VOR = "Nachfolgenden Rechnungen wurden noch nicht beglichen:"
+                        MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht beglichen:"
                         MahnTEXT_NACH = ""
                         MAHNTEXT = "Liste - Offene Posten"
                     Case -1
-                        MahnTEXT_VOR = "Nachfolgenden Rechnungen wurden noch nicht eingezogen:"
+                        MahnTEXT_VOR = "Nachfolgende Rechnungen wurden noch nicht eingezogen:"
                         MahnTEXT_NACH = "Die oben genannten Beträge werden per SEPA-Lastschriftmandat von Ihrem angegebenen Benkverbindung eingezogen."
                         MAHNTEXT = "Liste - Offene Posten"
                     Case 0
@@ -642,8 +709,8 @@ Public Class frmBU_Mahnlauf
     End Sub
 
 
-    Function getAusgabe() As String
-        Dim f As New frmBU_Mahnlauf_Ausgabe
+    Function getAusgabe(allowMailSend As Boolean) As String
+        Dim f As New frmBU_Mahnlauf_Ausgabe(allowMailSend)
         f.ShowDialog(Me)
         If f.DialogResult = DialogResult.OK Then
             Return f.AUSGABE
@@ -670,7 +737,7 @@ Public Class frmBU_Mahnlauf
             If sender Is Button4 Then forceMahnstufe = MyComboBox2._value : hideMahnstopp = True
 
             If MyDatagridview1.SelectedRows.Count > 0 Then
-                Select Case getAusgabe()
+                Select Case getAusgabe(False)
                     Case "PDF"
                         If MyDatagridview1.SelectedRows.Count = 1 Then
                             doMahnung(3, MyDatagridview1.SelectedRows(0).Cells("Konto").Value, cboFirma._value, , srchPrinter, forceMahnstufe,, hideMahnstopp)
@@ -747,7 +814,7 @@ Public Class frmBU_Mahnlauf
 
             If MyDatagridview1.SelectedRows.Count > 0 Then
 
-                Dim AUSGABE = getAusgabe()
+                Dim AUSGABE = getAusgabe(True)
 
 
                 Dim forceMahnstufe As String = -2
@@ -761,22 +828,23 @@ Public Class frmBU_Mahnlauf
                     Dim Konto = r.Cells("Konto").Value
                     Dim FirmaId = cboFirma._value
 
-                    If isFaellig(Konto, FirmaId) Then
+                    If isFaelligAndMahnlauf(Konto, FirmaId) Then
                         Dim Path = ""
                         Select Case AUSGABE
                             Case "PDF"
+                                If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
                                 If doMahnung(4, Konto, FirmaId, Path, srchPrinter) Then
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
                                     PDF_LIST.Add(Path)
                                 End If
                             Case "MAIL"
-                                If doMahnung(2, Konto, FirmaId,  , srchPrinter) Then
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
-                                End If
+                                If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                doMahnung(2, Konto, FirmaId,  , srchPrinter)
+                            Case "MAIL_SEND"
+                                If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                doMahnung(5, Konto, FirmaId,  , srchPrinter)
                             Case "PRINT"
-                                If doMahnung(0, Konto, FirmaId,  , srchPrinter) Then
-                                    If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
-                                End If
+                                If bool_increaseMahnstufe Then increaseMahnstufe(Konto, FirmaId)
+                                doMahnung(0, Konto, FirmaId,  , srchPrinter)
                         End Select
                     End If
                     cnt += 1

SDL/buchhaltung/frmBU_Mahnlauf_Ausgabe.Designer.vb

@@ -24,12 +24,13 @@ Partial Class frmBU_Mahnlauf_Ausgabe
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf_Ausgabe))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnPrint = New System.Windows.Forms.Button()
+        Me.btnMail = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.btnPDF = New System.Windows.Forms.Button()
-        Me.btnMail = New System.Windows.Forms.Button()
-        Me.btnPrint = New System.Windows.Forms.Button()
+        Me.cbxMailOffnen = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
@@ -37,6 +38,7 @@ Partial Class frmBU_Mahnlauf_Ausgabe
         'pnl
         '
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxMailOffnen)
         Me.pnl.Controls.Add(Me.btnPrint)
         Me.pnl.Controls.Add(Me.btnMail)
         Me.pnl.Controls.Add(Me.Panel1)
@@ -47,6 +49,40 @@ Partial Class frmBU_Mahnlauf_Ausgabe
         Me.pnl.Size = New System.Drawing.Size(384, 180)
         Me.pnl.TabIndex = 1
         '
+        'btnPrint
+        '
+        Me.btnPrint.BackColor = System.Drawing.Color.Transparent
+        Me.btnPrint.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnPrint.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.btnPrint.ForeColor = System.Drawing.Color.Black
+        Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
+        Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnPrint.Location = New System.Drawing.Point(253, 66)
+        Me.btnPrint.Name = "btnPrint"
+        Me.btnPrint.Size = New System.Drawing.Size(112, 90)
+        Me.btnPrint.TabIndex = 55
+        Me.btnPrint.Text = "DRUCK"
+        Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnPrint.UseVisualStyleBackColor = False
+        '
+        'btnMail
+        '
+        Me.btnMail.BackColor = System.Drawing.Color.Transparent
+        Me.btnMail.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.btnMail.ForeColor = System.Drawing.Color.Black
+        Me.btnMail.Image = Global.SDL.My.Resources.Resources.email_big1
+        Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnMail.Location = New System.Drawing.Point(135, 66)
+        Me.btnMail.Name = "btnMail"
+        Me.btnMail.Size = New System.Drawing.Size(112, 90)
+        Me.btnMail.TabIndex = 54
+        Me.btnMail.Text = "E-MAIL"
+        Me.btnMail.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnMail.UseVisualStyleBackColor = False
+        '
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -101,39 +137,15 @@ Partial Class frmBU_Mahnlauf_Ausgabe
         Me.btnPDF.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnPDF.UseVisualStyleBackColor = False
         '
-        'btnMail
+        'cbxMailOffnen
         '
-        Me.btnMail.BackColor = System.Drawing.Color.Transparent
-        Me.btnMail.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnMail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.btnMail.ForeColor = System.Drawing.Color.Black
-        Me.btnMail.Image = Global.SDL.My.Resources.Resources.email_big1
-        Me.btnMail.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnMail.Location = New System.Drawing.Point(135, 66)
-        Me.btnMail.Name = "btnMail"
-        Me.btnMail.Size = New System.Drawing.Size(112, 90)
-        Me.btnMail.TabIndex = 54
-        Me.btnMail.Text = "E-MAIL"
-        Me.btnMail.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btnMail.UseVisualStyleBackColor = False
-        '
-        'btnPrint
-        '
-        Me.btnPrint.BackColor = System.Drawing.Color.Transparent
-        Me.btnPrint.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnPrint.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
-        Me.btnPrint.ForeColor = System.Drawing.Color.Black
-        Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2
-        Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnPrint.Location = New System.Drawing.Point(253, 66)
-        Me.btnPrint.Name = "btnPrint"
-        Me.btnPrint.Size = New System.Drawing.Size(112, 90)
-        Me.btnPrint.TabIndex = 55
-        Me.btnPrint.Text = "DRUCK"
-        Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btnPrint.UseVisualStyleBackColor = False
+        Me.cbxMailOffnen.AutoSize = True
+        Me.cbxMailOffnen.Location = New System.Drawing.Point(135, 158)
+        Me.cbxMailOffnen.Name = "cbxMailOffnen"
+        Me.cbxMailOffnen.Size = New System.Drawing.Size(78, 17)
+        Me.cbxMailOffnen.TabIndex = 56
+        Me.cbxMailOffnen.Text = "Mail öffnen"
+        Me.cbxMailOffnen.UseVisualStyleBackColor = True
         '
         'frmBU_Mahnlauf_Ausgabe
         '
@@ -147,6 +159,7 @@ Partial Class frmBU_Mahnlauf_Ausgabe
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
         Me.Text = "frmBU_Mahnlauf_Ausgabe"
         Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
         Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
@@ -159,4 +172,5 @@ Partial Class frmBU_Mahnlauf_Ausgabe
     Friend WithEvents btnPDF As Button
     Friend WithEvents btnPrint As Button
     Friend WithEvents btnMail As Button
+    Friend WithEvents cbxMailOffnen As CheckBox
 End Class

SDL/buchhaltung/frmBU_Mahnlauf_Ausgabe.vb

@@ -1,7 +1,15 @@
 Public Class frmBU_Mahnlauf_Ausgabe
 
     Public AUSGABE = ""
+    Public allowMailSend = False
+    Sub New(allowMailSend)
 
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.allowMailSend = allowMailSend
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Me.DialogResult = DialogResult.Cancel
         Me.Close()
@@ -12,10 +20,21 @@
     End Sub
 
     Private Sub btnMail_Click(sender As Object, e As EventArgs) Handles btnMail.Click
-        AUSGABE = "MAIL"
+        If cbxMailOffnen.Checked Then
+            AUSGABE = "MAIL"
+        Else
+            AUSGABE = "MAIL_SEND"
+        End If
     End Sub
 
     Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
         AUSGABE = "PRINT"
     End Sub
+
+    Private Sub frmBU_Mahnlauf_Ausgabe_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not allowMailSend Then
+            cbxMailOffnen.Checked = False
+            cbxMailOffnen.Visible = False
+        End If
+    End Sub
 End Class

SDL/buchhaltung/rptMahnung.Designer.vb

@@ -580,7 +580,7 @@ Partial Public Class rptMahnung
         Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
         Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
     "do-char-set: 1"
-        Me.lblSachbearbeiter.Text = "Frau Stockenhuber, DW 13" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Frau Stadler, DW 57"
+        Me.lblSachbearbeiter.Text = "Frau Stockenhuber, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Frau Stadler"
         Me.lblSachbearbeiter.Top = 1.879!
         Me.lblSachbearbeiter.Width = 1.405268!
         '
@@ -636,85 +636,85 @@ Partial Public Class rptMahnung
         '
         Me.lblRechnung_Name1.Height = 0.1771654!
         Me.lblRechnung_Name1.HyperLink = Nothing
-        Me.lblRechnung_Name1.Left = 0.403567!
+        Me.lblRechnung_Name1.Left = 0.404!
         Me.lblRechnung_Name1.Name = "lblRechnung_Name1"
         Me.lblRechnung_Name1.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblRechnung_Name1.Text = "VERAG Spedition AG"
-        Me.lblRechnung_Name1.Top = 1.879134!
+        Me.lblRechnung_Name1.Top = 1.779!
         Me.lblRechnung_Name1.Width = 4.589764!
         '
         'lblRechnung_Name2
         '
         Me.lblRechnung_Name2.Height = 0.1771653!
         Me.lblRechnung_Name2.HyperLink = Nothing
-        Me.lblRechnung_Name2.Left = 0.403567!
+        Me.lblRechnung_Name2.Left = 0.404!
         Me.lblRechnung_Name2.Name = "lblRechnung_Name2"
         Me.lblRechnung_Name2.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblRechnung_Name2.Text = "Abteilung: ZOLL"
-        Me.lblRechnung_Name2.Top = 2.056299!
+        Me.lblRechnung_Name2.Top = 1.956165!
         Me.lblRechnung_Name2.Width = 4.589763!
         '
         'lblRechnung_Strasse
         '
         Me.lblRechnung_Strasse.Height = 0.1771653!
         Me.lblRechnung_Strasse.HyperLink = Nothing
-        Me.lblRechnung_Strasse.Left = 0.404!
+        Me.lblRechnung_Strasse.Left = 0.404433!
         Me.lblRechnung_Strasse.Name = "lblRechnung_Strasse"
         Me.lblRechnung_Strasse.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblRechnung_Strasse.Text = "Suben Nr. 100"
-        Me.lblRechnung_Strasse.Top = 2.41!
+        Me.lblRechnung_Strasse.Top = 2.309866!
         Me.lblRechnung_Strasse.Width = 4.589763!
         '
         'lblRechnung_Ort
         '
         Me.lblRechnung_Ort.Height = 0.1771653!
         Me.lblRechnung_Ort.HyperLink = Nothing
-        Me.lblRechnung_Ort.Left = 0.4039997!
+        Me.lblRechnung_Ort.Left = 0.4044327!
         Me.lblRechnung_Ort.Name = "lblRechnung_Ort"
         Me.lblRechnung_Ort.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblRechnung_Ort.Text = "A 4975 SUBEN"
-        Me.lblRechnung_Ort.Top = 2.587166!
+        Me.lblRechnung_Ort.Top = 2.487032!
         Me.lblRechnung_Ort.Width = 4.589763!
         '
         'Line15
         '
         Me.Line15.Height = 0!
-        Me.Line15.Left = 0.403567!
+        Me.Line15.Left = 0.404!
         Me.Line15.LineWeight = 1.0!
         Me.Line15.Name = "Line15"
-        Me.Line15.Top = 1.851969!
+        Me.Line15.Top = 1.751835!
         Me.Line15.Width = 3.619683!
-        Me.Line15.X1 = 0.403567!
-        Me.Line15.X2 = 4.02325!
-        Me.Line15.Y1 = 1.851969!
-        Me.Line15.Y2 = 1.851969!
+        Me.Line15.X1 = 0.404!
+        Me.Line15.X2 = 4.023683!
+        Me.Line15.Y1 = 1.751835!
+        Me.Line15.Y2 = 1.751835!
         '
         'lblFirma
         '
         Me.lblFirma.Height = 0.1181102!
         Me.lblFirma.HyperLink = Nothing
-        Me.lblFirma.Left = 0.403567!
+        Me.lblFirma.Left = 0.404!
         Me.lblFirma.Name = "lblFirma"
         Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
     "o-char-set: 1"
         Me.lblFirma.Text = "VERAG Spedition AG, A-4975 Suben"
-        Me.lblFirma.Top = 1.698425!
+        Me.lblFirma.Top = 1.598291!
         Me.lblFirma.Width = 3.619686!
         '
         'lblRechnung_Land
         '
         Me.lblRechnung_Land.Height = 0.1771653!
         Me.lblRechnung_Land.HyperLink = Nothing
-        Me.lblRechnung_Land.Left = 0.404!
+        Me.lblRechnung_Land.Left = 0.404433!
         Me.lblRechnung_Land.Name = "lblRechnung_Land"
         Me.lblRechnung_Land.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblRechnung_Land.Text = "ÖSTERREICH"
-        Me.lblRechnung_Land.Top = 2.764331!
+        Me.lblRechnung_Land.Top = 2.664197!
         Me.lblRechnung_Land.Width = 4.589763!
         '
         'Label3
@@ -737,7 +737,7 @@ Partial Public Class rptMahnung
         Me.Label4.Name = "Label4"
         Me.Label4.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
     "do-char-set: 1"
-        Me.Label4.Text = "+43 (0) 7711 / 2777 - 57 oder 59"
+        Me.Label4.Text = "+43 (0) 7711 / 2777 - 110"
         Me.Label4.Top = 2.193!
         Me.Label4.Width = 1.895268!
         '
@@ -793,12 +793,12 @@ Partial Public Class rptMahnung
         '
         Me.Label25.Height = 0.1771653!
         Me.Label25.HyperLink = Nothing
-        Me.Label25.Left = 0.404!
+        Me.Label25.Left = 0.404433!
         Me.Label25.Name = "Label25"
         Me.Label25.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.Label25.Text = "Herr/Frau"
-        Me.Label25.Top = 2.233!
+        Me.Label25.Top = 2.132866!
         Me.Label25.Width = 4.589763!
         '
         'lblUeberschriftRG_GS

SDL/buchhaltung/rptMahnung.vb

@@ -5,14 +5,18 @@ Public Class rptMahnung
     Dim _LAN = ""
     Sub New()
         InitializeComponent()
+        Me.Document.Printer.PrinterName = ""
     End Sub
     Sub New(_LAN)
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
+        Me.Document.Printer.PrinterName = ""
         Me._LAN = _LAN
         ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
     Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+        Me.Document.Printer.PrinterName = ""
+
         If _LAN.replace("DE", "") <> "" Then
             SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung")
             SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung")