Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/Fakturierung/cFakturierung.vb

@@ -349,6 +349,11 @@ Public Class cFakturierung
                                 End Select
                             End If
 
+                            If RECHNUNG.Firma_ID = 4 Then
+                                strZahlbar &= " (<Rechnungsdatum+10T>)"
+                            End If
+                            '
+
                             'Zahlungsziel bei Maut/Diesel.
                             'DA STIMMT WAS NICHT::::::
                             'If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
@@ -529,7 +534,7 @@ Public Class cFakturierung
                     If PARK IsNot Nothing AndAlso PARK.Count > 0 Then
                         Select Case RECHNUNG.RechnungSprache
                             Case "EN" : strText = strText & "Place of fulfilment: DE-94152 Neuhaus am Inn " & vbCrLf & "The tax was paid at the tax office DE-94032 Passau under the tax number 153/105/80268 (UID:DE245897610)" & vbCrLf
-                            Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
+                            Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
                         End Select
                     End If
                 Case 21, 22, 23
@@ -725,11 +730,15 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim
 
+        If FIRMA.Firma_ID = 4 Then
+            rpt.lblEORIUeberschrift.Text = "St-Nr.:"
+        End If
+
         Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case 21 '"UNISPED"
                 rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
@@ -816,7 +825,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
@@ -875,7 +884,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
@@ -1052,6 +1061,7 @@ Public Class cFakturierung
                 Case Else : rpt.Label2.Text = ZZTage & " Tage"
             End Select
 
+
             Select Case RECHNUNG.Firma_ID
                 Case 21, 22, 23, 26, 24 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
             End Select
@@ -1072,9 +1082,11 @@ Public Class cFakturierung
             rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
             rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
             rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
-            If rpt.txtAbsender.Text = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
+
-            If rpt.txtEmpfaenger.Text = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
+            If FIRMA.Firma_ID = 4 Then
-            If rpt.txtAvisierer.Text = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
+                rpt.lblWarenWertUeberschrift.Visible = False
+                rpt.txtWarenwert.Visible = False
+            End If
 
             rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
 
@@ -1092,8 +1104,8 @@ Public Class cFakturierung
             rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "")
 
             rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "")
-            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
+            If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'')   FROM [Filialen]  where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL")
-            If rpt.txtGrenze.Text = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False
+            If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False
 
             rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine
             If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine
@@ -1134,14 +1146,6 @@ Public Class cFakturierung
             rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim
             rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
 
-            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
-                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
-                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
-            Else
-                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
-                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
-            End If
-
 
             '  REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
             '             Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
@@ -1178,6 +1182,15 @@ Public Class cFakturierung
             End If
 
 
+            If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
+            If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
+            If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
+            If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
+            If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
+            If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
+            If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False
+
+
             'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
 
             'ANLAGE ZUR RECHNUNG:
@@ -1352,6 +1365,12 @@ Public Class cFakturierung
 
 
             If vorschau Then
+
+
+                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
+                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
+
+
                 cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False)
                 Return True
             Else
@@ -1367,11 +1386,11 @@ Public Class cFakturierung
                             rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
 
                             If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
-                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
-                                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+                                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
                             Else
-                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
+                                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
-                                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
+                                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
                             End If
 
                         Else
@@ -1383,6 +1402,15 @@ Public Class cFakturierung
                         Return False
                     End If
                 Else
+
+                    If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
+                        rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
+                        rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
+                    Else
+                        rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
+                        rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
+                    End If
+
                     If RECHNUNG.[DruckDatumZeit] Is Nothing Then
                         RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt
                         RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen
@@ -1644,7 +1672,7 @@ Public Class cFakturierung
                     Case 4 'VERAG AG  (DE)
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-AG-Logo21.png""/>"
                         If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
-                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & "  |  www.verag.ag  |  FN 216714y</div>"
+                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-947  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, emailindividuell, "s.kriegner@verag.ag") & "  |  www.verag.ag  |  FN 216714y</div>"
                         If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                     Case 7 'ATILLA
                         getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
@@ -3065,7 +3093,7 @@ Public Class cFakturierung
             'rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
             'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
             rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
-            rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text <> "")
+            rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text.Trim <> "")
 
 
             rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine

SDL/Fakturierung/rptRechnungDruck.Designer.vb

@@ -1612,14 +1612,10 @@ Partial Public Class rptRechnungDruck
     Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
     Private WithEvents lblAbfertigungsNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblAbfertigungsDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
-    Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label
@@ -1696,4 +1692,8 @@ Partial Public Class rptRechnungDruck
     Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents txtBeförderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
 End Class

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -527,7 +527,7 @@ Public Class usrCntlFaktAbrechnung
             Case "VERAG"
                 If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
                     whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE','VERAGAG_DE') " : pnlDocs.Visible = True
-                    MsgBox("AH")
+                    'MsgBox("AH")
                 Else
                     whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True
                 End If
@@ -1605,7 +1605,7 @@ Public Class usrCntlFaktAbrechnung
             End If
         End If
 
-        initDGVAnhaenge
+        initDGVAnhaenge()
 
         cboRechnungAn.Focus()
         initRg_Anhaenhe_Default(RECHNUNG, SPEDBUCH)
