ustva
This commit is contained in:
@@ -64,8 +64,6 @@ Public Class frmMDM_USTVAntrag
|
||||
cbxLand.Visible = UStVAn_ID <= 0
|
||||
|
||||
|
||||
|
||||
|
||||
With dgvUSTVPositionen
|
||||
.ClearSelection()
|
||||
|
||||
@@ -1640,110 +1638,13 @@ Public Class frmMDM_USTVAntrag
|
||||
Try
|
||||
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
|
||||
|
||||
|
||||
|
||||
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, False)
|
||||
|
||||
|
||||
If IO.File.Exists(pdf) Then
|
||||
Process.Start(pdf)
|
||||
End If
|
||||
|
||||
'Dim schnnittstellenNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_SchnittstellenNr").Value
|
||||
'Dim ReNr = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReNr").Value
|
||||
'Dim ReDat = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_ReDat").Value
|
||||
|
||||
'Dim dsID
|
||||
|
||||
'If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso IsNumeric(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) AndAlso dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value > 0 Then
|
||||
' dsID = dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value
|
||||
'Else
|
||||
' dsID = getDaID_OLD(schnnittstellenNr, ReDat, ReNr)
|
||||
|
||||
'End If
|
||||
|
||||
'Select Case schnnittstellenNr
|
||||
' Case 1
|
||||
' If dsID > 0 Then
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 3)
|
||||
' End If
|
||||
|
||||
' Case 8
|
||||
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
||||
|
||||
' 'If Not IsDBNull(dgvUSTVPositionen.Rows(e.RowIndex).Cells("UStVPo_daId").Value) Then
|
||||
' ' ds.OPEN_SINGLE()
|
||||
' ' Exit Sub
|
||||
' 'End If
|
||||
|
||||
' Dim path_src As String = ds.OPEN_SINGLE(False)
|
||||
' If path_src = "" Then Exit Sub
|
||||
|
||||
' Try
|
||||
|
||||
' Dim fi As New System.IO.DirectoryInfo(path_src)
|
||||
' Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(path_src)
|
||||
|
||||
' Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension,, True, "IDS-Rechnungen")
|
||||
' Dim srcDoc As New itextsharp.text.Document()
|
||||
' Dim PdfCopyProvider As New itextsharp.text.pdf.PdfCopy(srcDoc, New FileStream(TMP_Path_New, System.IO.FileMode.Create))
|
||||
' PdfCopyProvider.SetFullCompression()
|
||||
' srcDoc.Open()
|
||||
' PdfReader.unethicalreading = True
|
||||
' Dim pages As New List(Of Integer)()
|
||||
|
||||
' For page As Integer = 1 To pdfReader.NumberOfPages
|
||||
|
||||
' Dim strategy As ITextExtractionStrategy = New SimpleTextExtractionStrategy()
|
||||
' Dim currentpagetext As String = PdfTextExtractor.GetTextFromPage(pdfReader, page, strategy)
|
||||
' Dim searchtext As String = ReNr
|
||||
' Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
|
||||
|
||||
' If (currentpagetext.Contains(searchtext)) Then
|
||||
|
||||
' If page > pdfReader.NumberOfPages Then
|
||||
' MsgBox("Seitenanzahl überschritten!")
|
||||
' srcDoc.Close() : pdfReader.Close()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Try
|
||||
|
||||
' impPage = PdfCopyProvider.GetImportedPage(pdfReader, page)
|
||||
' ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
|
||||
' PdfCopyProvider.SetPageSize(New itextsharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height, pdfReader.GetPageRotation(page)))
|
||||
' ' ----- PDF Seite in das neue Dokument einfügen
|
||||
' If impPage IsNot Nothing Then PdfCopyProvider.AddPage(impPage)
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
|
||||
|
||||
' End If
|
||||
|
||||
' Next
|
||||
|
||||
' srcDoc.Close()
|
||||
' pdfReader.Close()
|
||||
|
||||
' If IO.File.Exists(TMP_Path_New) Then
|
||||
' Process.Start(TMP_Path_New)
|
||||
' End If
|
||||
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
' Case Else
|
||||
' If dsID > 0 Then
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dsID)
|
||||
' DS.OPEN_SINGLE()
|
||||
' End If
|
||||
'End Select
|
||||
End If
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
@@ -1858,7 +1759,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
If dsID < 0 Then Return ""
|
||||
|
||||
'Anschfrift nummerierung:
|
||||
'Anschrift Nummerierung:
|
||||
Dim x = 200
|
||||
Dim y = 10
|
||||
Dim width = 300
|
||||
@@ -1866,9 +1767,6 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim mSize = 10
|
||||
Dim mFont = ""
|
||||
|
||||
|
||||
|
||||
|
||||
Select Case schnnittstellenNr
|
||||
Case 1
|
||||
If dsID > 0 Then
|
||||
@@ -1987,8 +1885,6 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
Return DS.GET_TOP1_PATH
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user