1057 lines
52 KiB
VB.net
1057 lines
52 KiB
VB.net
Imports UtilityLibrary
|
|
Imports System.IO
|
|
Imports C1.Win.C1TrueDBGrid
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports UtilityLibrary.Win32
|
|
|
|
|
|
Namespace EDOKA
|
|
|
|
Public Class clsarchivfnkt
|
|
#Region "Deklarationen"
|
|
Dim DokumentArchiviert As Integer
|
|
Dim BDRDokumentArchiviert As Integer
|
|
'EDEX Banklagernd
|
|
Dim BLArchiviert As Integer
|
|
|
|
Dim m_bck As Boolean = False
|
|
Property bck() As Boolean
|
|
Get
|
|
Return m_bck
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_bck = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_inkl_bedingter_retournierung As Boolean = False
|
|
Property Inkl_Bedingter_Retournierung() As Boolean
|
|
Get
|
|
Return m_inkl_bedingter_retournierung
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_inkl_bedingter_retournierung = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_dokumentidbr As String = ""
|
|
Property Dokument_Bedingte_Retournierung() As String
|
|
Get
|
|
Return m_dokumentidbr
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_dokumentidbr = Value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
Dim DeleteDok As Integer = 0
|
|
Public Function check_bereits_archiviert(ByVal dokumentid As String, ByVal fordelete As Boolean, Optional ByVal dokstatusnr As Integer = 0) As Boolean
|
|
Dim res As Integer
|
|
Dim f As New frmDieFrage()
|
|
|
|
Me.DokumentArchiviert = 0
|
|
Me.BDRDokumentArchiviert = 0
|
|
DeleteDok = 0
|
|
If fordelete = True Then DeleteDok = 1
|
|
res = ist_archiviert(dokumentid)
|
|
|
|
'EDEX Banklagernd
|
|
If fordelete And Me.BLArchiviert > 0 Then
|
|
If MyMsg.Show_MessageYesNoBL(613) = MsgBoxResult.No Then
|
|
Return False
|
|
Else
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Return True
|
|
End If
|
|
End If
|
|
|
|
If Me.BLArchiviert > 0 Then
|
|
If MyMsg.Show_MessageYesNoBL(614) = MsgBoxResult.No Then
|
|
Return False
|
|
Exit Function
|
|
End If
|
|
|
|
If f.Deletefrage Then
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Else
|
|
Globals.DokumentID_New_Copy = DivFnkt.Generate_Key
|
|
change_dokumentid(dokumentid, Globals.DokumentID_New_Copy)
|
|
Globals.Dokumentidalt = dokumentid
|
|
dokumentid = Globals.DokumentID_New_Copy
|
|
copy_indexdata(dokumentid, "Alt")
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Globals.dokumentid_changed = True
|
|
|
|
If Me.Inkl_Bedingter_Retournierung = True Then
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.DokumentID_New_CopyBR = DivFnkt.Generate_Key
|
|
change_dokumentid(Me.Dokument_Bedingte_Retournierung, Globals.DokumentID_New_CopyBR)
|
|
Globals.Dokumentidaltbr = Me.Dokument_Bedingte_Retournierung
|
|
Me.Dokument_Bedingte_Retournierung = Globals.DokumentID_New_CopyBR
|
|
copy_indexdata_bedingte_retournierung(Me.Dokument_Bedingte_Retournierung, "Alt")
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.dokumentid_changedbr = True
|
|
Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & Me.Dokument_Bedingte_Retournierung & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
da.Fill(ds, "Ersetzen")
|
|
Globals.ersetzte_dokumente_reaktivierenbr = False
|
|
Try
|
|
If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
Globals.ersetzte_dokumente_reaktivierenbr = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
da.Dispose()
|
|
ds.Dispose()
|
|
End If
|
|
End If
|
|
Return True
|
|
End If
|
|
|
|
|
|
If Me.bck = True Then
|
|
MyMsg.show_standardmessage(118, MsgBoxStyle.Information)
|
|
Return False
|
|
Exit Function
|
|
End If
|
|
|
|
|
|
'Löschen des Dokumentes - Bedingt Retournierbares Dokument wird nicht berücksichtigt
|
|
' If fordelete And res <> 0 Then
|
|
Globals.DokAnKundeVersant = False
|
|
If fordelete Then
|
|
'Rel 3.6
|
|
If dokstatusnr < -1 Then
|
|
res = 0
|
|
End If
|
|
If Not ToDelete(res, dokumentid) Then
|
|
Return False
|
|
Globals.DokAnKundeVersant = False
|
|
Else
|
|
Return True
|
|
End If
|
|
Exit Function
|
|
End If
|
|
|
|
'Keine Archivierung - Bedingt Retournierbares Dokument archiviert
|
|
If res = 0 And Me.BDRDokumentArchiviert <> 0 Then
|
|
f.Deletefrage = False
|
|
f.DokumentStatus = res
|
|
f.Inkl_Bedingte_Retournierung = True
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.Abort Then
|
|
Return False
|
|
Exit Function
|
|
End If
|
|
End If
|
|
|
|
'Archivierung wurde durchgeführt - inkl. Bedingt Retournierbares Dokumente
|
|
If res <> 0 Then
|
|
f.Deletefrage = False
|
|
f.DokumentStatus = res
|
|
f.Inkl_Bedingte_Retournierung = Me.BDRDokumentArchiviert <> 0
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.Abort Then
|
|
Return False
|
|
Exit Function
|
|
End If
|
|
End If
|
|
|
|
If res <> 0 Then
|
|
Globals.dokumentcoldindex_status = ""
|
|
If f.Deletefrage = True Then
|
|
If f.NeueVersion Or f.Loeschung Then
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Else
|
|
Globals.dokumentcoldindex_status = "Ungültig"
|
|
End If
|
|
Else
|
|
If f.NeueVersion Then
|
|
Globals.DokumentID_New_Copy = DivFnkt.Generate_Key
|
|
change_dokumentid(dokumentid, Globals.DokumentID_New_Copy)
|
|
Globals.Dokumentidalt = dokumentid
|
|
dokumentid = Globals.DokumentID_New_Copy
|
|
copy_indexdata(dokumentid, "Alt")
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Globals.dokumentid_changed = True
|
|
Else
|
|
copy_indexdata(dokumentid, "Ungültig")
|
|
Globals.dokumentcoldindex_status = "Ungültig"
|
|
End If
|
|
End If
|
|
|
|
Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
da.Fill(ds, "Ersetzen")
|
|
Globals.Ersetzte_Dokumente_Reaktivieren = False
|
|
Try
|
|
If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
Globals.Ersetzte_Dokumente_Reaktivieren = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
da.Dispose()
|
|
ds.Dispose()
|
|
End If
|
|
|
|
If Me.Inkl_Bedingter_Retournierung = True And Me.BDRDokumentArchiviert <> 0 Then
|
|
Globals.Dokumentcoldindex_statusbr = ""
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.DokumentID_New_CopyBR = DivFnkt.Generate_Key
|
|
change_dokumentid(Me.Dokument_Bedingte_Retournierung, Globals.DokumentID_New_CopyBR)
|
|
Globals.Dokumentidaltbr = Me.Dokument_Bedingte_Retournierung
|
|
Me.Dokument_Bedingte_Retournierung = Globals.DokumentID_New_CopyBR
|
|
copy_indexdata_bedingte_retournierung(Me.Dokument_Bedingte_Retournierung, "Alt")
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.dokumentid_changedbr = True
|
|
Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & Me.Dokument_Bedingte_Retournierung & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
da.Fill(ds, "Ersetzen")
|
|
Globals.ersetzte_dokumente_reaktivierenbr = False
|
|
Try
|
|
If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
Globals.ersetzte_dokumente_reaktivierenbr = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
da.Dispose()
|
|
ds.Dispose()
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
'Public Function check_bereits_archiviert(ByVal dokumentid As String, ByVal fordelete As Boolean) As Boolean
|
|
' Dim res As Integer
|
|
' Dim f As New frmDieFrage()
|
|
|
|
' Me.DokumentArchiviert = 0
|
|
' Me.BDRDokumentArchiviert = 0
|
|
' res = ist_archiviert(dokumentid)
|
|
|
|
' 'EDEX Banklagernd
|
|
' If fordelete And Me.BLArchiviert > 0 Then
|
|
' Globals.dokumentcoldindex_status = "Alt"
|
|
' Return True
|
|
' End If
|
|
|
|
' If Me.BLArchiviert > 0 Then
|
|
' If f.Deletefrage Then
|
|
' Globals.dokumentcoldindex_status = "Alt"
|
|
' Else
|
|
' Globals.DokumentID_New_Copy = DivFnkt.Generate_Key
|
|
' change_dokumentid(dokumentid, Globals.DokumentID_New_Copy)
|
|
' Globals.Dokumentidalt = dokumentid
|
|
' dokumentid = Globals.DokumentID_New_Copy
|
|
' copy_indexdata(dokumentid, "Alt")
|
|
' Globals.dokumentcoldindex_status = "Alt"
|
|
' Globals.dokumentid_changed = True
|
|
|
|
' If Me.Inkl_Bedingter_Retournierung = True Then
|
|
' Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
' Globals.DokumentID_New_CopyBR = DivFnkt.Generate_Key
|
|
' change_dokumentid(Me.Dokument_Bedingte_Retournierung, Globals.DokumentID_New_CopyBR)
|
|
' Globals.Dokumentidaltbr = Me.Dokument_Bedingte_Retournierung
|
|
' Me.Dokument_Bedingte_Retournierung = Globals.DokumentID_New_CopyBR
|
|
' copy_indexdata_bedingte_retournierung(Me.Dokument_Bedingte_Retournierung, "Alt")
|
|
' Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
' Globals.dokumentid_changedbr = True
|
|
' Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & Me.Dokument_Bedingte_Retournierung & "'", Globals.sConnectionString)
|
|
' Dim ds As New DataSet()
|
|
' da.Fill(ds, "Ersetzen")
|
|
' Globals.ersetzte_dokumente_reaktivierenbr = False
|
|
' Try
|
|
' If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
' Globals.ersetzte_dokumente_reaktivierenbr = True
|
|
' End If
|
|
' Catch
|
|
' End Try
|
|
' da.Dispose()
|
|
' ds.Dispose()
|
|
' End If
|
|
' End If
|
|
|
|
' Return True
|
|
' End If
|
|
|
|
|
|
' If Me.bck = True Then
|
|
' MyMsg.show_standardmessage(118, MsgBoxStyle.Information)
|
|
' Return False
|
|
' Exit Function
|
|
' End If
|
|
|
|
|
|
' 'Löschen des Dokumentes - Bedingt Retournierbares Dokument wird nicht berücksichtigt
|
|
' ' If fordelete And res <> 0 Then
|
|
' Globals.DokAnKundeVersant = False
|
|
' If fordelete Then
|
|
' If Not ToDelete(res, dokumentid) Then
|
|
' Return False
|
|
' Globals.DokAnKundeVersant = False
|
|
' Else
|
|
' Return True
|
|
' End If
|
|
' Exit Function
|
|
' End If
|
|
|
|
' 'Keine Archivierung - Bedingt Retournierbares Dokument archiviert
|
|
' If res = 0 And Me.BDRDokumentArchiviert <> 0 Then
|
|
' f.Deletefrage = False
|
|
' f.DokumentStatus = res
|
|
' f.Inkl_Bedingte_Retournierung = True
|
|
' f.ShowDialog()
|
|
' If f.DialogResult = DialogResult.Abort Then
|
|
' Return False
|
|
' Exit Function
|
|
' End If
|
|
' End If
|
|
|
|
' 'Archivierung wurde durchgeführt - inkl. Bedingt Retournierbares Dokumente
|
|
' If res <> 0 Then
|
|
' f.Deletefrage = False
|
|
' f.DokumentStatus = res
|
|
' f.Inkl_Bedingte_Retournierung = Me.BDRDokumentArchiviert <> 0
|
|
' f.ShowDialog()
|
|
' If f.DialogResult = DialogResult.Abort Then
|
|
' Return False
|
|
' Exit Function
|
|
' End If
|
|
' End If
|
|
|
|
' If res <> 0 Then
|
|
' Globals.dokumentcoldindex_status = ""
|
|
' If f.Deletefrage = True Then
|
|
' If f.NeueVersion Or f.Loeschung Then
|
|
' Globals.dokumentcoldindex_status = "Alt"
|
|
' Else
|
|
' Globals.dokumentcoldindex_status = "Ungültig"
|
|
' End If
|
|
' Else
|
|
' If f.NeueVersion Then
|
|
' Globals.DokumentID_New_Copy = DivFnkt.Generate_Key
|
|
' change_dokumentid(dokumentid, Globals.DokumentID_New_Copy)
|
|
' Globals.Dokumentidalt = dokumentid
|
|
' dokumentid = Globals.DokumentID_New_Copy
|
|
' copy_indexdata(dokumentid, "Alt")
|
|
' Globals.dokumentcoldindex_status = "Alt"
|
|
' Globals.dokumentid_changed = True
|
|
' Else
|
|
' copy_indexdata(dokumentid, "Ungültig")
|
|
' Globals.dokumentcoldindex_status = "Ungültig"
|
|
' End If
|
|
' End If
|
|
|
|
' Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
' Dim ds As New DataSet()
|
|
' da.Fill(ds, "Ersetzen")
|
|
' Globals.Ersetzte_Dokumente_Reaktivieren = False
|
|
' Try
|
|
' If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
' Globals.Ersetzte_Dokumente_Reaktivieren = True
|
|
' End If
|
|
' Catch
|
|
' End Try
|
|
' da.Dispose()
|
|
' ds.Dispose()
|
|
' End If
|
|
|
|
' If Me.Inkl_Bedingter_Retournierung = True And Me.BDRDokumentArchiviert <> 0 Then
|
|
' Globals.Dokumentcoldindex_statusbr = ""
|
|
' Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
' Globals.DokumentID_New_CopyBR = DivFnkt.Generate_Key
|
|
' change_dokumentid(Me.Dokument_Bedingte_Retournierung, Globals.DokumentID_New_CopyBR)
|
|
' Globals.Dokumentidaltbr = Me.Dokument_Bedingte_Retournierung
|
|
' Me.Dokument_Bedingte_Retournierung = Globals.DokumentID_New_CopyBR
|
|
' copy_indexdata_bedingte_retournierung(Me.Dokument_Bedingte_Retournierung, "Alt")
|
|
' Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
' Globals.dokumentid_changedbr = True
|
|
' Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & Me.Dokument_Bedingte_Retournierung & "'", Globals.sConnectionString)
|
|
' Dim ds As New DataSet()
|
|
' da.Fill(ds, "Ersetzen")
|
|
' Globals.ersetzte_dokumente_reaktivierenbr = False
|
|
' Try
|
|
' If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
' Globals.ersetzte_dokumente_reaktivierenbr = True
|
|
' End If
|
|
' Catch
|
|
' End Try
|
|
' da.Dispose()
|
|
' ds.Dispose()
|
|
' End If
|
|
' Return True
|
|
'End Function
|
|
|
|
Public Function ToDelete(ByVal MessageType As Integer, ByVal dokumentid As String) As Boolean
|
|
If MessageType = 0 Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
Dim f As New frmDieFrage()
|
|
f.Deletefrage = True
|
|
f.DokumentStatus = MessageType
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.Abort Then
|
|
Return False
|
|
Exit Function
|
|
End If
|
|
|
|
If f.Deletefrage = True Then
|
|
If f.NeueVersion Or f.Loeschung Then
|
|
Globals.dokumentcoldindex_status = "Alt"
|
|
Else
|
|
Globals.dokumentcoldindex_status = "Ungültig"
|
|
End If
|
|
End If
|
|
|
|
Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
da.Fill(ds, "Ersetzen")
|
|
Globals.Ersetzte_Dokumente_Reaktivieren = False
|
|
Try
|
|
If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
Globals.Ersetzte_Dokumente_Reaktivieren = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
da.Dispose()
|
|
ds.Dispose()
|
|
Return True
|
|
End Function
|
|
|
|
Public Function Check_Bereits_Archiviert_Bedingte_Retournierung(ByVal dokumentid As String) As Boolean
|
|
Globals.dokumentid_changedbr = False
|
|
Dim res As Integer
|
|
res = ist_archiviert(dokumentid)
|
|
If res <> 0 Then
|
|
Check_Bereits_Archiviert_Bedingte_Retournierung = True
|
|
Globals.Dokumentcoldindex_statusbr = ""
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.DokumentID_New_CopyBR = DivFnkt.Generate_Key
|
|
change_dokumentid(dokumentid, Globals.DokumentID_New_CopyBR)
|
|
Globals.Dokumentidaltbr = dokumentid
|
|
dokumentid = Globals.DokumentID_New_CopyBR
|
|
copy_indexdata_bedingte_retournierung(dokumentid, "Alt")
|
|
Globals.Dokumentcoldindex_statusbr = "Alt"
|
|
Globals.dokumentid_changedbr = True
|
|
End If
|
|
Dim da As New SqlDataAdapter("Select count(*) from dokumentersetzen where hauptdokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
da.Fill(ds, "Ersetzen")
|
|
Globals.ersetzte_dokumente_reaktivierenbr = False
|
|
Try
|
|
If ds.Tables(0).Rows(0).Item(0) > 0 Then
|
|
Globals.ersetzte_dokumente_reaktivierenbr = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
da.Dispose()
|
|
ds.Dispose()
|
|
End Function
|
|
|
|
Private Sub copy_indexdata(ByVal dokumentid As String, ByVal Status As String)
|
|
Dim sda As New SqlDataAdapter("select * from dokumentcoldindexwert where (indextyp=1 or indextyp=2) and dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim sda1 As New SqlDataAdapter("select * from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim sda3 As New SqlDataAdapter("select max(indextyp) from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
Globals.general_ds.Clear()
|
|
sda.Fill(ds, "Dokumentcoldindexwert")
|
|
sda1.Fill(Globals.general_ds, "Dokumentcoldindexwert")
|
|
Globals.Dokumentcoldindex_Changed = True
|
|
sda.Fill(ds, "DokumentcoldindexwertNeu")
|
|
sda3.Fill(ds, "Maxwert")
|
|
Dim i As Integer
|
|
Dim Maxwert As Integer
|
|
Maxwert = ds.Tables(2).Rows(0).Item(0)
|
|
If Maxwert < 2 Then Maxwert = 2
|
|
Dim i1 As Integer
|
|
Dim i2 As Integer
|
|
i1 = 0
|
|
i2 = 0
|
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If (ds.Tables(0).Rows(i).Item("BESTA00") = "Aktuell" Or ds.Tables(0).Rows(i).Item("BESTA00") = "Alt") Then
|
|
If ds.Tables(0).Rows(i).Item("indextyp") = 1 Then i1 = 1
|
|
If ds.Tables(0).Rows(i).Item("indextyp") = 2 Then i2 = 1
|
|
End If
|
|
End If
|
|
Next
|
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 1
|
|
ds.Tables(0).Rows(i).Item("BESTA00") = Status
|
|
End If
|
|
If i2 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 2
|
|
ds.Tables(0).Rows(i).Item("BESTA00") = Status
|
|
End If
|
|
End If
|
|
Next
|
|
For i = 0 To ds.Tables(1).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("BESTA00") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("BESTA00") = ""
|
|
End If
|
|
End If
|
|
If Not ds.Tables(0).Rows(i).Item("DMSTA01") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("DMSTA01") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("DMSTA01") = ""
|
|
End If
|
|
End If
|
|
If Not ds.Tables(0).Rows(i).Item("NRDOC00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("NRDOC00") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("NRDOC00") = ""
|
|
End If
|
|
End If
|
|
Next
|
|
Dim cd As New SqlCommandBuilder(sda)
|
|
sda.Update(ds, "Dokumentcoldindexwert")
|
|
|
|
DokumentColdIndexWert_Insert(ds.Tables(1), i1, i2)
|
|
|
|
sda.Dispose()
|
|
sda1.Dispose()
|
|
sda3.Dispose()
|
|
End Sub
|
|
|
|
Private Function DokumentColdIndexWert_Insert(ByVal dtOrg As DataTable, ByVal i1 As Integer, ByVal i2 As Integer)
|
|
'Coldindexwerte Inserten mit Daten aus neuer Tabellen Struktur
|
|
Dim i As Integer
|
|
Dim dw As New edokadb.clsDokumentcoldindexwert()
|
|
dw.cpMainConnectionProvider = conn
|
|
|
|
Dim lcnt As Integer
|
|
Dim sWert As String
|
|
Dim sFieldArray(12) As String
|
|
sFieldArray(0) = "NRPAR00"
|
|
sFieldArray(1) = "BKPAR00"
|
|
sFieldArray(2) = "NAVVG00"
|
|
sFieldArray(3) = "BEBEZ00"
|
|
sFieldArray(4) = "DMSTA01"
|
|
sFieldArray(5) = "BEDAT00"
|
|
sFieldArray(6) = "BESTA00"
|
|
sFieldArray(7) = "BEORT00"
|
|
sFieldArray(8) = "NRDOC00"
|
|
sFieldArray(9) = "NRSTA00"
|
|
sFieldArray(10) = "BEGSF00"
|
|
sFieldArray(11) = "BEUSR00"
|
|
sFieldArray(12) = "BERES03"
|
|
|
|
For i = 0 To dtOrg.Rows.Count - 1
|
|
If (i1 = 1 And dtOrg.Rows(i).Item("indextyp") = 1) Or _
|
|
(i2 = 1 And dtOrg.Rows(i).Item("indextyp") = 2) Then
|
|
dw.iIndextyp = New SqlInt32(CType(dtOrg.Rows(i).Item(1), Int32))
|
|
dw.iMandantnr = New SqlInt32(CType(dtOrg.Rows(i).Item("mandantnr"), Int32))
|
|
dw.bAktiv = New SqlBoolean(CType(dtOrg.Rows(i).Item("aktiv"), Boolean))
|
|
dw.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dw.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dw.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
dw.sDokumentid = New SqlString(CType(dtOrg.Rows(i).Item("dokumentid"), String))
|
|
|
|
For lcnt = 0 To 12
|
|
If Not dtOrg.Rows(i).Item(sFieldArray(lcnt)) Is System.DBNull.Value Then
|
|
sWert = CType(dtOrg.Rows(i).Item(sFieldArray(lcnt)), String)
|
|
Else
|
|
sWert = ""
|
|
End If
|
|
Select Case sFieldArray(lcnt)
|
|
Case sFieldArray(0)
|
|
dw.sNRPAR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(1)
|
|
dw.sBKPAR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(2)
|
|
dw.sNAVVG00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(3)
|
|
dw.sBEBEZ00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(4)
|
|
dw.sDMSTA01 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(5)
|
|
dw.sBEDAT00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(6)
|
|
dw.sBESTA00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(7)
|
|
dw.sBEORT00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(8)
|
|
dw.sNRDOC00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(9)
|
|
dw.sNRSTA00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(10)
|
|
dw.sBEGSF00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(11)
|
|
dw.sBEUSR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(12)
|
|
dw.sBERES03 = New SqlString(CType(sWert, String))
|
|
End Select
|
|
Next
|
|
conn.OpenConnection()
|
|
dw.Insert()
|
|
conn.CloseConnection(True)
|
|
End If
|
|
Next
|
|
dw.Dispose()
|
|
End Function
|
|
|
|
Private Function DokumentColdIndexWert_InsertWert(ByVal dtOrg As DataTable)
|
|
'Coldindexwerte Inserten mit Daten aus alter Tabellen Struktur
|
|
Dim i As Integer
|
|
Dim dw As New edokadb.clsDokumentcoldindexwert()
|
|
dw.cpMainConnectionProvider = conn
|
|
|
|
Dim lcnt As Integer
|
|
Dim sWert As String
|
|
Dim sFieldArray(12) As String
|
|
sFieldArray(0) = "NRPAR00"
|
|
sFieldArray(1) = "BKPAR00"
|
|
sFieldArray(2) = "NAVVG00"
|
|
sFieldArray(3) = "BEBEZ00"
|
|
sFieldArray(4) = "DMSTA01"
|
|
sFieldArray(5) = "BEDAT00"
|
|
sFieldArray(6) = "BESTA00"
|
|
sFieldArray(7) = "BEORT00"
|
|
sFieldArray(8) = "NRDOC00"
|
|
sFieldArray(9) = "NRSTA00"
|
|
sFieldArray(10) = "BEGSF00"
|
|
sFieldArray(11) = "BEUSR00"
|
|
sFieldArray(12) = "BERES03"
|
|
|
|
For i = 0 To dtOrg.Rows.Count - 1
|
|
dw.iIndextyp = New SqlInt32(CType(dtOrg.Rows(i).Item(1), Int32))
|
|
dw.iMandantnr = New SqlInt32(CType(dtOrg.Rows(i).Item("mandantnr"), Int32))
|
|
dw.bAktiv = New SqlBoolean(CType(dtOrg.Rows(i).Item("aktiv"), Boolean))
|
|
dw.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dw.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dw.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
dw.sDokumentid = New SqlString(CType(dtOrg.Rows(i).Item("dokumentid"), String))
|
|
|
|
For lcnt = 0 To 12
|
|
If Not dtOrg.Rows(i).Item(sFieldArray(lcnt)) Is System.DBNull.Value Then
|
|
sWert = CType(dtOrg.Rows(i).Item(sFieldArray(lcnt)), String)
|
|
Else
|
|
sWert = ""
|
|
End If
|
|
Select Case sFieldArray(lcnt)
|
|
Case sFieldArray(0)
|
|
dw.sNRPAR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(1)
|
|
dw.sBKPAR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(2)
|
|
dw.sNAVVG00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(3)
|
|
dw.sBEBEZ00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(4)
|
|
dw.sDMSTA01 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(5)
|
|
dw.sBEDAT00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(6)
|
|
dw.sBESTA00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(7)
|
|
dw.sBEORT00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(8)
|
|
dw.sNRDOC00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(9)
|
|
dw.sNRSTA00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(10)
|
|
dw.sBEGSF00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(11)
|
|
dw.sBEUSR00 = New SqlString(CType(sWert, String))
|
|
Case sFieldArray(12)
|
|
dw.sBERES03 = New SqlString(CType(sWert, String))
|
|
End Select
|
|
Next
|
|
conn.OpenConnection()
|
|
dw.Insert()
|
|
conn.CloseConnection(True)
|
|
Next
|
|
dw.Dispose()
|
|
'Dim i As Integer
|
|
'Dim dw As New edokadb.clsDokumentcoldindexwert()
|
|
'dw.cpMainConnectionProvider = conn
|
|
|
|
'Dim lcnt As Integer
|
|
'Dim sWert As String
|
|
'Dim sFieldArray(12, 1) As String
|
|
'sFieldArray(0, 0) = "NRPAR00"
|
|
'sFieldArray(0, 1) = 1
|
|
'sFieldArray(1, 0) = "BKPAR00"
|
|
'sFieldArray(1, 1) = 2
|
|
'sFieldArray(2, 0) = "NAVVG00"
|
|
'sFieldArray(2, 1) = 3
|
|
'sFieldArray(3, 0) = "BEBEZ00"
|
|
'sFieldArray(3, 1) = 4
|
|
'sFieldArray(4, 0) = "DMSTA01"
|
|
'sFieldArray(4, 1) = 5
|
|
'sFieldArray(5, 0) = "BEDAT00"
|
|
'sFieldArray(5, 1) = 6
|
|
'sFieldArray(6, 0) = "BESTA00"
|
|
'sFieldArray(6, 1) = 7
|
|
'sFieldArray(7, 0) = "BEORT00"
|
|
'sFieldArray(7, 1) = 8
|
|
'sFieldArray(8, 0) = "NRDOC00"
|
|
'sFieldArray(8, 1) = 10
|
|
'sFieldArray(9, 0) = "NRSTA00"
|
|
'sFieldArray(9, 1) = 11
|
|
'sFieldArray(10, 0) = "BEGSF00"
|
|
'sFieldArray(10, 1) = 12
|
|
'sFieldArray(11, 0) = "BEUSR00"
|
|
'sFieldArray(11, 1) = 13
|
|
'sFieldArray(12, 0) = "BERES03"
|
|
'sFieldArray(12, 1) = 20
|
|
''***********************************************************333
|
|
'Dim dtNew As DataTable
|
|
'dtNew = New DataTable("DokumentColdIndexWerte")
|
|
'Dim Row1 As DataRow
|
|
'Try
|
|
' dtNew.Columns.Add("iIndextyp", System.Type.GetType("System.integer"))
|
|
' dtNew.Columns.Add("iMandantnr", System.Type.GetType("System.integer"))
|
|
' dtNew.Columns.Add("bAktiv", System.Type.GetType("System.Boolean"))
|
|
' dtNew.Columns.Add("daErstellt_am", System.Type.GetType("System.Datetime"))
|
|
' dtNew.Columns.Add("daMutiert_am", System.Type.GetType("System.Datetime"))
|
|
' dtNew.Columns.Add("iMutierer", System.Type.GetType("System.Integer"))
|
|
' dtNew.Columns.Add("sDokumentid", System.Type.GetType("System.String"))
|
|
' For lcnt = 0 To 12 Step 1
|
|
' dtNew.Columns.Add(sFieldArray(lcnt, 0), System.Type.GetType("System.String"))
|
|
' Next
|
|
|
|
' Dim bRowAdd As Boolean
|
|
' Dim row As DataRow
|
|
' For Each row In dtOrg.Rows
|
|
' Dim dview As New DataView(dtOrg, "iIndextyp" + "=" + Trim(dtOrg.Rows(i).Item("indextyp")), "iIndextyp", DataViewRowState.CurrentRows)
|
|
' If dview.Count = 0 Then
|
|
' Row1 = dtNew.NewRow()
|
|
' Row1.Item("iIndextyp") = dtOrg.Rows(i).Item("indextyp")
|
|
' Row1.Item("iMandantnr") = dtOrg.Rows(i).Item("mandantnr")
|
|
' Row1.Item("bAktiv") = dtOrg.Rows(i).Item("aktiv")
|
|
' Row1.Item("daErstellt_am") = dtOrg.Rows(i).Item("Erstellt_am")
|
|
' Row1.Item("daMutiert_am") = dtOrg.Rows(i).Item("Mutiert_am")
|
|
' Row1.Item("iMutierer") = dtOrg.Rows(i).Item("Mutierer")
|
|
' Row1.Item("sDokumentid") = dtOrg.Rows(i).Item("dokumentid")
|
|
' dtOrg.Rows.Add(Row1)
|
|
' bRowAdd = True
|
|
' Else
|
|
' bRowAdd = False
|
|
' End If
|
|
|
|
|
|
|
|
' Select Case dtOrg.Rows(i).Item("Cold_indexfeldnr")
|
|
' Case sFieldArray(0, 1)
|
|
' Row1.Item("iIndextyp") = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(1, 1)
|
|
' dw.sBKPAR00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(2, 1)
|
|
' dw.sNAVVG00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(3, 1)
|
|
' dw.sBEBEZ00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(4, 1)
|
|
' dw.sDMSTA01 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(5, 1)
|
|
' dw.sBEDAT00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(6, 1)
|
|
' dw.sBESTA00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(7, 1)
|
|
' dw.sBEORT00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(8, 1)
|
|
' dw.sNRDOC00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(9, 1)
|
|
' dw.sNRSTA00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(10, 1)
|
|
' dw.sBEGSF00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(11, 1)
|
|
' dw.sBEUSR00 = New SqlString(CType(sWert, String))
|
|
' Case sFieldArray(12, 1)
|
|
' dw.sBERES03 = New SqlString(CType(sWert, String))
|
|
' End Select
|
|
|
|
' 'If Not dtOrg.Rows(i).Item(sFieldArray(lcnt)) Is System.DBNull.Value Then
|
|
' ' sWert = CType(dtOrg.Rows(i).Item(sFieldArray(lcnt)), String)
|
|
' 'Else
|
|
' ' sWert = ""
|
|
' 'End If
|
|
|
|
|
|
' Next
|
|
'Catch
|
|
' MsgBox(Err.Description)
|
|
'End Try
|
|
' dw.Dispose()
|
|
|
|
|
|
End Function
|
|
|
|
Private Sub copy_indexdata_bedingte_retournierung(ByVal dokumentid As String, ByVal Status As String)
|
|
Dim sda As New SqlDataAdapter("select * from dokumentcoldindexwert where (indextyp=1 or indextyp=2) and dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim sda1 As New SqlDataAdapter("select * from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim sda3 As New SqlDataAdapter("select max(indextyp) from dokumentcoldindexwert where dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim ds As New DataSet()
|
|
Globals.general_dsbr.Clear()
|
|
sda.Fill(ds, "Dokumentcoldindexwert")
|
|
sda1.Fill(Globals.general_dsbr, "Dokumentcoldindexwert")
|
|
Globals.DokumentColdIndex_ChangedBR = True
|
|
sda.Fill(ds, "DokumentcoldindexwertNeu")
|
|
sda3.Fill(ds, "Maxwert")
|
|
Dim i As Integer
|
|
Dim Maxwert As Integer
|
|
Maxwert = ds.Tables(2).Rows(0).Item(0)
|
|
If Maxwert < 2 Then Maxwert = 2
|
|
Dim i1 As Integer
|
|
Dim i2 As Integer
|
|
i1 = 0
|
|
i2 = 0
|
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If (ds.Tables(0).Rows(i).Item("BESTA00") = "Aktuell" Or ds.Tables(0).Rows(i).Item("BESTA00") = "Alt") Then
|
|
If ds.Tables(0).Rows(i).Item("indextyp") = 1 Then i1 = 1
|
|
If ds.Tables(0).Rows(i).Item("indextyp") = 2 Then i2 = 1
|
|
End If
|
|
End If
|
|
Next
|
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 1
|
|
ds.Tables(0).Rows(i).Item("BESTA00") = Status
|
|
End If
|
|
If i2 = 1 And ds.Tables(0).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(0).Rows(i).Item("indextyp") = Maxwert + 2
|
|
ds.Tables(0).Rows(i).Item("BESTA00") = Status
|
|
End If
|
|
End If
|
|
Next
|
|
For i = 0 To ds.Tables(1).Rows.Count - 1
|
|
If Not ds.Tables(0).Rows(i).Item("BESTA00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("BESTA00") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("BESTA00") = ""
|
|
End If
|
|
End If
|
|
If Not ds.Tables(0).Rows(i).Item("DMSTA01") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("DMSTA01") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("DMSTA01") = ""
|
|
End If
|
|
End If
|
|
If Not ds.Tables(0).Rows(i).Item("NRDOC00") Is System.DBNull.Value Then
|
|
If i1 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 1 Then
|
|
ds.Tables(1).Rows(i).Item("NRDOC00") = ""
|
|
End If
|
|
If i2 = 1 And ds.Tables(1).Rows(i).Item("indextyp") = 2 Then
|
|
ds.Tables(1).Rows(i).Item("NRDOC00") = ""
|
|
End If
|
|
End If
|
|
Next
|
|
Dim cd As New SqlCommandBuilder(sda)
|
|
sda.Update(ds, "Dokumentcoldindexwert")
|
|
|
|
DokumentColdIndexWert_Insert(ds.Tables(1), i1, i2)
|
|
|
|
sda.Dispose()
|
|
sda3.Dispose()
|
|
sda1.Dispose()
|
|
ds.Dispose()
|
|
End Sub
|
|
|
|
Private Sub xxcopy_table(ByVal tablename As String, ByVal dokumentid As String)
|
|
Dim sda1 As New SqlDataAdapter("Select * from dokumentcoldindexwert dokumentid='" & dokumentid & "'", Globals.sConnectionString)
|
|
Dim sda2 As New SqlDataAdapter("Select * from dokumentcoldindexwert where dokumentid='-1'", Globals.sConnectionString)
|
|
Dim sdt1 As New DataSet()
|
|
Dim sdt2 As New DataSet()
|
|
Dim i As Integer
|
|
Dim i1 As Integer
|
|
sda1.Fill(sdt1, "Dokument")
|
|
sda2.Fill(sdt2, "Dokument")
|
|
|
|
For i1 = 0 To sdt1.Tables(0).Rows.Count - 1
|
|
Dim sdt As DataTable = sdt2.Tables(0)
|
|
Dim dbrow As DataRow = sdt.NewRow
|
|
For i = 1 To sdt1.Tables(0).Columns.Count - 1
|
|
dbrow(i) = sdt1.Tables(0).Rows(i1).Item(i)
|
|
If sdt1.Tables(0).Columns(i).ColumnName = "dokumentid" Then dbrow(i) = Globals.DokumentID_New_Copy
|
|
If sdt1.Tables(0).Columns(i).ColumnName = "dokumenitid" Then dbrow(i) = Globals.DokumentID_New_Copy
|
|
If sdt1.Tables(0).Columns(i).ColumnName = "dokumentid1" Then dbrow(i) = Globals.DokumentID_New_Copy
|
|
Next
|
|
sdt.Rows.Add(dbrow)
|
|
Dim cb As New SqlCommandBuilder(sda2)
|
|
sda2.Update(sdt2, "Dokument")
|
|
cb.Dispose()
|
|
sdt.Dispose()
|
|
dbrow = Nothing
|
|
sdt2.Tables(0).Rows.Clear()
|
|
Next
|
|
sdt2.Dispose()
|
|
sda2.Dispose()
|
|
sda1.Dispose()
|
|
End Sub
|
|
|
|
|
|
Public Function Restore_Coldindex(ByVal dt As DataTable, ByVal dokumentid As String)
|
|
delete_dokumentcoldindexwert(dokumentid)
|
|
DokumentColdIndexWert_InsertWert(dt)
|
|
End Function
|
|
|
|
Private Function delete_dokumentcoldindexwert(ByVal dokumentid As String) As Boolean
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_delete_dokumentcoldindexwert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function insert_coldupdate_status(ByVal dt As DataTable, ByVal dokumentid As String, ByVal neuerstatus As String)
|
|
Dim i As Integer
|
|
Dim colddokumentid As String
|
|
Dim neuerwert As String
|
|
Dim indextyp As Integer
|
|
indextyp = 1
|
|
colddokumentid = ""
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Columns.Count < 20 Then
|
|
If dt.Rows(i).Item("cold_indexfeldnr") = 10 Then colddokumentid = dt.Rows(i).Item("WERT")
|
|
If dt.Rows(i).Item("indextyp") <> indextyp Then
|
|
insert_coldupdate("BESTA00", colddokumentid, dokumentid, "Aktuell", neuerstatus)
|
|
indextyp = dt.Rows(i).Item("indextyp")
|
|
End If
|
|
Else
|
|
colddokumentid = dt.Rows(i).Item("NRDOC00")
|
|
If dt.Rows(i).Item("indextyp") <> indextyp Then
|
|
insert_coldupdate("BESTA00", colddokumentid, dokumentid, "Aktuell", neuerstatus)
|
|
indextyp = dt.Rows(i).Item("indextyp")
|
|
End If
|
|
End If
|
|
Next
|
|
insert_coldupdate("BESTA00", colddokumentid, dokumentid, "Aktuell", neuerstatus)
|
|
End Function
|
|
|
|
Public Function insert_coldupdate_reaktivieren(ByVal dt As DataTable, ByVal dokumentid As String, ByVal neuerstatus As String)
|
|
Dim i As Integer
|
|
Dim colddokumentid As String
|
|
Dim neuerwert As String
|
|
Dim indextyp1 As Integer
|
|
Dim indextyp As Integer
|
|
indextyp = 1
|
|
indextyp1 = 1
|
|
colddokumentid = ""
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Rows(i).Item("indextyp") = 2 Then indextyp1 = 2
|
|
Next
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Rows(i).Item("indextyp") = indextyp1 Then
|
|
If dt.Rows(i).Item("cold_indexfeldnr") = 10 Then colddokumentid = dt.Rows(i).Item("WERT")
|
|
End If
|
|
Next
|
|
insert_coldupdate("BESTA00", colddokumentid, dokumentid, "Aktuell", neuerstatus)
|
|
End Function
|
|
|
|
Public Function insert_coldupdate(ByVal feldname As String, ByVal colddokumentid As String, ByVal dokumentid As String, ByVal alterwert As String, ByVal neuerwert As String)
|
|
If colddokumentid = "" Then Exit Function
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_insert_coldupdate"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@feldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldname))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@alterwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, alterwert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, neuerwert))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
|
|
Public Function ist_archiviert(ByVal dokumentid As String) As Integer
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokument_bereits_archiviert"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@istarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bdrarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
' EDEX Banklagernd
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@blarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bldelete", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DeleteDok))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
i = scmCmdToExecute.Parameters.Item("@istarchiviert").Value
|
|
ist_archiviert = i
|
|
Me.DokumentArchiviert = scmCmdToExecute.Parameters.Item("@istarchiviert").Value
|
|
Me.BDRDokumentArchiviert = scmCmdToExecute.Parameters.Item("@bdrarchiviert").Value
|
|
Me.BLArchiviert = scmCmdToExecute.Parameters.Item("@blarchiviert").Value
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Public Function change_dokumentid(ByVal dokumentidalt As String, ByVal dokumentidneu As String) As String
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim i As Integer
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_change_dokumentid"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentidalt", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentidalt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentidneu", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentidneu))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
End Class
|
|
End Namespace
|
|
|