MDM, fakt

SDL/Fakturierung/cFakturierung.vb

@@ -1690,10 +1690,10 @@ Public Class cFakturierung
                                     End If
                                 End If
                                 If RECHNUNG.ANHAENGE.Count > 0 Then
-                                    'wird nicht mehr benötigt! TicketNr: 953
-                                    'If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
-                                    '    printRGAnhaenge(RECHNUNG)
-                                    'End If
+                                    'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt!
+                                    If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then
+                                        printRGAnhaenge(RECHNUNG)
+                                    End If
                                 End If
                             End If
 
@@ -2414,7 +2414,7 @@ Public Class cFakturierung
                     Case 24 'AMBAR
                         Dim defaultMail = getDefaultMail("AMBAR", departmentmailadress, fakturierung)
                         getSignature &= "<img width=""250"" height=""70"" src=""" & imgsrc & "ambar_boarder.png""/>"
-                        If displayFirmenmane Then getSignature &= "<br><b>AMBAR Logistic Services GmbH</b><br>"
+                        If displayFirmenmane Then getSignature &= "<br><b>AMBAR | IMPORT ZOLL</b><br>"
                         getSignature &= "<div style=""font-size:12px"">D 83435 Bad Reichenhall, Reichenhallerstrasse 62<br><b>T</b>  +49 8651 9962492  |  <b>F</b>  +49 8651 9962493   |  <b>@</b>  " & If(individuell, emailindividuell, defaultMail) & "  |  www.ambarlog.com  |  DE309105428</div>"
                         If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                     Case 21 'UNISPED
@@ -3557,35 +3557,22 @@ Public Class cFakturierung
             Dim sumSteuerpflichtig As Double = 0
             Dim sumSteuerfrei As Double = 0
 
-            Dim watermark As New Label()
-
-            watermark.Font = New Font("Arial", 72, FontStyle.Bold)
-            watermark.ForeColor = Color.LightGray
-            watermark.Angle = 45 ' Rotate watermark
-            watermark.Left = 2.0F
-            watermark.Top = 5.0F
-            watermark.Width = 6.0F
-            watermark.Height = 1.5F
-            watermark.BackColor = Color.Transparent
-            ' Ensure the PageHeader section exists
 
             If Sammelrechnungskopie Then
-
+                Dim imageForWatermark As Image
                 Select Case ROW("RechnungSprache")
-                    Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" : watermark.Text = "INVALID"
-                    Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" : watermark.Text = "UNGÜLTIG"
+                    Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" : imageForWatermark = My.Resources.ungueltig_en
+                    Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" : imageForWatermark = My.Resources.ungueltig_de
                 End Select
-                rpt.Sections("Detail").Controls.Add(watermark)
+
+                If Rechnugnsdruck = 7 Then 'nur bei "Vorschaudruck"
+                    rpt.Watermark = imageForWatermark
+                    rpt.WatermarkSizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+                End If
             End If
 
 
 
-
-
-
-
-
-
             AddHandler rpt.Detail.Format, Sub()
                                               ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                               ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString