fakt, etc.

2025-10-30 12:00:22 +01:00
parent a1889578d8
commit 52e0041754
19 changed files with 1921 additions and 543 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -2136,7 +2136,7 @@ Public Class cFakturierung
            Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
            Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
            Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing
-                rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
+                rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False

        End Select

@@ -2182,10 +2182,6 @@ Public Class cFakturierung
        Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter)
        rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "")

-        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 firma.Firma_ID = 4 Then
            rpt.lblWarenWertUeberschrift.Visible = False
            rpt.txtWarenwert.Visible = False
@@ -2310,10 +2306,6 @@ Public Class cFakturierung
            rpt.lblHandlingATA.Visible = False
        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
@@ -2330,8 +2322,10 @@ Public Class cFakturierung
            rpt.lblAnzahlUeberschrift.Text = "Tage"
            rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
            rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
-            rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen % p.a."
+            rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen p.a."
+            rpt.lbl_onlyZR_VZUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
            rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen"
+            rpt.lblSteuerfreiUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Right


            rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
@@ -2446,17 +2440,25 @@ Public Class cFakturierung
                                          If firma.Firma_ID = 19 Then

                                              If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung
-                                                  Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""))

-                                                  rpt.SubReport.Report = subRpt
-                                                  rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
-                                                  rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                  Dim steuerfrei As Double = 0
+                                                  Dim steuerpfl As Double = 0

-                                                  'txtPackstuecke.Top += SubReport.Height
-                                                  'txtKdAuftragsnummer.Top += SubReport.Height
-                                                  'txtSendungsdetails.Top += SubReport.Height
-                                              Else
-                                                  rpt.SubReport.Report = Nothing
+                                                  If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then steuerfrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value)
+                                                  If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then steuerpfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)
+
+
+                                                  Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text.Replace("*", ""), CInt(rpt.lblAnzahl.Text), steuerfrei + steuerpfl)
+
+                                                      rpt.SubReport.Report = subRpt
+                                                      rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                      rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+
+                                                      'txtPackstuecke.Top += SubReport.Height
+                                                      'txtKdAuftragsnummer.Top += SubReport.Height
+                                                      'txtSendungsdetails.Top += SubReport.Height
+                                                  Else
+                                                      rpt.SubReport.Report = Nothing
                                              End If

                                              Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL")
@@ -4854,11 +4856,11 @@ Public Class cFakturierung
        'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
        'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")

-        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"))
        rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU


-        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
        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, "")
@@ -5254,7 +5256,7 @@ Public Class cFakturierung
        'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
        'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")

-        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper)

        If sachbearbeiterAufRechnung = "" Then
            rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
@@ -5492,10 +5494,15 @@ Public Class cFakturierung



-    Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
+    Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String

        If USRKURZNAME Is Nothing Then Return ""
        If USRKURZNAME Is DBNull.Value Then Return ""
+
+        If NameAufBeleg <> "" Then
+            USRKURZNAME = NameAufBeleg
+        End If
+
        If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname  FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "'  ", "ADMIN")
        If txt <> "" Then Return txt
@@ -5672,7 +5679,7 @@ Public Class cFakturierung
            'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
            'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
            'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
-            Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+            Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"))
            rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU

            'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)  'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT