MDM

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2,9 +2,11 @@
 Imports System.IO
 Imports Challenge
 Imports com.sun.org.glassfish.external.probe.provider.annotations
+Imports itextsharp.text.pdf
 Imports MDM_Worker
 Imports TAlex.WPF.Helpers
 Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmMDMDatenverarbetiung
 
@@ -1084,6 +1086,7 @@ Public Class frmMDMDatenverarbetiung
         pnlIDS.Visible = False
         Panel4.Visible = False
         Panel5.Visible = False
+        cbxKopie.Visible = False
 
 
         Select Case Me.LIEFERANT
@@ -1108,6 +1111,7 @@ Public Class frmMDMDatenverarbetiung
                 Panel3.Controls.Add(c)
                 c.Dock = DockStyle.Fill
                 pnlIDS.Visible = True
+                cbxKopie.Visible = True
 
             Case "MSE"
                 Panel5.Visible = True
@@ -1487,7 +1491,7 @@ Public Class frmMDMDatenverarbetiung
                     LEFT JOIN 
 					    tblIDSInvoicesNew
 						on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber
-                    WHERE  cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null and isnull(charged,0)= 0 " & sqlWhere & "        
+                    WHERE  cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null and isnull(charged,0) = 0 " & sqlWhere & "        
                     order by tblIDSTransactionsNew.KdNrVERAG"
 
         Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
@@ -1534,8 +1538,28 @@ Public Class frmMDMDatenverarbetiung
 
                 If IDS("InvoiceID") > 0 Then
                     Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
-                    File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name), True)
-                End If
+                    If cbxKopie.Checked Then
+
+                        Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(DS.GET_TOP1_PATH)
+
+                        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+                        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+                        Dim Y = 60
+                        For page As Integer = 1 To pdfReader.NumberOfPages
+                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("KOPIE ", 121, Y, 200, 15, "bold", 15, , itextsharp.text.Element.ALIGN_LEFT, page))
+                        Next
+
+                        pdfReader.Close()
+
+                        Dim PdfTmp = fm.fillPDFVorhandenesLokalesPDF_Path(DS.GET_TOP1_PATH, listTowrite, , , , ,)
+                        File.Copy(PdfTmp, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name), True)
+
+
+                    Else
+File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name), True)
+                    End If
+End If
 
 
                 If verarbOK Then