Collapse All Expand All Language Filter: Code: All Code: Multiple Code: Visual Basic Code: C# Code: Visual C++ Code: J# Code: JScript

EDKB12WS Reference
ModMain.Generate_Dokument Method
See Also

Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Public Shared Sub Generate_Dokument( _ ByVal row As Integer _ )
C#
public static System.Void Generate_Dokument( int row )
C++
public: static System::Void Generate_Dokument( int row )
JScript
public static function Generate_Dokument( row : int );
## Parameters row

# Source code

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

# Platforms

Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.

# Version Information

## .NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 ## .NET Compact Framework Supported in: 3.5, 2.0, 1.0 ## XNA Framework Supported in: 3.0, 2.0, 1.0

# See Also

## Reference ModMain Class ModMain ModMain Members