ModMain.Dokumentwerte_Sichern Method EDKB12WS.ModMain.Dokumentwerte_Sichern Method Dokumentwerte_Sichern Method topic_00000000000003B9 EDKB12WS.ModMain.Dokumentwerte_Sichern EDKB12WS.ModMain.Dokumentwerte_Sichern ModMain.Dokumentwerte_Sichern EDKB12WS.ModMain.ModMain.Dokumentwerte_Sichern EDKB12WS.ModMain.Dokumentwerte_Sichern EDKB12WS (in EDKB12WS.exe) ModMain.Dokumentwerte_Sichern Method EDKB12WS.ModMain topic_00000000000003B9

ModMain.Dokumentwerte_Sichern Method

Assembly: EDKB12WS (in EDKB12WS.exe)

Visual Basic Public Shared Sub Dokumentwerte_Sichern() C# public static ]]>System.Voida]]>]]> Dokumentwerte_Sichern() C++ public: static ]]>System::Voida]]>]]> Dokumentwerte_Sichern() JScript public static function Dokumentwerte_Sichern();

$END-IFNOTEMPTY$

Visual Basic Copy Code ]]> Public Sub Dokumentwerte_Sichern()    If Param.DebugMode Then        DivFnkt.InsertJournale("EDKB12: Start Dokumentwerte_Sichern", clsDivFnkt.Enum_InfoTyp.Information)    End If    Dim i As Integer    For i = 0 To xdata.Rows.Count - 1        If xdata.Rows(i).Item("cold_indexfeld") Is System.DBNull.Value Then xdata.Rows(i).Item("cold_indexfeld") = 0        If xdata.Rows(i).Item("cold_indexfeld") = 0 Then            Dim scmCmdToExecute As SqlCommand = New SqlCommand()            scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"            scmCmdToExecute.CommandType = CommandType.StoredProcedure            scmCmdToExecute.Connection = conn.scoDBConnection            scmCmdToExecute.Connection.Open()            Try                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))                scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("vorlagenfeldnr")))                scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, xdata.Rows(i).Item("feldwert")))                scmCmdToExecute.ExecuteNonQuery()            Catch ex As Exception                DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentwerte_Sichern::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)                If Param.DebugMode Then                    DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte_Sichern (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)                End If            Finally                scmCmdToExecute.Connection.Close()                scmCmdToExecute.Dispose()            End Try        End If    Next    xdata.Dispose()    If Param.DebugMode Then        DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte_Sichern (True)", clsDivFnkt.Enum_InfoTyp.Information)    End If End Sub

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 Requirementsa]]>]]>.

.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

Reference ModMain Class ModMain ModMain Members