@@ -1863,7 +1863,7 @@ Public Class usrCntlFaktAbrechnung
         Dim zahlbar = ""
 
         Select Case cboRgGS.SelectedIndex
-            Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.Textzz = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
+            Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
             Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
         End Select
 

SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb

@@ -1,4 +1,5 @@
-Imports GrapeCity.ActiveReports 
+Imports System.Globalization
+Imports GrapeCity.ActiveReports
 Imports GrapeCity.ActiveReports.Document
 
 Public Class subRptLaufzettelZollDE_ATA
@@ -42,7 +43,8 @@ Public Class subRptLaufzettelZollDE_ATA
             If Rechnungspreis IsNot Nothing AndAlso IsNumeric(Rechnungspreis) Then
                 txtRechnungspreisHeader.Visible = True
                 txtRechnungspreis.Visible = True
-                txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
+                ' txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
+                txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString("N2", CultureInfo.CurrentCulture) & " " & If(Rechnungswaehrung, "")
             End If
         End If
 
@@ -58,11 +60,12 @@ Public Class subRptLaufzettelZollDE_ATA
                 barcodeString = barcodeString.Replace("-", "")
                 Dim ACD = ""
                 Dim monat = ""
+                If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
+
                 If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) : ACD = "A"
                 If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "C"
                 If barcodeString.StartsWith("ATD") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "D"
 
-                If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
 
                 If ACD <> "" Then 'ATA/C/D
                     txtATNr.Visible = True

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.7.6")>
+<Assembly: AssemblyVersion("1.2.7.7")>
-<Assembly: AssemblyFileVersion("1.2.7.6")>
+<Assembly: AssemblyFileVersion("1.2.7.7")>

SDL/frmMain.Designer.vb

@@ -316,13 +316,13 @@ Partial Class frmMain
         '
         Me.FakturierungToolStripMenuItem.Enabled = False
         Me.FakturierungToolStripMenuItem.Name = "FakturierungToolStripMenuItem"
-        Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
+        Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.FakturierungToolStripMenuItem.Text = "Fakturierung"
         '
         'RechnungsdatenToolStripMenuItem
         '
         Me.RechnungsdatenToolStripMenuItem.Name = "RechnungsdatenToolStripMenuItem"
-        Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
+        Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.RechnungsdatenToolStripMenuItem.Text = "Rechnungsdaten"
         '
         'mnueBuchhaltung
@@ -358,14 +358,14 @@ Partial Class frmMain
         'AdministrationToolStripMenuItem1
         '
         Me.AdministrationToolStripMenuItem1.Name = "AdministrationToolStripMenuItem1"
-        Me.AdministrationToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.AdministrationToolStripMenuItem1.Size = New System.Drawing.Size(163, 22)
         Me.AdministrationToolStripMenuItem1.Text = "Administration"
         Me.AdministrationToolStripMenuItem1.Visible = False
         '
         'EssensbestellungToolStripMenuItem1
         '
         Me.EssensbestellungToolStripMenuItem1.Name = "EssensbestellungToolStripMenuItem1"
-        Me.EssensbestellungToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
+        Me.EssensbestellungToolStripMenuItem1.Size = New System.Drawing.Size(163, 22)
         Me.EssensbestellungToolStripMenuItem1.Text = "Essensbestellung"
         Me.EssensbestellungToolStripMenuItem1.Visible = False
         '

SDL/frmMain.vb

@@ -82,6 +82,11 @@ Public Class frmMain
         Else
             mnueMDM.Enabled = False
         End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", Me) = 0 Then
+            FakturierungToolStripMenuItem.Enabled = True
+        Else
+            FakturierungToolStripMenuItem.Enabled = False
+        End If
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenü", Me) = 0 Then
             mnueZoll.Enabled = True
         Else
@@ -1060,6 +1065,13 @@ Public Class frmMain
         Dim f As New frmEssensbestellungenAdministration()
         f.Show()
     End Sub
+
+    Private Sub FakturierungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FakturierungToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim f As New SDL.frmAbrechnungsMaske
+        f.Show(Me)
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class
 
 Public Class MyRenderer

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -104,7 +104,7 @@ Public Class cTimasAPI
                 Dim saldoAsDouble = CDbl(saldo)
                 saldoAsDouble = Math.Round(saldoAsDouble / 3600, 2)
                 Dim infoBuilder As New StringBuilder
-                infoBuilder.Append("Vortag ")
+                'infoBuilder.Append("Vortag ")
                 infoBuilder.Append(saldoAsDouble)
                 infoBuilder.Append(" h")
                 info = infoBuilder.ToString()

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -160,7 +160,7 @@ Public Class cProgramFunctions
                 Dim line As String = ""
                 For Each column As DataColumn In dt.Columns
                     'Add the Data rows.
-                    line += ";" & row(column.ColumnName).ToString().Replace(";", ",")
+                    line += ";" & row(column.ColumnName).ToString().Replace(";", ",").Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
                 Next
                 'Add new line
                 txt += line.Substring(1) & vbCrLf