You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
4.7 KiB
93 lines
4.7 KiB
Imports System.Xml
|
|
Imports System.IO
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
|
|
Public Class Verarbeitung
|
|
|
|
Public Function AddPageToPDF(ByVal TGNr As String, ByVal timestmp As String, ByVal AnzahlDokumente As Integer, ByVal PartnerNr As Integer, ByVal PartnerKurzname As String, ByVal partno As Integer) As Boolean
|
|
Dim log As New clsLog
|
|
Dim spartno As String = LTrim(Str(partno))
|
|
While Len(spartno) < 2
|
|
spartno = "0" + spartno
|
|
End While
|
|
Try
|
|
'Normal - mit einer Returndatei
|
|
If partno = 0 Then
|
|
Dim con As New SqlConnection(Globals.sConnectionString)
|
|
Dim da As New SqlDataAdapter("Select * From edex_bl_druckjob where tgnummer ='" & TGNr & "' and filetimestamp=@erstelltam", con)
|
|
da.SelectCommand.Parameters.AddWithValue("@erstelltam", timestmp)
|
|
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
|
Dim ds As New DataSet
|
|
|
|
' Dim fs As New FileStream(Globals.OutputFolder & "\" & TGNr & timestmp & "_done.pdf", FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim fs As New FileStream(Globals.OutputFolder & "\" & TGNr & spartno + timestmp & ".pdf", FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim MyData(fs.Length) As Byte
|
|
fs.Read(MyData, 0, fs.Length)
|
|
fs.Close()
|
|
con.Open()
|
|
da.Fill(ds, "edex_bl_druckjob")
|
|
Dim myRow As DataRow
|
|
myRow = ds.Tables("edex_bl_druckjob").Rows(0)
|
|
myRow("pdfdokument") = MyData
|
|
da.Update(ds, "edex_bl_druckjob")
|
|
fs = Nothing
|
|
MyCB = Nothing
|
|
ds = Nothing
|
|
da = Nothing
|
|
con.Close()
|
|
con = Nothing
|
|
File.Delete(Globals.TempPath & "\" & TGNr & spartno & timestmp & "_summary.pdf")
|
|
log.InsertJournale("EDKB07: PDF-Ergänzung erfolgreich " & CType(Now, String) & " TGNr: " & TGNr & " Erstelltam: " & timestmp, clsLog.Enum_InfoTyp.Keine)
|
|
Return True
|
|
Else
|
|
Dim con1 As New SqlConnection(Globals.sConnectionString)
|
|
Dim da1 As New SqlDataAdapter("Select * From edex_bl_druckjob where tgnummer ='" & TGNr & "' and filetimestamp=@erstelltam", con1)
|
|
da1.SelectCommand.Parameters.AddWithValue("@erstelltam", timestmp)
|
|
Dim MyCB1 As SqlCommandBuilder = New SqlCommandBuilder(da1)
|
|
Dim ds1 As New DataSet
|
|
da1.Fill(ds1, "druckjob")
|
|
Dim druckjobnr As Integer = ds1.Tables(0).Rows(0).Item("druckjobnr")
|
|
con1.Dispose()
|
|
da1.Dispose()
|
|
MyCB1.Dispose()
|
|
ds1.Dispose()
|
|
|
|
Dim con As New SqlConnection(Globals.sConnectionString)
|
|
Dim da As New SqlDataAdapter("Select * From edex_bl_druckjob_part where druckjobnr=" + LTrim(Str(druckjobnr)) + " and partno=" + LTrim(Str(partno)), con)
|
|
'da.SelectCommand.Parameters.Add("@erstelltam", timestmp)
|
|
Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
|
Dim ds As New DataSet
|
|
|
|
'Dim fs As New FileStream(Globals.OutputFolder & "\" & TGNr & timestmp & "_done.pdf", FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim fs As New FileStream(Globals.OutputFolder & "\" & TGNr & spartno & timestmp & ".pdf", FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim MyData(fs.Length) As Byte
|
|
fs.Read(MyData, 0, fs.Length)
|
|
fs.Close()
|
|
con.Open()
|
|
da.Fill(ds, "edex_bl_druckjob_part")
|
|
Dim myRow As DataRow
|
|
myRow = ds.Tables("edex_bl_druckjob_part").Rows(0)
|
|
myRow("pdfdokument") = MyData
|
|
da.Update(ds, "edex_bl_druckjob_part")
|
|
fs = Nothing
|
|
MyCB = Nothing
|
|
ds = Nothing
|
|
da = Nothing
|
|
con.Close()
|
|
con = Nothing
|
|
File.Delete(Globals.TempPath & "\" & TGNr & spartno & timestmp & "_summary.pdf")
|
|
log.InsertJournale("EDKB07: PDF-Ergänzung erfolgreich " & CType(Now, String) & " TGNr: " & TGNr & " Erstelltam: " & timestmp, clsLog.Enum_InfoTyp.Keine)
|
|
Return True
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
log.InsertJournale("EDKB07: PDF-Ergänzung gescheitert " & CType(Now, String) & " Error: " & ex.Message & " TGNr: " & TGNr & " Erstelltam: " + timestmp, clsLog.Enum_InfoTyp.Warnung)
|
|
Return False
|
|
Finally
|
|
log = Nothing
|
|
End Try
|
|
End Function
|
|
|
|
End Class
|