Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO

Public Class clsImportdata
#Region "Deklarationen"
    Dim Importdata As New DataSet

#End Region

    Dim m_partnernr As Integer
    Dim m_dokumenttypnr As Integer
    Dim m_dsrfilename As String
    Dim m_indexfilename As String
    Dim m_dokumentid As String
    Dim m_blkunde As Integer

    Public Function Importdaten_erstellen(ByVal partnernr As Integer, ByVal dokumenttypnr As Integer, ByVal DSRFilename As String, ByVal indexfilename As String, ByVal edkb08dir As String, ByVal dokumentid As String, ByVal blkunde As Boolean) As Boolean
        LogEntry.Writelog(Log.Logtype.Debug, "Importdaten:")
        LogEntry.Writelog(Log.Logtype.Debug, "Partner:" + partnernr.ToString)
        LogEntry.Writelog(Log.Logtype.Debug, "Doktype:" + dokumenttypnr.ToString)
        LogEntry.Writelog(Log.Logtype.Debug, "DSRFile:" + DSRFilename)
        LogEntry.Writelog(Log.Logtype.Debug, "Indexfile:" + indexfilename)
        LogEntry.Writelog(Log.Logtype.Debug, "EDKB08Dir" + edkb08dir)
        LogEntry.Writelog(Log.Logtype.Debug, "Dokumentid:" + dokumentid)
        LogEntry.Writelog(Log.Logtype.Debug, "BLKunde:" + blkunde.ToString)
        Try
            Importdata.Tables.Clear()
            Importdata.ReadXml(Globals.ApplicationPath + "edkb08struktur.xml")
            Importdata.Tables(0).Columns.Add("dokumentid")
            Importdata.Tables(0).Columns.Add("blkunde")

            m_partnernr = partnernr
            m_dokumenttypnr = dokumenttypnr
            m_dsrfilename = DSRFilename
            m_indexfilename = indexfilename
            m_dokumentid = dokumentid
            If blkunde = True Then m_blkunde = 1 Else m_blkunde = 0
            If generate_indexdata() Then
                Dim filePath As String = DSRFilename
                Dim slashPosition As Integer = filePath.LastIndexOf("\")
                Dim filenameOnly As String = filePath.Substring(slashPosition + 1)
                IO.File.Move(DSRFilename, edkb08dir + filenameOnly)

                filePath = indexfilename
                slashPosition = filePath.LastIndexOf("\")
                filenameOnly = filePath.Substring(slashPosition + 1)
                IO.File.Move(indexfilename, edkb08dir + filenameOnly)
                Return True
            End If
            Return False
        Catch ex As Exception
            LogEntry.Writelog(Log.Logtype.Debug, "Importdaten generieren Fehler: " + ex.Message)
            Return False
        End Try

    End Function

    Public Function generate_indexdata()
        Try
            Dim dr As DataRow
            Dim i As Integer = 0

            dr = Importdata.Tables(0).NewRow

            Try
                While i < 40
                    dr.Item(i) = ""
                    i = i + 1
                End While
            Catch

            End Try
            dr.Item("Funktion") = "ADD"
            dr.Item("PARTNERNR") = Me.m_partnernr.ToString
            dr.Item("Dokumenttypnr") = Me.m_dokumenttypnr.ToString

            Dim filePath As String = Me.m_dsrfilename
            Dim slashPosition = filePath.LastIndexOf("\")
            Dim filenameOnly = filePath.Substring(slashPosition + 1)

            dr.Item("dateiname") = filenameOnly
            dr.Item("Dateiformat") = "PDF"
            dr.Item("Archivdatum") = Now.ToString
            dr.Item("Ersteller") = "EDKB14"
            dr.Item("HERKUNFTSAPPLIKATION") = "EDKB14"
            dr.Item("Dokumentid") = Me.m_dokumentid
            'dr.Item("Dokumentidbdr") = ""
            If m_blkunde = 1 Then
                dr.Item("BLKunde") = "1"
            Else
                dr.Item("BLKunde") = "0"
            End If
            'dr.Item("Bezeichnung") = ""
            Importdata.Tables(0).Rows.Add(dr)
            Importdata.Tables(0).Rows(0).Delete()
            Importdata.Tables(0).AcceptChanges()
            Importdata.WriteXml(Me.m_indexfilename)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
End Class