ustva nummerierung, ustcnlFakt.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1643,7 +1643,7 @@ Public Class frmMDM_USTVAntrag
 
 
                 Dim pdf As String = ""
-                pdf = getPDF(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value)
+                pdf = getPDF(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value, dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value, False)
 
 
                 If IO.File.Exists(pdf) Then
@@ -1787,11 +1787,14 @@ Public Class frmMDM_USTVAntrag
             Dim list As New List(Of String)
 
             If dgvUSTVPositionen.SelectedRows.Count > 0 Then
+                Dim nummerierung As Boolean = False
+                nummerierung = MsgBox("Soll eine Nummerierung auf den PDF Dokumenten angegeben werden?", vbYesNoCancel)
+
 
                 For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
 
                         Dim pdf As String = ""
-                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value)
+                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1))
 
                     If pdf <> "" Then list.Add(pdf)
 
@@ -1840,7 +1843,7 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
 
-    Private Function getPDF(schnittstellenNr, ReNr, ReDat, daId) As String
+    Private Function getPDF(schnittstellenNr, ReNr, ReDat, daId, nummierung) As String
 
 
         Dim schnnittstellenNr = schnittstellenNr
@@ -1855,6 +1858,17 @@ Public Class frmMDM_USTVAntrag
 
         If dsID < 0 Then Return ""
 
+        'Anschfrift nummerierung:
+        Dim x = 200
+        Dim y = 10
+        Dim width = 300
+        Dim height = 10
+        Dim mSize = 10
+        Dim mFont = ""
+
+
+
+
         Select Case schnnittstellenNr
             Case 1
                 If dsID > 0 Then
@@ -1862,9 +1876,29 @@ Public Class frmMDM_USTVAntrag
                     Dim path As String
                     cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 4, path)
 
+                    If nummierung > 0 Then
+
+                        Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(path)
+
+                        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
+                        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+                        For page As Integer = 1 To pdfReader.NumberOfPages
+                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(nummierung, x, y, width, height, mFont, mSize, , itextsharp.text.Element.ALIGN_LEFT, page))
+                        Next
+
+                        pdfReader.Close()
+
+                        Dim PdfTmp = fm.fillPDFVorhandenesLokalesPDF_Path(path, listTowrite, , , , ,)
+                        Return PdfTmp
+
+                    Else
                         Return path
                     End If
 
+
+                End If
+
             Case 8
 
                 Me.Cursor = Cursors.WaitCursor
@@ -1914,6 +1948,11 @@ Public Class frmMDM_USTVAntrag
 
                         End If
 
+                        If nummierung > 0 Then
+                            Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(nummierung, x, y, width, height, mFont, mSize, , itextsharp.text.Element.ALIGN_LEFT, page))
+                        End If
+
                     Next
 
                     srcDoc.Close()
@@ -1930,8 +1969,32 @@ Public Class frmMDM_USTVAntrag
                 If dsID > 0 Then
                     Me.Cursor = Cursors.WaitCursor
                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
+                    If nummierung > 0 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)
+
+                        For page As Integer = 1 To pdfReader.NumberOfPages
+                            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(nummierung, x, y, width, height, mFont, mSize, , itextsharp.text.Element.ALIGN_LEFT, page))
+                        Next
+
+                        pdfReader.Close()
+
+                        Dim PdfTmp = fm.fillPDFVorhandenesLokalesPDF_Path(DS.GET_TOP1_PATH, listTowrite, , , , ,)
+                        Return PdfTmp
+
+                    Else
+
+
+
                         Return DS.GET_TOP1_PATH
                     End If
+
+
+
+                End If
         End Select