QUALI, FAKT VERAG AG(DE)

SDL/Fakturierung/cFakturierung.vb

@@ -737,6 +737,8 @@ Public Class cFakturierung
 
         If FIRMA.Firma_ID = 4 Then
             rpt.lblEORIUeberschrift.Text = "St-Nr.:"
+            rpt.lblFirma.Visible = False
+            rpt.Line15.Visible = False
         End If
 
         Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -1086,6 +1088,8 @@ Public Class cFakturierung
             If FIRMA.Firma_ID = 4 Then
                 rpt.lblWarenWertUeberschrift.Visible = False
                 rpt.txtWarenwert.Visible = False
+                rpt.txtGrenze.Visible = False
+                rpt.txtGrenzeUeberschrift.Visible = False
             End If
 
             rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
@@ -1127,7 +1131,12 @@ Public Class cFakturierung
             'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper
 
             If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
-                rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim
+                If RECHNUNG.Firma_ID = 4 Then
+                    rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht
+                Else
+                    rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim
+                End If
+
                 ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim
             Else
                 rpt.lblRechnung_Steuernummer.Text = ""