|
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
|
|