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.Dokument_Erstellen Method
See Also

Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Private Shared Function Dokument_Erstellen() As Object
C#
private static object Dokument_Erstellen()
C++
private: static object^ Dokument_Erstellen()
JScript
private static function Dokument_Erstellen() : object;

# Source code

Visual Basic | Copy Code
Private Function Dokument_Erstellen() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokument_Erstellen", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dok.cpMainConnectionProvider = Globals.conn Dokumentid = Globals.DivFnkt.Generate_Key Dok.sDokumentid = New SqlString(CType(Dokumentid, String)) '***************************************************************************************************************3 'Defaultwerte für das Dokument '***************************************************************************************************************3 Dok.bAktiv = New SqlBoolean(True) Dok.bAmsdokument = New SqlBoolean(CType(False, Boolean)) Dok.bAuserstuebernahme = New SqlBoolean(CType(False, Boolean)) Dok.bAusgangsarchiviert = New SqlBoolean(CType(False, Boolean)) Dok.iStatus_edoka_batch_ausgang = Nothing Dok.daTermin = New SqlDateTime(CType("01.01.1900", DateTime)) Dok.bBereit_zur_archivierung = New SqlBoolean(CType(True, Boolean)) Dok.bEingangsarchiviert = New SqlBoolean(CType(False, Boolean)) Dok.bGesperrt = New SqlBoolean(CType(False, Boolean)) Dok.bUnvollstaendig = New SqlBoolean(CType(False, Boolean)) Dok.iBck = New SqlInt32(CType(1, Int32)) Dok.iColdstatus = New SqlInt32(CType(0, Int32)) Dok.iUnterschriftlinks = New SqlInt32(CType(Unterschriftlinks, Int32)) Dok.iUnterschriftrechts = New SqlInt32(CType(Unterschriftrechts, Int32)) Dok.iVerantwortlich = New SqlInt32(CType(Mitarbeiter.iMitarbeiternr.Value, Int32)) Dok.bVertraulich = New SqlBoolean(CType(False, Boolean)) Dok.sZustelladresse = New SqlString(CType("", String)) Dok.sAnredezustelladresse = New SqlString(CType("", String)) Dok.iZustaendiger = New SqlInt32(CType(Mitarbeiter.iMitarbeiternr.Value, Int32)) Dok.iPostzustellung = New SqlInt32(CType(0, Int32)) Dok.bZustaendig_kube = New SqlBoolean(CType(0, Boolean)) Dok.iMa_ausgangsarchivierung = New SqlInt32(CType(0, Int32)) Dok.iMa_eingangsarchivierung = New SqlInt32(CType(0, Int32)) Dok.sBemerkung = New SqlString(CType("", String)) Dok.sColddokumentid = New SqlString(CType("", String)) Dok.iDokdurchkubeweitergegeben = New SqlInt32(CType(0, Int32)) Dok.sBedRDokumentid = New SqlString(CType("", String)) Dok.bBldossier = New SqlBoolean(CType(False, Boolean)) '***************************************************************************************************************3 'Werte aus Dokumenttyp '***************************************************************************************************************3 Dok.iDokumenttypnr = New SqlInt32(CType(DokType.iDokumenttypnr.Value, Int32)) Dok.bZu_retournieren = New SqlBoolean(CType(DokType.bZu_retournieren.Value, Boolean)) Dok.iAufbewahrung_elektronisch = New SqlInt32(CType(DokType.iAufbewahrungsfrist_elektronisch.Value, Int32)) Dok.iAufbewahrung_phaysisch = New SqlInt32(CType(DokType.iAufbewahrungsfrist_physisch.Value, Int32)) Dok.iBearbeitung_nach_abschluss = New SqlInt32(CType(DokType.iTage_mutation.Value, Int32)) Dok.iBearbeitungszeit_in_minuten = New SqlInt32(CType(DokType.iDbearbeitungszeit.Value, Int32)) Dok.iMonierung_in_tagen = New SqlInt32(CType(DokType.iAnzahl_tage.Value, Int32)) Dok.sBezeichnung = New SqlString(CType(DokType.sBezeichnung.Value, String)) '***************************************************************************************************************3 'Werte aus der Schnittstelle bzw. Defaultwerte '***************************************************************************************************************3 Dok.iNrpar00 = New SqlInt32(CType(Partner.iNRPAR00.Value, Int32)) Dok.daArchivierungsdatum = New SqlDateTime(CType(Now, DateTime)) 'Ersteller und Mutierer Dok.iErsteller = New SqlInt32(CType(Mitarbeiter.iMitarbeiternr.Value, Int32)) Dok.iMutierer = Dok.iErsteller Dok.iMitarbeiternr = Dok.iErsteller 'Erstellungs- und Mutationsdatum Dok.daMutiertam = New SqlDateTime(CType(Now, DateTime)) Dok.daErstelltam = New SqlDateTime(CType(Now, DateTime)) Dok.iMutierertieam = New SqlInt32(CType(Teamnr, Int32)) Dok.iErstellerteam = New SqlInt32(CType(Teamnr, Int32)) Dok.daErstellungsdatum = New SqlDateTime(CType(Dok.daArchivierungsdatum.Value, DateTime)) Dok.sDokumentname = New SqlString(CType(OfficeVorlage.sPrefix_dokumentname.Value + Dokumentid + FileExtension, String)) Dok.iAnzeigeStatus = New SqlInt32(CType(0, Int32)) conn.OpenConnection() Dok.Insert() conn.CloseConnection(True) Dim t As System.Data.DataTable Try t = Cold_Werte(Dok.iDokumenttypnr.Value) Dok.sColdfolder = New SqlString(CType(t.Rows(0).Item(0), String)) Dok.sColdschema = New SqlString(CType(t.Rows(0).Item(1), String)) Globals.conn.OpenConnection() Dok.Update() Globals.conn.CloseConnection(True) Catch End Try 'FANummerin im EDOKA-Dokumentaktualisieren Update_FANummer(tmpAction.GetParameterByName("fanummer3").Value) Dok.SelectOne() 'Cold_index erstellen COLD_Index_Sichern(1, Dokumentid) If Dok.bZu_retournieren.Value = True Then COLD_Index_Sichern(2, Dokumentid) End If 'VVNummer im COLDIndex aktualisieren, sofern als Indexwert übergeben Dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(Dokumentid, True, 0), Int32)) 'Dokumentstatus erstelln und Statushistory_eintragen 'dok.iStatusnr = New SqlInt32(CType(Dokumentstatus_erstellen_und_Status_Setzen(datarow, True), Int32)) 'Dokument auf der Datenbank speichern 'Abhängig vom entsprechenden Status, wird das Flag, bereit zur Ausgangsarchivierung wieder entfernt Globals.conn.OpenConnection() Dok.Update() Globals.conn.CloseConnection(True) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokument_Erstellen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Dokument_Erstellen::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokument_Erstellen (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function

# 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