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