Visual Basic

Copy Code

 Public Sub Generate_Dokument(ByVal row As Integer)
    Try
 
        RowId = row
 
        Set_EDK_Status(RowId, 1)
 
        Filename = Param.WorkDir + "\" + Trim(Str(RowId)) & "_EDK_" & Format(Now, "dd_MM_yyyy hh_mm_ss") & "_" & ".edk"
 
        DivFnkt.InsertJournale("EDKB12: Start " + Filename, clsDivFnkt.Enum_InfoTyp.Information)
 
 
        ' Applikationsdaten lasen
        Dim Applikation As New edokadb.clsApplikation()
        Applikation.cpMainConnectionProvider = Globals.conn
        Applikation.iApplikationsnr = New SqlInt32(CType(1, Int32))
        Globals.Applikationsdaten = Applikation.SelectOne
 
        'Initialisierung vor Dokument_Bearbeitung / 20110208 SHU
        EDK_Daten.Dispose()
        EDK_Daten = Nothing
        EDK_Daten = New System.Data.DataTable
 
        EDK_Data.Dispose()
        EDK_Data = Nothing
        EDK_Data = New DataSet
 
        xdata.Dispose()
        xdata = Nothing
        xdata = New System.Data.DataTable
 
        Dokumentdaten.Dispose()
        Dokumentdaten = Nothing
        Dokumentdaten = New System.Data.DataTable
 
        Profile.Dispose()
        Profile = Nothing
        Profile = New System.Data.DataTable
 
        Teams.Dispose()
        Teams = Nothing
        Teams = New System.Data.DataTable
 
        Mitarbeiterdata.Dispose()
        Mitarbeiterdata = Nothing
        Mitarbeiterdata = New System.Data.DataTable
 
        DokType.Dispose()
        OfficeVorlage.Dispose()
        OfficeVorlageDatei.Dispose()
        Partner.Dispose()
        xMitarbeiter.Dispose()
        Mitarbeiter.Dispose()
        Mitarbeiterdata.Dispose()
        objAvaloqDokumentWerte.clearAvaloqDokumentWerte()
 
        If Not Get_EDK_Data() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
 
        If Not Check_EDK_Data() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
 
        If Not Check_Umfeld() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
 
        If Not Dokument_Erstellen() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
 
        If Not Dokumentdaten_Zusammenstellen() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
 
        If Not Generate_Word() Then
            Set_EDK_Status(RowId, 2)
            Exit Sub
        End If
        Try
            EDK_Data.Tables.Clear()
            EDK_Daten.Rows.Clear()
 
            xdata.Rows.Clear()
            Dokumentdaten.Rows.Clear()
            Profile.Rows.Clear()
            Teams.Rows.Clear()
            Mitarbeiterdata.Rows.Clear()
            EDK_Data.Dispose()
            EDK_Daten.Dispose()
 
            DokType.Dispose()
            DokType.Dispose()
            OfficeVorlage.Dispose()
            OfficeVorlageDatei.Dispose()
            Partner.Dispose()
            xMitarbeiter.Dispose()
            Mitarbeiter.Dispose()
            Mitarbeiterdata.Dispose()
            xdata.Dispose()
            Dokumentdaten.Dispose()
            Profile.Dispose()
            Teams.Dispose()
            tmpAction.Destroy()
            objAvaloqDokumentWerte.clearAvaloqDokumentWerte()
 
            File.Delete(Filename)
            File.Delete(Filename + FileExtension)
        Catch
        End Try
        Set_EDK_Status(RowId, 3)
        DivFnkt.InsertJournale("EDKB12: Ende " + Filename, clsDivFnkt.Enum_InfoTyp.Information)
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12: Fehler:: " + ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
    End Try
 
 End Sub