diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index c54eae68..8e4d8beb 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -349,6 +349,11 @@ Public Class cFakturierung End Select End If + If RECHNUNG.Firma_ID = 4 Then + strZahlbar &= " ()" + 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 rpt.txtAvisierer.Text = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False + + If FIRMA.Firma_ID = 4 Then + 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 = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False + 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.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("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) Else - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", 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 &= "" If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" - getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
" + getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-947 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "s.kriegner@verag.ag") & " | www.verag.ag | FN 216714y
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 7 'ATILLA getSignature &= "" @@ -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 diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index ff8f51ea..4941635e 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/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 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 297d4ca5..7036144b 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb index 765eceae..98b8b8cd 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb +++ b/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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 6886ab4d..d24fd22c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index e825036e..7427efb0 100644 --- a/SDL/frmMain.Designer.vb +++ b/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 ' diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 52819252..0e817eb8 100644 --- a/SDL/frmMain.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 4d16a280..7a01f525 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/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() diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index e42fa0ef..9a2c4497 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/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