|
Visual Basic
|
Copy Code
]]>
|
Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal dokumentid As String, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentstatus_erstellen_und_Status_Setzen", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim st As New System.Data.DataTable() Dim i As Integer Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now) Dim MitArchivfunktion As Boolean = False If erstellen = True Then Create_Dokumentstatus(BLKunde) End If st = Get_Dokumentstatus() For i = 0 To st.Rows.Count - 1 Select Case Integer.Parse(st.Rows(i).Item(2).ToString) Case 3 MitArchivfunktion = True Case 11 MitArchivfunktion = True End Select Next If MitArchivfunktion Then For i = 0 To st.Rows.Count - 1 insert_history_status(st.Rows(i).Item(0), dokumentid, Mitarbeiter.iMitarbeiternr.Value, dt) dt = DateAdd(DateInterval.Second, 1, dt) If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then Return st.Rows(i).Item(0) Exit Function End If Next Else 'Dokumentstatusreihenfolge ohne Ausgangsarchivierung End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception End Try DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentstatus_erstellen_und_Status_Setzen::", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (False)", clsDivFnkt.Enum_InfoTyp.Information) End If End Function
|
|