Fremdrechnungen, MDM-Zinsrechnung, etc,

SDL/Fakturierung/cFakturierung.vb

@@ -3,12 +3,9 @@ Imports System.Globalization
 Imports System.IO
 Imports System.Net
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.org.apache.xpath.internal.operations
-Imports javax.print.attribute.standard
 Imports Microsoft.Office.Interop
 Imports s2industries.ZUGFeRD
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cFakturierung
 
@@ -2319,6 +2316,28 @@ Public Class cFakturierung
         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
 
+        If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then
+            rpt.lblLeistungNr.Visible = False
+            rpt.lblAnzahl.Visible = False
+            rpt.lblSteuerfrei.Visible = False
+            rpt.lblSteuerpflichtig.Visible = False
+
+            rpt.lblLeistungUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
+            rpt.lblLeistungUeberschrift.Text = "RechnungsNr"
+            rpt.lblAnzahlUeberschrift.Text = "Tage"
+            rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center
+            rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a."
+            rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag"
+
+
+            rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True
+            rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True
+            rpt.lbl_onlyZR_VZUeberschrift.Visible = True
+            rpt.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = True
+
+            rpt.txtLeistung.Visible = False
+        End If
+
 
         'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
 
@@ -2610,14 +2629,15 @@ Public Class cFakturierung
 
                                                  If RECHNUNG.Firma_ID = 19 Then
 
+                                                     If rpt.lblSteuerbetrag.Text = "" Then rpt.lblSteuersatz.Text = ""
                                                      'rpt.lblSteuersatz.Visible = False
                                                      'rpt.lblSteuerbetrag.Visible = False
 
                                                      rpt.lblSteuerpflichtigGes.Visible = False
-                                                     rpt.lblSteuerfreiGes.Visible = False
-                                                     rpt.lblZwText.Visible = False
-                                                     rpt.lblZWSumme.Visible = False
-                                                 End If
+                                                         rpt.lblSteuerfreiGes.Visible = False
+                                                         rpt.lblZwText.Visible = False
+                                                         rpt.lblZWSumme.Visible = False
+                                                     End If
 
 
                                              End Sub