C:\Program Files (x86)\VSdocman E:\Software-Projekte\EDOKA\batch\edkb12\edkb12 V13\EDKB12WS\VSdoc C:\Program Files (x86)\VSdocman\Templates EDKB12WS topic_000000000000041A EDKB12WS Reference EDKB12WS Reference EDKB12WS Reference topic_000000000000041A EDKB12WS EDKB12WS EDKB12WS EDKB12WS (in EDKB12WS.exe) topic_000000000000041C Parameter ActionType Action ActionException AvaloqDokumentWert AvaloqDokumentWerte Parameters ProjectInstaller Service1 clsDivFnkt Globals ModMain Action Action EDKB12WS.Action EDKB12WS (in EDKB12WS.exe) topic_0000000000000000 Public Class Action public class Action public __gc class Action public class Action System.Object Destroy Equals Finalize GetHashCode GetParameterByName GetType IsValid Load MemberwiseClone ReferenceEquals ToString ValidationCallback Action ActionType CreatorTgNr Parameters SourceApplication valtionOK _actionSingleton _actionType _creatorTgNr _parameters _sourceApplication _validationSuccess Action.Action Action EDKB12WS.Action.Action EDKB12WS (in EDKB12WS.exe) topic_000000000000000C Public ReadOnly Shared Property Action() As Action public static Action Action {get;} public: static Action __gc* get_Action() public static function get Action() : Action; Public Shared ReadOnly Property Action() As Action Get If IsNothing(_actionSingleton) Then _actionSingleton = New Action() End If Return _actionSingleton End Get End Property Action.ActionType ActionType EDKB12WS.Action.ActionType EDKB12WS (in EDKB12WS.exe) topic_000000000000000E Public ReadOnly Property ActionType() As ActionType public ActionType ActionType {get;} public: ActionType get_ActionType() public function get ActionType() : ActionType; Public ReadOnly Property ActionType() As ActionType Get Return _actionType End Get End Property Action.CreatorTgNr CreatorTgNr EDKB12WS.Action.CreatorTgNr EDKB12WS (in EDKB12WS.exe) topic_000000000000000F Public ReadOnly Property CreatorTgNr() As String public string CreatorTgNr {get;} public: String __gc* get_CreatorTgNr() public function get CreatorTgNr() : String; Public ReadOnly Property CreatorTgNr() As String Get Return _creatorTgNr End Get End Property Action.Parameters Parameters EDKB12WS.Action.Parameters EDKB12WS (in EDKB12WS.exe) topic_0000000000000011 Public ReadOnly Property Parameters() As Parameter() public Parameter[] Parameters {get;} public: Parameter get_Parameters() __gc[] public function get Parameters() : Parameter[]; Public ReadOnly Property Parameters() As Parameter() Get Return _parameters End Get End Property Action.SourceApplication SourceApplication EDKB12WS.Action.SourceApplication EDKB12WS (in EDKB12WS.exe) topic_0000000000000010 Public ReadOnly Property SourceApplication() As String public string SourceApplication {get;} public: String __gc* get_SourceApplication() public function get SourceApplication() : String; Public ReadOnly Property SourceApplication() As String Get Return _sourceApplication End Get End Property Action.valtionOK valtionOK EDKB12WS.Action.valtionOK EDKB12WS (in EDKB12WS.exe) topic_000000000000000D Public ReadOnly Property valtionOK() As Boolean public bool valtionOK {get;} public: bool get_valtionOK() public function get valtionOK() : boolean; Public ReadOnly Property valtionOK() As Boolean Get Return _validationSuccess End Get End Property Action.Destroy Destroy EDKB12WS.Action.Destroy EDKB12WS (in EDKB12WS.exe) topic_0000000000000009 Zerstört die statische Instanz Public Sub Destroy() public System.Void Destroy() public: System::Void Destroy(); public function Destroy(); Public Sub Destroy() Try _actionSingleton = Nothing Catch ex As Exception Throw ex End Try End Sub Action.GetParameterByName GetParameterByName EDKB12WS.Action.GetParameterByName EDKB12WS (in EDKB12WS.exe) topic_0000000000000008 Returns a parameter identified by his name Public Function GetParameterByName( _ ByVal paramName As String _) As Parameter public Parameter GetParameterByName( string paramName) public: Parameter GetParameterByName( String __gc* paramName); public function GetParameterByName( paramName : String) : Parameter; Public Function GetParameterByName(ByVal paramName As String) As Parameter Try Dim param As Parameter For Each param In _parameters If param.Name = paramName Then Return param End If Next Catch ex As Exception Throw ex End Try End Function Action.IsValid IsValid EDKB12WS.Action.IsValid EDKB12WS (in EDKB12WS.exe) topic_000000000000000A Überprüft ob das Xml file dem angegebenen Schema entspricht Private Function IsValid( _ ByVal xmlImportFile As FileInfo _) As Boolean private bool IsValid( FileInfo xmlImportFile) private: bool IsValid( FileInfo __gc* xmlImportFile); private function IsValid( xmlImportFile : FileInfo) : boolean; Private Function IsValid(ByVal xmlImportFile As FileInfo) As Boolean Dim reader As New XmlTextReader(xmlImportFile.FullName) 'We pass the xmltextreader into the xmlvalidatingreader 'This will validate the xml doc with the schema file 'NOTE the xml file it self points to the schema file Dim validator As New XmlValidatingReader(reader) Try 'First we create the xmltextreader ' Set the validation event handler 'AddHandler validator.ValidationEventHandler, _ 'AddressOf ValidationCallback _validationSuccess = True 'make sure to reset the success var ' Read XML data While (validator.Read) End While 'Close the reader. validator.Close() reader.Close() 'The validationeventhandler is the only thing that would 'set m_Success to false Return _validationSuccess Catch ex As Exception validator.Close() reader.Close() _validationSuccess = False _validationSuccess = False Return _validationSuccess Throw ex End Try End Function Action.Load Load EDKB12WS.Action.Load EDKB12WS (in EDKB12WS.exe) topic_0000000000000007 Lädt externes Xml file für automatisierte Aktionen Das Xml File mit den entsprechenden Parametern Public Function Load( _ ByVal xmlImportFile As FileInfo _) As Boolean public bool Load( FileInfo xmlImportFile) public: bool Load( FileInfo __gc* xmlImportFile); public function Load( xmlImportFile : FileInfo) : boolean; Public Function Load(ByVal xmlImportFile As FileInfo) As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Load XML-File", clsDivFnkt.Enum_InfoTyp.Information) End If Try 'Validate source If Not IsValid(xmlImportFile) Then 'xml file is invalid DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12::Fehler:: XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Information) End If Return False End If Dim doc As New XmlDocument() doc.Load(xmlImportFile.FullName) 'read header elements _actionType = CType(doc.SelectSingleNode("action/actionId").InnerText, ActionType) _creatorTgNr = doc.SelectSingleNode("action/creatorTg").InnerText _sourceApplication = doc.SelectSingleNode("action/sourceApplication").InnerText Dim RootNode As XmlElement = doc.DocumentElement Dim nodeList As XmlNodeList = RootNode.ChildNodes If nodeList.Count > 0 Then 'set correct array size ReDim _parameters(nodeList.Count - 1) Dim value As String Dim name As String Dim parameterCounter As Integer = 0 Dim i As Integer For i = 0 To nodeList.Count - 1 value = nodeList.Item(i).InnerText name = nodeList.Item(i).LocalName 'append new parameter _parameters(parameterCounter) = New Parameter(name, value) parameterCounter = parameterCounter + 1 Next End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Load XML-File (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Load XML-File::File invalid(False)", clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function Action.ValidationCallback ValidationCallback EDKB12WS.Action.ValidationCallback EDKB12WS (in EDKB12WS.exe) topic_000000000000000B Private Sub ValidationCallback( _ ByVal sender As Object, _ ByVal args As ValidationEventArgs _) private System.Void ValidationCallback( object sender, ValidationEventArgs args) private: System::Void ValidationCallback( object __gc* sender, ValidationEventArgs __gc* args); private function ValidationCallback( sender : object, args : ValidationEventArgs); Private Sub ValidationCallback(ByVal sender As Object, ByVal args As ValidationEventArgs) Try 'Display the validation error. This is only called on error _validationSuccess = False 'Validation failed Debug.Write("Validation error: " + args.Message + Environment.NewLine) Throw New ActionException(1, "Fehler bei der Validierung") Catch ex As Exception Throw ex End Try End Sub _actionSingleton _actionSingleton EDKB12WS.Action._actionSingleton EDKB12WS (in EDKB12WS.exe) topic_0000000000000001 Private Shared _actionSingleton As Action private static Action _actionSingleton private: static Action __gc* _actionSingleton; private static _actionSingleton : Action Private Shared _actionSingleton As Action _actionType _actionType EDKB12WS.Action._actionType EDKB12WS (in EDKB12WS.exe) topic_0000000000000002 Private _actionType As ActionType private ActionType _actionType private: ActionType _actionType; private _actionType : ActionType Private _actionType As ActionType _creatorTgNr _creatorTgNr EDKB12WS.Action._creatorTgNr EDKB12WS (in EDKB12WS.exe) topic_0000000000000003 Private _creatorTgNr As String private string _creatorTgNr private: String __gc* _creatorTgNr; private _creatorTgNr : String Private _creatorTgNr As String _parameters _parameters EDKB12WS.Action._parameters EDKB12WS (in EDKB12WS.exe) topic_0000000000000005 Private _parameters As Parameter() private Parameter[] _parameters private: Parameter _parameters __gc[]; private _parameters : Parameter[] Private _parameters As Parameter() _sourceApplication _sourceApplication EDKB12WS.Action._sourceApplication EDKB12WS (in EDKB12WS.exe) topic_0000000000000004 Private _sourceApplication As String private string _sourceApplication private: String __gc* _sourceApplication; private _sourceApplication : String Private _sourceApplication As String _validationSuccess _validationSuccess EDKB12WS.Action._validationSuccess EDKB12WS (in EDKB12WS.exe) topic_0000000000000006 Private _validationSuccess As Boolean private bool _validationSuccess private: bool _validationSuccess; private _validationSuccess : boolean Private _validationSuccess As Boolean ActionException ActionException EDKB12WS.ActionException EDKB12WS (in EDKB12WS.exe) topic_0000000000000012 Public Class ActionException Inherits Exception public class ActionException : Exception public __gc class ActionException : public Exception public class ActionException extends Exception System.Object System.Exception Equals Finalize GetBaseException GetHashCode GetObjectData GetType MemberwiseClone ReferenceEquals ToString Data HResult HelpLink InnerException Message Number Source StackTrace TargetSite ActionException Constructor SerializeObjectState _description _number ActionException Constructor New EDKB12WS.ActionException.New EDKB12WS (in EDKB12WS.exe) topic_0000000000000015 Public Sub New( _ ByVal number As Integer, _ ByVal description As String _) public ActionException( int number, string description) public: ActionException( int number, String __gc* description); public function ActionException( number : int, description : String); Public Sub New(ByVal number As Integer, ByVal description As String) _number = number _description = description End Sub ActionException.Message Message EDKB12WS.ActionException.Message EDKB12WS (in EDKB12WS.exe) topic_0000000000000016 Public ReadOnly Overrides Property Message() As String public override string Message {get;} public: String __gc* get_Message() public function get Message() : String; Public Overrides ReadOnly Property Message() As String Get Return _description End Get End Property ActionException.Number Number EDKB12WS.ActionException.Number EDKB12WS (in EDKB12WS.exe) topic_0000000000000017 Public ReadOnly Property Number() As Integer public int Number {get;} public: int get_Number() public function get Number() : int; Public ReadOnly Property Number() As Integer Get Return _number End Get End Property _description _description EDKB12WS.ActionException._description EDKB12WS (in EDKB12WS.exe) topic_0000000000000014 Private _description As String private string _description private: String __gc* _description; private _description : String Private _description As String _number _number EDKB12WS.ActionException._number EDKB12WS (in EDKB12WS.exe) topic_0000000000000013 Private _number As Integer private int _number private: int _number; private _number : int Private _number As Integer AvaloqDokumentWert AvaloqDokumentWert EDKB12WS.AvaloqDokumentWert EDKB12WS (in EDKB12WS.exe) topic_0000000000000025 Public Class AvaloqDokumentWert public class AvaloqDokumentWert public __gc class AvaloqDokumentWert public class AvaloqDokumentWert System.Object Equals Finalize GetHashCode GetType MemberwiseClone ReferenceEquals ToString name value AvaloqDokumentWert Constructor strName strValue AvaloqDokumentWert Constructor New EDKB12WS.AvaloqDokumentWert.New EDKB12WS (in EDKB12WS.exe) topic_0000000000000028 Public Sub New( _ ByVal name As String, _ ByVal value As String _) public AvaloqDokumentWert( string name, string value) public: AvaloqDokumentWert( String __gc* name, String __gc* value); public function AvaloqDokumentWert( name : String, value : String); Public Sub New(ByVal name As String, ByVal value As String) Me.name = name Me.value = value End Sub AvaloqDokumentWert.name name EDKB12WS.AvaloqDokumentWert.name EDKB12WS (in EDKB12WS.exe) topic_0000000000000029 Public Property name() As String public string name {get; set;} public: String __gc* get_name()public: void set_name( String __gc*) public function get name() : String;public function set name(value : String); Public Property name() As String Get Return strName End Get Set(ByVal Value As String) strName = Value End Set End Property AvaloqDokumentWert.value value EDKB12WS.AvaloqDokumentWert.value EDKB12WS (in EDKB12WS.exe) topic_000000000000002A Public Property value() As String public string value {get; set;} public: String __gc* get_value()public: void set_value( String __gc*) public function get value() : String;public function set value(value : String); Public Property value() As String Get Return strValue End Get Set(ByVal Value As String) strValue = Value End Set End Property strName strName EDKB12WS.AvaloqDokumentWert.strName EDKB12WS (in EDKB12WS.exe) topic_0000000000000026 Private strName As String private string strName private: String __gc* strName; private strName : String Private strName As String strValue strValue EDKB12WS.AvaloqDokumentWert.strValue EDKB12WS (in EDKB12WS.exe) topic_0000000000000027 Private strValue As String private string strValue private: String __gc* strValue; private strValue : String Private strValue As String AvaloqDokumentWerte AvaloqDokumentWerte EDKB12WS.AvaloqDokumentWerte EDKB12WS (in EDKB12WS.exe) topic_000000000000002B Public Class AvaloqDokumentWerte public class AvaloqDokumentWerte public __gc class AvaloqDokumentWerte public class AvaloqDokumentWerte System.Object Equals Finalize GetHashCode GetType MemberwiseClone ReferenceEquals ToString clearAvaloqDokumentWerte getAvaloqDokumentWertByName init arrDoukmentWerte objDokumentWert AvaloqDokumentWerte.clearAvaloqDokumentWerte clearAvaloqDokumentWerte EDKB12WS.AvaloqDokumentWerte.clearAvaloqDokumentWerte EDKB12WS (in EDKB12WS.exe) topic_0000000000000030 Public Sub clearAvaloqDokumentWerte() public System.Void clearAvaloqDokumentWerte() public: System::Void clearAvaloqDokumentWerte(); public function clearAvaloqDokumentWerte(); Public Sub clearAvaloqDokumentWerte() arrDoukmentWerte.Clear() End Sub AvaloqDokumentWerte.getAvaloqDokumentWertByName getAvaloqDokumentWertByName EDKB12WS.AvaloqDokumentWerte.getAvaloqDokumentWertByName EDKB12WS (in EDKB12WS.exe) topic_000000000000002F Public Function getAvaloqDokumentWertByName( _ ByVal name As String _) As AvaloqDokumentWert public AvaloqDokumentWert getAvaloqDokumentWertByName( string name) public: AvaloqDokumentWert __gc* getAvaloqDokumentWertByName( String __gc* name); public function getAvaloqDokumentWertByName( name : String) : AvaloqDokumentWert; Public Function getAvaloqDokumentWertByName(ByVal name As String) As AvaloqDokumentWert Dim objRet As AvaloqDokumentWert = Nothing Dim i As Integer For i = 0 To arrDoukmentWerte.Count - 1 If arrDoukmentWerte(i).name = name Then objRet = arrDoukmentWerte(i) End If Next Return objRet End Function AvaloqDokumentWerte.init init EDKB12WS.AvaloqDokumentWerte.init EDKB12WS (in EDKB12WS.exe) topic_000000000000002E Lädt externes Xml file für automatisierte Aktionen Das Xml File mit den entsprechenden Parametern Public Function init( _ ByVal xmlImportFile As FileInfo _) As Object public object init( FileInfo xmlImportFile) public: object __gc* init( FileInfo __gc* xmlImportFile); public function init( xmlImportFile : FileInfo) : object; Public Function init(ByVal xmlImportFile As FileInfo) Try Dim doc As New XmlDocument() doc.Load(xmlImportFile.FullName) 'read all parameter nodes Dim parameterNodes As XmlNodeList parameterNodes = doc.SelectNodes("action/dokwerte/parameter") If parameterNodes.Count > 0 Then Dim node As XmlNode Dim name, value, dataType As String Dim parameterCounter As Integer = 0 For Each node In parameterNodes 'Read all Document specified Values '20080401 RGL zusätzliches TRY wenn node <parameter> leer geliefert wird kein Absturz Try name = node.SelectSingleNode("name").InnerText value = node.SelectSingleNode("value").InnerText objDokumentWert = New AvaloqDokumentWert(name, value) arrDoukmentWerte.Add(objDokumentWert) Catch ex As Exception 'xxx 'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error) End Try parameterCounter = parameterCounter + 1 Next End If Catch ex As Exception 'xxx ' TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End Function arrDoukmentWerte arrDoukmentWerte EDKB12WS.AvaloqDokumentWerte.arrDoukmentWerte EDKB12WS (in EDKB12WS.exe) topic_000000000000002C Private arrDoukmentWerte As ArrayList private ArrayList arrDoukmentWerte private: ArrayList __gc* arrDoukmentWerte; private arrDoukmentWerte : ArrayList Private arrDoukmentWerte As New ArrayList() objDokumentWert objDokumentWert EDKB12WS.AvaloqDokumentWerte.objDokumentWert EDKB12WS (in EDKB12WS.exe) topic_000000000000002D Private objDokumentWert As AvaloqDokumentWert private AvaloqDokumentWert objDokumentWert private: AvaloqDokumentWert __gc* objDokumentWert; private objDokumentWert : AvaloqDokumentWert Private objDokumentWert As AvaloqDokumentWert Parameters Parameters EDKB12WS.Parameters EDKB12WS (in EDKB12WS.exe) topic_00000000000003ED Public Class Parameters public class Parameters public __gc class Parameters public class Parameters System.Object ApplicationPath Equals Finalize GetHashCode GetType MemberwiseClone ReferenceEquals ToString CheckOffice2010_Vorlage DebugMode FehlerMeldungMeldung FehlermeldungBetreff MaNrFehlermeldung NOKMeldung NOKMeldungBetreff OKMeldung OKMeldungBetreff TimerInterval WorkDir connectionstring connectionstring_Journale Parameters Constructor bCheckOffice2010_Vorlage bDebugmode iInterval iMaNrFehlerMeldung sFehlerMeldungMeldung sFehlermeldungBetreff sNOKMeldung sNOKMeldungBetreff sOKMeldung sOKMeldungBetreff sconnectionstring sconnectionstring_Journale sworkdir xmldoc Parameters Constructor New EDKB12WS.Parameters.New EDKB12WS (in EDKB12WS.exe) topic_0000000000000409 Public Sub New() public Parameters() public: Parameters(); public function Parameters(); Public Sub New() xmldoc.Load(Me.ApplicationPath + "Parameters.xml") Me.connectionstring = xmldoc.SelectSingleNode("/Configuration/SQLConnectionString").InnerText Me.connectionstring_Journale = xmldoc.SelectSingleNode("/Configuration/SQLConnectionStringJournale").InnerText Me.WorkDir = xmldoc.SelectSingleNode("/Configuration/WorkDir").InnerText Me.DebugMode = UCase(xmldoc.SelectSingleNode("/Configuration/DebugMode").InnerText) = "TRUE" Me.OKMeldungBetreff = xmldoc.SelectSingleNode("/Configuration/OKMeldungBetreff").InnerText Me.OKMeldung = xmldoc.SelectSingleNode("/Configuration/OKMeldung").InnerText Me.NOKMeldungBetreff = xmldoc.SelectSingleNode("/Configuration/NOKMeldungBetreff").InnerText Me.NOKMeldung = xmldoc.SelectSingleNode("/Configuration/NOKMeldung").InnerText Me.TimerInterval = xmldoc.SelectSingleNode("/Configuration/TimerInterval").InnerText Me.MaNrFehlermeldung = xmldoc.SelectSingleNode("/Configuration/MaNrFehlerMeldung").InnerText Me.FehlermeldungBetreff = xmldoc.SelectSingleNode("/Configuration/FehlerMeldungBetreff").InnerText Me.FehlerMeldungMeldung = xmldoc.SelectSingleNode("/Configuration/FehlerMeldungMeldung").InnerText Me.MaNrFehlermeldung = xmldoc.SelectSingleNode("/Configuration/MaNrFehlerMeldung").InnerText Me.CheckOffice2010_Vorlage = UCase(xmldoc.SelectSingleNode("/Configuration/CheckOffice2010_Vorlage").InnerText) = "TRUE" Globals.conn.sConnectionString = Me.connectionstring Globals.connJournale.sConnectionString = Me.connectionstring_Journale Globals.PrintLog("EDKB12 gestartet", EventLogEntryType.Information) Globals.PrintLog("Connectionstring EDOKA:" & Me.connectionstring, EventLogEntryType.Information) Globals.PrintLog("Connectionstring Journale:" & Me.connectionstring_Journale, EventLogEntryType.Information) Globals.PrintLog("WorkDir:" & Me.WorkDir, EventLogEntryType.Information) Globals.PrintLog("DebugMode:" & Me.DebugMode, EventLogEntryType.Information) Globals.PrintLog("TimerInterval:" & Me.TimerInterval, EventLogEntryType.Information) Globals.PrintLog("Ma-Nr Fehlermeldung:" & Me.MaNrFehlermeldung, EventLogEntryType.Information) End Sub Parameters.CheckOffice2010_Vorlage CheckOffice2010_Vorlage EDKB12WS.Parameters.CheckOffice2010_Vorlage EDKB12WS (in EDKB12WS.exe) topic_0000000000000407 Public Property CheckOffice2010_Vorlage() As Boolean public bool CheckOffice2010_Vorlage {get; set;} public: bool get_CheckOffice2010_Vorlage()public: void set_CheckOffice2010_Vorlage( bool) public function get CheckOffice2010_Vorlage() : boolean;public function set CheckOffice2010_Vorlage(value : boolean); Property CheckOffice2010_Vorlage() As Boolean Get Return bCheckOffice2010_Vorlage End Get Set(ByVal value As Boolean) bCheckOffice2010_Vorlage = value End Set End Property Parameters.DebugMode DebugMode EDKB12WS.Parameters.DebugMode EDKB12WS (in EDKB12WS.exe) topic_00000000000003F5 Public Property DebugMode() As Boolean public bool DebugMode {get; set;} public: bool get_DebugMode()public: void set_DebugMode( bool) public function get DebugMode() : boolean;public function set DebugMode(value : boolean); Property DebugMode() As Boolean Get Return bDebugmode End Get Set(ByVal value As Boolean) bDebugmode = value End Set End Property Parameters.FehlerMeldungMeldung FehlerMeldungMeldung EDKB12WS.Parameters.FehlerMeldungMeldung EDKB12WS (in EDKB12WS.exe) topic_0000000000000405 Public Property FehlerMeldungMeldung() As String public string FehlerMeldungMeldung {get; set;} public: String __gc* get_FehlerMeldungMeldung()public: void set_FehlerMeldungMeldung( String __gc*) public function get FehlerMeldungMeldung() : String;public function set FehlerMeldungMeldung(value : String); Property FehlerMeldungMeldung() As String Get Return sFehlerMeldungMeldung End Get Set(ByVal value As String) sFehlerMeldungMeldung = value End Set End Property Parameters.FehlermeldungBetreff FehlermeldungBetreff EDKB12WS.Parameters.FehlermeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_0000000000000403 Public Property FehlermeldungBetreff() As String public string FehlermeldungBetreff {get; set;} public: String __gc* get_FehlermeldungBetreff()public: void set_FehlermeldungBetreff( String __gc*) public function get FehlermeldungBetreff() : String;public function set FehlermeldungBetreff(value : String); Property FehlermeldungBetreff() As String Get Return sFehlermeldungBetreff End Get Set(ByVal value As String) sFehlermeldungBetreff = value End Set End Property Parameters.MaNrFehlermeldung MaNrFehlermeldung EDKB12WS.Parameters.MaNrFehlermeldung EDKB12WS (in EDKB12WS.exe) topic_0000000000000401 Public Property MaNrFehlermeldung() As Integer public int MaNrFehlermeldung {get; set;} public: int get_MaNrFehlermeldung()public: void set_MaNrFehlermeldung( int) public function get MaNrFehlermeldung() : int;public function set MaNrFehlermeldung(value : int); Property MaNrFehlermeldung() As Integer Get Return iMaNrFehlerMeldung End Get Set(ByVal value As Integer) iMaNrFehlerMeldung = value End Set End Property Parameters.NOKMeldung NOKMeldung EDKB12WS.Parameters.NOKMeldung EDKB12WS (in EDKB12WS.exe) topic_00000000000003FD Public Property NOKMeldung() As String public string NOKMeldung {get; set;} public: String __gc* get_NOKMeldung()public: void set_NOKMeldung( String __gc*) public function get NOKMeldung() : String;public function set NOKMeldung(value : String); Property NOKMeldung() As String Get Return sNOKMeldung End Get Set(ByVal value As String) sNOKMeldung = value End Set End Property Parameters.NOKMeldungBetreff NOKMeldungBetreff EDKB12WS.Parameters.NOKMeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_00000000000003FB Public Property NOKMeldungBetreff() As String public string NOKMeldungBetreff {get; set;} public: String __gc* get_NOKMeldungBetreff()public: void set_NOKMeldungBetreff( String __gc*) public function get NOKMeldungBetreff() : String;public function set NOKMeldungBetreff(value : String); Property NOKMeldungBetreff() As String Get Return sNOKMeldungBetreff End Get Set(ByVal value As String) sNOKMeldungBetreff = value End Set End Property Parameters.OKMeldung OKMeldung EDKB12WS.Parameters.OKMeldung EDKB12WS (in EDKB12WS.exe) topic_00000000000003F9 Public Property OKMeldung() As String public string OKMeldung {get; set;} public: String __gc* get_OKMeldung()public: void set_OKMeldung( String __gc*) public function get OKMeldung() : String;public function set OKMeldung(value : String); Property OKMeldung() As String Get Return sOKMeldung End Get Set(ByVal value As String) sOKMeldung = value End Set End Property Parameters.OKMeldungBetreff OKMeldungBetreff EDKB12WS.Parameters.OKMeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_00000000000003F7 Public Property OKMeldungBetreff() As String public string OKMeldungBetreff {get; set;} public: String __gc* get_OKMeldungBetreff()public: void set_OKMeldungBetreff( String __gc*) public function get OKMeldungBetreff() : String;public function set OKMeldungBetreff(value : String); Property OKMeldungBetreff() As String Get Return sOKMeldungBetreff End Get Set(ByVal value As String) sOKMeldungBetreff = value End Set End Property Parameters.TimerInterval TimerInterval EDKB12WS.Parameters.TimerInterval EDKB12WS (in EDKB12WS.exe) topic_00000000000003FF Public Property TimerInterval() As Integer public int TimerInterval {get; set;} public: int get_TimerInterval()public: void set_TimerInterval( int) public function get TimerInterval() : int;public function set TimerInterval(value : int); Property TimerInterval() As Integer Get Return iInterval End Get Set(ByVal value As Integer) iInterval = value End Set End Property Parameters.WorkDir WorkDir EDKB12WS.Parameters.WorkDir EDKB12WS (in EDKB12WS.exe) topic_00000000000003F3 Public Property WorkDir() As String public string WorkDir {get; set;} public: String __gc* get_WorkDir()public: void set_WorkDir( String __gc*) public function get WorkDir() : String;public function set WorkDir(value : String); Property WorkDir() As String Get Return sworkdir End Get Set(ByVal value As String) sworkdir = value End Set End Property Parameters.connectionstring connectionstring EDKB12WS.Parameters.connectionstring EDKB12WS (in EDKB12WS.exe) topic_00000000000003EF Public Property connectionstring() As String public string connectionstring {get; set;} public: String __gc* get_connectionstring()public: void set_connectionstring( String __gc*) public function get connectionstring() : String;public function set connectionstring(value : String); Property connectionstring() As String Get Return sconnectionstring End Get Set(ByVal value As String) sconnectionstring = value End Set End Property Parameters.connectionstring_Journale connectionstring_Journale EDKB12WS.Parameters.connectionstring_Journale EDKB12WS (in EDKB12WS.exe) topic_00000000000003F1 Public Property connectionstring_Journale() As String public string connectionstring_Journale {get; set;} public: String __gc* get_connectionstring_Journale()public: void set_connectionstring_Journale( String __gc*) public function get connectionstring_Journale() : String;public function set connectionstring_Journale(value : String); Property connectionstring_Journale() As String Get Return sconnectionstring_Journale End Get Set(ByVal value As String) sconnectionstring_Journale = value End Set End Property Parameters.ApplicationPath ApplicationPath EDKB12WS.Parameters.ApplicationPath EDKB12WS (in EDKB12WS.exe) topic_000000000000040A Public Function ApplicationPath() As String public string ApplicationPath() public: String __gc* ApplicationPath(); public function ApplicationPath() : String; Public Function ApplicationPath() As String Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\" End Function bCheckOffice2010_Vorlage bCheckOffice2010_Vorlage EDKB12WS.Parameters.bCheckOffice2010_Vorlage EDKB12WS (in EDKB12WS.exe) topic_0000000000000406 Private bCheckOffice2010_Vorlage As Boolean private bool bCheckOffice2010_Vorlage private: bool bCheckOffice2010_Vorlage; private bCheckOffice2010_Vorlage : boolean Dim bCheckOffice2010_Vorlage As Boolean bDebugmode bDebugmode EDKB12WS.Parameters.bDebugmode EDKB12WS (in EDKB12WS.exe) topic_00000000000003F4 Private bDebugmode As Boolean private bool bDebugmode private: bool bDebugmode; private bDebugmode : boolean Dim bDebugmode As Boolean iInterval iInterval EDKB12WS.Parameters.iInterval EDKB12WS (in EDKB12WS.exe) topic_00000000000003FE Private iInterval As Integer private int iInterval private: int iInterval; private iInterval : int Dim iInterval As Integer iMaNrFehlerMeldung iMaNrFehlerMeldung EDKB12WS.Parameters.iMaNrFehlerMeldung EDKB12WS (in EDKB12WS.exe) topic_0000000000000400 Private iMaNrFehlerMeldung As Integer private int iMaNrFehlerMeldung private: int iMaNrFehlerMeldung; private iMaNrFehlerMeldung : int Dim iMaNrFehlerMeldung As Integer sFehlerMeldungMeldung sFehlerMeldungMeldung EDKB12WS.Parameters.sFehlerMeldungMeldung EDKB12WS (in EDKB12WS.exe) topic_0000000000000404 Private sFehlerMeldungMeldung As String private string sFehlerMeldungMeldung private: String __gc* sFehlerMeldungMeldung; private sFehlerMeldungMeldung : String Dim sFehlerMeldungMeldung As String sFehlermeldungBetreff sFehlermeldungBetreff EDKB12WS.Parameters.sFehlermeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_0000000000000402 Private sFehlermeldungBetreff As String private string sFehlermeldungBetreff private: String __gc* sFehlermeldungBetreff; private sFehlermeldungBetreff : String Dim sFehlermeldungBetreff As String sNOKMeldung sNOKMeldung EDKB12WS.Parameters.sNOKMeldung EDKB12WS (in EDKB12WS.exe) topic_00000000000003FC Private sNOKMeldung As String private string sNOKMeldung private: String __gc* sNOKMeldung; private sNOKMeldung : String Dim sNOKMeldung As String sNOKMeldungBetreff sNOKMeldungBetreff EDKB12WS.Parameters.sNOKMeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_00000000000003FA Private sNOKMeldungBetreff As String private string sNOKMeldungBetreff private: String __gc* sNOKMeldungBetreff; private sNOKMeldungBetreff : String Dim sNOKMeldungBetreff As String sOKMeldung sOKMeldung EDKB12WS.Parameters.sOKMeldung EDKB12WS (in EDKB12WS.exe) topic_00000000000003F8 Private sOKMeldung As String private string sOKMeldung private: String __gc* sOKMeldung; private sOKMeldung : String Dim sOKMeldung As String sOKMeldungBetreff sOKMeldungBetreff EDKB12WS.Parameters.sOKMeldungBetreff EDKB12WS (in EDKB12WS.exe) topic_00000000000003F6 Private sOKMeldungBetreff As String private string sOKMeldungBetreff private: String __gc* sOKMeldungBetreff; private sOKMeldungBetreff : String Dim sOKMeldungBetreff As String sconnectionstring sconnectionstring EDKB12WS.Parameters.sconnectionstring EDKB12WS (in EDKB12WS.exe) topic_00000000000003EE Private sconnectionstring As String private string sconnectionstring private: String __gc* sconnectionstring; private sconnectionstring : String Dim sconnectionstring As String sconnectionstring_Journale sconnectionstring_Journale EDKB12WS.Parameters.sconnectionstring_Journale EDKB12WS (in EDKB12WS.exe) topic_00000000000003F0 Private sconnectionstring_Journale As String private string sconnectionstring_Journale private: String __gc* sconnectionstring_Journale; private sconnectionstring_Journale : String Dim sconnectionstring_Journale As String sworkdir sworkdir EDKB12WS.Parameters.sworkdir EDKB12WS (in EDKB12WS.exe) topic_00000000000003F2 Private sworkdir As String private string sworkdir private: String __gc* sworkdir; private sworkdir : String Dim sworkdir As String xmldoc xmldoc EDKB12WS.Parameters.xmldoc EDKB12WS (in EDKB12WS.exe) topic_0000000000000408 Private xmldoc As XmlDocument private XmlDocument xmldoc private: XmlDocument __gc* xmldoc; private xmldoc : XmlDocument Dim xmldoc As New XmlDocument ProjectInstaller ProjectInstaller EDKB12WS.ProjectInstaller EDKB12WS (in EDKB12WS.exe) topic_000000000000040B Public Class ProjectInstaller Inherits Installer public class ProjectInstaller : Installer public __gc class ProjectInstaller : public Installer public class ProjectInstaller extends Installer System.Object System.MarshalByRefObject System.ComponentModel.Component System.Configuration.Install.Installer Commit CreateObjRef Dispose Equals Finalize GetHashCode GetLifetimeService GetService GetType InitializeComponent InitializeLifetimeService Install MemberwiseClone OnAfterInstall OnAfterRollback OnAfterUninstall OnBeforeInstall OnBeforeRollback OnBeforeUninstall OnCommitted OnCommitting ReferenceEquals Rollback ToString Uninstall Container Context HelpText Installers Parent Site ProjectInstaller Constructor AfterInstall AfterRollback AfterUninstall BeforeInstall BeforeRollback BeforeUninstall Committed Committing Disposed components ProjectInstaller Constructor New EDKB12WS.ProjectInstaller.New EDKB12WS (in EDKB12WS.exe) topic_000000000000040C Public Sub New() public ProjectInstaller() public: ProjectInstaller(); public function ProjectInstaller(); Public Sub New() MyBase.New() 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. InitializeComponent() 'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen End Sub ProjectInstaller.Dispose Dispose EDKB12WS.ProjectInstaller.Dispose EDKB12WS (in EDKB12WS.exe) topic_000000000000040D <System.Diagnostics.DebuggerNonUserCode()> _Protected Overrides Sub Dispose( _ ByVal disposing As Boolean _) [System.Diagnostics.DebuggerNonUserCode()]protected override System.Void Dispose( bool disposing) [System.Diagnostics.DebuggerNonUserCode()]protected: System::Void Dispose( bool disposing); protected System.Diagnostics.DebuggerNonUserCode()function Dispose( disposing : boolean); Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub ProjectInstaller.InitializeComponent InitializeComponent EDKB12WS.ProjectInstaller.InitializeComponent EDKB12WS (in EDKB12WS.exe) topic_000000000000040F <System.Diagnostics.DebuggerStepThrough()> _Private Sub InitializeComponent() [System.Diagnostics.DebuggerStepThrough()]private System.Void InitializeComponent() [System.Diagnostics.DebuggerStepThrough()]private: System::Void InitializeComponent(); private System.Diagnostics.DebuggerStepThrough()function InitializeComponent(); Private Sub InitializeComponent() Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller ' 'ServiceProcessInstaller1 ' Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem Me.ServiceProcessInstaller1.Password = Nothing Me.ServiceProcessInstaller1.Username = Nothing ' 'ServiceInstaller1 ' Me.ServiceInstaller1.DisplayName = "EDKB12WS" Me.ServiceInstaller1.ServiceName = "EDKB12WS" ' 'ProjectInstaller ' Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1}) End Sub components components EDKB12WS.ProjectInstaller.components EDKB12WS (in EDKB12WS.exe) topic_000000000000040E Private components As IContainer private IContainer components private: IContainer __gc* components; private components : IContainer Private components As System.ComponentModel.IContainer Service1 Service1 EDKB12WS.Service1 EDKB12WS (in EDKB12WS.exe) topic_0000000000000410 Public Class Service1 Inherits ServiceBase public class Service1 : ServiceBase public __gc class Service1 : public ServiceBase public class Service1 extends ServiceBase System.Object System.MarshalByRefObject System.ComponentModel.Component System.ServiceProcess.ServiceBase CheckTimer_Elapsed CreateObjRef Dispose Equals Finalize GetHashCode GetLifetimeService GetService GetType InitializeComponent InitializeLifetimeService Main MemberwiseClone OnContinue OnCustomCommand OnPause OnPowerEvent OnSessionChange OnShutdown OnStart OnStop ReferenceEquals RequestAdditionalTime Run ServiceMainCallback Stop ToString AutoLog CanHandlePowerEvent CanHandleSessionChangeEvent CanPauseAndContinue CanShutdown CanStop Container EventLog ExitCode ServiceName Site Disposed RowId Working components Service1.CheckTimer_Elapsed CheckTimer_Elapsed EDKB12WS.Service1.CheckTimer_Elapsed EDKB12WS (in EDKB12WS.exe) topic_0000000000000414 Public Sub CheckTimer_Elapsed( _ ByVal sender As Object, _ ByVal e As ElapsedEventArgs _) Handles _ CheckTimer.Elapsed public System.Void CheckTimer_Elapsed( object sender, ElapsedEventArgs e) public: System::Void CheckTimer_Elapsed( object __gc* sender, ElapsedEventArgs __gc* e); public function CheckTimer_Elapsed( sender : object, e : ElapsedEventArgs); Public Sub CheckTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles CheckTimer.Elapsed CheckTimer.Enabled = False rowid = ModMain.Check_pendente_Dokumente() While RowId > 0 If RowId > 0 Then ModMain.Generate_Dokument(RowId) RowId = ModMain.Check_pendente_Dokumente() End If End While CheckTimer.Enabled = True End Sub Service1.Dispose Dispose EDKB12WS.Service1.Dispose EDKB12WS (in EDKB12WS.exe) topic_0000000000000416 <System.Diagnostics.DebuggerNonUserCode()> _Protected Overrides Sub Dispose( _ ByVal disposing As Boolean _) [System.Diagnostics.DebuggerNonUserCode()]protected override System.Void Dispose( bool disposing) [System.Diagnostics.DebuggerNonUserCode()]protected: System::Void Dispose( bool disposing); protected System.Diagnostics.DebuggerNonUserCode()function Dispose( disposing : boolean); Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub Service1.InitializeComponent InitializeComponent EDKB12WS.Service1.InitializeComponent EDKB12WS (in EDKB12WS.exe) topic_0000000000000419 <System.Diagnostics.DebuggerStepThrough()> _Private Sub InitializeComponent() [System.Diagnostics.DebuggerStepThrough()]private System.Void InitializeComponent() [System.Diagnostics.DebuggerStepThrough()]private: System::Void InitializeComponent(); private System.Diagnostics.DebuggerStepThrough()function InitializeComponent(); Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Me.Timer1 = New System.Windows.Forms.Timer(Me.components) ' 'Service1 ' Me.ServiceName = "Service1" End Sub Service1.Main Main EDKB12WS.Service1.Main EDKB12WS (in EDKB12WS.exe) topic_0000000000000417 <MTAThread()> _<System.Diagnostics.DebuggerNonUserCode()> _Public Shared Sub Main() [MTAThread()][System.Diagnostics.DebuggerNonUserCode()]public static System.Void Main() [MTAThread()][System.Diagnostics.DebuggerNonUserCode()]public: static System::Void Main(); public MTAThread() System.Diagnostics.DebuggerNonUserCode()static function Main(); Shared Sub Main() Dim ServicesToRun() As System.ServiceProcess.ServiceBase ' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen ' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile, ' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel ' ' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService} ' ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1} System.ServiceProcess.ServiceBase.Run(ServicesToRun) End Sub Service1.OnStart OnStart EDKB12WS.Service1.OnStart EDKB12WS (in EDKB12WS.exe) topic_0000000000000413 Protected Overrides Sub OnStart( _ ByVal args As String() _) protected override System.Void OnStart( string[] args) protected: System::Void OnStart( String __gc* args __gc[]); protected function OnStart( args : String[]); Protected Overrides Sub OnStart(ByVal args() As String) Globals.Param = New Parameters CheckTimer.Interval = Globals.Param.TimerInterval CheckTimer.Start() CheckTimer.Enabled = True End Sub Service1.OnStop OnStop EDKB12WS.Service1.OnStop EDKB12WS (in EDKB12WS.exe) topic_0000000000000415 Protected Overrides Sub OnStop() protected override System.Void OnStop() protected: System::Void OnStop(); protected function OnStop(); Protected Overrides Sub OnStop() CheckTimer.Stop() End Sub RowId RowId EDKB12WS.Service1.RowId EDKB12WS (in EDKB12WS.exe) topic_0000000000000411 Private RowId As Integer private int RowId private: int RowId; private RowId : int Dim RowId As Integer Working Working EDKB12WS.Service1.Working EDKB12WS (in EDKB12WS.exe) topic_0000000000000412 Private Working As Boolean private bool Working private: bool Working; private Working : boolean Dim Working As Boolean = False components components EDKB12WS.Service1.components EDKB12WS (in EDKB12WS.exe) topic_0000000000000418 Private components As IContainer private IContainer components private: IContainer __gc* components; private components : IContainer Private components As System.ComponentModel.IContainer clsDivFnkt clsDivFnkt EDKB12WS.clsDivFnkt EDKB12WS (in EDKB12WS.exe) topic_0000000000000031 Public Class clsDivFnkt public class clsDivFnkt public __gc class clsDivFnkt public class clsDivFnkt System.Object Equals Finalize Generate_Key GetHashCode GetType InsertJournale MemberwiseClone Pruefziffer ReferenceEquals Send_Message ToString Enum_InfoTyp clsjournaleintrag clsDivFnkt.Generate_Key Generate_Key EDKB12WS.clsDivFnkt.Generate_Key EDKB12WS (in EDKB12WS.exe) topic_0000000000000038 Public Function Generate_Key() As String public string Generate_Key() public: String __gc* Generate_Key(); public function Generate_Key() : String; Public Function Generate_Key() As String Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long Dim skey As String Dim s As String dbkey.cpMainConnectionProvider = Globals.conn conn.OpenConnection() key = dbkey.get_dbkey("dokument") conn.CloseConnection(True) skey = "OFFEDK000" s = Str(Year(Now)) While Microsoft.VisualBasic.Left(s, 1) = " " s = Microsoft.VisualBasic.Right(s, Len(s) - 1) End While skey = skey + s s = Str(key) While Microsoft.VisualBasic.Left(s, 1) = " " s = Microsoft.VisualBasic.Right(s, Len(s) - 1) End While While Len(s) < 8 s = "0" + s End While skey = skey + s s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15)) While Microsoft.VisualBasic.Left(s, 1) = " " s = Microsoft.VisualBasic.Right(s, Len(s) - 1) End While skey = skey + s Generate_Key = skey End Function clsDivFnkt.InsertJournale InsertJournale EDKB12WS.clsDivFnkt.InsertJournale EDKB12WS (in EDKB12WS.exe) topic_000000000000003A Public Sub InsertJournale( _ ByVal Message As String, _ ByVal sTyp As Enum_InfoTyp _) public System.Void InsertJournale( string Message, Enum_InfoTyp sTyp) public: System::Void InsertJournale( String __gc* Message, Enum_InfoTyp sTyp); public function InsertJournale( Message : String, sTyp : Enum_InfoTyp); Public Sub InsertJournale(ByVal Message As String, ByVal sTyp As Enum_InfoTyp) If sTyp <> Enum_InfoTyp.Keine Then End If clsjournaleintrag.iJournalnr = New SqlInt32(CType(-2, Int32)) clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime)) clsjournaleintrag.sEintrag = New SqlString(CType(Message, String)) clsjournaleintrag.cpMainConnectionProvider = Globals.connJournale Console.WriteLine(Message) Globals.connJournale.OpenConnection() clsjournaleintrag.Insert() Globals.connJournale.CloseConnection(True) If sTyp = Enum_InfoTyp.Fehler Then Send_Message(Message) End If End Sub clsDivFnkt.Pruefziffer Pruefziffer EDKB12WS.clsDivFnkt.Pruefziffer EDKB12WS (in EDKB12WS.exe) topic_0000000000000039 Berechnung der Prüfziffer nach Modulo9/Rekursiv DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer Dokumentid ohne Präfix Public Function Pruefziffer( _ ByVal zahl As String _) As String public string Pruefziffer( string zahl) public: String __gc* Pruefziffer( String __gc* zahl); public function Pruefziffer( zahl : String) : String; Public Function Pruefziffer(ByVal zahl As String) As String Dim ptab(9, 9) As Integer Dim pz(9) As Integer Dim s1, s2, s3 As String Dim i1, i2 As Long s1 = "0,9,4,6,8,2,7,1,3,5" s2 = s1 For i1 = 0 To 9 For i2 = 0 To 9 ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1) Next s3 = Microsoft.VisualBasic.Left(s1, 1) s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2) s1 = s1 + "," + s3 s2 = s1 Next pz(0) = 0 pz(1) = 9 pz(2) = 8 pz(3) = 7 pz(4) = 6 pz(5) = 5 pz(6) = 4 pz(7) = 3 pz(8) = 2 pz(9) = 1 Dim i, x, y As Integer y = 0 For i = 1 To Len(zahl) x = Val(Mid(zahl, i, 1)) y = ptab(x, y) Next Pruefziffer = Str(pz(y)) End Function EDKB12.clsDivFnkt clsDivFnkt.Send_Message Send_Message EDKB12WS.clsDivFnkt.Send_Message EDKB12WS (in EDKB12WS.exe) topic_000000000000003B Private Sub Send_Message( _ ByVal message As String _) private System.Void Send_Message( string message) private: System::Void Send_Message( String __gc* message); private function Send_Message( message : String); Private Sub Send_Message(ByVal message As String) Dim betreff As String Dim meldung As String betreff = Param.FehlermeldungBetreff meldung = Param.FehlerMeldungMeldung meldung = meldung.Replace("#Message#", message) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_edkb12_meldung" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, -1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Param.MaNrFehlermeldung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff)) scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) Return Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Send_Message::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Send_Message (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Sub Enum_InfoTyp Enum_InfoTyp EDKB12WS.clsDivFnkt.Enum_InfoTyp EDKB12WS (in EDKB12WS.exe) topic_0000000000000033 Public Enum Enum_InfoTyp Keine = 0 Information = 1 Warnung = 2 Fehler = 3 End Enum clsjournaleintrag clsjournaleintrag EDKB12WS.clsDivFnkt.clsjournaleintrag EDKB12WS (in EDKB12WS.exe) topic_0000000000000032 Private clsjournaleintrag As clsJournaleintrag private clsJournaleintrag clsjournaleintrag private: clsJournaleintrag __gc* clsjournaleintrag; private clsjournaleintrag : clsJournaleintrag Dim clsjournaleintrag As New edokaDB.clsJournaleintrag Globals Globals EDKB12WS.Globals EDKB12WS (in EDKB12WS.exe) topic_000000000000037A Friend Module Globals internal sealed class Globals private __sealed __gc class Globals internal final class Globals Equals Finalize GetHashCode GetType MemberwiseClone PrintLog ReferenceEquals ToString AppldataRow Applikationsdaten CurrentMitarbeiterdata DivFnkt EVLog Mitarbeiter Param PrintLogType TGNummer conn connJournale objAvaloqDokumentWerte profilnr sConnectionString Globals.PrintLog PrintLog EDKB12WS.Globals.PrintLog EDKB12WS (in EDKB12WS.exe) topic_0000000000000389 Public Shared Sub PrintLog( _ ByVal message As String, _ Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information _) public static System.Void PrintLog( string message, EventLogEntryType eventmessage = EventLogEntryType.Information) public: static System::Void PrintLog( String __gc* message, EventLogEntryType eventmessage); public static function PrintLog( message : String, eventmessage : EventLogEntryType); Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information) If Not EventLog.SourceExists("EDKB12") Then EventLog.CreateEventSource("EDKB12", "EDKB12 Log") End If EVLog.Source = "EDKB12 Log" EventLog.WriteEntry(EVLog.Source, message, eventmessage) End Sub AppldataRow AppldataRow EDKB12WS.Globals.AppldataRow EDKB12WS (in EDKB12WS.exe) topic_000000000000037E Public Shared AppldataRow As Integer public static int AppldataRow public: static int AppldataRow; public static AppldataRow : int Public AppldataRow As Integer Applikationsdaten Applikationsdaten EDKB12WS.Globals.Applikationsdaten EDKB12WS (in EDKB12WS.exe) topic_000000000000037D Public Shared Applikationsdaten As DataTable public static DataTable Applikationsdaten public: static DataTable __gc* Applikationsdaten; public static Applikationsdaten : DataTable Public Applikationsdaten As DataTable CurrentMitarbeiterdata CurrentMitarbeiterdata EDKB12WS.Globals.CurrentMitarbeiterdata EDKB12WS (in EDKB12WS.exe) topic_0000000000000383 Public Shared CurrentMitarbeiterdata As DataTable public static DataTable CurrentMitarbeiterdata public: static DataTable __gc* CurrentMitarbeiterdata; public static CurrentMitarbeiterdata : DataTable Public CurrentMitarbeiterdata As New DataTable() DivFnkt DivFnkt EDKB12WS.Globals.DivFnkt EDKB12WS (in EDKB12WS.exe) topic_000000000000037C Public Shared DivFnkt As clsDivFnkt public static clsDivFnkt DivFnkt public: static clsDivFnkt __gc* DivFnkt; public static DivFnkt : clsDivFnkt Public DivFnkt As New clsDivFnkt EVLog EVLog EDKB12WS.Globals.EVLog EDKB12WS (in EDKB12WS.exe) topic_0000000000000387 Private Shared EVLog As EventLog private static EventLog EVLog private: static EventLog __gc* EVLog; private static EVLog : EventLog Dim EVLog As New EventLog("Log_EDKB07") Mitarbeiter Mitarbeiter EDKB12WS.Globals.Mitarbeiter EDKB12WS (in EDKB12WS.exe) topic_0000000000000382 Public Shared Mitarbeiter As clsMyMitarbeiter public static clsMyMitarbeiter Mitarbeiter public: static clsMyMitarbeiter __gc* Mitarbeiter; public static Mitarbeiter : clsMyMitarbeiter Public Mitarbeiter As New edokadb.clsMyMitarbeiter() Param Param EDKB12WS.Globals.Param EDKB12WS (in EDKB12WS.exe) topic_000000000000037B Public Shared Param As Parameters public static Parameters Param public: static Parameters __gc* Param; public static Param : Parameters Public Param As Parameters PrintLogType PrintLogType EDKB12WS.Globals.PrintLogType EDKB12WS (in EDKB12WS.exe) topic_0000000000000388 Public Shared PrintLogType As EventLogEntryType public static EventLogEntryType PrintLogType public: static EventLogEntryType PrintLogType; public static PrintLogType : EventLogEntryType Public PrintLogType As EventLogEntryType TGNummer TGNummer EDKB12WS.Globals.TGNummer EDKB12WS (in EDKB12WS.exe) topic_0000000000000385 Public Shared TGNummer As String public static string TGNummer public: static String __gc* TGNummer; public static TGNummer : String Public TGNummer As String conn conn EDKB12WS.Globals.conn EDKB12WS (in EDKB12WS.exe) topic_0000000000000380 Public Shared conn As clsConnectionProvider public static clsConnectionProvider conn public: static clsConnectionProvider __gc* conn; public static conn : clsConnectionProvider Public conn As New edokadb.clsConnectionProvider() connJournale connJournale EDKB12WS.Globals.connJournale EDKB12WS (in EDKB12WS.exe) topic_0000000000000381 Public Shared connJournale As clsConnectionProvider public static clsConnectionProvider connJournale public: static clsConnectionProvider __gc* connJournale; public static connJournale : clsConnectionProvider Public connJournale As New edokadb.clsConnectionProvider objAvaloqDokumentWerte objAvaloqDokumentWerte EDKB12WS.Globals.objAvaloqDokumentWerte EDKB12WS (in EDKB12WS.exe) topic_0000000000000386 Public Shared objAvaloqDokumentWerte As AvaloqDokumentWerte public static AvaloqDokumentWerte objAvaloqDokumentWerte public: static AvaloqDokumentWerte __gc* objAvaloqDokumentWerte; public static objAvaloqDokumentWerte : AvaloqDokumentWerte Public objAvaloqDokumentWerte As New AvaloqDokumentWerte() profilnr profilnr EDKB12WS.Globals.profilnr EDKB12WS (in EDKB12WS.exe) topic_0000000000000384 Public Shared profilnr As Integer public static int profilnr public: static int profilnr; public static profilnr : int Public profilnr As Integer sConnectionString sConnectionString EDKB12WS.Globals.sConnectionString EDKB12WS (in EDKB12WS.exe) topic_000000000000037F Public Shared sConnectionString As String public static string sConnectionString public: static String __gc* sConnectionString; public static sConnectionString : String Public sConnectionString As String ModMain ModMain EDKB12WS.ModMain EDKB12WS (in EDKB12WS.exe) topic_000000000000038A Friend Module ModMain internal sealed class ModMain private __sealed __gc class ModMain internal final class ModMain Bar25I Bar25Ics COLD_Index_Sichern Check_EDK_Data Check_Umfeld Check_pendente_Dokumente Cold_Werte Create_Dokumentstatus Dokument_Erstellen Dokument_Vervollstaendigen Dokumentdaten_Zusammenstellen Dokumentstatus_erstellen_und_Status_Setzen DokumentwertListe_laden Dokumentwert_Sichern Dokumentwerte Dokumentwerte_Sichern Dokumentwerte_Uebertragen Equals FeldMakros Fill_Dokument Finalize Generate_Barcodes Generate_Dokument Generate_Word GetHashCode GetType Get_Applikationnr Get_Dokumentstatus Get_EDK_Data Get_Pendente_EDK_Dokumente Get_Profil Get_Team HeaderFooterAnzeigen IDV_makros_bearbeiten Insert_Kopfzeile Insert_TextFelder MemberwiseClone Office_Vorlage_Get_From_DB ReferenceEquals Save_Doc Save_To_DB Send_Message Set_EDK_Status StartWord ToString Update_DokumentColdIndexwert Update_FANummer Word_Werte_Auslesen convert convert_wordfelder delete_Textfelder ins_Barcode insert_Barcode insert_Textfield insert_history_status set_headerbookmark BarTextIn BarTextOut CharValue CheckSum DoCheckSum Dok DokType DokumentFilename Dokumentdaten Dokumentid EDK_Data EDK_Daten FileExtension Filename II IsProtected Mitarbeiter Mitarbeiterdata OfficeVorlage OfficeVorlageDatei Partner Profile Profilnr RowId Sum Teamnr Teams TempString Textboxes Textboxesi Unterschriftlinks Unterschriftrechts args barcodeout tmpAction xMitarbeiter xdata ModMain.Bar25I Bar25I EDKB12WS.ModMain.Bar25I EDKB12WS (in EDKB12WS.exe) topic_00000000000003DE Public Shared Function Bar25I( _ ByVal BarTextIn As String _) As String public static string Bar25I( string BarTextIn) public: static String __gc* Bar25I( String __gc* BarTextIn); public static function Bar25I( BarTextIn : String) : String; Public Function Bar25I(ByVal BarTextIn As String) As String ' Initialize input and output strings BarTextOut = "" BarTextIn = RTrim(LTrim(BarTextIn)) ' Throw away non-numeric data TempString = "" For II = 1 To Len(BarTextIn) If IsNumeric(Mid(BarTextIn, II, 1)) Then TempString = TempString & Mid(BarTextIn, II, 1) End If Next II ' If not an even number of digits, add a leading 0 If (Len(TempString) Mod 2) = 1 Then TempString = "0" & TempString End If ' Break digit pairs up and convert to characters- build output string For II = 1 To Len(TempString) Step 2 'Break string into pairs of digits and get value CharValue = Mid(TempString, II, 2) 'translate value to ASCII and save in BarTextOut If CharValue < 90 Then BarTextOut = BarTextOut & Chr(CharValue + 33) Else BarTextOut = BarTextOut & Chr(CharValue + 71) End If Next II 'Build ouput string, trailing space for Windows rasterization bug barcodeout = "{" & BarTextOut & "} " 'Return the string Bar25I = barcodeout End Function ModMain.Bar25Ics Bar25Ics EDKB12WS.ModMain.Bar25Ics EDKB12WS (in EDKB12WS.exe) topic_00000000000003DF Public Shared Function Bar25Ics( _ ByVal BarTextIn As String _) As String public static string Bar25Ics( string BarTextIn) public: static String __gc* Bar25Ics( String __gc* BarTextIn); public static function Bar25Ics( BarTextIn : String) : String; Public Function Bar25Ics(ByVal BarTextIn As String) As String ' Initialize input and output strings BarTextOut = "" BarTextIn = RTrim(LTrim(BarTextIn)) ' Throw away non-numeric data TempString = "" For II = 1 To Len(BarTextIn) If IsNumeric(Mid(BarTextIn, II, 1)) Then TempString = TempString & Mid(BarTextIn, II, 1) End If Next II ' If not an odd number of digits, add a leading 0 If (Len(TempString) Mod 2) = 0 Then TempString = "0" & TempString End If ' Figure out the checksum digit Sum = 0 For II = 1 To Len(TempString) CharValue = Mid(TempString, II, 1) If (II Mod 2) = 1 Then Sum = Sum + (3 * CharValue) Else Sum = Sum + CharValue End If Next II ' Figure checksum, add it as last digit CheckSum = 10 - (Sum Mod 10) If CheckSum = 10 Then CheckSum = 0 TempString = TempString & Chr(48 + CheckSum) ' Break digit pairs up and convert to characters- build output string For II = 1 To Len(TempString) Step 2 'Break string into pairs of digits and get value CharValue = Mid(TempString, II, 2) 'translate value to ASCII and save in BarTextOut If CharValue < 90 Then BarTextOut = BarTextOut & Chr(CharValue + 33) Else BarTextOut = BarTextOut & Chr(CharValue + 71) End If Next II 'Build ouput string, trailing space for Windows rasterization bug barcodeout = "{" & BarTextOut & "} " 'Return the string Bar25Ics = barcodeout End Function ModMain.COLD_Index_Sichern COLD_Index_Sichern EDKB12WS.ModMain.COLD_Index_Sichern EDKB12WS (in EDKB12WS.exe) topic_00000000000003B5 Public Shared Function COLD_Index_Sichern( _ ByVal indextyp As Integer, _ ByVal dokumentid As String _) As DataTable public static DataTable COLD_Index_Sichern( int indextyp, string dokumentid) public: static DataTable __gc* COLD_Index_Sichern( int indextyp, String __gc* dokumentid); public static function COLD_Index_Sichern( indextyp : int, dokumentid : String) : DataTable; Public Function COLD_Index_Sichern(ByVal indextyp As Integer, ByVal dokumentid As String) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start COLD_Index_Sichern", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Cold_Index" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp)) sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende COLD_Index_Sichern (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: COLD_Index_Sichern::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende COLD_Index_Sichern (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Check_EDK_Data Check_EDK_Data EDKB12WS.ModMain.Check_EDK_Data EDKB12WS (in EDKB12WS.exe) topic_00000000000003A7 Private Shared Function Check_EDK_Data() As Boolean private static bool Check_EDK_Data() private: static bool Check_EDK_Data(); private static function Check_EDK_Data() : boolean; Private Function Check_EDK_Data() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_EDK_Data", clsDivFnkt.Enum_InfoTyp.Information) End If Try 'File Checken Dim file As New IO.FileInfo(Filename) tmpAction = New Action If Not tmpAction.Load(file) Then Return False End If objAvaloqDokumentWerte.init(file) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Check_EDK_Data (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Check_EDK_Data::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Check_EDK_Data (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Check_Umfeld Check_Umfeld EDKB12WS.ModMain.Check_Umfeld EDKB12WS (in EDKB12WS.exe) topic_00000000000003AC Private Shared Function Check_Umfeld() As Boolean private static bool Check_Umfeld() private: static bool Check_Umfeld(); private static function Check_Umfeld() : boolean; Private Function Check_Umfeld() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld", clsDivFnkt.Enum_InfoTyp.Information) End If Try If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Mitarbeiter", clsDivFnkt.Enum_InfoTyp.Information) End If xMitarbeiter.xtgnummer = tmpAction.GetParameterByName("creatorTg").Value Mitarbeiter.cpMainConnectionProvider = Globals.conn conn.OpenConnection() xMitarbeiter.cpMainConnectionProvider = Globals.conn Mitarbeiterdata = xMitarbeiter.SelectWithTGNummer() conn.CloseConnection(True) Mitarbeiter.cpMainConnectionProvider = Globals.conn conn.OpenConnection() Mitarbeiter.iMitarbeiternr = New SqlInt32(Mitarbeiterdata.Rows(0).Item("Mitarbeiternr")) Mitarbeiter.SelectOne() conn.CloseConnection(True) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Dokumenttyp", clsDivFnkt.Enum_InfoTyp.Information) End If DokType.cpMainConnectionProvider = Globals.conn conn.OpenConnection() DokType.iDokumenttypnr = New SqlInt32(tmpAction.GetParameterByName("DokumentTypNr").Value - 900000000) DokType.SelectOne() conn.CloseConnection(True) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Partner", clsDivFnkt.Enum_InfoTyp.Information) End If Partner.cpMainConnectionProvider = Globals.conn conn.OpenConnection() Partner.iNRPAR00 = New SqlInt32(tmpAction.GetParameterByName("PartnerNr").Value) Partner.SelectOne() conn.CloseConnection(True) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Office-Vorlage", clsDivFnkt.Enum_InfoTyp.Information) End If OfficeVorlage.cpMainConnectionProvider = Globals.conn conn.OpenConnection() OfficeVorlage.iOffice_vorlagenr = New SqlInt32(DokType.iOffice_vorlagenr.Value) OfficeVorlage.SelectOne() conn.CloseConnection(True) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Auslesen Office-Vorlage", clsDivFnkt.Enum_InfoTyp.Information) End If 'Office 2010 If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Param.CheckOffice2010_Vorlage:" + Param.CheckOffice2010_Vorlage.ToString, clsDivFnkt.Enum_InfoTyp.Information) End If If Param.CheckOffice2010_Vorlage = True Then Dim applnr As Integer = Get_Applikationnr(OfficeVorlage.iOffice_vorlagenr.Value) DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Appl-Nr:" + applnr.ToString, clsDivFnkt.Enum_InfoTyp.Information) Select Case applnr Case 0 FileExtension = ".doc" Case 1 FileExtension = ".doc" Case 2 FileExtension = ".xls" Case 3 FileExtension = ".pdf" Case 4 FileExtension = ".docx" Case 5 FileExtension = ".docm" Case 6 FileExtension = ".dotx" Case 7 FileExtension = ".dotm" Case 8 FileExtension = ".xlsx" Case 9 FileExtension = ".xlsm" Case 10 FileExtension = ".xltx" Case 11 FileExtension = ".xltm" End Select Else Select Case OfficeVorlage.iAnwendungnr.Value Case 0 FileExtension = ".doc" Case 1 FileExtension = ".doc" Case 2 FileExtension = ".xls" Case 3 FileExtension = ".pdf" Case 4 FileExtension = ".docx" Case 5 FileExtension = ".docm" Case 6 FileExtension = ".dotx" Case 7 FileExtension = ".dotm" Case 8 FileExtension = ".xlsx" Case 9 FileExtension = ".xlsm" Case 10 FileExtension = ".xltx" Case 11 FileExtension = ".xltm" End Select End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld:: Office_Voralge: " + OfficeVorlage.iOffice_vorlagenr.Value.ToString, clsDivFnkt.Enum_InfoTyp.Information) DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld:: Dokumenttyp: " + FileExtension, clsDivFnkt.Enum_InfoTyp.Information) End If If Office_Vorlage_Get_From_DB(OfficeVorlage.iOffice_vorlagenr.Value, Filename + FileExtension) = "" Then Return False End If DokumentFilename = Filename + FileExtension If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Profil", clsDivFnkt.Enum_InfoTyp.Information) End If Profile = Get_Profil(Mitarbeiter.iMitarbeiternr.Value) If Profile.Rows.Count < 1 Then Profilnr = 0 Unterschriftlinks = 0 Unterschriftrechts = 0 Else Profilnr = Profile.Rows(0).Item("Profilnr") Unterschriftlinks = Profile.Rows(0).Item("Unterschriftlinks") Unterschriftrechts = Profile.Rows(0).Item("Unterschriftrechts") End If Profile.Dispose() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Check_Umfeld::Teams", clsDivFnkt.Enum_InfoTyp.Information) End If Teams = Get_Team(Profilnr) If Teams.Rows.Count = 0 Then teamnr = 0 Else teamnr = Teams.Rows(0).Item("Teamnr") End If Teams.Dispose() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Check_Umfeld (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Check_Umfeld::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Check_Umfeld (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Check_pendente_Dokumente Check_pendente_Dokumente EDKB12WS.ModMain.Check_pendente_Dokumente EDKB12WS (in EDKB12WS.exe) topic_00000000000003A5 Public Shared Function Check_pendente_Dokumente() As Integer public static int Check_pendente_Dokumente() public: static int Check_pendente_Dokumente(); public static function Check_pendente_Dokumente() : int; Public Function Check_pendente_Dokumente() As Integer '20080918 Version 12 SHU 'Im Fehlerfall mit -99 aus der Routine aussteigen Try EDK_Daten = Get_Pendente_EDK_Dokumente() If EDK_Daten.Rows.Count < 1 Then Return 0 End If Dim rid As Integer = EDK_Daten.Rows(0).Item("RowId") EDK_Daten.Dispose() Return rid Catch ex As Exception Return -99 End Try End Function ModMain.Cold_Werte Cold_Werte EDKB12WS.ModMain.Cold_Werte EDKB12WS (in EDKB12WS.exe) topic_00000000000003B4 Private Shared Function Cold_Werte( _ ByVal dokumenttypnr As Integer _) As DataTable private static DataTable Cold_Werte( int dokumenttypnr) private: static DataTable __gc* Cold_Werte( int dokumenttypnr); private static function Cold_Werte( dokumenttypnr : int) : DataTable; Private Function Cold_Werte(ByVal dokumenttypnr As Integer) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Cold_Werte", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_archiv_getschema_doc" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Cold_Werte(True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Cold_Werte::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Cold_Werte (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Create_Dokumentstatus Create_Dokumentstatus EDKB12WS.ModMain.Create_Dokumentstatus EDKB12WS (in EDKB12WS.exe) topic_00000000000003BC Private Shared Function Create_Dokumentstatus( _ Optional ByVal blkunde As Integer = 0 _) As DataTable private static DataTable Create_Dokumentstatus( int blkunde = 0) private: static DataTable __gc* Create_Dokumentstatus( int blkunde); private static function Create_Dokumentstatus( blkunde : int) : DataTable; Private Function Create_Dokumentstatus(Optional ByVal blkunde As Integer = 0) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Create_Dokumentstatus", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentberabeigung_status_erstellen" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) If blkunde = 0 Then scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@blsequenz", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) End If sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Create_Dokumentstatus (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Create_Dokumentstatus::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Create_Dokumentstatus (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally Globals.conn.CloseConnection(True) scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Dokument_Erstellen Dokument_Erstellen EDKB12WS.ModMain.Dokument_Erstellen EDKB12WS (in EDKB12WS.exe) topic_00000000000003AF Private Shared Function Dokument_Erstellen() As Object private static object Dokument_Erstellen() private: static object __gc* Dokument_Erstellen(); private static function Dokument_Erstellen() : object; 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 ModMain.Dokument_Vervollstaendigen Dokument_Vervollstaendigen EDKB12WS.ModMain.Dokument_Vervollstaendigen EDKB12WS (in EDKB12WS.exe) topic_00000000000003C2 Public Shared Function Dokument_Vervollstaendigen( _ ByVal xdata As DataTable _) As Boolean public static bool Dokument_Vervollstaendigen( DataTable xdata) public: static bool Dokument_Vervollstaendigen( DataTable __gc* xdata); public static function Dokument_Vervollstaendigen( xdata : DataTable) : boolean; Public Function Dokument_Vervollstaendigen(ByVal xdata As System.Data.DataTable) As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Information) End If Try If docword.ProtectionType <> WdProtectionType.wdNoProtection Then docword.Unprotect(Password:=Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_wordvorlagen")) IsProtected = True End If Fill_Dokument() If DokType.bZu_retournieren.Value = True Or DokType.iDoktypbedingteretournierung.Value > 0 Then Generate_Barcodes() Else Try objword.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument Catch End Try End If If IsProtected Then Try docword.Protect(Type:=WdProtectionType.wdAllowOnlyFormFields, NoReset:=True, Password:=Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_wordvorlagen")) Catch End Try End If FeldMakros() If objword.ActiveWindow.View.SplitSpecial = WdSpecialPane.wdPaneNone Then objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView Else objword.ActiveWindow.View.Type = WdViewType.wdPrintView End If IDV_makros_bearbeiten() 'Rel 3.5 / BUD / 13.01.2005 (IF / END IF) 'Dim dn As String = objword.ActiveDocument.FullName 'docword.Save() 'docword.Close() 'objword.Documents.Open(dn) 'objword.NormalTemplate.Saved = True 'docword = objword.ActiveDocument 'docword.Saved = False 'If objword.ActiveWindow.View.SplitSpecial = WdSpecialPane.wdPaneNone Then ' objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView ' Else ' objword.ActiveWindow.View.Type = WdViewType.wdPrintView ' End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokument_Vervollstaendigen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Dokument_Vervollstaendigen::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokument_Vervollstaendigen (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Dokumentdaten_Zusammenstellen Dokumentdaten_Zusammenstellen EDKB12WS.ModMain.Dokumentdaten_Zusammenstellen EDKB12WS (in EDKB12WS.exe) topic_00000000000003B2 Private Shared Function Dokumentdaten_Zusammenstellen() As Boolean private static bool Dokumentdaten_Zusammenstellen() private: static bool Dokumentdaten_Zusammenstellen(); private static function Dokumentdaten_Zusammenstellen() : boolean; Private Function Dokumentdaten_Zusammenstellen() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentdaten_Zusammenstellen", clsDivFnkt.Enum_InfoTyp.Information) End If Try xdata = DokumentwertListe_laden(Dokumentid) Dokumentwerte_Sichern() xdata = Nothing xdata = Dokumentwerte(Dokumentid) Dokumentdaten = Dokumentwerte(Dokumentid) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentdaten_Zusammenstellen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentdaten_Zusammenstellen::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentdaten_Zusammenstellen (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Dokumentstatus_erstellen_und_Status_Setzen Dokumentstatus_erstellen_und_Status_Setzen EDKB12WS.ModMain.Dokumentstatus_erstellen_und_Status_Setzen EDKB12WS (in EDKB12WS.exe) topic_00000000000003BB Private Shared Function Dokumentstatus_erstellen_und_Status_Setzen( _ ByVal dokumentid As String, _ ByVal erstellen As Boolean, _ Optional ByVal BLKunde As Integer = 0 _) As Integer private static int Dokumentstatus_erstellen_und_Status_Setzen( string dokumentid, bool erstellen, int BLKunde = 0) private: static int Dokumentstatus_erstellen_und_Status_Setzen( String __gc* dokumentid, bool erstellen, int BLKunde); private static function Dokumentstatus_erstellen_und_Status_Setzen( dokumentid : String, erstellen : boolean, BLKunde : int) : int; Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal dokumentid As String, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentstatus_erstellen_und_Status_Setzen", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim st As New System.Data.DataTable() Dim i As Integer Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now) Dim MitArchivfunktion As Boolean = False If erstellen = True Then Create_Dokumentstatus(BLKunde) End If st = Get_Dokumentstatus() For i = 0 To st.Rows.Count - 1 Select Case Integer.Parse(st.Rows(i).Item(2).ToString) Case 3 MitArchivfunktion = True Case 11 MitArchivfunktion = True End Select Next If MitArchivfunktion Then For i = 0 To st.Rows.Count - 1 insert_history_status(st.Rows(i).Item(0), dokumentid, Mitarbeiter.iMitarbeiternr.Value, dt) dt = DateAdd(DateInterval.Second, 1, dt) If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then Return st.Rows(i).Item(0) Exit Function End If Next Else 'Dokumentstatusreihenfolge ohne Ausgangsarchivierung End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception End Try DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentstatus_erstellen_und_Status_Setzen::", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (False)", clsDivFnkt.Enum_InfoTyp.Information) End If End Function ModMain.DokumentwertListe_laden DokumentwertListe_laden EDKB12WS.ModMain.DokumentwertListe_laden EDKB12WS (in EDKB12WS.exe) topic_00000000000003B7 Private Shared Function DokumentwertListe_laden( _ ByVal dokumentid As String _) As DataTable private static DataTable DokumentwertListe_laden( string dokumentid) private: static DataTable __gc* DokumentwertListe_laden( String __gc* dokumentid); private static function DokumentwertListe_laden( dokumentid : String) : DataTable; Private Function DokumentwertListe_laden(ByVal dokumentid As String) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start DokumentwertListe_laden", clsDivFnkt.Enum_InfoTyp.Information) End If Dim i As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.SP_Dokumentbearbeitung_Dokumentwerte" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokType.iDokumenttypnr.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@CreateNew", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) sdaAdapter.Fill(dtToReturn) For i = 0 To dtToReturn.Rows.Count - 1 Dim objDokumentWert As AvaloqDokumentWert If Not dtToReturn.Rows(i).Item(0) Is System.DBNull.Value Then objDokumentWert = objAvaloqDokumentWerte.getAvaloqDokumentWertByName(dtToReturn.Rows(i).Item(0)) End If If objDokumentWert Is Nothing = False Then dtToReturn.Rows(i).Item(2) = objDokumentWert.value End If objDokumentWert = Nothing Next If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende DokumentwertListe_laden (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: DokumentwertListe_laden::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende DokumentwertListe_laden (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Dokumentwert_Sichern Dokumentwert_Sichern EDKB12WS.ModMain.Dokumentwert_Sichern EDKB12WS (in EDKB12WS.exe) topic_00000000000003B8 Public Shared Sub Dokumentwert_Sichern( _ ByVal wert As String, _ ByVal feldnr As Integer _) public static System.Void Dokumentwert_Sichern( string wert, int feldnr) public: static System::Void Dokumentwert_Sichern( String __gc* wert, int feldnr); public static function Dokumentwert_Sichern( wert : String, feldnr : int); Public Sub Dokumentwert_Sichern(ByVal wert As String, ByVal feldnr As Integer) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentwert_Sichern", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = Globals.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, feldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.ExecuteNonQuery() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentwert_Sichern (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentwert_Sichern::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentwert_Sichern (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() End Try End Sub ModMain.Dokumentwerte Dokumentwerte EDKB12WS.ModMain.Dokumentwerte EDKB12WS (in EDKB12WS.exe) topic_00000000000003BA Private Shared Function Dokumentwerte( _ ByVal dokumentid As String _) As DataTable private static DataTable Dokumentwerte( string dokumentid) private: static DataTable __gc* Dokumentwerte( String __gc* dokumentid); private static function Dokumentwerte( dokumentid : String) : DataTable; Private Function Dokumentwerte(ByVal dokumentid As String) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentwerte", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) Try sdaAdapter.Fill(dtToReturn) Return dtToReturn If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentwerte::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Dokumentwerte_Sichern Dokumentwerte_Sichern EDKB12WS.ModMain.Dokumentwerte_Sichern EDKB12WS (in EDKB12WS.exe) topic_00000000000003B9 Public Shared Sub Dokumentwerte_Sichern() public static System.Void Dokumentwerte_Sichern() public: static System::Void Dokumentwerte_Sichern(); public static function Dokumentwerte_Sichern(); 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 ModMain.Dokumentwerte_Uebertragen Dokumentwerte_Uebertragen EDKB12WS.ModMain.Dokumentwerte_Uebertragen EDKB12WS (in EDKB12WS.exe) topic_00000000000003C6 Private Shared Function Dokumentwerte_Uebertragen() As Boolean private static bool Dokumentwerte_Uebertragen() private: static bool Dokumentwerte_Uebertragen(); private static function Dokumentwerte_Uebertragen() : boolean; Private Function Dokumentwerte_Uebertragen() As Boolean Dim i As Long Dim pos As Long Dim pos2 As Long Dim Fieldlen As Long Dim temp1 As String Dim temp2 As String If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentwerte_Uebertragen", clsDivFnkt.Enum_InfoTyp.Information) End If For i = 0 To Dokumentdaten.Rows.Count - 1 If Param.DebugMode Then Try temp1 = Dokumentdaten.Rows(i).Item("beginntextmarke") Catch ex As Exception temp1 = "" End Try Try temp2 = Dokumentdaten.Rows(i).Item("feldname") Catch ex As Exception temp2 = "" End Try DivFnkt.InsertJournale("EDKB12: Dokumentwerte_Uebertragen:" & temp1 & ":" & temp2, clsDivFnkt.Enum_InfoTyp.Information) End If 'Beginn-Textmarke If Dokumentdaten.Rows(i).Item("aktiv") = True Then If Dokumentdaten.Rows(i).Item("beginntextmarke") Is System.DBNull.Value Then Dokumentdaten.Rows(i).Item("beginntextmarke") = "" End If If Dokumentdaten.Rows(i).Item("endetextmarke") Is System.DBNull.Value Then Dokumentdaten.Rows(i).Item("endetextmarke") = "" End If If Dokumentdaten.Rows(i).Item("feldname") Is System.DBNull.Value Then Dokumentdaten.Rows(i).Item("feldname") = "" End If If Dokumentdaten.Rows(i).Item("beginntextmarke") = "TGEDKCursor" Or _ Dokumentdaten.Rows(i).Item("beginntextmarke") = "TGEDKCursorB" Or _ Dokumentdaten.Rows(i).Item("feldname") = "TGEDKCursorB" Or _ Dokumentdaten.Rows(i).Item("feldname") = "TGEDKCursor" Then Else If Dokumentdaten.Rows(i).Item("beginntextmarke") <> "" And _ Dokumentdaten.Rows(i).Item("endetextmarke") = "" Then Try docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("beginntextmarke")).Select() pos = docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("beginntextmarke")).Start If Dokumentdaten.Rows(i).Item("used") = 1 Then objword.Selection.Text = Dokumentdaten.Rows(i).Item("xvalue") End If pos2 = objword.Selection.End If Microsoft.VisualBasic.Left(Dokumentdaten.Rows(i).Item("beginntextmarke"), 19) = "XTGEDKDirektTelefonB" Or _ Microsoft.VisualBasic.Left(Dokumentdaten.Rows(i).Item("beginntextmarke"), 23) = "XTGEDKVornameNameBetreue" Or _ Microsoft.VisualBasic.Left(Dokumentdaten.Rows(i).Item("beginntextmarke"), 19) = "XTGEDKDirektTelefonZ" Then objword.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1) 'hutter objword.Selection.TypeText(Text:=" ") objword.Selection.SetRange(Start:=pos + 1, End:=pos2 + 1) With docword.Bookmarks .Add(Range:=objword.Selection.Range, Name:=Dokumentdaten.Rows(i).Item("beginntextmarke")) .DefaultSorting = WdBookmarkSortBy.wdSortByName .ShowHidden = False End With Else If Microsoft.VisualBasic.Left(Dokumentdaten.Rows(i).Item("beginntextmarke"), 22) = "XTGEDKDirektTelefonDokZ" Or _ Microsoft.VisualBasic.Left(Dokumentdaten.Rows(i).Item("beginntextmarke"), 20) = "XTGEDKVornameNameDokZ" Then objword.Selection.Text = Dokumentdaten.Rows(i).Item("xvalue") objword.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1) objword.Selection.TypeText(Text:=" ") objword.Selection.SetRange(Start:=pos + 1, End:=pos2 + 1) With docword.Bookmarks .Add(Range:=objword.Selection.Range, Name:=Dokumentdaten.Rows(i).Item("beginntextmarke")) .DefaultSorting = WdBookmarkSortBy.wdSortByName .ShowHidden = False End With Else objword.Visible = True objword.Selection.SetRange(Start:=pos, End:=pos2) With docword.Bookmarks .Add(Range:=objword.Selection.Range, Name:=Dokumentdaten.Rows(i).Item("beginntextmarke")) .DefaultSorting = WdBookmarkSortBy.wdSortByName .ShowHidden = False End With End If End If objword.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1) objword.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=2, Extend:=WdMovementType.wdExtend) If objword.Selection.Text = " " Then objword.Selection.MoveRight(Unit:=WdUnits.wdCharacter, Count:=1) objword.Selection.MoveLeft(Unit:=WdUnits.wdCharacter, Count:=1, Extend:=WdMovementType.wdExtend) objword.Selection.Delete(Unit:=WdUnits.wdCharacter, Count:=1) End If Catch End Try End If 'Beginn- und Ende-Textmarke If Dokumentdaten.Rows(i).Item("beginntextmarke") <> "" And _ Dokumentdaten.Rows(i).Item("endetextmarke") <> "" Then Try docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("beginntextmarke")).Select() pos = docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("beginntextmarke")).Start docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("endetextmarke")).Select() pos2 = docword.Bookmarks.Item(Dokumentdaten.Rows(i).Item("endetextmarke")).Start objword.Selection.SetRange(Start:=pos, End:=pos2) If Dokumentdaten.Rows(i).Item("used") = 1 Then objword.Selection.TypeText(Text:=Dokumentdaten.Rows(i).Item("xvalue")) End If With docword.Bookmarks .Add(Range:=objword.Selection.Range, Name:=Dokumentdaten.Rows(i).Item("beginntextmarke")) .DefaultSorting = WdBookmarkSortBy.wdSortByName .ShowHidden = False End With Catch End Try End If 'Felder If Dokumentdaten.Rows(i).Item("feldname") <> "" Then Try If docword.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).TextInput.Width <> 0 Then Fieldlen = docword.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).TextInput.Width docword.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).TextInput.Width = Fieldlen + 5 End If If Dokumentdaten.Rows(i).Item("used") = 1 Then docword.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).Result = convert_wordfelder(Dokumentdaten.Rows(i).Item("xvalue")) End If Catch End Try End If End If End If Next If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Ende Dokumentwerte_Uebertragen", clsDivFnkt.Enum_InfoTyp.Information) End If Return True End Function ModMain.FeldMakros FeldMakros EDKB12WS.ModMain.FeldMakros EDKB12WS (in EDKB12WS.exe) topic_00000000000003C7 Private Shared Sub FeldMakros() private static System.Void FeldMakros() private: static System::Void FeldMakros(); private static function FeldMakros(); Private Sub FeldMakros() Dim i As Integer For i = 0 To Dokumentdaten.Rows.Count - 1 If Dokumentdaten.Rows(i).Item("feldname") <> "" Then If Dokumentdaten.Rows(i).Item("einstiegsmakro") = True Then objWord.Run(docWord.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).EntryMacro) End If If Dokumentdaten.Rows(i).Item("ausstiegsmakro") = True Then objWord.Run(docWord.FormFields.Item(Dokumentdaten.Rows(i).Item("feldname")).ExitMacro) End If End If Next End Sub ModMain.Fill_Dokument Fill_Dokument EDKB12WS.ModMain.Fill_Dokument EDKB12WS (in EDKB12WS.exe) topic_00000000000003C3 Private Shared Function Fill_Dokument() As Boolean private static bool Fill_Dokument() private: static bool Fill_Dokument(); private static function Fill_Dokument() : boolean; Private Function Fill_Dokument() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Fill_Dokument", clsDivFnkt.Enum_InfoTyp.Information) End If Try If OfficeVorlage.bKopfzeile_generieren.Value = True Then If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Vor Insert Kopfzeile", clsDivFnkt.Enum_InfoTyp.Information) End If Insert_Kopfzeile() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Nach Insert Kopfzeile", clsDivFnkt.Enum_InfoTyp.Information) End If End If Dokumentwerte_Uebertragen() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Fill_Dokument (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Fill_Dokument::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Fill_Dokument (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Generate_Barcodes Generate_Barcodes EDKB12WS.ModMain.Generate_Barcodes EDKB12WS (in EDKB12WS.exe) topic_00000000000003CE Private Shared Sub Generate_Barcodes() private static System.Void Generate_Barcodes() private: static System::Void Generate_Barcodes(); private static function Generate_Barcodes(); Private Sub Generate_Barcodes() delete_Textfelder() Insert_TextFelder() ins_Barcode() End Sub ModMain.Generate_Dokument Generate_Dokument EDKB12WS.ModMain.Generate_Dokument EDKB12WS (in EDKB12WS.exe) topic_00000000000003A6 Public Shared Sub Generate_Dokument( _ ByVal row As Integer _) public static System.Void Generate_Dokument( int row) public: static System::Void Generate_Dokument( int row); public static function Generate_Dokument( row : int); 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 ModMain.Generate_Word Generate_Word EDKB12WS.ModMain.Generate_Word EDKB12WS (in EDKB12WS.exe) topic_00000000000003BF Private Shared Function Generate_Word() As Boolean private static bool Generate_Word() private: static bool Generate_Word(); private static function Generate_Word() : boolean; Private Function Generate_Word() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Generate_Word", clsDivFnkt.Enum_InfoTyp.Information) End If Try If Not StartWord() Then Return True Exit Function End If objword.Documents.Open(DokumentFilename) docword = objword.ActiveDocument objword.NormalTemplate.Saved = True objword.Visible = True If Not Word_Werte_Auslesen(xdata) Then DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Word_Werte_auslesen", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Word_Werte_auslesen", clsDivFnkt.Enum_InfoTyp.Information) End If End If If Not Dokument_Vervollstaendigen(xdata) Then DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Information) End If End If docword = objword.ActiveDocument docword.Save() docword.Close() docword = Nothing objword.Quit(False) objword = Nothing If Save_Doc() = True Then If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Generate_Word (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Else DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Save_Doc", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word: Save_Doc", clsDivFnkt.Enum_InfoTyp.Information) End If Return False End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Generate_Word::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Generate_Word (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Get_Applikationnr Get_Applikationnr EDKB12WS.ModMain.Get_Applikationnr EDKB12WS (in EDKB12WS.exe) topic_00000000000003AE Public Shared Function Get_Applikationnr( _ ByVal Dateinr As Integer _) As Integer public static int Get_Applikationnr( int Dateinr) public: static int Get_Applikationnr( int Dateinr); public static function Get_Applikationnr( Dateinr : int) : int; Public Function Get_Applikationnr(ByVal Dateinr As Integer) As Integer Try Dim connection As New SqlConnection() Dim da As New SqlDataAdapter("Select * From Office2010_Vorlage_datei where Office_Vorlage_Dateinr=" + Dateinr.ToString, connection) Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) Dim ds As New DataSet() Try connection.ConnectionString = Param.connectionstring connection.Open() da.Fill(ds, "docs") If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(3) Else Return 0 End If Catch ex As Exception MsgBox(ex.Message) End Try CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing Catch ex As Exception Return 0 End Try End Function ModMain.Get_Dokumentstatus Get_Dokumentstatus EDKB12WS.ModMain.Get_Dokumentstatus EDKB12WS (in EDKB12WS.exe) topic_00000000000003BD Private Shared Function Get_Dokumentstatus() As DataTable private static DataTable Get_Dokumentstatus() private: static DataTable __gc* Get_Dokumentstatus(); private static function Get_Dokumentstatus() : DataTable; Private Function Get_Dokumentstatus() As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Get_Dokumentstatus", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_dokumentstatus" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Dokumentstatus (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Get_Dokumentstatus::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Dokumentstatus (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally Globals.conn.CloseConnection(True) scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Get_EDK_Data Get_EDK_Data EDKB12WS.ModMain.Get_EDK_Data EDKB12WS (in EDKB12WS.exe) topic_00000000000003A8 Private Shared Function Get_EDK_Data() As Object private static object Get_EDK_Data() private: static object __gc* Get_EDK_Data(); private static function Get_EDK_Data() : object; Private Function Get_EDK_Data() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Get_EDK_Data", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edk_data where rowid = " & Str(RowId), Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Connection.ConnectionString = Globals.Param.connectionstring Connection.Open() EDK_Data.Tables.Clear() DA.Fill(EDK_Data, "EDK_Data") Dim myRow As DataRow myRow = EDK_Data.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(5) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing DA = Nothing cb = Nothing Connection = Nothing If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_EDK_Data (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Get_EDK_Data::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_EDK_Data (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Get_Pendente_EDK_Dokumente Get_Pendente_EDK_Dokumente EDKB12WS.ModMain.Get_Pendente_EDK_Dokumente EDKB12WS (in EDKB12WS.exe) topic_00000000000003A9 Private Shared Function Get_Pendente_EDK_Dokumente() As DataTable private static DataTable Get_Pendente_EDK_Dokumente() private: static DataTable __gc* Get_Pendente_EDK_Dokumente(); private static function Get_Pendente_EDK_Dokumente() : DataTable; Private Function Get_Pendente_EDK_Dokumente() As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Get_Pendente_EDK_Dokumente", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_edkb12" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@rowid", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception '20080918 Version 12 SHU 'Im Feherfall nichts auf DB schreiben. Passiert nachdem ein SQL-Verbindungsunterbruch stattgefunden hat. Try DivFnkt.InsertJournale("EDKB12::Fehler:: Get_Pendente_EDK_Dokumente::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Pendente_EDK_Dokumente (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Catch End Try Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Get_Profil Get_Profil EDKB12WS.ModMain.Get_Profil EDKB12WS (in EDKB12WS.exe) topic_00000000000003B1 Private Shared Function Get_Profil( _ ByVal Mitarbeiternr As Integer _) As DataTable private static DataTable Get_Profil( int Mitarbeiternr) private: static DataTable __gc* Get_Profil( int Mitarbeiternr); private static function Get_Profil( Mitarbeiternr : int) : DataTable; Private Function Get_Profil(ByVal Mitarbeiternr As Integer) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Get_ProfilGet_Team", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edkb12_profil" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr)) sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Profil (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Get_Profil::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Profil (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally Globals.conn.CloseConnection(True) scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Get_Team Get_Team EDKB12WS.ModMain.Get_Team EDKB12WS (in EDKB12WS.exe) topic_00000000000003B0 Private Shared Function Get_Team( _ ByVal profilnr As Integer _) As DataTable private static DataTable Get_Team( int profilnr) private: static DataTable __gc* Get_Team( int profilnr); private static function Get_Team( profilnr : int) : DataTable; Private Function Get_Team(ByVal profilnr As Integer) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Get_Team", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_dokumentbearbeitung_team" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, profilnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Team (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Get_Team::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_Team (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally Globals.conn.CloseConnection(True) scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.HeaderFooterAnzeigen HeaderFooterAnzeigen EDKB12WS.ModMain.HeaderFooterAnzeigen EDKB12WS (in EDKB12WS.exe) topic_00000000000003D2 Private Shared Sub HeaderFooterAnzeigen() private static System.Void HeaderFooterAnzeigen() private: static System::Void HeaderFooterAnzeigen(); private static function HeaderFooterAnzeigen(); Private Sub HeaderFooterAnzeigen() If objword.ActiveWindow.View.SplitSpecial <> WdSpecialPane.wdPaneNone Then objword.ActiveWindow.Panes.Item(2).Close() End If If objWord.ActiveWindow.ActivePane.View.Type = WdViewType.wdNormalView Or objWord.ActiveWindow.ActivePane.View.Type = WdViewType.wdOutlineView Then objWord.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView End If objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageHeader If objWord.Selection.HeaderFooter.IsHeader = True Then objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageFooter Else objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageHeader End If End Sub ModMain.IDV_makros_bearbeiten IDV_makros_bearbeiten EDKB12WS.ModMain.IDV_makros_bearbeiten EDKB12WS (in EDKB12WS.exe) topic_00000000000003E0 Public Shared Function IDV_makros_bearbeiten() As Boolean public static bool IDV_makros_bearbeiten() public: static bool IDV_makros_bearbeiten(); public static function IDV_makros_bearbeiten() : boolean; Public Function IDV_makros_bearbeiten() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim idvmakros As New edokadb.clsMyDokumentDaten() Dim makros As System.Data.DataTable Dim i As Long idvmakros.cpMainConnectionProvider = conn makros = idvmakros.Select_IDVMakros(DokType.iDokumenttypnr.Value) For i = 0 To makros.Rows.Count - 1 Try If makros.Rows(i).Item("ist_in_dll") = True Then 'SetForegroundWindow(...) Try objword.Activate() Catch Thread.Sleep(100) objword.Activate() End Try 'System.Windows.Forms.Application.DoEvents() ' idvdll = CreateObject("IDVMakros.Application") ' Call idvdll.CallSub(objword, makros.Rows(i).Item("makro")) 'System.Windows.Forms.Application.DoEvents() objword.Visible = True Try ' objWord.Activate() Catch ' Thread.Sleep(100) ' objWord.Activate() End Try Else 'System.Windows.Forms.Application.DoEvents() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten:Makro: " & makros.Rows(i).Item("makro"), clsDivFnkt.Enum_InfoTyp.Information) End If objword.Run(makros.Rows(i).Item("makro")) 'System.Windows.Forms.Application.DoEvents() End If Catch ex As Exception If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: IDV_makros_bearbeiten:: Fehler beim Makro-Aufruf::" & makros.Rows(i).Item("makro") & "::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If End Try Next i If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: IDV_makros_bearbeiten::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Insert_Kopfzeile Insert_Kopfzeile EDKB12WS.ModMain.Insert_Kopfzeile EDKB12WS (in EDKB12WS.exe) topic_00000000000003C4 Private Shared Sub Insert_Kopfzeile() private static System.Void Insert_Kopfzeile() private: static System::Void Insert_Kopfzeile(); private static function Insert_Kopfzeile(); Private Sub Insert_Kopfzeile() On Error Resume Next objword.Selection.HomeKey(Unit:=WdUnits.wdStory) If objWord.ActiveWindow.View.SplitSpecial <> WdSpecialPane.wdPaneNone Then objWord.ActiveWindow.Panes.Item(2).Close() End If If objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdNormalView Or objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdOutlineView Then objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView End If objword.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageHeader set_headerbookmark() objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument End Sub ModMain.Insert_TextFelder Insert_TextFelder EDKB12WS.ModMain.Insert_TextFelder EDKB12WS (in EDKB12WS.exe) topic_00000000000003D0 Private Shared Sub Insert_TextFelder() private static System.Void Insert_TextFelder() private: static System::Void Insert_TextFelder(); private static function Insert_TextFelder(); Private Sub Insert_TextFelder() Dim xname As String Dim i As Integer Dim pages As Long Dim prop As Object For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties If UCase(prop.Name) = "NUMBER OF PAGES" Then pages = prop.value End If Next Textboxesi = 1 objword.Selection.HomeKey(Unit:=WdUnits.wdStory) For i = 1 To pages xname = Str(i) If Left(xname, 1) = " " Then xname = Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=WdGoToItem.wdGoToPage, Name:=xname) insert_Textfield() objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument Next i End Sub ModMain.Office_Vorlage_Get_From_DB Office_Vorlage_Get_From_DB EDKB12WS.ModMain.Office_Vorlage_Get_From_DB EDKB12WS (in EDKB12WS.exe) topic_00000000000003AD Public Shared Function Office_Vorlage_Get_From_DB( _ ByVal office_vorlagenr As Integer, _ ByVal Filename As String _) As String public static string Office_Vorlage_Get_From_DB( int office_vorlagenr, string Filename) public: static String __gc* Office_Vorlage_Get_From_DB( int office_vorlagenr, String __gc* Filename); public static function Office_Vorlage_Get_From_DB( office_vorlagenr : int, Filename : String) : String; Public Function Office_Vorlage_Get_From_DB(ByVal office_vorlagenr As Integer, ByVal Filename As String) As String If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Office_Vorlage_Get_From_DB", clsDivFnkt.Enum_InfoTyp.Information) End If Dim s As String = "Select * From office_vorlage_datei where office_vorlage_Dateinr=" + Trim(Str(office_vorlagenr)) If Param.CheckOffice2010_Vorlage = True Then s = "Select * from Office2010_Vorlage_datei where office_vorlage_dateinr=" + Trim(Str(office_vorlagenr)) End If Dim connection As New SqlConnection() Dim da As New SqlDataAdapter(s, connection) Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) Dim ds As New DataSet() Try connection.ConnectionString = Param.connectionstring connection.Open() da.Fill(ds, "docs") Dim myRow As DataRow myRow = ds.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(2) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende GOffice_Vorlage_Get_From_DB (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return Filename Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Office_Vorlage_Get_From_DB::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende GOffice_Vorlage_Get_From_DB (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return "" End Try CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing End Function ModMain.Save_Doc Save_Doc EDKB12WS.ModMain.Save_Doc EDKB12WS (in EDKB12WS.exe) topic_00000000000003CA Public Shared Function Save_Doc() As Boolean public static bool Save_Doc() public: static bool Save_Doc(); public static function Save_Doc() : boolean; Public Function Save_Doc() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Save_Doc", clsDivFnkt.Enum_InfoTyp.Information) End If If Save_To_DB(Dokumentid, DokumentFilename) = True Then If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Save_Doc (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Else DivFnkt.InsertJournale("EDKB12::Fehler:: Save_Doc::", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Save_Doc (False)::", clsDivFnkt.Enum_InfoTyp.Information) End If Return False End If End Function ModMain.Save_To_DB Save_To_DB EDKB12WS.ModMain.Save_To_DB EDKB12WS (in EDKB12WS.exe) topic_00000000000003CB Public Shared Function Save_To_DB( _ ByVal sDokumentID As String, _ ByVal sDokumentName As String _) As Boolean public static bool Save_To_DB( string sDokumentID, string sDokumentName) public: static bool Save_To_DB( String __gc* sDokumentID, String __gc* sDokumentName); public static function Save_To_DB( sDokumentID : String, sDokumentName : String) : boolean; Public Function Save_To_DB(ByVal sDokumentID As String, ByVal sDokumentName As String) As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Save_To_DB", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from doks where dokumentid='" + Dokumentid + "'", Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Dim fs As New FileStream(DokumentFilename, FileMode.Open, FileAccess.Read) Dim mydata(fs.Length) As Byte Try fs.Read(mydata, 0, fs.Length) fs.Close() Connection.ConnectionString = Param.connectionstring Connection.Open() DA.Fill(ds, "docs") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then ' Neues Dokument speichern myRow = ds.Tables(0).NewRow myRow.Item(0) = Dokumentid myRow.Item(1) = mydata ds.Tables(0).Rows.Add(myRow) DA.Update(ds, "docs") Else 'Bestehendes Dokument sichenr myRow = ds.Tables(0).Rows(0) myRow.Item(1) = mydata DA.Update(ds, "docs") End If Catch ex As Exception Return False End Try fs = Nothing cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Save_To_DB (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return True Catch EX As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Save_To_DB::" & EX.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Save_To_DB (False)::" & EX.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False End Try End Function ModMain.Send_Message Send_Message EDKB12WS.ModMain.Send_Message EDKB12WS (in EDKB12WS.exe) topic_00000000000003AB Private Shared Sub Send_Message( _ ByVal ok As Boolean, _ ByVal status As Integer _) private static System.Void Send_Message( bool ok, int status) private: static System::Void Send_Message( bool ok, int status); private static function Send_Message( ok : boolean, status : int); Private Sub Send_Message(ByVal ok As Boolean, ByVal status As Integer) Dim betreff As String Dim meldung As String If ok Then betreff = Param.OKMeldungBetreff meldung = Param.OKMeldung Else betreff = Param.NOKMeldungBetreff meldung = Param.NOKMeldung End If betreff = betreff.Replace("#Partnernr#", Trim(Str(Partner.iNRPAR00.Value))) meldung = meldung.Replace("#Dokumenttyp#", Trim(DokType.sBezeichnung.Value)) meldung = meldung.Replace("#Partnernr#", Trim(Str(Partner.iNRPAR00.Value))) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_edkb12_meldung" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiter.iMitarbeiternr.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff)) scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) sdaAdapter.Fill(dtToReturn) Return Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Send_Message::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Send_Message (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Sub ModMain.Set_EDK_Status Set_EDK_Status EDKB12WS.ModMain.Set_EDK_Status EDKB12WS (in EDKB12WS.exe) topic_00000000000003AA Private Shared Function Set_EDK_Status( _ ByVal rowid As Integer, _ ByVal status As Integer _) As DataTable private static DataTable Set_EDK_Status( int rowid, int status) private: static DataTable __gc* Set_EDK_Status( int rowid, int status); private static function Set_EDK_Status( rowid : int, status : int) : DataTable; Private Function Set_EDK_Status(ByVal rowid As Integer, ByVal status As Integer) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Set_EDK_Status", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_edkb12" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@rowid", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, rowid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Set_EDK_Status::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Set_EDK_Status (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() If status = 2 Then Send_Message(False, 2) If status = 3 Then Send_Message(True, 3) End Try End Function ModMain.StartWord StartWord EDKB12WS.ModMain.StartWord EDKB12WS (in EDKB12WS.exe) topic_00000000000003C0 Private Shared Function StartWord() As Boolean private static bool StartWord() private: static bool StartWord(); private static function StartWord() : boolean; Private Function StartWord() As Boolean If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start StartWord", clsDivFnkt.Enum_InfoTyp.Information) End If Try objword = CreateObject("Word.application") objword.Application.Options.SaveInterval = 0 If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende StartWord (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: StartWord::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende StartWord (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Return False Finally objword.Visible = False End Try Try 'objword.Run("Autoexec") Catch End Try Return True End Function ModMain.Update_DokumentColdIndexwert Update_DokumentColdIndexwert EDKB12WS.ModMain.Update_DokumentColdIndexwert EDKB12WS (in EDKB12WS.exe) topic_00000000000003B6 Public Shared Function Update_DokumentColdIndexwert( _ ByVal dokumentid As String, _ ByVal Indextyp As Integer, _ ByVal indexfeld As Integer, _ ByVal wert As String _) As DataTable public static DataTable Update_DokumentColdIndexwert( string dokumentid, int Indextyp, int indexfeld, string wert) public: static DataTable __gc* Update_DokumentColdIndexwert( String __gc* dokumentid, int Indextyp, int indexfeld, String __gc* wert); public static function Update_DokumentColdIndexwert( dokumentid : String, Indextyp : int, indexfeld : int, wert : String) : DataTable; Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Update_DokumentColdIndexwert", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Globals.conn.OpenConnection() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld)) scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert)) scmCmdToExecute.Connection = Globals.conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Update_DokumentColdIndexwert (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Update_DokumentColdIndexwert::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Update_DokumentColdIndexwert (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() Globals.conn.CloseConnection(True) End Try End Function ModMain.Update_FANummer Update_FANummer EDKB12WS.ModMain.Update_FANummer EDKB12WS (in EDKB12WS.exe) topic_00000000000003B3 Private Shared Function Update_FANummer( _ ByVal fanummer3 As String _) As DataTable private static DataTable Update_FANummer( string fanummer3) private: static DataTable __gc* Update_FANummer( String __gc* fanummer3); private static function Update_FANummer( fanummer3 : String) : DataTable; Private Function Update_FANummer(ByVal fanummer3 As String) As System.Data.DataTable If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Get_EDK_Data", clsDivFnkt.Enum_InfoTyp.Information) End If Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "sp_edoka_import_update_fanummer" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer2", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) If fanummer3 <> "" Then scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer1", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "Ordernr: " & fanummer3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "Avalog: " & fanummer3)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer1", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@fanummer3", SqlDbType.VarChar, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: Get_EDK_Data::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Get_EDK_Data (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function ModMain.Word_Werte_Auslesen Word_Werte_Auslesen EDKB12WS.ModMain.Word_Werte_Auslesen EDKB12WS (in EDKB12WS.exe) topic_00000000000003C1 Public Shared Function Word_Werte_Auslesen( _ ByVal xdata As DataTable _) As Boolean public static bool Word_Werte_Auslesen( DataTable xdata) public: static bool Word_Werte_Auslesen( DataTable __gc* xdata); public static function Word_Werte_Auslesen( xdata : DataTable) : boolean; Public Function Word_Werte_Auslesen(ByVal xdata As System.Data.DataTable) As Boolean Try Dim i As Integer Dim pos, pos2 As Integer For i = 0 To xdata.Rows.Count - 1 xdata.Rows(i).Item("used") = 0 If xdata.Rows(i).Item("beginntextmarke") <> "" And xdata.Rows(i).Item("endetextmarke") = "" Then Try docword.Bookmarks.Item(xdata.Rows(i).Item("beginntextmarke")).Select() xdata.Rows(i).Item("oldvalue") = convert(objword.Selection.Text) xdata.Rows(i).Item("used") = 1 Catch End Try If xdata.Rows(i).Item("beginntextmarke") = "TGEDKCompanyBBEB99" Then xdata.Rows(i).Item("used") = 1 End If If xdata.Rows(i).Item("beginntextmarke") <> "" And xdata.Rows(i).Item("endetextmarke") <> "" Then Try docword.Bookmarks.Item(xdata.Rows(i).Item("beginntextmarke")).Select() pos = objword.Selection.Start docword.Bookmarks.Item(xdata.Rows(i).Item("endetextmarke")).Select() pos2 = objword.Selection.Start objword.Selection.SetRange(Start:=pos, End:=pos2) xdata.Rows(i).Item("oldvalue") = convert(objword.Selection.Text) xdata.Rows(i).Item("used") = 1 Catch End Try End If Try If xdata.Rows(i).Item("feldname") <> "" Then Try xdata.Rows(i).Item("oldvalue") = convert(docword.FormFields.Item(xdata.Rows(i).Item("feldname")).Result) xdata.Rows(i).Item("used") = 1 Catch End Try End If Catch End Try Next Return True Catch ex As Exception Return False End Try End Function ModMain.convert convert EDKB12WS.ModMain.convert EDKB12WS (in EDKB12WS.exe) topic_00000000000003C8 Public Shared Function convert( _ ByVal x As String _) As String public static string convert( string x) public: static String __gc* convert( String __gc* x); public static function convert( x : String) : String; Function convert(ByVal x As String) As String Dim s As String Dim s1 As String Dim i As Integer s = x i = InStr(s, Chr(13)) While i > 0 s = Left(s, i - 1) & "#" & Right(s, Len(s) - (i)) If Mid(s, i + 1, 1) = Chr(10) Then s = Left(s, i) & Right(s, Len(s) - (i + 1)) End If i = InStr(s, Chr(13)) End While i = InStr(s, "#") While i > 0 s = Left(s, i - 1) & vbCrLf & Right(s, Len(s) - (i)) i = InStr(s, "#") End While convert = s End Function ModMain.convert_wordfelder convert_wordfelder EDKB12WS.ModMain.convert_wordfelder EDKB12WS (in EDKB12WS.exe) topic_00000000000003C9 Public Shared Function convert_wordfelder( _ ByVal x As String _) As String public static string convert_wordfelder( string x) public: static String __gc* convert_wordfelder( String __gc* x); public static function convert_wordfelder( x : String) : String; Function convert_wordfelder(ByVal x As String) As String Dim s As String Dim s1 As String Dim i As Integer s = x i = InStr(s, Chr(13)) While i > 0 s = Left(s, i - 1) & "#" & Right(s, Len(s) - (i)) If Mid(s, i + 1, 1) = Chr(10) Then s = Left(s, i) & Right(s, Len(s) - (i + 1)) End If i = InStr(s, Chr(13)) End While i = InStr(s, "#") While i > 0 s = Left(s, i - 1) & Chr(11) & Right(s, Len(s) - (i)) i = InStr(s, "#") End While convert_wordfelder = s End Function ModMain.delete_Textfelder delete_Textfelder EDKB12WS.ModMain.delete_Textfelder EDKB12WS (in EDKB12WS.exe) topic_00000000000003CF Private Shared Sub delete_Textfelder() private static System.Void delete_Textfelder() private: static System::Void delete_Textfelder(); private static function delete_Textfelder(); Private Sub delete_Textfelder() Dim xname As String Dim i As Integer Dim i1 As Integer Dim pages As Long Dim Prop As Object objword.Selection.HomeKey(Unit:=WdUnits.wdStory) For Each Prop In objWord.ActiveDocument.BuiltInDocumentProperties If UCase(Prop.Name) = "NUMBER OF PAGES" Then pages = Prop.value End If Next For i = 1 To pages xname = Str(i) If Left(xname, 1) = " " Then xname = Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=WdGoToItem.wdGoToPage, Name:=xname) HeaderFooterAnzeigen() While objWord.Selection.HeaderFooter.Shapes.Count > 0 objWord.Selection.HeaderFooter.Shapes.Item(1).Delete() End While objword.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument Next i Exit Sub eh: Resume Next End Sub ModMain.ins_Barcode ins_Barcode EDKB12WS.ModMain.ins_Barcode EDKB12WS (in EDKB12WS.exe) topic_00000000000003D1 Private Shared Sub ins_Barcode() private static System.Void ins_Barcode() private: static System::Void ins_Barcode(); private static function ins_Barcode(); Private Sub ins_Barcode() Dim xname As String Dim i As Integer Dim pages As Long Dim prop As Object For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties If UCase(prop.Name) = "NUMBER OF PAGES" Then pages = prop.value End If Next objword.Selection.HomeKey(Unit:=WdUnits.wdStory) Textboxesi = 1 For i = 1 To pages xname = Str(i) If Left(xname, 1) = " " Then xname = Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=WdGoToItem.wdGoToPage, Name:=xname) HeaderFooterAnzeigen() insert_Barcode(i) Textboxesi = Textboxesi + 1 objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument Next i End Sub ModMain.insert_Barcode insert_Barcode EDKB12WS.ModMain.insert_Barcode EDKB12WS (in EDKB12WS.exe) topic_00000000000003D4 Private Shared Sub insert_Barcode( _ ByVal x As Integer _) private static System.Void insert_Barcode( int x) private: static System::Void insert_Barcode( int x); private static function insert_Barcode( x : int); Private Sub insert_Barcode(ByVal x As Integer) Dim Form Dim strsel As String Dim strresult Dim s As String ' Selection.ShapeRange.Select If DokType.bZu_retournieren.Value = True Then Try Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() If OfficeVorlage.bBchorizontal.Value = False Then objword.ActiveDocument.Tables.Add(Range:=objword.Selection.Range, NumRows:=1, NumColumns:=1) With objword.Selection.Tables.Item(1) .Borders.Item(WdBorderType.wdBorderLeft).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Item(WdBorderType.wdBorderRight).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Item(WdBorderType.wdBorderTop).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Item(WdBorderType.wdBorderBottom).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Item(WdBorderType.wdBorderDiagonalDown).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Item(WdBorderType.wdBorderDiagonalUp).LineStyle = WdLineStyle.wdLineStyleNone .Borders.Shadow = False End With objword.Selection.Orientation = WdTextOrientation.wdTextOrientationUpward objword.Selection.Tables.Item(1).Rows.HeightRule = WdRowHeightRule.wdRowHeightAtLeast objword.Selection.Tables.Item(1).Rows.Height = Form.height End If 'gaga' Dim id As String id = Dokumentid s = Bar25I(Microsoft.VisualBasic.Right(Right(id, Len(id) - 6), 16)) objword.Selection.TypeText(Text:=s) objword.Selection.HomeKey(Unit:=WdUnits.wdLine, Extend:=WdMovementType.wdExtend) objword.Selection.Font.Name = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("barcode_font") objword.Selection.Font.Size = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("bcfont_groesse") objword.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight objword.Selection.EndKey(Unit:=WdUnits.wdLine) objword.Selection.Font.Name = "Arial" objword.Selection.Font.Size = 8 Dim Zeichen As String Select Case DokType.iPhysisches_archiv.Value Case 0 Case 1 Zeichen = " U" Case 2 Zeichen = " F" End Select objword.Selection.TypeText(Zeichen) Form = Nothing Catch ex As Exception End Try End If End Sub ModMain.insert_Textfield insert_Textfield EDKB12WS.ModMain.insert_Textfield EDKB12WS (in EDKB12WS.exe) topic_00000000000003D3 Private Shared Sub insert_Textfield() private static System.Void insert_Textfield() private: static System::Void insert_Textfield(); private static function insert_Textfield(); Private Sub insert_Textfield() Dim Public_barcodeleft Dim Public_barcodetop Dim Public_barcodewidth# Dim Public_barcodeheight Try Public_barcodeleft = OfficeVorlage.iBcpl.Value Public_barcodetop = OfficeVorlage.iBcpt.Value Public_barcodewidth = OfficeVorlage.iBcw.Value Public_barcodeheight = OfficeVorlage.iBch.Value HeaderFooterAnzeigen() objWord.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _ Public_barcodewidth#, Public_barcodeheight).Select() ' objWord.Selection.ShapeRange.TextFrame.TextRange.Select objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse 'objWord.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse 'RS:2006-08-22 objWord.Selection.ShapeRange.TextFrame.MarginLeft = 0.0# objWord.Selection.ShapeRange.TextFrame.MarginRight = 0.0# objWord.Selection.ShapeRange.TextFrame.MarginTop = 0.0# objWord.Selection.ShapeRange.TextFrame.MarginBottom = 0.0# objWord.Selection.Collapse() Textboxes(Textboxesi) = objWord.Selection.HeaderFooter.Shapes.Item(Textboxesi).Name Textboxesi = Textboxesi + 1 'System.Windows.Forms.Application.DoEvents() Exit Sub Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub ModMain.insert_history_status insert_history_status EDKB12WS.ModMain.insert_history_status EDKB12WS (in EDKB12WS.exe) topic_00000000000003BE Public Shared Sub insert_history_status( _ ByVal statusnr As Integer, _ ByVal dokumentid As String, _ ByVal Verantwortlicher As Integer, _ ByVal datumzeit As Date _) public static System.Void insert_history_status( int statusnr, string dokumentid, int Verantwortlicher, DateTime datumzeit) public: static System::Void insert_history_status( int statusnr, String __gc* dokumentid, int Verantwortlicher, DateTime datumzeit); public static function insert_history_status( statusnr : int, dokumentid : String, Verantwortlicher : int, datumzeit : DateTime); Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer, ByVal datumzeit As DateTime) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start insert_history_status", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim sh As New edokadb.clsStatushistory() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = Globals.conn key = dbkey.get_dbkey("statushistory") sh.cpMainConnectionProvider = Globals.conn sh.iStatushistorynr = New SqlInt32(CType(key, Int32)) sh.iStatus = New SqlInt32(CType(statusnr, Int32)) sh.iMandantnr = New SqlInt32(CType(1, Int32)) sh.iMutierer = New SqlInt32(CType(Mitarbeiter.iMitarbeiternr.Value, Int32)) sh.bAktiv = New SqlBoolean(True) sh.daErstellt_am = New SqlDateTime(CType(datumzeit, DateTime)) sh.daMutiert_am = New SqlDateTime(CType(datumzeit, DateTime)) sh.sDokumentid = New SqlString(CType(dokumentid, String)) sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32)) Try Globals.conn.OpenConnection() Catch End Try sh.Insert() Try Globals.conn.CloseConnection(True) Catch End Try dbkey.Dispose() sh.Dispose() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende insert_history_status (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: insert_history_status::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende insert_history_status (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If End Try End Sub ModMain.set_headerbookmark set_headerbookmark EDKB12WS.ModMain.set_headerbookmark EDKB12WS (in EDKB12WS.exe) topic_00000000000003C5 Private Shared Sub set_headerbookmark() private static System.Void set_headerbookmark() private: static System::Void set_headerbookmark(); private static function set_headerbookmark(); Private Sub set_headerbookmark() Try docword.Bookmarks.Item("TGEDKCompanyBBEB99").Select() Catch objword.Selection.MoveDown(Unit:=WdUnits.wdLine, Count:=1) With objword.ActiveDocument.Bookmarks .Add(Range:=objword.Selection.Range, Name:="TGEDKCompanyBBEB99") .DefaultSorting = WdBookmarkSortBy.wdSortByName .ShowHidden = False End With End Try End Sub BarTextIn BarTextIn EDKB12WS.ModMain.BarTextIn EDKB12WS (in EDKB12WS.exe) topic_00000000000003D6 Private Shared BarTextIn As String private static string BarTextIn private: static String __gc* BarTextIn; private static BarTextIn : String Private BarTextIn As String BarTextOut BarTextOut EDKB12WS.ModMain.BarTextOut EDKB12WS (in EDKB12WS.exe) topic_00000000000003D5 Private Shared BarTextOut As String private static string BarTextOut private: static String __gc* BarTextOut; private static BarTextOut : String Private BarTextOut As String CharValue CharValue EDKB12WS.ModMain.CharValue EDKB12WS (in EDKB12WS.exe) topic_00000000000003D9 Private Shared CharValue As Long private static long CharValue private: static long CharValue; private static CharValue : long Private CharValue As Long CheckSum CheckSum EDKB12WS.ModMain.CheckSum EDKB12WS (in EDKB12WS.exe) topic_00000000000003DD Private Shared CheckSum As Integer private static int CheckSum private: static int CheckSum; private static CheckSum : int Private CheckSum As Integer DoCheckSum DoCheckSum EDKB12WS.ModMain.DoCheckSum EDKB12WS (in EDKB12WS.exe) topic_00000000000003D7 Private Shared DoCheckSum As Integer private static int DoCheckSum private: static int DoCheckSum; private static DoCheckSum : int Private DoCheckSum As Integer Dok Dok EDKB12WS.ModMain.Dok EDKB12WS (in EDKB12WS.exe) topic_0000000000000395 Private Shared Dok As clsDokument private static clsDokument Dok private: static clsDokument __gc* Dok; private static Dok : clsDokument Dim Dok As New edokadb.clsDokument DokType DokType EDKB12WS.ModMain.DokType EDKB12WS (in EDKB12WS.exe) topic_0000000000000394 Private Shared DokType As clsDokumenttyp private static clsDokumenttyp DokType private: static clsDokumenttyp __gc* DokType; private static DokType : clsDokumenttyp Dim DokType As New edokadb.clsDokumenttyp DokumentFilename DokumentFilename EDKB12WS.ModMain.DokumentFilename EDKB12WS (in EDKB12WS.exe) topic_0000000000000391 Private Shared DokumentFilename As String private static string DokumentFilename private: static String __gc* DokumentFilename; private static DokumentFilename : String Dim DokumentFilename As String Dokumentdaten Dokumentdaten EDKB12WS.ModMain.Dokumentdaten EDKB12WS (in EDKB12WS.exe) topic_000000000000039D Private Shared Dokumentdaten As DataTable private static DataTable Dokumentdaten private: static DataTable __gc* Dokumentdaten; private static Dokumentdaten : DataTable Dim Dokumentdaten As New System.Data.DataTable Dokumentid Dokumentid EDKB12WS.ModMain.Dokumentid EDKB12WS (in EDKB12WS.exe) topic_0000000000000392 Private Shared Dokumentid As String private static string Dokumentid private: static String __gc* Dokumentid; private static Dokumentid : String Dim Dokumentid As String EDK_Data EDK_Data EDKB12WS.ModMain.EDK_Data EDKB12WS (in EDKB12WS.exe) topic_000000000000038D Private Shared EDK_Data As DataSet private static DataSet EDK_Data private: static DataSet __gc* EDK_Data; private static EDK_Data : DataSet Dim EDK_Data As New DataSet EDK_Daten EDK_Daten EDKB12WS.ModMain.EDK_Daten EDKB12WS (in EDKB12WS.exe) topic_000000000000038E Private Shared EDK_Daten As DataTable private static DataTable EDK_Daten private: static DataTable __gc* EDK_Daten; private static EDK_Daten : DataTable Dim EDK_Daten As New System.Data.DataTable FileExtension FileExtension EDKB12WS.ModMain.FileExtension EDKB12WS (in EDKB12WS.exe) topic_0000000000000390 Private Shared FileExtension As String private static string FileExtension private: static String __gc* FileExtension; private static FileExtension : String Dim FileExtension As String = "" Filename Filename EDKB12WS.ModMain.Filename EDKB12WS (in EDKB12WS.exe) topic_000000000000038F Private Shared Filename As String private static string Filename private: static String __gc* Filename; private static Filename : String Dim Filename As String II II EDKB12WS.ModMain.II EDKB12WS (in EDKB12WS.exe) topic_00000000000003DA Private Shared II As Integer private static int II private: static int II; private static II : int Private II As Integer IsProtected IsProtected EDKB12WS.ModMain.IsProtected EDKB12WS (in EDKB12WS.exe) topic_00000000000003A4 Private Shared IsProtected As Boolean private static bool IsProtected private: static bool IsProtected; private static IsProtected : boolean Dim IsProtected As Boolean = False Mitarbeiter Mitarbeiter EDKB12WS.ModMain.Mitarbeiter EDKB12WS (in EDKB12WS.exe) topic_000000000000039A Private Shared Mitarbeiter As clsMitarbeiter private static clsMitarbeiter Mitarbeiter private: static clsMitarbeiter __gc* Mitarbeiter; private static Mitarbeiter : clsMitarbeiter Dim Mitarbeiter As New edokadb.clsMitarbeiter Mitarbeiterdata Mitarbeiterdata EDKB12WS.ModMain.Mitarbeiterdata EDKB12WS (in EDKB12WS.exe) topic_000000000000039B Private Shared Mitarbeiterdata As DataTable private static DataTable Mitarbeiterdata private: static DataTable __gc* Mitarbeiterdata; private static Mitarbeiterdata : DataTable Dim Mitarbeiterdata As New System.Data.DataTable OfficeVorlage OfficeVorlage EDKB12WS.ModMain.OfficeVorlage EDKB12WS (in EDKB12WS.exe) topic_0000000000000396 Private Shared OfficeVorlage As clsOffice_vorlage private static clsOffice_vorlage OfficeVorlage private: static clsOffice_vorlage __gc* OfficeVorlage; private static OfficeVorlage : clsOffice_vorlage Dim OfficeVorlage As New edokadb.clsOffice_vorlage OfficeVorlageDatei OfficeVorlageDatei EDKB12WS.ModMain.OfficeVorlageDatei EDKB12WS (in EDKB12WS.exe) topic_0000000000000397 Private Shared OfficeVorlageDatei As clsOffice_Vorlage_Datei private static clsOffice_Vorlage_Datei OfficeVorlageDatei private: static clsOffice_Vorlage_Datei __gc* OfficeVorlageDatei; private static OfficeVorlageDatei : clsOffice_Vorlage_Datei Dim OfficeVorlageDatei As New edokadb.clsOffice_Vorlage_Datei Partner Partner EDKB12WS.ModMain.Partner EDKB12WS (in EDKB12WS.exe) topic_0000000000000398 Private Shared Partner As clsPartner private static clsPartner Partner private: static clsPartner __gc* Partner; private static Partner : clsPartner Dim Partner As New edokadb.clsPartner Profile Profile EDKB12WS.ModMain.Profile EDKB12WS (in EDKB12WS.exe) topic_000000000000039E Private Shared Profile As DataTable private static DataTable Profile private: static DataTable __gc* Profile; private static Profile : DataTable Dim Profile As New System.Data.DataTable Profilnr Profilnr EDKB12WS.ModMain.Profilnr EDKB12WS (in EDKB12WS.exe) topic_00000000000003A0 Private Shared Profilnr As Integer private static int Profilnr private: static int Profilnr; private static Profilnr : int Dim Profilnr As Integer RowId RowId EDKB12WS.ModMain.RowId EDKB12WS (in EDKB12WS.exe) topic_000000000000038C Private Shared RowId As Integer private static int RowId private: static int RowId; private static RowId : int Dim RowId As Integer Sum Sum EDKB12WS.ModMain.Sum EDKB12WS (in EDKB12WS.exe) topic_00000000000003DB Private Shared Sum As Long private static long Sum private: static long Sum; private static Sum : long Private Sum As Long Teamnr Teamnr EDKB12WS.ModMain.Teamnr EDKB12WS (in EDKB12WS.exe) topic_00000000000003A3 Private Shared Teamnr As Integer private static int Teamnr private: static int Teamnr; private static Teamnr : int Dim Teamnr As Integer Teams Teams EDKB12WS.ModMain.Teams EDKB12WS (in EDKB12WS.exe) topic_000000000000039F Private Shared Teams As DataTable private static DataTable Teams private: static DataTable __gc* Teams; private static Teams : DataTable Dim Teams As New System.Data.DataTable TempString TempString EDKB12WS.ModMain.TempString EDKB12WS (in EDKB12WS.exe) topic_00000000000003D8 Private Shared TempString As String private static string TempString private: static String __gc* TempString; private static TempString : String Private TempString As String Textboxes Textboxes EDKB12WS.ModMain.Textboxes EDKB12WS (in EDKB12WS.exe) topic_00000000000003CC Private Shared Textboxes As String() private static string[] Textboxes private: static String __gc* Textboxes __gc[]; private static Textboxes : String[] Dim Textboxes(100) As String Textboxesi Textboxesi EDKB12WS.ModMain.Textboxesi EDKB12WS (in EDKB12WS.exe) topic_00000000000003CD Private Shared Textboxesi As Integer private static int Textboxesi private: static int Textboxesi; private static Textboxesi : int Dim Textboxesi As Integer Unterschriftlinks Unterschriftlinks EDKB12WS.ModMain.Unterschriftlinks EDKB12WS (in EDKB12WS.exe) topic_00000000000003A1 Private Shared Unterschriftlinks As Integer private static int Unterschriftlinks private: static int Unterschriftlinks; private static Unterschriftlinks : int Dim Unterschriftlinks As Integer Unterschriftrechts Unterschriftrechts EDKB12WS.ModMain.Unterschriftrechts EDKB12WS (in EDKB12WS.exe) topic_00000000000003A2 Private Shared Unterschriftrechts As Integer private static int Unterschriftrechts private: static int Unterschriftrechts; private static Unterschriftrechts : int Dim Unterschriftrechts As Integer args args EDKB12WS.ModMain.args EDKB12WS (in EDKB12WS.exe) topic_000000000000038B Private Shared args As String() private static string[] args private: static String __gc* args __gc[]; private static args : String[] Dim args As String() = Environment.GetCommandLineArgs() barcodeout barcodeout EDKB12WS.ModMain.barcodeout EDKB12WS (in EDKB12WS.exe) topic_00000000000003DC Private Shared barcodeout As Object private static object barcodeout private: static object __gc* barcodeout; private static barcodeout : object Private barcodeout tmpAction tmpAction EDKB12WS.ModMain.tmpAction EDKB12WS (in EDKB12WS.exe) topic_0000000000000393 Private Shared tmpAction As Action private static Action tmpAction private: static Action __gc* tmpAction; private static tmpAction : Action Dim tmpAction As Action xMitarbeiter xMitarbeiter EDKB12WS.ModMain.xMitarbeiter EDKB12WS (in EDKB12WS.exe) topic_0000000000000399 Private Shared xMitarbeiter As clsMyMitarbeiter private static clsMyMitarbeiter xMitarbeiter private: static clsMyMitarbeiter __gc* xMitarbeiter; private static xMitarbeiter : clsMyMitarbeiter Dim xMitarbeiter As New edokadb.clsMyMitarbeiter xdata xdata EDKB12WS.ModMain.xdata EDKB12WS (in EDKB12WS.exe) topic_000000000000039C Private Shared xdata As DataTable private static DataTable xdata private: static DataTable __gc* xdata; private static xdata : DataTable Dim xdata As New System.Data.DataTable Parameter Parameter EDKB12WS.Parameter EDKB12WS (in EDKB12WS.exe) topic_0000000000000018 Struct für einzelne Parameter Public Structure Parameter public struct Parameter public __value struct Parameter JScript suports the use of structures, but not the declaration of new ones. Public Structure Parameter Private _value As String Private _name As String Public Sub New(ByVal name As String, ByVal value As String) Try _value = value _name = name Catch ex As Exception 'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Parameter.New", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End Sub Public ReadOnly Property Value() As String Get Return _value End Get End Property Public ReadOnly Property Name() As String Get Return _name End Get End Property End Structure Name Value Parameter Constructor _name _value Parameter Constructor New EDKB12WS.Parameter.New EDKB12WS (in EDKB12WS.exe) topic_000000000000001B Public Sub New( _ ByVal name As String, _ ByVal value As String _) public Parameter( string name, string value) public: Parameter( String __gc* name, String __gc* value); public function Parameter( name : String, value : String); Public Sub New(ByVal name As String, ByVal value As String) Try _value = value _name = name Catch ex As Exception 'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Parameter.New", ex.Message & ex.StackTrace, TraceLevel.Error) Throw ex End Try End Sub Parameter.Name Name EDKB12WS.Parameter.Name EDKB12WS (in EDKB12WS.exe) topic_000000000000001D Public ReadOnly Property Name() As String public string Name {get;} public: String __gc* get_Name() public function get Name() : String; Public ReadOnly Property Name() As String Get Return _name End Get End Property Parameter.Value Value EDKB12WS.Parameter.Value EDKB12WS (in EDKB12WS.exe) topic_000000000000001C Public ReadOnly Property Value() As String public string Value {get;} public: String __gc* get_Value() public function get Value() : String; Public ReadOnly Property Value() As String Get Return _value End Get End Property _name _name EDKB12WS.Parameter._name EDKB12WS (in EDKB12WS.exe) topic_000000000000001A Private _name As String private string _name private: String __gc* _name; private _name : String Private _name As String _value _value EDKB12WS.Parameter._value EDKB12WS (in EDKB12WS.exe) topic_0000000000000019 Private _value As String private string _value private: String __gc* _value; private _value : String Private _value As String ActionType ActionType EDKB12WS.ActionType EDKB12WS (in EDKB12WS.exe) topic_000000000000001E Public Enum ActionType AnzeigePartnerdossier = 1 DokumentAnzeige = 2 DokumentErstellung = 3 DokumentBearbeitung = 4 Statusmutation = 5 HostDokumentAnzeige = 6 End Enum EDKB12WS.My EDKB12WS.My EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003E7 MySettings MySettingsProperty MySettings MySettings EDKB12WS.My.MySettings EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003E8 <Global.System.Runtime.CompilerServices.CompilerGenerated()> _<Global.System.CodeDom.Compiler.GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0")> _<Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _Friend NotInheritable Class MySettings Inherits ApplicationSettingsBase [Global.System.Runtime.CompilerServices.CompilerGenerated()][Global.System.CodeDom.Compiler.GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0")][Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]internal sealed class MySettings : ApplicationSettingsBase [Global.System.Runtime.CompilerServices.CompilerGenerated()][Global.System.CodeDom.Compiler.GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0")][Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]private __gc __sealed class MySettings : public ApplicationSettingsBase internal Global.System.Runtime.CompilerServices.CompilerGenerated() Global.System.CodeDom.Compiler.GeneratedCode("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0") Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)final class MySettings extends ApplicationSettingsBase System.Object System.Configuration.SettingsBase System.Configuration.ApplicationSettingsBase Equals Finalize GetHashCode GetPreviousVersion GetType Initialize MemberwiseClone OnPropertyChanged OnSettingChanging OnSettingsLoaded OnSettingsSaving ReferenceEquals Reload Reset Save Synchronized ToString Upgrade Context Default IsSynchronized Item Properties PropertyValues Providers SettingsKey PropertyChanged SettingChanging SettingsLoaded SettingsSaving defaultInstance MySettings.Default Default EDKB12WS.My.MySettings.Default EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003EA Public ReadOnly Shared Property Default() As MySettings public static MySettings Default {get;} public: static MySettings __gc* get_Default() public static function get Default() : MySettings; Public Shared ReadOnly Property [Default]() As MySettings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property defaultInstance defaultInstance EDKB12WS.My.MySettings.defaultInstance EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003E9 Private Shared defaultInstance As MySettings private static MySettings defaultInstance private: static MySettings __gc* defaultInstance; private static defaultInstance : MySettings Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) MySettingsProperty MySettingsProperty EDKB12WS.My.MySettingsProperty EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003EB <Global.Microsoft.VisualBasic.HideModuleName()> _<Global.System.Diagnostics.DebuggerNonUserCode()> _<Global.System.Runtime.CompilerServices.CompilerGenerated()> _Friend Module MySettingsProperty [Global.Microsoft.VisualBasic.HideModuleName()][Global.System.Diagnostics.DebuggerNonUserCode()][Global.System.Runtime.CompilerServices.CompilerGenerated()]internal sealed class MySettingsProperty [Global.Microsoft.VisualBasic.HideModuleName()][Global.System.Diagnostics.DebuggerNonUserCode()][Global.System.Runtime.CompilerServices.CompilerGenerated()]private __sealed __gc class MySettingsProperty internal Global.Microsoft.VisualBasic.HideModuleName() Global.System.Diagnostics.DebuggerNonUserCode() Global.System.Runtime.CompilerServices.CompilerGenerated()final class MySettingsProperty Equals Finalize GetHashCode GetType MemberwiseClone ReferenceEquals ToString Settings MySettingsProperty.Settings Settings EDKB12WS.My.MySettingsProperty.Settings EDKB12WS.My EDKB12WS (in EDKB12WS.exe) topic_00000000000003EC <Global.System.ComponentModel.Design.HelpKeyword("My.Settings")> _Friend ReadOnly Shared Property Settings() As MySettings [Global.System.ComponentModel.Design.HelpKeyword("My.Settings")]internal static MySettings Settings {get;} [Global.System.ComponentModel.Design.HelpKeyword("My.Settings")]public private: static MySettings __gc* get_Settings() internal Global.System.ComponentModel.Design.HelpKeyword("My.Settings")static function get Settings() : MySettings; Friend ReadOnly Property Settings() As Global.EDKB12WS.My.MySettings Get Return Global.EDKB12WS.My.MySettings.Default End Get End Property EDKB12WS.My.Resources EDKB12WS.My.Resources EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E1 Resources Resources Resources EDKB12WS.My.Resources.Resources EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E2 Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. <Global.System.CodeDom.Compiler.GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")> _<Global.System.Diagnostics.DebuggerNonUserCode()> _<Global.System.Runtime.CompilerServices.CompilerGenerated()> _<Global.Microsoft.VisualBasic.HideModuleName()> _Friend Module Resources [Global.System.CodeDom.Compiler.GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")][Global.System.Diagnostics.DebuggerNonUserCode()][Global.System.Runtime.CompilerServices.CompilerGenerated()][Global.Microsoft.VisualBasic.HideModuleName()]internal sealed class Resources [Global.System.CodeDom.Compiler.GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")][Global.System.Diagnostics.DebuggerNonUserCode()][Global.System.Runtime.CompilerServices.CompilerGenerated()][Global.Microsoft.VisualBasic.HideModuleName()]private __sealed __gc class Resources internal Global.System.CodeDom.Compiler.GeneratedCode("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0") Global.System.Diagnostics.DebuggerNonUserCode() Global.System.Runtime.CompilerServices.CompilerGenerated() Global.Microsoft.VisualBasic.HideModuleName()final class Resources Equals Finalize GetHashCode GetType MemberwiseClone ReferenceEquals ToString Culture ResourceManager resourceCulture resourceMan Resources.Culture Culture EDKB12WS.My.Resources.Resources.Culture EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E6 Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _Friend Shared Property Culture() As CultureInfo [Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]internal static CultureInfo Culture {get; set;} [Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]public private: static CultureInfo __gc* get_Culture()public private: static void set_Culture( CultureInfo __gc*) internal Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)static function get Culture() : CultureInfo;internal Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)static function set Culture(value : CultureInfo); Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property Resources.ResourceManager ResourceManager EDKB12WS.My.Resources.Resources.ResourceManager EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E5 Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _Friend ReadOnly Shared Property ResourceManager() As ResourceManager [Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]internal static ResourceManager ResourceManager {get;} [Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)]public private: static ResourceManager __gc* get_ResourceManager() internal Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)static function get ResourceManager() : ResourceManager; Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EDKB12WS.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property resourceCulture resourceCulture EDKB12WS.My.Resources.Resources.resourceCulture EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E4 Private Shared resourceCulture As CultureInfo private static CultureInfo resourceCulture private: static CultureInfo __gc* resourceCulture; private static resourceCulture : CultureInfo Private resourceCulture As Global.System.Globalization.CultureInfo resourceMan resourceMan EDKB12WS.My.Resources.Resources.resourceMan EDKB12WS.My.Resources EDKB12WS (in EDKB12WS.exe) topic_00000000000003E3 Private Shared resourceMan As ResourceManager private static ResourceManager resourceMan private: static ResourceManager __gc* resourceMan; private static resourceMan : ResourceManager Private resourceMan As Global.System.Resources.ResourceManager EDKB12WS.edokaDB EDKB12WS.edokaDB EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_000000000000027B clsMyMitarbeiter clsOffice_Vorlage_Datei clsMyMitarbeiter clsMyMitarbeiter EDKB12WS.edokaDB.clsMyMitarbeiter EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_000000000000027C Public Class clsMyMitarbeiter Inherits clsMitarbeiter public class clsMyMitarbeiter : clsMitarbeiter public __gc class clsMyMitarbeiter : public clsMitarbeiter public class clsMyMitarbeiter extends clsMitarbeiter System.Object EDKB12WS.edokadb.clsDBInteractionBase EDKB12WS.edokadb.clsMitarbeiter Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne SelectWithTGNummer ToString Update bAktiv bEdokaMesasge bEdoka_mail bJournalisierung bMailDirektVersenden bMailDokumentrueckgang bMailempfang bShowtip cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iFuermandant iFunktionnr iKlassifizierung iMandantnr iMitarbeiternr iMutierer iPartnernr iSprache sAnrede sConnectionString sEmail sFax sFunktion sKurzzeichen sName sRang sTelefon sTgnummer sUnterschrift_text sVorname xtgnummer clsMyMitarbeiter Constructor m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_iErrorCode m_scoMainConnection m_xtgnummer clsMyMitarbeiter.xtgnummer xtgnummer EDKB12WS.edokaDB.clsMyMitarbeiter.xtgnummer EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_000000000000027E Public Property xtgnummer() As String public string xtgnummer {get; set;} public: String __gc* get_xtgnummer()public: void set_xtgnummer( String __gc*) public function get xtgnummer() : String;public function set xtgnummer(value : String); Property xtgnummer() As String Get Return m_xtgnummer End Get Set(ByVal Value As String) m_xtgnummer = Value End Set End Property clsMyMitarbeiter.SelectWithTGNummer SelectWithTGNummer EDKB12WS.edokaDB.clsMyMitarbeiter.SelectWithTGNummer EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_000000000000027F Public Function SelectWithTGNummer() As DataTable public DataTable SelectWithTGNummer() public: DataTable __gc* SelectWithTGNummer(); public function SelectWithTGNummer() : DataTable; Public Function SelectWithTGNummer() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[sp_mitarbeiter_SelectWithTGNummer]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("mitarbeiter") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_xtgnummer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAllWithTGNummer' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Globals.CurrentMitarbeiterdata = dtToReturn Return dtToReturn Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function m_xtgnummer m_xtgnummer EDKB12WS.edokaDB.clsMyMitarbeiter.m_xtgnummer EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_000000000000027D Private m_xtgnummer As String private string m_xtgnummer private: String __gc* m_xtgnummer; private m_xtgnummer : String Private m_xtgnummer As String clsOffice_Vorlage_Datei clsOffice_Vorlage_Datei EDKB12WS.edokaDB.clsOffice_Vorlage_Datei EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C2 Public Class clsOffice_Vorlage_Datei Inherits clsDBInteractionBase public class clsOffice_Vorlage_Datei : clsDBInteractionBase public __gc class clsOffice_Vorlage_Datei : public clsDBInteractionBase public class clsOffice_Vorlage_Datei extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv bFreigegeben blobVorlage cpMainConnectionProvider daFragabe_am daMutiert_am daUebernahme_produktion iErrorCode iFreigabe_durch iMutierer iOffice_vorlage_dateinr iOffice_vorlagenr sConnectionString sDateiname clsOffice_Vorlage_Datei Constructor m_bAktiv m_bFreigegeben m_bMainConnectionIsCreatedLocal m_blobVorlage m_cpMainConnectionProvider m_daFragabe_am m_daMutiert_am m_daUebernahme_produktion m_iErrorCode m_iFreigabe_durch m_iMutierer m_iOffice_vorlage_dateinr m_iOffice_vorlagenr m_sDateiname m_scoMainConnection clsOffice_Vorlage_Datei Constructor New EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.New EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CE Public Sub New() public clsOffice_Vorlage_Datei() public: clsOffice_Vorlage_Datei(); public function clsOffice_Vorlage_Datei(); Public Sub New() ' // Nothing for now. End Sub clsOffice_Vorlage_Datei.bAktiv bAktiv EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.bAktiv EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D7 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsOffice_Vorlage_Datei.bFreigegeben bFreigegeben EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.bFreigegeben EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002DA Public Property bFreigegeben() As SqlBoolean public SqlBoolean bFreigegeben {get; set;} public: SqlBoolean get_bFreigegeben()public: void set_bFreigegeben( SqlBoolean) public function get bFreigegeben() : SqlBoolean;public function set bFreigegeben(value : SqlBoolean); Public Property [bFreigegeben]() As SqlBoolean Get Return m_bFreigegeben End Get Set(ByVal Value As SqlBoolean) m_bFreigegeben = Value End Set End Property clsOffice_Vorlage_Datei.blobVorlage blobVorlage EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.blobVorlage EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D6 Public Property blobVorlage() As SqlBinary public SqlBinary blobVorlage {get; set;} public: SqlBinary get_blobVorlage()public: void set_blobVorlage( SqlBinary) public function get blobVorlage() : SqlBinary;public function set blobVorlage(value : SqlBinary); Public Property [blobVorlage]() As SqlBinary Get Return m_blobVorlage End Get Set(ByVal Value As SqlBinary) m_blobVorlage = Value End Set End Property clsOffice_Vorlage_Datei.daFragabe_am daFragabe_am EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.daFragabe_am EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002DB Public Property daFragabe_am() As SqlDateTime public SqlDateTime daFragabe_am {get; set;} public: SqlDateTime get_daFragabe_am()public: void set_daFragabe_am( SqlDateTime) public function get daFragabe_am() : SqlDateTime;public function set daFragabe_am(value : SqlDateTime); Public Property [daFragabe_am]() As SqlDateTime Get Return m_daFragabe_am End Get Set(ByVal Value As SqlDateTime) m_daFragabe_am = Value End Set End Property clsOffice_Vorlage_Datei.daMutiert_am daMutiert_am EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.daMutiert_am EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D8 Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsOffice_Vorlage_Datei.daUebernahme_produktion daUebernahme_produktion EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.daUebernahme_produktion EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002DD Public Property daUebernahme_produktion() As SqlDateTime public SqlDateTime daUebernahme_produktion {get; set;} public: SqlDateTime get_daUebernahme_produktion()public: void set_daUebernahme_produktion( SqlDateTime) public function get daUebernahme_produktion() : SqlDateTime;public function set daUebernahme_produktion(value : SqlDateTime); Public Property [daUebernahme_produktion]() As SqlDateTime Get Return m_daUebernahme_produktion End Get Set(ByVal Value As SqlDateTime) m_daUebernahme_produktion = Value End Set End Property clsOffice_Vorlage_Datei.iFreigabe_durch iFreigabe_durch EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.iFreigabe_durch EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002DC Public Property iFreigabe_durch() As SqlInt32 public SqlInt32 iFreigabe_durch {get; set;} public: SqlInt32 get_iFreigabe_durch()public: void set_iFreigabe_durch( SqlInt32) public function get iFreigabe_durch() : SqlInt32;public function set iFreigabe_durch(value : SqlInt32); Public Property [iFreigabe_durch]() As SqlInt32 Get Return m_iFreigabe_durch End Get Set(ByVal Value As SqlInt32) m_iFreigabe_durch = Value End Set End Property clsOffice_Vorlage_Datei.iMutierer iMutierer EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.iMutierer EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D9 Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsOffice_Vorlage_Datei.iOffice_vorlage_dateinr iOffice_vorlage_dateinr EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.iOffice_vorlage_dateinr EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D4 Public Property iOffice_vorlage_dateinr() As SqlInt32 public SqlInt32 iOffice_vorlage_dateinr {get; set;} public: SqlInt32 get_iOffice_vorlage_dateinr()public: void set_iOffice_vorlage_dateinr( SqlInt32) public function get iOffice_vorlage_dateinr() : SqlInt32;public function set iOffice_vorlage_dateinr(value : SqlInt32); Public Property [iOffice_vorlage_dateinr]() As SqlInt32 Get Return m_iOffice_vorlage_dateinr End Get Set(ByVal Value As SqlInt32) Dim iOffice_vorlage_dateinrTmp As SqlInt32 = Value If iOffice_vorlage_dateinrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iOffice_vorlage_dateinr", "iOffice_vorlage_dateinr can't be NULL") End If m_iOffice_vorlage_dateinr = Value End Set End Property clsOffice_Vorlage_Datei.iOffice_vorlagenr iOffice_vorlagenr EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.iOffice_vorlagenr EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D5 Public Property iOffice_vorlagenr() As SqlInt32 public SqlInt32 iOffice_vorlagenr {get; set;} public: SqlInt32 get_iOffice_vorlagenr()public: void set_iOffice_vorlagenr( SqlInt32) public function get iOffice_vorlagenr() : SqlInt32;public function set iOffice_vorlagenr(value : SqlInt32); Public Property [iOffice_vorlagenr]() As SqlInt32 Get Return m_iOffice_vorlagenr End Get Set(ByVal Value As SqlInt32) m_iOffice_vorlagenr = Value End Set End Property clsOffice_Vorlage_Datei.sDateiname sDateiname EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.sDateiname EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002DE Public Property sDateiname() As SqlString public SqlString sDateiname {get; set;} public: SqlString get_sDateiname()public: void set_sDateiname( SqlString) public function get sDateiname() : SqlString;public function set sDateiname(value : SqlString); Public Property [sDateiname]() As SqlString Get Return m_sDateiname End Get Set(ByVal Value As SqlString) m_sDateiname = Value End Set End Property clsOffice_Vorlage_Datei.Delete Delete EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.Delete EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D1 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_Vorlage_Datei::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsOffice_Vorlage_Datei.Insert Insert EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.Insert EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CF Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) Dim iLength As Integer = 0 If Not m_blobVorlage.IsNull Then iLength = m_blobVorlage.Length End If scmCmdToExecute.Parameters.Add(New SqlParameter("@blobvorlage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobVorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfreigegeben", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFreigegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dafragabe_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daFragabe_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifreigabe_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFreigabe_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dauebernahme_produktion", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daUebernahme_produktion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_Vorlage_Datei::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsOffice_Vorlage_Datei.SelectAll SelectAll EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.SelectAll EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D3 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("Office_Vorlage_Datei") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_Vorlage_Datei::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsOffice_Vorlage_Datei.SelectOne SelectOne EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.SelectOne EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D2 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Office_Vorlage_Datei") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iOffice_vorlage_dateinr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlage_dateinr"), Integer)) If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then m_iOffice_vorlagenr = SqlInt32.Null Else m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer)) End If If dtToReturn.Rows(0)("vorlage") Is System.DBNull.Value Then m_blobVorlage = SqlBinary.Null Else m_blobVorlage = New SqlBinary(CType(dtToReturn.Rows(0)("vorlage"), Byte())) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("freigegeben") Is System.DBNull.Value Then m_bFreigegeben = SqlBoolean.Null Else m_bFreigegeben = New SqlBoolean(CType(dtToReturn.Rows(0)("freigegeben"), Boolean)) End If If dtToReturn.Rows(0)("fragabe_am") Is System.DBNull.Value Then m_daFragabe_am = SqlDateTime.Null Else m_daFragabe_am = New SqlDateTime(CType(dtToReturn.Rows(0)("fragabe_am"), Date)) End If If dtToReturn.Rows(0)("freigabe_durch") Is System.DBNull.Value Then m_iFreigabe_durch = SqlInt32.Null Else m_iFreigabe_durch = New SqlInt32(CType(dtToReturn.Rows(0)("freigabe_durch"), Integer)) End If If dtToReturn.Rows(0)("uebernahme_produktion") Is System.DBNull.Value Then m_daUebernahme_produktion = SqlDateTime.Null Else m_daUebernahme_produktion = New SqlDateTime(CType(dtToReturn.Rows(0)("uebernahme_produktion"), Date)) End If If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then m_sDateiname = SqlString.Null Else m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_Vorlage_Datei::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsOffice_Vorlage_Datei.Update Update EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.Update EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002D0 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) Dim iLength As Integer = 0 If Not m_blobVorlage.IsNull Then iLength = m_blobVorlage.Length End If scmCmdToExecute.Parameters.Add(New SqlParameter("@blobvorlage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobVorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfreigegeben", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFreigegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dafragabe_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daFragabe_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifreigabe_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFreigabe_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dauebernahme_produktion", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daUebernahme_produktion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_Vorlage_Datei::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_bAktiv EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C3 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bAktiv, m_bFreigegeben As SqlBoolean m_bFreigegeben m_bFreigegeben EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_bFreigegeben EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C4 Private m_bFreigegeben As SqlBoolean private SqlBoolean m_bFreigegeben private: SqlBoolean m_bFreigegeben; private m_bFreigegeben : SqlBoolean Private m_bAktiv, m_bFreigegeben As SqlBoolean m_blobVorlage m_blobVorlage EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_blobVorlage EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C8 Private m_blobVorlage As SqlBinary private SqlBinary m_blobVorlage private: SqlBinary m_blobVorlage; private m_blobVorlage : SqlBinary Private m_blobVorlage As SqlBinary m_daFragabe_am m_daFragabe_am EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_daFragabe_am EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C5 Private m_daFragabe_am As SqlDateTime private SqlDateTime m_daFragabe_am private: SqlDateTime m_daFragabe_am; private m_daFragabe_am : SqlDateTime Private m_daFragabe_am, m_daUebernahme_produktion, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_daMutiert_am EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C7 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daFragabe_am, m_daUebernahme_produktion, m_daMutiert_am As SqlDateTime m_daUebernahme_produktion m_daUebernahme_produktion EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_daUebernahme_produktion EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C6 Private m_daUebernahme_produktion As SqlDateTime private SqlDateTime m_daUebernahme_produktion private: SqlDateTime m_daUebernahme_produktion; private m_daUebernahme_produktion : SqlDateTime Private m_daFragabe_am, m_daUebernahme_produktion, m_daMutiert_am As SqlDateTime m_iFreigabe_durch m_iFreigabe_durch EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_iFreigabe_durch EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002C9 Private m_iFreigabe_durch As SqlInt32 private SqlInt32 m_iFreigabe_durch private: SqlInt32 m_iFreigabe_durch; private m_iFreigabe_durch : SqlInt32 Private m_iFreigabe_durch, m_iOffice_vorlage_dateinr, m_iOffice_vorlagenr, m_iMutierer As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_iMutierer EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CC Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iFreigabe_durch, m_iOffice_vorlage_dateinr, m_iOffice_vorlagenr, m_iMutierer As SqlInt32 m_iOffice_vorlage_dateinr m_iOffice_vorlage_dateinr EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_iOffice_vorlage_dateinr EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CA Private m_iOffice_vorlage_dateinr As SqlInt32 private SqlInt32 m_iOffice_vorlage_dateinr private: SqlInt32 m_iOffice_vorlage_dateinr; private m_iOffice_vorlage_dateinr : SqlInt32 Private m_iFreigabe_durch, m_iOffice_vorlage_dateinr, m_iOffice_vorlagenr, m_iMutierer As SqlInt32 m_iOffice_vorlagenr m_iOffice_vorlagenr EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_iOffice_vorlagenr EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CB Private m_iOffice_vorlagenr As SqlInt32 private SqlInt32 m_iOffice_vorlagenr private: SqlInt32 m_iOffice_vorlagenr; private m_iOffice_vorlagenr : SqlInt32 Private m_iFreigabe_durch, m_iOffice_vorlage_dateinr, m_iOffice_vorlagenr, m_iMutierer As SqlInt32 m_sDateiname m_sDateiname EDKB12WS.edokaDB.clsOffice_Vorlage_Datei.m_sDateiname EDKB12WS.edokaDB EDKB12WS (in EDKB12WS.exe) topic_00000000000002CD Private m_sDateiname As SqlString private SqlString m_sDateiname private: SqlString m_sDateiname; private m_sDateiname : SqlString Private m_sDateiname As SqlString EDKB12WS.edokadb EDKB12WS.edokadb EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000003C ICommonDBAccess LLBLError clsApplikation clsConnectionProvider clsDBInteractionBase clsDokument clsDokumenttyp clsIdvmakro_office_vorlage clsJournaleintrag clsKey_tabelle clsMitarbeiter clsMyDokumentDaten clsMyKey_Tabelle clsMyPartner clsOffice_vorlage clsPartner clsStatushistory clsVorlagenfeld clsApplikation clsApplikation EDKB12WS.edokadb.clsApplikation EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000003D Public Class clsApplikation Inherits clsDBInteractionBase public class clsApplikation : clsDBInteractionBase public __gc class clsApplikation : public clsDBInteractionBase public class clsApplikation extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv bNet_use bShowlogin cpMainConnectionProvider daErstellt_am daLetzer_ams_run daLetzter_cold_run daLetzter_host_run daLetzter_rdm_run daMutiert_am iAmsstunden iAnzahl_Cold_Viewer iApplikationsnr iBcfont_groesse iColdstunden iErrorCode iHoststunden iMandantnr iMutierer iRdmstunden iZeitintervall_in_Minuten sBarcode_font sColdgui sColdpassword sColdstart sColdsystem sColduser sConnectionString sDokument_server sLogisches_laufwerk sMailadresse sPasswort_excelvorlagen sPasswort_fileserver sPasswort_report sPasswort_vorlagenverwaltung sPasswort_wordvorlagen sPfad_dokumente sPfad_excel_vorlagen sPfad_reportdateien sPfad_temporaer_dokumente sPfad_word_vorlagen sReport_db sReport_server sUser_fileserver sUser_report sVersion sVideomenu clsApplikation Constructor m_bAktiv m_bMainConnectionIsCreatedLocal m_bNet_use m_bShowlogin m_cpMainConnectionProvider m_cutoverdate m_daErstellt_am m_daLetzer_ams_run m_daLetzter_cold_run m_daLetzter_host_run m_daLetzter_rdm_run m_daMutiert_am m_iAmsstunden m_iAnzahl_Cold_Viewer m_iApplikationsnr m_iBcfont_groesse m_iColdstunden m_iErrorCode m_iHoststunden m_iMandantnr m_iMutierer m_iRdmstunden m_iZeitintervall_in_Minuten m_sBarcode_font m_sColdgui m_sColdpassword m_sColdstart m_sColdsystem m_sColduser m_sDokument_server m_sLogisches_laufwerk m_sMailadresse m_sPasswort_excelvorlagen m_sPasswort_fileserver m_sPasswort_report m_sPasswort_vorlagenverwaltung m_sPasswort_wordvorlagen m_sPfad_dokumente m_sPfad_excel_vorlagen m_sPfad_reportdateien m_sPfad_temporaer_dokumente m_sPfad_word_vorlagen m_sReport_db m_sReport_server m_sUser_fileserver m_sUser_report m_sVersion m_sVideomenu m_scoMainConnection clsApplikation Constructor New EDKB12WS.edokadb.clsApplikation.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006B Public Sub New() public clsApplikation() public: clsApplikation(); public function clsApplikation(); Public Sub New() ' // Nothing for now. End Sub clsApplikation.bAktiv bAktiv EDKB12WS.edokadb.clsApplikation.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000088 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsApplikation.bNet_use bNet_use EDKB12WS.edokadb.clsApplikation.bNet_use EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000074 Public Property bNet_use() As SqlBoolean public SqlBoolean bNet_use {get; set;} public: SqlBoolean get_bNet_use()public: void set_bNet_use( SqlBoolean) public function get bNet_use() : SqlBoolean;public function set bNet_use(value : SqlBoolean); Public Property [bNet_use]() As SqlBoolean Get Return m_bNet_use End Get Set(ByVal Value As SqlBoolean) m_bNet_use = Value End Set End Property clsApplikation.bShowlogin bShowlogin EDKB12WS.edokadb.clsApplikation.bShowlogin EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000086 Public Property bShowlogin() As SqlBoolean public SqlBoolean bShowlogin {get; set;} public: SqlBoolean get_bShowlogin()public: void set_bShowlogin( SqlBoolean) public function get bShowlogin() : SqlBoolean;public function set bShowlogin(value : SqlBoolean); Public Property [bShowlogin]() As SqlBoolean Get Return m_bShowlogin End Get Set(ByVal Value As SqlBoolean) m_bShowlogin = Value End Set End Property clsApplikation.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsApplikation.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000089 Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsApplikation.daLetzer_ams_run daLetzer_ams_run EDKB12WS.edokadb.clsApplikation.daLetzer_ams_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008D Public Property daLetzer_ams_run() As SqlDateTime public SqlDateTime daLetzer_ams_run {get; set;} public: SqlDateTime get_daLetzer_ams_run()public: void set_daLetzer_ams_run( SqlDateTime) public function get daLetzer_ams_run() : SqlDateTime;public function set daLetzer_ams_run(value : SqlDateTime); Public Property [daLetzer_ams_run]() As SqlDateTime Get Return m_daLetzer_ams_run End Get Set(ByVal Value As SqlDateTime) m_daLetzer_ams_run = Value End Set End Property clsApplikation.daLetzter_cold_run daLetzter_cold_run EDKB12WS.edokadb.clsApplikation.daLetzter_cold_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008C Public Property daLetzter_cold_run() As SqlDateTime public SqlDateTime daLetzter_cold_run {get; set;} public: SqlDateTime get_daLetzter_cold_run()public: void set_daLetzter_cold_run( SqlDateTime) public function get daLetzter_cold_run() : SqlDateTime;public function set daLetzter_cold_run(value : SqlDateTime); Public Property [daLetzter_cold_run]() As SqlDateTime Get Return m_daLetzter_cold_run End Get Set(ByVal Value As SqlDateTime) m_daLetzter_cold_run = Value End Set End Property clsApplikation.daLetzter_host_run daLetzter_host_run EDKB12WS.edokadb.clsApplikation.daLetzter_host_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008F Public Property daLetzter_host_run() As SqlDateTime public SqlDateTime daLetzter_host_run {get; set;} public: SqlDateTime get_daLetzter_host_run()public: void set_daLetzter_host_run( SqlDateTime) public function get daLetzter_host_run() : SqlDateTime;public function set daLetzter_host_run(value : SqlDateTime); Public Property [daLetzter_host_run]() As SqlDateTime Get Return m_daLetzter_host_run End Get Set(ByVal Value As SqlDateTime) m_daLetzter_host_run = Value End Set End Property clsApplikation.daLetzter_rdm_run daLetzter_rdm_run EDKB12WS.edokadb.clsApplikation.daLetzter_rdm_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008E Public Property daLetzter_rdm_run() As SqlDateTime public SqlDateTime daLetzter_rdm_run {get; set;} public: SqlDateTime get_daLetzter_rdm_run()public: void set_daLetzter_rdm_run( SqlDateTime) public function get daLetzter_rdm_run() : SqlDateTime;public function set daLetzter_rdm_run(value : SqlDateTime); Public Property [daLetzter_rdm_run]() As SqlDateTime Get Return m_daLetzter_rdm_run End Get Set(ByVal Value As SqlDateTime) m_daLetzter_rdm_run = Value End Set End Property clsApplikation.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsApplikation.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008A Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsApplikation.iAmsstunden iAmsstunden EDKB12WS.edokadb.clsApplikation.iAmsstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000092 Public Property iAmsstunden() As SqlInt32 public SqlInt32 iAmsstunden {get; set;} public: SqlInt32 get_iAmsstunden()public: void set_iAmsstunden( SqlInt32) public function get iAmsstunden() : SqlInt32;public function set iAmsstunden(value : SqlInt32); Public Property [iAmsstunden]() As SqlInt32 Get Return m_iAmsstunden End Get Set(ByVal Value As SqlInt32) m_iAmsstunden = Value End Set End Property clsApplikation.iAnzahl_Cold_Viewer iAnzahl_Cold_Viewer EDKB12WS.edokadb.clsApplikation.iAnzahl_Cold_Viewer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000099 Public Property iAnzahl_Cold_Viewer() As SqlInt32 public SqlInt32 iAnzahl_Cold_Viewer {get; set;} public: SqlInt32 get_iAnzahl_Cold_Viewer()public: void set_iAnzahl_Cold_Viewer( SqlInt32) public function get iAnzahl_Cold_Viewer() : SqlInt32;public function set iAnzahl_Cold_Viewer(value : SqlInt32); Public Property [iAnzahl_Cold_Viewer]() As SqlInt32 Get Return m_iAnzahl_Cold_Viewer End Get Set(ByVal Value As SqlInt32) m_iAnzahl_Cold_Viewer = Value End Set End Property clsApplikation.iApplikationsnr iApplikationsnr EDKB12WS.edokadb.clsApplikation.iApplikationsnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000071 Public Property iApplikationsnr() As SqlInt32 public SqlInt32 iApplikationsnr {get; set;} public: SqlInt32 get_iApplikationsnr()public: void set_iApplikationsnr( SqlInt32) public function get iApplikationsnr() : SqlInt32;public function set iApplikationsnr(value : SqlInt32); Public Property [iApplikationsnr]() As SqlInt32 Get Return m_iApplikationsnr End Get Set(ByVal Value As SqlInt32) Dim iApplikationsnrTmp As SqlInt32 = Value If iApplikationsnrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iApplikationsnr", "iApplikationsnr can't be NULL") End If m_iApplikationsnr = Value End Set End Property clsApplikation.iBcfont_groesse iBcfont_groesse EDKB12WS.edokadb.clsApplikation.iBcfont_groesse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000084 Public Property iBcfont_groesse() As SqlInt32 public SqlInt32 iBcfont_groesse {get; set;} public: SqlInt32 get_iBcfont_groesse()public: void set_iBcfont_groesse( SqlInt32) public function get iBcfont_groesse() : SqlInt32;public function set iBcfont_groesse(value : SqlInt32); Public Property [iBcfont_groesse]() As SqlInt32 Get Return m_iBcfont_groesse End Get Set(ByVal Value As SqlInt32) m_iBcfont_groesse = Value End Set End Property clsApplikation.iColdstunden iColdstunden EDKB12WS.edokadb.clsApplikation.iColdstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000091 Public Property iColdstunden() As SqlInt32 public SqlInt32 iColdstunden {get; set;} public: SqlInt32 get_iColdstunden()public: void set_iColdstunden( SqlInt32) public function get iColdstunden() : SqlInt32;public function set iColdstunden(value : SqlInt32); Public Property [iColdstunden]() As SqlInt32 Get Return m_iColdstunden End Get Set(ByVal Value As SqlInt32) m_iColdstunden = Value End Set End Property clsApplikation.iHoststunden iHoststunden EDKB12WS.edokadb.clsApplikation.iHoststunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000093 Public Property iHoststunden() As SqlInt32 public SqlInt32 iHoststunden {get; set;} public: SqlInt32 get_iHoststunden()public: void set_iHoststunden( SqlInt32) public function get iHoststunden() : SqlInt32;public function set iHoststunden(value : SqlInt32); Public Property [iHoststunden]() As SqlInt32 Get Return m_iHoststunden End Get Set(ByVal Value As SqlInt32) m_iHoststunden = Value End Set End Property clsApplikation.iMandantnr iMandantnr EDKB12WS.edokadb.clsApplikation.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000087 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsApplikation.iMutierer iMutierer EDKB12WS.edokadb.clsApplikation.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000008B Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsApplikation.iRdmstunden iRdmstunden EDKB12WS.edokadb.clsApplikation.iRdmstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000090 Public Property iRdmstunden() As SqlInt32 public SqlInt32 iRdmstunden {get; set;} public: SqlInt32 get_iRdmstunden()public: void set_iRdmstunden( SqlInt32) public function get iRdmstunden() : SqlInt32;public function set iRdmstunden(value : SqlInt32); Public Property [iRdmstunden]() As SqlInt32 Get Return m_iRdmstunden End Get Set(ByVal Value As SqlInt32) m_iRdmstunden = Value End Set End Property clsApplikation.iZeitintervall_in_Minuten iZeitintervall_in_Minuten EDKB12WS.edokadb.clsApplikation.iZeitintervall_in_Minuten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009A Public Property iZeitintervall_in_Minuten() As SqlInt32 public SqlInt32 iZeitintervall_in_Minuten {get; set;} public: SqlInt32 get_iZeitintervall_in_Minuten()public: void set_iZeitintervall_in_Minuten( SqlInt32) public function get iZeitintervall_in_Minuten() : SqlInt32;public function set iZeitintervall_in_Minuten(value : SqlInt32); Public Property [iZeitintervall_in_Minuten]() As SqlInt32 Get Return m_iZeitintervall_in_Minuten End Get Set(ByVal Value As SqlInt32) m_iZeitintervall_in_Minuten = Value End Set End Property clsApplikation.sBarcode_font sBarcode_font EDKB12WS.edokadb.clsApplikation.sBarcode_font EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000083 Public Property sBarcode_font() As SqlString public SqlString sBarcode_font {get; set;} public: SqlString get_sBarcode_font()public: void set_sBarcode_font( SqlString) public function get sBarcode_font() : SqlString;public function set sBarcode_font(value : SqlString); Public Property [sBarcode_font]() As SqlString Get Return m_sBarcode_font End Get Set(ByVal Value As SqlString) m_sBarcode_font = Value End Set End Property clsApplikation.sColdgui sColdgui EDKB12WS.edokadb.clsApplikation.sColdgui EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000097 Public Property sColdgui() As SqlString public SqlString sColdgui {get; set;} public: SqlString get_sColdgui()public: void set_sColdgui( SqlString) public function get sColdgui() : SqlString;public function set sColdgui(value : SqlString); Public Property [sColdgui]() As SqlString Get Return m_sColdgui End Get Set(ByVal Value As SqlString) m_sColdgui = Value End Set End Property clsApplikation.sColdpassword sColdpassword EDKB12WS.edokadb.clsApplikation.sColdpassword EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000096 Public Property sColdpassword() As SqlString public SqlString sColdpassword {get; set;} public: SqlString get_sColdpassword()public: void set_sColdpassword( SqlString) public function get sColdpassword() : SqlString;public function set sColdpassword(value : SqlString); Public Property [sColdpassword]() As SqlString Get Return m_sColdpassword End Get Set(ByVal Value As SqlString) m_sColdpassword = Value End Set End Property clsApplikation.sColdstart sColdstart EDKB12WS.edokadb.clsApplikation.sColdstart EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009B Public Property sColdstart() As SqlString public SqlString sColdstart {get; set;} public: SqlString get_sColdstart()public: void set_sColdstart( SqlString) public function get sColdstart() : SqlString;public function set sColdstart(value : SqlString); Public Property [sColdstart]() As SqlString Get Return m_sColdstart End Get Set(ByVal Value As SqlString) m_sColdstart = Value End Set End Property clsApplikation.sColdsystem sColdsystem EDKB12WS.edokadb.clsApplikation.sColdsystem EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000094 Public Property sColdsystem() As SqlString public SqlString sColdsystem {get; set;} public: SqlString get_sColdsystem()public: void set_sColdsystem( SqlString) public function get sColdsystem() : SqlString;public function set sColdsystem(value : SqlString); Public Property [sColdsystem]() As SqlString Get Return m_sColdsystem End Get Set(ByVal Value As SqlString) m_sColdsystem = Value End Set End Property clsApplikation.sColduser sColduser EDKB12WS.edokadb.clsApplikation.sColduser EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000095 Public Property sColduser() As SqlString public SqlString sColduser {get; set;} public: SqlString get_sColduser()public: void set_sColduser( SqlString) public function get sColduser() : SqlString;public function set sColduser(value : SqlString); Public Property [sColduser]() As SqlString Get Return m_sColduser End Get Set(ByVal Value As SqlString) m_sColduser = Value End Set End Property clsApplikation.sDokument_server sDokument_server EDKB12WS.edokadb.clsApplikation.sDokument_server EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000073 Public Property sDokument_server() As SqlString public SqlString sDokument_server {get; set;} public: SqlString get_sDokument_server()public: void set_sDokument_server( SqlString) public function get sDokument_server() : SqlString;public function set sDokument_server(value : SqlString); Public Property [sDokument_server]() As SqlString Get Return m_sDokument_server End Get Set(ByVal Value As SqlString) m_sDokument_server = Value End Set End Property clsApplikation.sLogisches_laufwerk sLogisches_laufwerk EDKB12WS.edokadb.clsApplikation.sLogisches_laufwerk EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000075 Public Property sLogisches_laufwerk() As SqlString public SqlString sLogisches_laufwerk {get; set;} public: SqlString get_sLogisches_laufwerk()public: void set_sLogisches_laufwerk( SqlString) public function get sLogisches_laufwerk() : SqlString;public function set sLogisches_laufwerk(value : SqlString); Public Property [sLogisches_laufwerk]() As SqlString Get Return m_sLogisches_laufwerk End Get Set(ByVal Value As SqlString) m_sLogisches_laufwerk = Value End Set End Property clsApplikation.sMailadresse sMailadresse EDKB12WS.edokadb.clsApplikation.sMailadresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000085 Public Property sMailadresse() As SqlString public SqlString sMailadresse {get; set;} public: SqlString get_sMailadresse()public: void set_sMailadresse( SqlString) public function get sMailadresse() : SqlString;public function set sMailadresse(value : SqlString); Public Property [sMailadresse]() As SqlString Get Return m_sMailadresse End Get Set(ByVal Value As SqlString) m_sMailadresse = Value End Set End Property clsApplikation.sPasswort_excelvorlagen sPasswort_excelvorlagen EDKB12WS.edokadb.clsApplikation.sPasswort_excelvorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007D Public Property sPasswort_excelvorlagen() As SqlString public SqlString sPasswort_excelvorlagen {get; set;} public: SqlString get_sPasswort_excelvorlagen()public: void set_sPasswort_excelvorlagen( SqlString) public function get sPasswort_excelvorlagen() : SqlString;public function set sPasswort_excelvorlagen(value : SqlString); Public Property [sPasswort_excelvorlagen]() As SqlString Get Return m_sPasswort_excelvorlagen End Get Set(ByVal Value As SqlString) m_sPasswort_excelvorlagen = Value End Set End Property clsApplikation.sPasswort_fileserver sPasswort_fileserver EDKB12WS.edokadb.clsApplikation.sPasswort_fileserver EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007B Public Property sPasswort_fileserver() As SqlString public SqlString sPasswort_fileserver {get; set;} public: SqlString get_sPasswort_fileserver()public: void set_sPasswort_fileserver( SqlString) public function get sPasswort_fileserver() : SqlString;public function set sPasswort_fileserver(value : SqlString); Public Property [sPasswort_fileserver]() As SqlString Get Return m_sPasswort_fileserver End Get Set(ByVal Value As SqlString) m_sPasswort_fileserver = Value End Set End Property clsApplikation.sPasswort_report sPasswort_report EDKB12WS.edokadb.clsApplikation.sPasswort_report EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000082 Public Property sPasswort_report() As SqlString public SqlString sPasswort_report {get; set;} public: SqlString get_sPasswort_report()public: void set_sPasswort_report( SqlString) public function get sPasswort_report() : SqlString;public function set sPasswort_report(value : SqlString); Public Property [sPasswort_report]() As SqlString Get Return m_sPasswort_report End Get Set(ByVal Value As SqlString) m_sPasswort_report = Value End Set End Property clsApplikation.sPasswort_vorlagenverwaltung sPasswort_vorlagenverwaltung EDKB12WS.edokadb.clsApplikation.sPasswort_vorlagenverwaltung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000098 Public Property sPasswort_vorlagenverwaltung() As SqlString public SqlString sPasswort_vorlagenverwaltung {get; set;} public: SqlString get_sPasswort_vorlagenverwaltung()public: void set_sPasswort_vorlagenverwaltung( SqlString) public function get sPasswort_vorlagenverwaltung() : SqlString;public function set sPasswort_vorlagenverwaltung(value : SqlString); Public Property [sPasswort_vorlagenverwaltung]() As SqlString Get Return m_sPasswort_vorlagenverwaltung End Get Set(ByVal Value As SqlString) m_sPasswort_vorlagenverwaltung = Value End Set End Property clsApplikation.sPasswort_wordvorlagen sPasswort_wordvorlagen EDKB12WS.edokadb.clsApplikation.sPasswort_wordvorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007C Public Property sPasswort_wordvorlagen() As SqlString public SqlString sPasswort_wordvorlagen {get; set;} public: SqlString get_sPasswort_wordvorlagen()public: void set_sPasswort_wordvorlagen( SqlString) public function get sPasswort_wordvorlagen() : SqlString;public function set sPasswort_wordvorlagen(value : SqlString); Public Property [sPasswort_wordvorlagen]() As SqlString Get Return m_sPasswort_wordvorlagen End Get Set(ByVal Value As SqlString) m_sPasswort_wordvorlagen = Value End Set End Property clsApplikation.sPfad_dokumente sPfad_dokumente EDKB12WS.edokadb.clsApplikation.sPfad_dokumente EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000076 Public Property sPfad_dokumente() As SqlString public SqlString sPfad_dokumente {get; set;} public: SqlString get_sPfad_dokumente()public: void set_sPfad_dokumente( SqlString) public function get sPfad_dokumente() : SqlString;public function set sPfad_dokumente(value : SqlString); Public Property [sPfad_dokumente]() As SqlString Get Return m_sPfad_dokumente End Get Set(ByVal Value As SqlString) m_sPfad_dokumente = Value End Set End Property clsApplikation.sPfad_excel_vorlagen sPfad_excel_vorlagen EDKB12WS.edokadb.clsApplikation.sPfad_excel_vorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000078 Public Property sPfad_excel_vorlagen() As SqlString public SqlString sPfad_excel_vorlagen {get; set;} public: SqlString get_sPfad_excel_vorlagen()public: void set_sPfad_excel_vorlagen( SqlString) public function get sPfad_excel_vorlagen() : SqlString;public function set sPfad_excel_vorlagen(value : SqlString); Public Property [sPfad_excel_vorlagen]() As SqlString Get Return m_sPfad_excel_vorlagen End Get Set(ByVal Value As SqlString) m_sPfad_excel_vorlagen = Value End Set End Property clsApplikation.sPfad_reportdateien sPfad_reportdateien EDKB12WS.edokadb.clsApplikation.sPfad_reportdateien EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000080 Public Property sPfad_reportdateien() As SqlString public SqlString sPfad_reportdateien {get; set;} public: SqlString get_sPfad_reportdateien()public: void set_sPfad_reportdateien( SqlString) public function get sPfad_reportdateien() : SqlString;public function set sPfad_reportdateien(value : SqlString); Public Property [sPfad_reportdateien]() As SqlString Get Return m_sPfad_reportdateien End Get Set(ByVal Value As SqlString) m_sPfad_reportdateien = Value End Set End Property clsApplikation.sPfad_temporaer_dokumente sPfad_temporaer_dokumente EDKB12WS.edokadb.clsApplikation.sPfad_temporaer_dokumente EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000079 Public Property sPfad_temporaer_dokumente() As SqlString public SqlString sPfad_temporaer_dokumente {get; set;} public: SqlString get_sPfad_temporaer_dokumente()public: void set_sPfad_temporaer_dokumente( SqlString) public function get sPfad_temporaer_dokumente() : SqlString;public function set sPfad_temporaer_dokumente(value : SqlString); Public Property [sPfad_temporaer_dokumente]() As SqlString Get Return m_sPfad_temporaer_dokumente End Get Set(ByVal Value As SqlString) m_sPfad_temporaer_dokumente = Value End Set End Property clsApplikation.sPfad_word_vorlagen sPfad_word_vorlagen EDKB12WS.edokadb.clsApplikation.sPfad_word_vorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000077 Public Property sPfad_word_vorlagen() As SqlString public SqlString sPfad_word_vorlagen {get; set;} public: SqlString get_sPfad_word_vorlagen()public: void set_sPfad_word_vorlagen( SqlString) public function get sPfad_word_vorlagen() : SqlString;public function set sPfad_word_vorlagen(value : SqlString); Public Property [sPfad_word_vorlagen]() As SqlString Get Return m_sPfad_word_vorlagen End Get Set(ByVal Value As SqlString) m_sPfad_word_vorlagen = Value End Set End Property clsApplikation.sReport_db sReport_db EDKB12WS.edokadb.clsApplikation.sReport_db EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007E Public Property sReport_db() As SqlString public SqlString sReport_db {get; set;} public: SqlString get_sReport_db()public: void set_sReport_db( SqlString) public function get sReport_db() : SqlString;public function set sReport_db(value : SqlString); Public Property [sReport_db]() As SqlString Get Return m_sReport_db End Get Set(ByVal Value As SqlString) m_sReport_db = Value End Set End Property clsApplikation.sReport_server sReport_server EDKB12WS.edokadb.clsApplikation.sReport_server EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007F Public Property sReport_server() As SqlString public SqlString sReport_server {get; set;} public: SqlString get_sReport_server()public: void set_sReport_server( SqlString) public function get sReport_server() : SqlString;public function set sReport_server(value : SqlString); Public Property [sReport_server]() As SqlString Get Return m_sReport_server End Get Set(ByVal Value As SqlString) m_sReport_server = Value End Set End Property clsApplikation.sUser_fileserver sUser_fileserver EDKB12WS.edokadb.clsApplikation.sUser_fileserver EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000007A Public Property sUser_fileserver() As SqlString public SqlString sUser_fileserver {get; set;} public: SqlString get_sUser_fileserver()public: void set_sUser_fileserver( SqlString) public function get sUser_fileserver() : SqlString;public function set sUser_fileserver(value : SqlString); Public Property [sUser_fileserver]() As SqlString Get Return m_sUser_fileserver End Get Set(ByVal Value As SqlString) m_sUser_fileserver = Value End Set End Property clsApplikation.sUser_report sUser_report EDKB12WS.edokadb.clsApplikation.sUser_report EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000081 Public Property sUser_report() As SqlString public SqlString sUser_report {get; set;} public: SqlString get_sUser_report()public: void set_sUser_report( SqlString) public function get sUser_report() : SqlString;public function set sUser_report(value : SqlString); Public Property [sUser_report]() As SqlString Get Return m_sUser_report End Get Set(ByVal Value As SqlString) m_sUser_report = Value End Set End Property clsApplikation.sVersion sVersion EDKB12WS.edokadb.clsApplikation.sVersion EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000072 Public Property sVersion() As SqlString public SqlString sVersion {get; set;} public: SqlString get_sVersion()public: void set_sVersion( SqlString) public function get sVersion() : SqlString;public function set sVersion(value : SqlString); Public Property [sVersion]() As SqlString Get Return m_sVersion End Get Set(ByVal Value As SqlString) m_sVersion = Value End Set End Property clsApplikation.sVideomenu sVideomenu EDKB12WS.edokadb.clsApplikation.sVideomenu EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009C Public Property sVideomenu() As SqlString public SqlString sVideomenu {get; set;} public: SqlString get_sVideomenu()public: void set_sVideomenu( SqlString) public function get sVideomenu() : SqlString;public function set sVideomenu(value : SqlString); Public Property [sVideomenu]() As SqlString Get Return m_sVideomenu End Get Set(ByVal Value As SqlString) m_sVideomenu = Value End Set End Property clsApplikation.Delete Delete EDKB12WS.edokadb.clsApplikation.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006E Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_applikation_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_applikation_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsApplikation::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsApplikation.Insert Insert EDKB12WS.edokadb.clsApplikation.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006C Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_applikation_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokument_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokument_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bnet_use", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNet_use)) scmCmdToExecute.Parameters.Add(New SqlParameter("@slogisches_laufwerk", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLogisches_laufwerk)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_word_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_word_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_excel_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_excel_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_temporaer_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_temporaer_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_wordvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_wordvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_excelvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_excelvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_db", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_db)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_reportdateien", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_reportdateien)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbarcode_font", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBarcode_font)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcfont_groesse", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcfont_groesse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@smailadresse", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bShowlogin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_cold_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_cold_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzer_ams_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzer_ams_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_rdm_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_rdm_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_host_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_host_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@irdmstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRdmstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iamsstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAmsstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ihoststunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iHoststunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldsystem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdsystem)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolduser", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColduser)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldpassword", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdpassword)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldgui", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdgui)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sPasswort_vorlagenverwaltung", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_vorlagenverwaltung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzahl_Cold_Viewer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_Cold_Viewer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitintervall_in_Minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitintervall_in_Minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldstart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdstart)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svideomenu", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVideomenu)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_applikation_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsApplikation::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsApplikation.SelectAll SelectAll EDKB12WS.edokadb.clsApplikation.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000070 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_applikation_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("applikation") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_applikation_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsApplikation::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsApplikation.SelectOne SelectOne EDKB12WS.edokadb.clsApplikation.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006F Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_applikation_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("applikation") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_applikation_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iApplikationsnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationsnr"), Integer)) If dtToReturn.Rows(0)("version") Is System.DBNull.Value Then m_sVersion = SqlString.Null Else m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("version"), String)) End If If dtToReturn.Rows(0)("dokument_server") Is System.DBNull.Value Then m_sDokument_server = SqlString.Null Else m_sDokument_server = New SqlString(CType(dtToReturn.Rows(0)("dokument_server"), String)) End If If dtToReturn.Rows(0)("net_use") Is System.DBNull.Value Then m_bNet_use = SqlBoolean.Null Else m_bNet_use = New SqlBoolean(CType(dtToReturn.Rows(0)("net_use"), Boolean)) End If If dtToReturn.Rows(0)("logisches_laufwerk") Is System.DBNull.Value Then m_sLogisches_laufwerk = SqlString.Null Else m_sLogisches_laufwerk = New SqlString(CType(dtToReturn.Rows(0)("logisches_laufwerk"), String)) End If If dtToReturn.Rows(0)("pfad_dokumente") Is System.DBNull.Value Then m_sPfad_dokumente = SqlString.Null Else m_sPfad_dokumente = New SqlString(CType(dtToReturn.Rows(0)("pfad_dokumente"), String)) End If If dtToReturn.Rows(0)("pfad_word_vorlagen") Is System.DBNull.Value Then m_sPfad_word_vorlagen = SqlString.Null Else m_sPfad_word_vorlagen = New SqlString(CType(dtToReturn.Rows(0)("pfad_word_vorlagen"), String)) End If If dtToReturn.Rows(0)("pfad_excel_vorlagen") Is System.DBNull.Value Then m_sPfad_excel_vorlagen = SqlString.Null Else m_sPfad_excel_vorlagen = New SqlString(CType(dtToReturn.Rows(0)("pfad_excel_vorlagen"), String)) End If If dtToReturn.Rows(0)("pfad_temporaer_dokumente") Is System.DBNull.Value Then m_sPfad_temporaer_dokumente = SqlString.Null Else m_sPfad_temporaer_dokumente = New SqlString(CType(dtToReturn.Rows(0)("pfad_temporaer_dokumente"), String)) End If If dtToReturn.Rows(0)("user_fileserver") Is System.DBNull.Value Then m_sUser_fileserver = SqlString.Null Else m_sUser_fileserver = New SqlString(CType(dtToReturn.Rows(0)("user_fileserver"), String)) End If If dtToReturn.Rows(0)("passwort_fileserver") Is System.DBNull.Value Then m_sPasswort_fileserver = SqlString.Null Else m_sPasswort_fileserver = New SqlString(CType(dtToReturn.Rows(0)("passwort_fileserver"), String)) End If If dtToReturn.Rows(0)("passwort_wordvorlagen") Is System.DBNull.Value Then m_sPasswort_wordvorlagen = SqlString.Null Else m_sPasswort_wordvorlagen = New SqlString(CType(dtToReturn.Rows(0)("passwort_wordvorlagen"), String)) End If If dtToReturn.Rows(0)("passwort_excelvorlagen") Is System.DBNull.Value Then m_sPasswort_excelvorlagen = SqlString.Null Else m_sPasswort_excelvorlagen = New SqlString(CType(dtToReturn.Rows(0)("passwort_excelvorlagen"), String)) End If If dtToReturn.Rows(0)("report_db") Is System.DBNull.Value Then m_sReport_db = SqlString.Null Else m_sReport_db = New SqlString(CType(dtToReturn.Rows(0)("report_db"), String)) End If If dtToReturn.Rows(0)("report_server") Is System.DBNull.Value Then m_sReport_server = SqlString.Null Else m_sReport_server = New SqlString(CType(dtToReturn.Rows(0)("report_server"), String)) End If If dtToReturn.Rows(0)("pfad_reportdateien") Is System.DBNull.Value Then m_sPfad_reportdateien = SqlString.Null Else m_sPfad_reportdateien = New SqlString(CType(dtToReturn.Rows(0)("pfad_reportdateien"), String)) End If If dtToReturn.Rows(0)("user_report") Is System.DBNull.Value Then m_sUser_report = SqlString.Null Else m_sUser_report = New SqlString(CType(dtToReturn.Rows(0)("user_report"), String)) End If If dtToReturn.Rows(0)("passwort_report") Is System.DBNull.Value Then m_sPasswort_report = SqlString.Null Else m_sPasswort_report = New SqlString(CType(dtToReturn.Rows(0)("passwort_report"), String)) End If If dtToReturn.Rows(0)("barcode_font") Is System.DBNull.Value Then m_sBarcode_font = SqlString.Null Else m_sBarcode_font = New SqlString(CType(dtToReturn.Rows(0)("barcode_font"), String)) End If If dtToReturn.Rows(0)("bcfont_groesse") Is System.DBNull.Value Then m_iBcfont_groesse = SqlInt32.Null Else m_iBcfont_groesse = New SqlInt32(CType(dtToReturn.Rows(0)("bcfont_groesse"), Integer)) End If If dtToReturn.Rows(0)("mailadresse") Is System.DBNull.Value Then m_sMailadresse = SqlString.Null Else m_sMailadresse = New SqlString(CType(dtToReturn.Rows(0)("mailadresse"), String)) End If If dtToReturn.Rows(0)("showlogin") Is System.DBNull.Value Then m_bShowlogin = SqlBoolean.Null Else m_bShowlogin = New SqlBoolean(CType(dtToReturn.Rows(0)("showlogin"), Boolean)) End If If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("letzter_cold_run") Is System.DBNull.Value Then m_daLetzter_cold_run = SqlDateTime.Null Else m_daLetzter_cold_run = New SqlDateTime(CType(dtToReturn.Rows(0)("letzter_cold_run"), Date)) End If If dtToReturn.Rows(0)("letzer_ams_run") Is System.DBNull.Value Then m_daLetzer_ams_run = SqlDateTime.Null Else m_daLetzer_ams_run = New SqlDateTime(CType(dtToReturn.Rows(0)("letzer_ams_run"), Date)) End If If dtToReturn.Rows(0)("letzter_rdm_run") Is System.DBNull.Value Then m_daLetzter_rdm_run = SqlDateTime.Null Else m_daLetzter_rdm_run = New SqlDateTime(CType(dtToReturn.Rows(0)("letzter_rdm_run"), Date)) End If If dtToReturn.Rows(0)("letzter_host_run") Is System.DBNull.Value Then m_daLetzter_host_run = SqlDateTime.Null Else m_daLetzter_host_run = New SqlDateTime(CType(dtToReturn.Rows(0)("letzter_host_run"), Date)) End If If dtToReturn.Rows(0)("rdmstunden") Is System.DBNull.Value Then m_iRdmstunden = SqlInt32.Null Else m_iRdmstunden = New SqlInt32(CType(dtToReturn.Rows(0)("rdmstunden"), Integer)) End If If dtToReturn.Rows(0)("coldstunden") Is System.DBNull.Value Then m_iColdstunden = SqlInt32.Null Else m_iColdstunden = New SqlInt32(CType(dtToReturn.Rows(0)("coldstunden"), Integer)) End If If dtToReturn.Rows(0)("amsstunden") Is System.DBNull.Value Then m_iAmsstunden = SqlInt32.Null Else m_iAmsstunden = New SqlInt32(CType(dtToReturn.Rows(0)("amsstunden"), Integer)) End If If dtToReturn.Rows(0)("hoststunden") Is System.DBNull.Value Then m_iHoststunden = SqlInt32.Null Else m_iHoststunden = New SqlInt32(CType(dtToReturn.Rows(0)("hoststunden"), Integer)) End If If dtToReturn.Rows(0)("coldsystem") Is System.DBNull.Value Then m_sColdsystem = SqlString.Null Else m_sColdsystem = New SqlString(CType(dtToReturn.Rows(0)("coldsystem"), String)) End If If dtToReturn.Rows(0)("colduser") Is System.DBNull.Value Then m_sColduser = SqlString.Null Else m_sColduser = New SqlString(CType(dtToReturn.Rows(0)("colduser"), String)) End If If dtToReturn.Rows(0)("coldpassword") Is System.DBNull.Value Then m_sColdpassword = SqlString.Null Else m_sColdpassword = New SqlString(CType(dtToReturn.Rows(0)("coldpassword"), String)) End If If dtToReturn.Rows(0)("coldgui") Is System.DBNull.Value Then m_sColdgui = SqlString.Null Else m_sColdgui = New SqlString(CType(dtToReturn.Rows(0)("coldgui"), String)) End If If dtToReturn.Rows(0)("Passwort_vorlagenverwaltung") Is System.DBNull.Value Then m_sPasswort_vorlagenverwaltung = SqlString.Null Else m_sPasswort_vorlagenverwaltung = New SqlString(CType(dtToReturn.Rows(0)("Passwort_vorlagenverwaltung"), String)) End If If dtToReturn.Rows(0)("Anzahl_Cold_Viewer") Is System.DBNull.Value Then m_iAnzahl_Cold_Viewer = SqlInt32.Null Else m_iAnzahl_Cold_Viewer = New SqlInt32(CType(dtToReturn.Rows(0)("Anzahl_Cold_Viewer"), Integer)) End If If dtToReturn.Rows(0)("Zeitintervall_in_Minuten") Is System.DBNull.Value Then m_iZeitintervall_in_Minuten = SqlInt32.Null Else m_iZeitintervall_in_Minuten = New SqlInt32(CType(dtToReturn.Rows(0)("Zeitintervall_in_Minuten"), Integer)) End If If dtToReturn.Rows(0)("coldstart") Is System.DBNull.Value Then m_sColdstart = SqlString.Null Else m_sColdstart = New SqlString(CType(dtToReturn.Rows(0)("coldstart"), String)) End If If dtToReturn.Rows(0)("videomenu") Is System.DBNull.Value Then m_sVideomenu = SqlString.Null Else m_sVideomenu = New SqlString(CType(dtToReturn.Rows(0)("videomenu"), String)) End If '20071120 RGL Cutover Avaloq Anbindung If dtToReturn.Rows(0)("Cutoverdate") Is System.DBNull.Value Then m_cutoverdate = SqlDateTime.Null Else m_cutoverdate = New SqlDateTime(CType(dtToReturn.Rows(0)("Cutoverdate"), Date)) End If End If Return dtToReturn Catch ex As Exception MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsApplikation::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsApplikation.Update Update EDKB12WS.edokadb.clsApplikation.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006D Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_applikation_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokument_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokument_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bnet_use", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNet_use)) scmCmdToExecute.Parameters.Add(New SqlParameter("@slogisches_laufwerk", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLogisches_laufwerk)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_word_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_word_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_excel_vorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_excel_vorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_temporaer_dokumente", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_temporaer_dokumente)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_fileserver", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_fileserver)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_wordvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_wordvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_excelvorlagen", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_excelvorlagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_db", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_db)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sreport_server", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sReport_server)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spfad_reportdateien", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPfad_reportdateien)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suser_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUser_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@spasswort_report", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_report)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbarcode_font", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBarcode_font)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcfont_groesse", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcfont_groesse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@smailadresse", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sMailadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bShowlogin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_cold_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_cold_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzer_ams_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzer_ams_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_rdm_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_rdm_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daletzter_host_run", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daLetzter_host_run)) scmCmdToExecute.Parameters.Add(New SqlParameter("@irdmstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRdmstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iamsstunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAmsstunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ihoststunden", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iHoststunden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldsystem", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdsystem)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolduser", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColduser)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldpassword", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdpassword)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldgui", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdgui)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sPasswort_vorlagenverwaltung", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPasswort_vorlagenverwaltung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzahl_Cold_Viewer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_Cold_Viewer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iZeitintervall_in_Minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZeitintervall_in_Minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldstart", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdstart)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svideomenu", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVideomenu)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) Try m_scoMainConnection.Open() Catch End Try If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_applikation_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsApplikation::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If Try m_scoMainConnection.Close() Catch End Try scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsApplikation.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000040 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bNet_use, m_bShowlogin, m_bAktiv As SqlBoolean m_bNet_use m_bNet_use EDKB12WS.edokadb.clsApplikation.m_bNet_use EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000003E Private m_bNet_use As SqlBoolean private SqlBoolean m_bNet_use private: SqlBoolean m_bNet_use; private m_bNet_use : SqlBoolean Private m_bNet_use, m_bShowlogin, m_bAktiv As SqlBoolean m_bShowlogin m_bShowlogin EDKB12WS.edokadb.clsApplikation.m_bShowlogin EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000003F Private m_bShowlogin As SqlBoolean private SqlBoolean m_bShowlogin private: SqlBoolean m_bShowlogin; private m_bShowlogin : SqlBoolean Private m_bNet_use, m_bShowlogin, m_bAktiv As SqlBoolean m_cutoverdate m_cutoverdate EDKB12WS.edokadb.clsApplikation.m_cutoverdate EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000006A Private m_cutoverdate As SqlString private SqlString m_cutoverdate private: SqlString m_cutoverdate; private m_cutoverdate : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsApplikation.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000044 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_daLetzer_ams_run m_daLetzer_ams_run EDKB12WS.edokadb.clsApplikation.m_daLetzer_ams_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000041 Private m_daLetzer_ams_run As SqlDateTime private SqlDateTime m_daLetzer_ams_run private: SqlDateTime m_daLetzer_ams_run; private m_daLetzer_ams_run : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_daLetzter_cold_run m_daLetzter_cold_run EDKB12WS.edokadb.clsApplikation.m_daLetzter_cold_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000046 Private m_daLetzter_cold_run As SqlDateTime private SqlDateTime m_daLetzter_cold_run private: SqlDateTime m_daLetzter_cold_run; private m_daLetzter_cold_run : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_daLetzter_host_run m_daLetzter_host_run EDKB12WS.edokadb.clsApplikation.m_daLetzter_host_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000043 Private m_daLetzter_host_run As SqlDateTime private SqlDateTime m_daLetzter_host_run private: SqlDateTime m_daLetzter_host_run; private m_daLetzter_host_run : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_daLetzter_rdm_run m_daLetzter_rdm_run EDKB12WS.edokadb.clsApplikation.m_daLetzter_rdm_run EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000042 Private m_daLetzter_rdm_run As SqlDateTime private SqlDateTime m_daLetzter_rdm_run private: SqlDateTime m_daLetzter_rdm_run; private m_daLetzter_rdm_run : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsApplikation.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000045 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daLetzer_ams_run, m_daLetzter_rdm_run, m_daLetzter_host_run, m_daErstellt_am, m_daMutiert_am, m_daLetzter_cold_run As SqlDateTime m_iAmsstunden m_iAmsstunden EDKB12WS.edokadb.clsApplikation.m_iAmsstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004E Private m_iAmsstunden As SqlInt32 private SqlInt32 m_iAmsstunden private: SqlInt32 m_iAmsstunden; private m_iAmsstunden : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iAnzahl_Cold_Viewer m_iAnzahl_Cold_Viewer EDKB12WS.edokadb.clsApplikation.m_iAnzahl_Cold_Viewer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000048 Private m_iAnzahl_Cold_Viewer As SqlInt32 private SqlInt32 m_iAnzahl_Cold_Viewer private: SqlInt32 m_iAnzahl_Cold_Viewer; private m_iAnzahl_Cold_Viewer : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iApplikationsnr m_iApplikationsnr EDKB12WS.edokadb.clsApplikation.m_iApplikationsnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000049 Private m_iApplikationsnr As SqlInt32 private SqlInt32 m_iApplikationsnr private: SqlInt32 m_iApplikationsnr; private m_iApplikationsnr : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iBcfont_groesse m_iBcfont_groesse EDKB12WS.edokadb.clsApplikation.m_iBcfont_groesse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004A Private m_iBcfont_groesse As SqlInt32 private SqlInt32 m_iBcfont_groesse private: SqlInt32 m_iBcfont_groesse; private m_iBcfont_groesse : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iColdstunden m_iColdstunden EDKB12WS.edokadb.clsApplikation.m_iColdstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004C Private m_iColdstunden As SqlInt32 private SqlInt32 m_iColdstunden private: SqlInt32 m_iColdstunden; private m_iColdstunden : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iHoststunden m_iHoststunden EDKB12WS.edokadb.clsApplikation.m_iHoststunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000050 Private m_iHoststunden As SqlInt32 private SqlInt32 m_iHoststunden private: SqlInt32 m_iHoststunden; private m_iHoststunden : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsApplikation.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004B Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsApplikation.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004F Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iRdmstunden m_iRdmstunden EDKB12WS.edokadb.clsApplikation.m_iRdmstunden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000004D Private m_iRdmstunden As SqlInt32 private SqlInt32 m_iRdmstunden private: SqlInt32 m_iRdmstunden; private m_iRdmstunden : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_iZeitintervall_in_Minuten m_iZeitintervall_in_Minuten EDKB12WS.edokadb.clsApplikation.m_iZeitintervall_in_Minuten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000047 Private m_iZeitintervall_in_Minuten As SqlInt32 private SqlInt32 m_iZeitintervall_in_Minuten private: SqlInt32 m_iZeitintervall_in_Minuten; private m_iZeitintervall_in_Minuten : SqlInt32 Private m_iZeitintervall_in_Minuten, m_iAnzahl_Cold_Viewer, m_iApplikationsnr, m_iBcfont_groesse, m_iMandantnr, m_iColdstunden, m_iRdmstunden, m_iAmsstunden, m_iMutierer, m_iHoststunden As SqlInt32 m_sBarcode_font m_sBarcode_font EDKB12WS.edokadb.clsApplikation.m_sBarcode_font EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000061 Private m_sBarcode_font As SqlString private SqlString m_sBarcode_font private: SqlString m_sBarcode_font; private m_sBarcode_font : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sColdgui m_sColdgui EDKB12WS.edokadb.clsApplikation.m_sColdgui EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005A Private m_sColdgui As SqlString private SqlString m_sColdgui private: SqlString m_sColdgui; private m_sColdgui : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sColdpassword m_sColdpassword EDKB12WS.edokadb.clsApplikation.m_sColdpassword EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000053 Private m_sColdpassword As SqlString private SqlString m_sColdpassword private: SqlString m_sColdpassword; private m_sColdpassword : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sColdstart m_sColdstart EDKB12WS.edokadb.clsApplikation.m_sColdstart EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000058 Private m_sColdstart As SqlString private SqlString m_sColdstart private: SqlString m_sColdstart; private m_sColdstart : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sColdsystem m_sColdsystem EDKB12WS.edokadb.clsApplikation.m_sColdsystem EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000051 Private m_sColdsystem As SqlString private SqlString m_sColdsystem private: SqlString m_sColdsystem; private m_sColdsystem : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sColduser m_sColduser EDKB12WS.edokadb.clsApplikation.m_sColduser EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000052 Private m_sColduser As SqlString private SqlString m_sColduser private: SqlString m_sColduser; private m_sColduser : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sDokument_server m_sDokument_server EDKB12WS.edokadb.clsApplikation.m_sDokument_server EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000057 Private m_sDokument_server As SqlString private SqlString m_sDokument_server private: SqlString m_sDokument_server; private m_sDokument_server : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sLogisches_laufwerk m_sLogisches_laufwerk EDKB12WS.edokadb.clsApplikation.m_sLogisches_laufwerk EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005C Private m_sLogisches_laufwerk As SqlString private SqlString m_sLogisches_laufwerk private: SqlString m_sLogisches_laufwerk; private m_sLogisches_laufwerk : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sMailadresse m_sMailadresse EDKB12WS.edokadb.clsApplikation.m_sMailadresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000062 Private m_sMailadresse As SqlString private SqlString m_sMailadresse private: SqlString m_sMailadresse; private m_sMailadresse : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPasswort_excelvorlagen m_sPasswort_excelvorlagen EDKB12WS.edokadb.clsApplikation.m_sPasswort_excelvorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000069 Private m_sPasswort_excelvorlagen As SqlString private SqlString m_sPasswort_excelvorlagen private: SqlString m_sPasswort_excelvorlagen; private m_sPasswort_excelvorlagen : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPasswort_fileserver m_sPasswort_fileserver EDKB12WS.edokadb.clsApplikation.m_sPasswort_fileserver EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000065 Private m_sPasswort_fileserver As SqlString private SqlString m_sPasswort_fileserver private: SqlString m_sPasswort_fileserver; private m_sPasswort_fileserver : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPasswort_report m_sPasswort_report EDKB12WS.edokadb.clsApplikation.m_sPasswort_report EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005E Private m_sPasswort_report As SqlString private SqlString m_sPasswort_report private: SqlString m_sPasswort_report; private m_sPasswort_report : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPasswort_vorlagenverwaltung m_sPasswort_vorlagenverwaltung EDKB12WS.edokadb.clsApplikation.m_sPasswort_vorlagenverwaltung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005B Private m_sPasswort_vorlagenverwaltung As SqlString private SqlString m_sPasswort_vorlagenverwaltung private: SqlString m_sPasswort_vorlagenverwaltung; private m_sPasswort_vorlagenverwaltung : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPasswort_wordvorlagen m_sPasswort_wordvorlagen EDKB12WS.edokadb.clsApplikation.m_sPasswort_wordvorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000064 Private m_sPasswort_wordvorlagen As SqlString private SqlString m_sPasswort_wordvorlagen private: SqlString m_sPasswort_wordvorlagen; private m_sPasswort_wordvorlagen : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPfad_dokumente m_sPfad_dokumente EDKB12WS.edokadb.clsApplikation.m_sPfad_dokumente EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000056 Private m_sPfad_dokumente As SqlString private SqlString m_sPfad_dokumente private: SqlString m_sPfad_dokumente; private m_sPfad_dokumente : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPfad_excel_vorlagen m_sPfad_excel_vorlagen EDKB12WS.edokadb.clsApplikation.m_sPfad_excel_vorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000054 Private m_sPfad_excel_vorlagen As SqlString private SqlString m_sPfad_excel_vorlagen private: SqlString m_sPfad_excel_vorlagen; private m_sPfad_excel_vorlagen : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPfad_reportdateien m_sPfad_reportdateien EDKB12WS.edokadb.clsApplikation.m_sPfad_reportdateien EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000060 Private m_sPfad_reportdateien As SqlString private SqlString m_sPfad_reportdateien private: SqlString m_sPfad_reportdateien; private m_sPfad_reportdateien : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPfad_temporaer_dokumente m_sPfad_temporaer_dokumente EDKB12WS.edokadb.clsApplikation.m_sPfad_temporaer_dokumente EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005D Private m_sPfad_temporaer_dokumente As SqlString private SqlString m_sPfad_temporaer_dokumente private: SqlString m_sPfad_temporaer_dokumente; private m_sPfad_temporaer_dokumente : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sPfad_word_vorlagen m_sPfad_word_vorlagen EDKB12WS.edokadb.clsApplikation.m_sPfad_word_vorlagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000055 Private m_sPfad_word_vorlagen As SqlString private SqlString m_sPfad_word_vorlagen private: SqlString m_sPfad_word_vorlagen; private m_sPfad_word_vorlagen : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sReport_db m_sReport_db EDKB12WS.edokadb.clsApplikation.m_sReport_db EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000068 Private m_sReport_db As SqlString private SqlString m_sReport_db private: SqlString m_sReport_db; private m_sReport_db : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sReport_server m_sReport_server EDKB12WS.edokadb.clsApplikation.m_sReport_server EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000067 Private m_sReport_server As SqlString private SqlString m_sReport_server private: SqlString m_sReport_server; private m_sReport_server : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sUser_fileserver m_sUser_fileserver EDKB12WS.edokadb.clsApplikation.m_sUser_fileserver EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000066 Private m_sUser_fileserver As SqlString private SqlString m_sUser_fileserver private: SqlString m_sUser_fileserver; private m_sUser_fileserver : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sUser_report m_sUser_report EDKB12WS.edokadb.clsApplikation.m_sUser_report EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000005F Private m_sUser_report As SqlString private SqlString m_sUser_report private: SqlString m_sUser_report; private m_sUser_report : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sVersion m_sVersion EDKB12WS.edokadb.clsApplikation.m_sVersion EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000063 Private m_sVersion As SqlString private SqlString m_sVersion private: SqlString m_sVersion; private m_sVersion : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString m_sVideomenu m_sVideomenu EDKB12WS.edokadb.clsApplikation.m_sVideomenu EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000059 Private m_sVideomenu As SqlString private SqlString m_sVideomenu private: SqlString m_sVideomenu; private m_sVideomenu : SqlString Private m_sColdsystem, m_sColduser, m_sColdpassword, m_sPfad_excel_vorlagen, m_sPfad_word_vorlagen, m_sPfad_dokumente, m_sDokument_server, m_sColdstart, m_sVideomenu, m_sColdgui, m_sPasswort_vorlagenverwaltung, m_sLogisches_laufwerk, m_sPfad_temporaer_dokumente, m_sPasswort_report, m_sUser_report, m_sPfad_reportdateien, m_sBarcode_font, m_sMailadresse, m_sVersion, m_sPasswort_wordvorlagen, m_sPasswort_fileserver, m_sUser_fileserver, m_sReport_server, m_sReport_db, m_sPasswort_excelvorlagen, m_cutoverdate As SqlString clsConnectionProvider clsConnectionProvider EDKB12WS.edokadb.clsConnectionProvider EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009D Public Class clsConnectionProvider Implements IDisposable public class clsConnectionProvider : IDisposable public __gc class clsConnectionProvider : public IDisposable public class clsConnectionProvider implements IDisposable System.Object BeginTransaction CloseConnection CommitTransaction Dispose Equals Finalize GetHashCode GetType InitClass MemberwiseClone OpenConnection ReferenceEquals RollbackTransaction SaveTransaction ToString bIsTransactionPending sConnectionString scoDBConnection stCurrentTransaction clsConnectionProvider Constructor m_alSavePoints m_bIsDisposed m_bIsTransactionPending m_scoDBConnection m_stCurrentTransaction clsConnectionProvider Constructor New EDKB12WS.edokadb.clsConnectionProvider.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A3 Public Sub New() public clsConnectionProvider() public: clsConnectionProvider(); public function clsConnectionProvider(); Public Sub New() ' // Init the class InitClass() End Sub clsConnectionProvider.bIsTransactionPending bIsTransactionPending EDKB12WS.edokadb.clsConnectionProvider.bIsTransactionPending EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AE Public ReadOnly Property bIsTransactionPending() As Boolean public bool bIsTransactionPending {get;} public: bool get_bIsTransactionPending() public function get bIsTransactionPending() : boolean; Public ReadOnly Property bIsTransactionPending() As Boolean Get Return m_bIsTransactionPending End Get End Property clsConnectionProvider.sConnectionString sConnectionString EDKB12WS.edokadb.clsConnectionProvider.sConnectionString EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B0 Public WriteOnly Property sConnectionString() As String public string sConnectionString {set;} public: void set_sConnectionString( String __gc*) public function set sConnectionString(value : String); Public WriteOnly Property sConnectionString() As String Set (ByVal Value As String) m_scoDBConnection.ConnectionString = Value End Set End Property clsConnectionProvider.scoDBConnection scoDBConnection EDKB12WS.edokadb.clsConnectionProvider.scoDBConnection EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AF Public ReadOnly Property scoDBConnection() As SqlConnection public SqlConnection scoDBConnection {get;} public: SqlConnection __gc* get_scoDBConnection() public function get scoDBConnection() : SqlConnection; Public ReadOnly Property scoDBConnection() As SqlConnection Get Return m_scoDBConnection End Get End Property clsConnectionProvider.stCurrentTransaction stCurrentTransaction EDKB12WS.edokadb.clsConnectionProvider.stCurrentTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AD Public ReadOnly Property stCurrentTransaction() As SqlTransaction public SqlTransaction stCurrentTransaction {get;} public: SqlTransaction __gc* get_stCurrentTransaction() public function get stCurrentTransaction() : SqlTransaction; Public ReadOnly Property stCurrentTransaction() As SqlTransaction Get Return m_stCurrentTransaction End Get End Property clsConnectionProvider.BeginTransaction BeginTransaction EDKB12WS.edokadb.clsConnectionProvider.BeginTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A8 Public Function BeginTransaction( _ ByVal sTransactionName As String _) As Boolean public bool BeginTransaction( string sTransactionName) public: bool BeginTransaction( String __gc* sTransactionName); public function BeginTransaction( sTransactionName : String) : boolean; Public Function BeginTransaction(sTransactionName As String) As Boolean Try If m_bIsTransactionPending Then ' // no nested transactions allowed. Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed") End If If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then ' // no open connection Throw New Exception("BeginTransaction::Connection is not open.") End If ' // begin the transaction and store the transaction object. m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName) m_bIsTransactionPending = True Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function clsConnectionProvider.CloseConnection CloseConnection EDKB12WS.edokadb.clsConnectionProvider.CloseConnection EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AC Public Function CloseConnection( _ ByVal bCommitPendingTransaction As Boolean _) As Boolean public bool CloseConnection( bool bCommitPendingTransaction) public: bool CloseConnection( bool bCommitPendingTransaction); public function CloseConnection( bCommitPendingTransaction : boolean) : boolean; Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean Try If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then ' // No open connection Return False End If If m_bIsTransactionPending Then If bCommitPendingTransaction Then ' // Commit the pending transaction m_stCurrentTransaction.Commit() Else ' // Rollback the pending transaction m_stCurrentTransaction.Rollback() End If m_bIsTransactionPending = False m_stCurrentTransaction.Dispose() m_stCurrentTransaction = Nothing m_alSavePoints.Clear() End If ' // close the connection m_scoDBConnection.Close() Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function clsConnectionProvider.CommitTransaction CommitTransaction EDKB12WS.edokadb.clsConnectionProvider.CommitTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A9 Public Function CommitTransaction() As Boolean public bool CommitTransaction() public: bool CommitTransaction(); public function CommitTransaction() : boolean; Public Function CommitTransaction() As Boolean Try If Not m_bIsTransactionPending Then ' // no transaction pending Throw New Exception("CommitTransaction::No transaction pending.") End If If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then ' // no open connection Throw New Exception("CommitTransaction::Connection is not open.") End if ' // commit the transaction m_stCurrentTransaction.Commit() m_bIsTransactionPending = False m_stCurrentTransaction.Dispose() m_stCurrentTransaction = Nothing m_alSavePoints.Clear() Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function clsConnectionProvider.Dispose Dispose EDKB12WS.edokadb.clsConnectionProvider.Dispose EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A4 Public Overloads Sub Dispose() Implements _ IDisposable.Dispose public System.Void Dispose() public: System::Void Dispose(); public function Dispose(); Overloads Public Sub Dispose() Implements IDisposable.Dispose Dispose(True) GC.SuppressFinalize(Me) End Sub IDisposable.Dispose clsConnectionProvider.Dispose (Boolean) Dispose EDKB12WS.edokadb.clsConnectionProvider.Dispose EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A5 Protected Overloads Overridable Sub Dispose( _ ByVal bIsDisposing As Boolean _) protected virtual System.Void Dispose( bool bIsDisposing) protected: virtual System::Void Dispose( bool bIsDisposing); protected function Dispose( bIsDisposing : boolean); Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean) ' // Check to see if Dispose has already been called. If Not m_bIsDisposed Then If bIsDisposing Then ' // Dispose managed resources. If Not (m_stCurrentTransaction Is Nothing) Then m_stCurrentTransaction.Dispose() m_stCurrentTransaction = Nothing End If If Not (m_scoDBConnection Is Nothing) Then ' // closing the connection will abort (rollback) any pending transactions m_scoDBConnection.Close() m_scoDBConnection.Dispose() m_scoDBConnection = Nothing End If End If End If m_bIsDisposed = True End Sub clsConnectionProvider.InitClass InitClass EDKB12WS.edokadb.clsConnectionProvider.InitClass EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A6 Private Sub InitClass() private System.Void InitClass() private: System::Void InitClass(); private function InitClass(); Private Sub InitClass() ' // Create all the objects and initialize other members. m_scoDBConnection = new SqlConnection() m_bIsDisposed = False m_stCurrentTransaction = Nothing m_bIsTransactionPending = False m_alSavePoints = new ArrayList() End Sub clsConnectionProvider.OpenConnection OpenConnection EDKB12WS.edokadb.clsConnectionProvider.OpenConnection EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A7 Public Function OpenConnection() As Boolean public bool OpenConnection() public: bool OpenConnection(); public function OpenConnection() : boolean; Public Function OpenConnection() As Boolean Try If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then ' // It's already open. Throw New Exception("OpenConnection::Connection is already open.") End If m_scoDBConnection.Open() m_bIsTransactionPending = False m_alSavePoints.Clear() Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function clsConnectionProvider.RollbackTransaction RollbackTransaction EDKB12WS.edokadb.clsConnectionProvider.RollbackTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AA Public Function RollbackTransaction( _ ByVal sTransactionToRollback As String _) As Boolean public bool RollbackTransaction( string sTransactionToRollback) public: bool RollbackTransaction( String __gc* sTransactionToRollback); public function RollbackTransaction( sTransactionToRollback : String) : boolean; Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean Try If Not m_bIsTransactionPending Then ' // no transaction pending Throw New Exception("RollbackTransaction::No transaction pending.") End If If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then ' // no open connection Throw New Exception("RollbackTransaction::Connection is not open.") End If ' // rollback the transaction m_stCurrentTransaction.Rollback(sTransactionToRollback) ' // if this wasn't a savepoint, we've rolled back the complete transaction, so we ' // can clean it up. If Not m_alSavePoints.Contains(sTransactionToRollback) Then ' // it's not a savepoint m_bIsTransactionPending = False m_stCurrentTransaction.Dispose() m_stCurrentTransaction = Nothing m_alSavePoints.Clear() End If Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function clsConnectionProvider.SaveTransaction SaveTransaction EDKB12WS.edokadb.clsConnectionProvider.SaveTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000AB Public Function SaveTransaction( _ ByVal sSavePointName As String _) As Boolean public bool SaveTransaction( string sSavePointName) public: bool SaveTransaction( String __gc* sSavePointName); public function SaveTransaction( sSavePointName : String) : boolean; Public Function SaveTransaction(sSavePointName As String) As Boolean Try If Not m_bIsTransactionPending Then ' // no transaction pending Throw New Exception("SaveTransaction::No transaction pending.") End If If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then ' // no open connection Throw New Exception("SaveTransaction::Connection is not open.") End If ' // save the transaction m_stCurrentTransaction.Save(sSavePointName) ' // Store the savepoint in the list. m_alSavePoints.Add(sSavePointName) Return True Catch ex As Exception ' // bubble exception Throw ex End Try End Function m_alSavePoints m_alSavePoints EDKB12WS.edokadb.clsConnectionProvider.m_alSavePoints EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A2 Private m_alSavePoints As ArrayList private ArrayList m_alSavePoints private: ArrayList __gc* m_alSavePoints; private m_alSavePoints : ArrayList Private m_alSavePoints As ArrayList m_bIsDisposed m_bIsDisposed EDKB12WS.edokadb.clsConnectionProvider.m_bIsDisposed EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A0 Private m_bIsDisposed As Boolean private bool m_bIsDisposed private: bool m_bIsDisposed; private m_bIsDisposed : boolean Private m_bIsTransactionPending, m_bIsDisposed As Boolean m_bIsTransactionPending m_bIsTransactionPending EDKB12WS.edokadb.clsConnectionProvider.m_bIsTransactionPending EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009F Private m_bIsTransactionPending As Boolean private bool m_bIsTransactionPending private: bool m_bIsTransactionPending; private m_bIsTransactionPending : boolean Private m_bIsTransactionPending, m_bIsDisposed As Boolean m_scoDBConnection m_scoDBConnection EDKB12WS.edokadb.clsConnectionProvider.m_scoDBConnection EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000009E Private m_scoDBConnection As SqlConnection private SqlConnection m_scoDBConnection private: SqlConnection __gc* m_scoDBConnection; private m_scoDBConnection : SqlConnection Private m_scoDBConnection As SqlConnection m_stCurrentTransaction m_stCurrentTransaction EDKB12WS.edokadb.clsConnectionProvider.m_stCurrentTransaction EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000A1 Private m_stCurrentTransaction As SqlTransaction private SqlTransaction m_stCurrentTransaction private: SqlTransaction __gc* m_stCurrentTransaction; private m_stCurrentTransaction : SqlTransaction Private m_stCurrentTransaction As SqlTransaction clsDBInteractionBase clsDBInteractionBase EDKB12WS.edokadb.clsDBInteractionBase EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B9 Public MustInherit Class clsDBInteractionBase Implements IDisposable, _ ICommonDBAccess public abstract class clsDBInteractionBase : IDisposable, ICommonDBAccess public __gc __abstract class clsDBInteractionBase : public IDisposable, public ICommonDBAccess public abstract class clsDBInteractionBase implements IDisposable, ICommonDBAccess EDKB12WS.edokaDB.clsOffice_Vorlage_Datei EDKB12WS.edokadb.clsApplikation EDKB12WS.edokadb.clsDokument EDKB12WS.edokadb.clsDokumenttyp EDKB12WS.edokadb.clsIdvmakro_office_vorlage EDKB12WS.edokadb.clsJournaleintrag EDKB12WS.edokadb.clsKey_tabelle EDKB12WS.edokadb.clsMitarbeiter EDKB12WS.edokadb.clsOffice_vorlage EDKB12WS.edokadb.clsPartner EDKB12WS.edokadb.clsStatushistory EDKB12WS.edokadb.clsVorlagenfeld EDKB12WS.edokaDB.clsOffice_Vorlage_Datei EDKB12WS.edokadb.clsApplikation EDKB12WS.edokadb.clsDokument EDKB12WS.edokadb.clsDokumenttyp EDKB12WS.edokadb.clsIdvmakro_office_vorlage EDKB12WS.edokadb.clsJournaleintrag EDKB12WS.edokadb.clsKey_tabelle EDKB12WS.edokadb.clsMitarbeiter EDKB12WS.edokadb.clsOffice_vorlage EDKB12WS.edokadb.clsPartner EDKB12WS.edokadb.clsStatushistory EDKB12WS.edokadb.clsVorlagenfeld System.Object Delete Dispose Equals Finalize GetHashCode GetType InitClass Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update cpMainConnectionProvider iErrorCode sConnectionString clsDBInteractionBase Constructor m_bIsDisposed m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_iErrorCode m_sConnectionString m_scoMainConnection clsDBInteractionBase Constructor New EDKB12WS.edokadb.clsDBInteractionBase.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C0 Public Sub New() public clsDBInteractionBase() public: clsDBInteractionBase(); public function clsDBInteractionBase(); Public Sub New() ' // Initialize the class' members. InitClass() End Sub clsDBInteractionBase.cpMainConnectionProvider cpMainConnectionProvider EDKB12WS.edokadb.clsDBInteractionBase.cpMainConnectionProvider EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C9 Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider public clsConnectionProvider cpMainConnectionProvider {set;} public: void set_cpMainConnectionProvider( clsConnectionProvider __gc*) public function set cpMainConnectionProvider(value : clsConnectionProvider); Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider Set(ByVal Value As clsConnectionProvider) If Value Is Nothing Then ' // Invalid value Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.") End If ' // A connection provider object is passed to this class. ' // Retrieve the SqlConnection object, if present and create a ' // reference to it. If there is already a MainConnection object ' // referenced by the membervar, destroy that one or simply ' // remove the reference, based on the flag. If Not (m_scoMainConnection Is Nothing) Then ' // First get rid of current connection object. Caller is responsible If m_bMainConnectionIsCreatedLocal Then ' // Is local created object, close it and dispose it. m_scoMainConnection.Close() m_scoMainConnection.Dispose() End If ' // Remove reference. m_scoMainConnection = Nothing End If m_cpMainConnectionProvider = CType(Value, clsConnectionProvider) m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection m_bMainConnectionIsCreatedLocal = False End Set End Property clsDBInteractionBase.iErrorCode iErrorCode EDKB12WS.edokadb.clsDBInteractionBase.iErrorCode EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CA Public ReadOnly Property iErrorCode() As SqlInt32 public SqlInt32 iErrorCode {get;} public: SqlInt32 get_iErrorCode() public function get iErrorCode() : SqlInt32; Public ReadOnly Property iErrorCode() As SqlInt32 Get Return m_iErrorCode End Get End Property clsDBInteractionBase.sConnectionString sConnectionString EDKB12WS.edokadb.clsDBInteractionBase.sConnectionString EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CB Public Property sConnectionString() As String public string sConnectionString {get; set;} public: String __gc* get_sConnectionString()public: void set_sConnectionString( String __gc*) public function get sConnectionString() : String;public function set sConnectionString(value : String); Public Property sConnectionString() As String Get Return m_sConnectionString End Get Set (ByVal Value As String) m_sConnectionString = Value m_scoMainConnection.ConnectionString = m_sConnectionString End Set End Property clsDBInteractionBase.Delete Delete EDKB12WS.edokadb.clsDBInteractionBase.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C5 Public Overridable Function Delete() As Boolean Implements _ ICommonDBAccess.Delete public virtual bool Delete() public: virtual bool Delete(); public function Delete() : boolean; Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete ' // No implementation, throw exception Throw New NotImplementedException() End Function ICommonDBAccess.Delete clsDBInteractionBase.Dispose Dispose EDKB12WS.edokadb.clsDBInteractionBase.Dispose EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C2 Public Overloads Sub Dispose() Implements _ IDisposable.Dispose public System.Void Dispose() public: System::Void Dispose(); public function Dispose(); Overloads Public Sub Dispose() Implements IDisposable.Dispose Dispose(True) GC.SuppressFinalize(Me) End Sub IDisposable.Dispose clsDBInteractionBase.Dispose (Boolean) Dispose EDKB12WS.edokadb.clsDBInteractionBase.Dispose EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C3 Protected Overloads Overridable Sub Dispose( _ ByVal bIsDisposing As Boolean _) protected virtual System.Void Dispose( bool bIsDisposing) protected: virtual System::Void Dispose( bool bIsDisposing); protected function Dispose( bIsDisposing : boolean); Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean) ' // Check to see if Dispose has already been called. If Not m_bIsDisposed Then If bIsDisposing Then ' // Dispose managed resources. If m_bMainConnectionIsCreatedLocal Then ' // Object is created in this class, so destroy it here. m_scoMainConnection.Close() m_scoMainConnection.Dispose() m_bMainConnectionIsCreatedLocal = True End If m_cpMainConnectionProvider = Nothing m_scoMainConnection = Nothing End If End If m_bIsDisposed = True End Sub clsDBInteractionBase.InitClass InitClass EDKB12WS.edokadb.clsDBInteractionBase.InitClass EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C1 Private Sub InitClass() private System.Void InitClass() private: System::Void InitClass(); private function InitClass(); Private Sub InitClass() ' // create all the objects and initialize other members. m_scoMainConnection = new SqlConnection() m_bMainConnectionIsCreatedLocal = True m_cpMainConnectionProvider = Nothing m_iErrorCode = New SqlInt32(LLBLError.AllOk) m_bIsDisposed = False End Sub clsDBInteractionBase.Insert Insert EDKB12WS.edokadb.clsDBInteractionBase.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C4 Public Overridable Function Insert() As Boolean Implements _ ICommonDBAccess.Insert public virtual bool Insert() public: virtual bool Insert(); public function Insert() : boolean; Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert ' // No implementation, throw exception Throw New NotImplementedException() End Function ICommonDBAccess.Insert clsDBInteractionBase.SelectAll SelectAll EDKB12WS.edokadb.clsDBInteractionBase.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C8 Public Overridable Function SelectAll() As DataTable Implements _ ICommonDBAccess.SelectAll public virtual DataTable SelectAll() public: virtual DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll ' // No implementation, throw exception Throw New NotImplementedException() End Function ICommonDBAccess.SelectAll clsDBInteractionBase.SelectOne SelectOne EDKB12WS.edokadb.clsDBInteractionBase.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C7 Public Overridable Function SelectOne() As DataTable Implements _ ICommonDBAccess.SelectOne public virtual DataTable SelectOne() public: virtual DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne ' // No implementation, throw exception Throw New NotImplementedException() End Function ICommonDBAccess.SelectOne clsDBInteractionBase.Update Update EDKB12WS.edokadb.clsDBInteractionBase.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000C6 Public Overridable Function Update() As Boolean Implements _ ICommonDBAccess.Update public virtual bool Update() public: virtual bool Update(); public function Update() : boolean; Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update ' // No implementation, throw exception Throw New NotImplementedException() End Function ICommonDBAccess.Update m_bIsDisposed m_bIsDisposed EDKB12WS.edokadb.clsDBInteractionBase.m_bIsDisposed EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BF Private m_bIsDisposed As Boolean private bool m_bIsDisposed private: bool m_bIsDisposed; private m_bIsDisposed : boolean Private m_bIsDisposed As Boolean m_bMainConnectionIsCreatedLocal m_bMainConnectionIsCreatedLocal EDKB12WS.edokadb.clsDBInteractionBase.m_bMainConnectionIsCreatedLocal EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BC Protected m_bMainConnectionIsCreatedLocal As Boolean protected bool m_bMainConnectionIsCreatedLocal protected: bool m_bMainConnectionIsCreatedLocal; protected m_bMainConnectionIsCreatedLocal : boolean Protected m_bMainConnectionIsCreatedLocal As Boolean m_cpMainConnectionProvider m_cpMainConnectionProvider EDKB12WS.edokadb.clsDBInteractionBase.m_cpMainConnectionProvider EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BD Protected m_cpMainConnectionProvider As clsConnectionProvider protected clsConnectionProvider m_cpMainConnectionProvider protected: clsConnectionProvider __gc* m_cpMainConnectionProvider; protected m_cpMainConnectionProvider : clsConnectionProvider Protected m_cpMainConnectionProvider As clsConnectionProvider m_iErrorCode m_iErrorCode EDKB12WS.edokadb.clsDBInteractionBase.m_iErrorCode EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BB Protected m_iErrorCode As SqlInt32 protected SqlInt32 m_iErrorCode protected: SqlInt32 m_iErrorCode; protected m_iErrorCode : SqlInt32 Protected m_iErrorCode As SqlInt32 m_sConnectionString m_sConnectionString EDKB12WS.edokadb.clsDBInteractionBase.m_sConnectionString EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BE Private m_sConnectionString As String private string m_sConnectionString private: String __gc* m_sConnectionString; private m_sConnectionString : String Private m_sConnectionString As String m_scoMainConnection m_scoMainConnection EDKB12WS.edokadb.clsDBInteractionBase.m_scoMainConnection EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000BA Protected m_scoMainConnection As SqlConnection protected SqlConnection m_scoMainConnection protected: SqlConnection __gc* m_scoMainConnection; protected m_scoMainConnection : SqlConnection Protected m_scoMainConnection As SqlConnection clsDokument clsDokument EDKB12WS.edokadb.clsDokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CC Public Class clsDokument Inherits clsDBInteractionBase public class clsDokument : clsDBInteractionBase public __gc class clsDokument : public clsDBInteractionBase public class clsDokument extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv bAmsdokument bAuserstuebernahme bAusgangsarchiviert bBedRRetourniert bBereit_zur_archivierung bBl_scan bBldossier bEingangsarchiviert bFAStatuswechsel bFAVerantwortlicherwechsel bFapartnerwechsel bGesperrt bOfficedokumentgeloescht bUnvollstaendig bVertraulich bZu_retournieren bZustaendig_kube cpMainConnectionProvider daArchivierungsdatum daDatum_ausgangsarchivierung daDatum_eingangsarchivierung daErinnerungam daErstelltam daErstellungsdatum daGesperrtam daMutiertam daTermin iAnzeigeStatus iAufbewahrung_elektronisch iAufbewahrung_phaysisch iBRVernichtungnachTagen iBarcodenr iBck iBearbeitung_nach_abschluss iBearbeitungszeit_in_minuten iColdstatus iDokdurchkubeweitergegeben iDokumenttypnr iErrorCode iErsteller iErstellerteam iGesperrt_durch iIn_edoka_datenbank iMa_ausgangsarchivierung iMa_eingangsarchivierung iMitarbeiternr iMitarbeiternr1 iMonierung_in_tagen iMutierer iMutiererteam iMutierertieam iNrpar00 iPostzustellung iStatus_edoka_batch_ausgang iStatus_edoka_batch_eingang iStatusnr iUnterschriftlinks iUnterschriftrechts iVerantwortlich iZustaendiger sAnredezustelladresse sBedRDokumentid sBemerkung sBemerkunguvm sBezeichnung sColddokumentid sColdfolder sColdschema sConnectionString sDokumentid sDokumentidn sDokumentname sFANummer1 sFANummer2 sFanummer3 sLoeschgrund sSpeicherort sVersandadresse sVvnr sZustelladresse clsDokument Constructor m_bAktiv m_bAmsdokument m_bAuserstuebernahme m_bAusgangsarchiviert m_bBedRRetourniert m_bBereit_zur_archivierung m_bBl_scan m_bBldossier m_bEingangsarchiviert m_bFAStatuswechsel m_bFAVerantwortlicherwechsel m_bFapartnerwechsel m_bGesperrt m_bMainConnectionIsCreatedLocal m_bOfficedokumentgeloescht m_bUnvollstaendig m_bVertraulich m_bZu_retournieren m_bZustaendig_kube m_cpMainConnectionProvider m_daArchivierungsdatum m_daDatum_ausgangsarchivierung m_daDatum_eingangsarchivierung m_daErinnerungam m_daErstelltam m_daErstellungsdatum m_daGesperrtam m_daMutiertam m_daTermin m_iAnzeigeStatus m_iAufbewahrung_elektronisch m_iAufbewahrung_phaysisch m_iBRVernichtungnachTagen m_iBarcodenr m_iBck m_iBearbeitung_nach_abschluss m_iBearbeitungszeit_in_minuten m_iColdstatus m_iDokdurchkubeweitergegeben m_iDokumenttypnr m_iErrorCode m_iErsteller m_iErstellerteam m_iGesperrt_durch m_iIn_edoka_datenbank m_iMa_ausgangsarchivierung m_iMa_eingangsarchivierung m_iMitarbeiternr m_iMitarbeiternr1 m_iMonierung_in_tagen m_iMutierer m_iMutiererteam m_iMutierertieam m_iNrpar00 m_iPostzustellung m_iStatus_edoka_batch_ausgang m_iStatus_edoka_batch_eingang m_iStatusnr m_iUnterschriftlinks m_iUnterschriftrechts m_iVerantwortlich m_iZustaendiger m_sAnredezustelladresse m_sBedRDokumentid m_sBemerkung m_sBemerkunguvm m_sBezeichnung m_sColddokumentid m_sColdfolder m_sColdschema m_sDokumentid m_sDokumentidn m_sDokumentname m_sFANummer1 m_sFANummer2 m_sFanummer3 m_sLoeschgrund m_sSpeicherort m_sVersandadresse m_sVvnr m_sZustelladresse m_scoMainConnection clsDokument Constructor New EDKB12WS.edokadb.clsDokument.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011B Public Sub New() public clsDokument() public: clsDokument(); public function clsDokument(); Public Sub New() ' // Nothing for now. End Sub clsDokument.bAktiv bAktiv EDKB12WS.edokadb.clsDokument.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014C Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsDokument.bAmsdokument bAmsdokument EDKB12WS.edokadb.clsDokument.bAmsdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000146 Public Property bAmsdokument() As SqlBoolean public SqlBoolean bAmsdokument {get; set;} public: SqlBoolean get_bAmsdokument()public: void set_bAmsdokument( SqlBoolean) public function get bAmsdokument() : SqlBoolean;public function set bAmsdokument(value : SqlBoolean); Public Property [bAmsdokument]() As SqlBoolean Get Return m_bAmsdokument End Get Set(ByVal Value As SqlBoolean) m_bAmsdokument = Value End Set End Property clsDokument.bAuserstuebernahme bAuserstuebernahme EDKB12WS.edokadb.clsDokument.bAuserstuebernahme EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000133 Public Property bAuserstuebernahme() As SqlBoolean public SqlBoolean bAuserstuebernahme {get; set;} public: SqlBoolean get_bAuserstuebernahme()public: void set_bAuserstuebernahme( SqlBoolean) public function get bAuserstuebernahme() : SqlBoolean;public function set bAuserstuebernahme(value : SqlBoolean); Public Property [bAuserstuebernahme]() As SqlBoolean Get Return m_bAuserstuebernahme End Get Set(ByVal Value As SqlBoolean) m_bAuserstuebernahme = Value End Set End Property clsDokument.bAusgangsarchiviert bAusgangsarchiviert EDKB12WS.edokadb.clsDokument.bAusgangsarchiviert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000138 Public Property bAusgangsarchiviert() As SqlBoolean public SqlBoolean bAusgangsarchiviert {get; set;} public: SqlBoolean get_bAusgangsarchiviert()public: void set_bAusgangsarchiviert( SqlBoolean) public function get bAusgangsarchiviert() : SqlBoolean;public function set bAusgangsarchiviert(value : SqlBoolean); Public Property [bAusgangsarchiviert]() As SqlBoolean Get Return m_bAusgangsarchiviert End Get Set(ByVal Value As SqlBoolean) m_bAusgangsarchiviert = Value End Set End Property clsDokument.bBedRRetourniert bBedRRetourniert EDKB12WS.edokadb.clsDokument.bBedRRetourniert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000167 Public Property bBedRRetourniert() As SqlBoolean public SqlBoolean bBedRRetourniert {get; set;} public: SqlBoolean get_bBedRRetourniert()public: void set_bBedRRetourniert( SqlBoolean) public function get bBedRRetourniert() : SqlBoolean;public function set bBedRRetourniert(value : SqlBoolean); Public Property [bBedRRetourniert]() As SqlBoolean Get Return m_bBedRRetourniert End Get Set(ByVal Value As SqlBoolean) m_bBedRRetourniert = Value End Set End Property clsDokument.bBereit_zur_archivierung bBereit_zur_archivierung EDKB12WS.edokadb.clsDokument.bBereit_zur_archivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000137 Public Property bBereit_zur_archivierung() As SqlBoolean public SqlBoolean bBereit_zur_archivierung {get; set;} public: SqlBoolean get_bBereit_zur_archivierung()public: void set_bBereit_zur_archivierung( SqlBoolean) public function get bBereit_zur_archivierung() : SqlBoolean;public function set bBereit_zur_archivierung(value : SqlBoolean); Public Property [bBereit_zur_archivierung]() As SqlBoolean Get Return m_bBereit_zur_archivierung End Get Set(ByVal Value As SqlBoolean) m_bBereit_zur_archivierung = Value End Set End Property clsDokument.bBl_scan bBl_scan EDKB12WS.edokadb.clsDokument.bBl_scan EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016D Public Property bBl_scan() As SqlBoolean public SqlBoolean bBl_scan {get; set;} public: SqlBoolean get_bBl_scan()public: void set_bBl_scan( SqlBoolean) public function get bBl_scan() : SqlBoolean;public function set bBl_scan(value : SqlBoolean); Public Property [bBl_scan]() As SqlBoolean Get Return m_bBl_scan End Get Set(ByVal Value As SqlBoolean) m_bBl_scan = Value End Set End Property clsDokument.bBldossier bBldossier EDKB12WS.edokadb.clsDokument.bBldossier EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016E Public Property bBldossier() As SqlBoolean public SqlBoolean bBldossier {get; set;} public: SqlBoolean get_bBldossier()public: void set_bBldossier( SqlBoolean) public function get bBldossier() : SqlBoolean;public function set bBldossier(value : SqlBoolean); Public Property [bBldossier]() As SqlBoolean Get Return m_bBldossier End Get Set(ByVal Value As SqlBoolean) m_bBldossier = Value End Set End Property clsDokument.bEingangsarchiviert bEingangsarchiviert EDKB12WS.edokadb.clsDokument.bEingangsarchiviert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013C Public Property bEingangsarchiviert() As SqlBoolean public SqlBoolean bEingangsarchiviert {get; set;} public: SqlBoolean get_bEingangsarchiviert()public: void set_bEingangsarchiviert( SqlBoolean) public function get bEingangsarchiviert() : SqlBoolean;public function set bEingangsarchiviert(value : SqlBoolean); Public Property [bEingangsarchiviert]() As SqlBoolean Get Return m_bEingangsarchiviert End Get Set(ByVal Value As SqlBoolean) m_bEingangsarchiviert = Value End Set End Property clsDokument.bFAStatuswechsel bFAStatuswechsel EDKB12WS.edokadb.clsDokument.bFAStatuswechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000164 Public Property bFAStatuswechsel() As SqlBoolean public SqlBoolean bFAStatuswechsel {get; set;} public: SqlBoolean get_bFAStatuswechsel()public: void set_bFAStatuswechsel( SqlBoolean) public function get bFAStatuswechsel() : SqlBoolean;public function set bFAStatuswechsel(value : SqlBoolean); Public Property [bFAStatuswechsel]() As SqlBoolean Get Return m_bFAStatuswechsel End Get Set(ByVal Value As SqlBoolean) m_bFAStatuswechsel = Value End Set End Property clsDokument.bFAVerantwortlicherwechsel bFAVerantwortlicherwechsel EDKB12WS.edokadb.clsDokument.bFAVerantwortlicherwechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000165 Public Property bFAVerantwortlicherwechsel() As SqlBoolean public SqlBoolean bFAVerantwortlicherwechsel {get; set;} public: SqlBoolean get_bFAVerantwortlicherwechsel()public: void set_bFAVerantwortlicherwechsel( SqlBoolean) public function get bFAVerantwortlicherwechsel() : SqlBoolean;public function set bFAVerantwortlicherwechsel(value : SqlBoolean); Public Property [bFAVerantwortlicherwechsel]() As SqlBoolean Get Return m_bFAVerantwortlicherwechsel End Get Set(ByVal Value As SqlBoolean) m_bFAVerantwortlicherwechsel = Value End Set End Property clsDokument.bFapartnerwechsel bFapartnerwechsel EDKB12WS.edokadb.clsDokument.bFapartnerwechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000163 Public Property bFapartnerwechsel() As SqlBoolean public SqlBoolean bFapartnerwechsel {get; set;} public: SqlBoolean get_bFapartnerwechsel()public: void set_bFapartnerwechsel( SqlBoolean) public function get bFapartnerwechsel() : SqlBoolean;public function set bFapartnerwechsel(value : SqlBoolean); Public Property [bFapartnerwechsel]() As SqlBoolean Get Return m_bFapartnerwechsel End Get Set(ByVal Value As SqlBoolean) m_bFapartnerwechsel = Value End Set End Property clsDokument.bGesperrt bGesperrt EDKB12WS.edokadb.clsDokument.bGesperrt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012E Public Property bGesperrt() As SqlBoolean public SqlBoolean bGesperrt {get; set;} public: SqlBoolean get_bGesperrt()public: void set_bGesperrt( SqlBoolean) public function get bGesperrt() : SqlBoolean;public function set bGesperrt(value : SqlBoolean); Public Property [bGesperrt]() As SqlBoolean Get Return m_bGesperrt End Get Set(ByVal Value As SqlBoolean) m_bGesperrt = Value End Set End Property clsDokument.bOfficedokumentgeloescht bOfficedokumentgeloescht EDKB12WS.edokadb.clsDokument.bOfficedokumentgeloescht EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000169 Public Property bOfficedokumentgeloescht() As SqlBoolean public SqlBoolean bOfficedokumentgeloescht {get; set;} public: SqlBoolean get_bOfficedokumentgeloescht()public: void set_bOfficedokumentgeloescht( SqlBoolean) public function get bOfficedokumentgeloescht() : SqlBoolean;public function set bOfficedokumentgeloescht(value : SqlBoolean); Public Property [bOfficedokumentgeloescht]() As SqlBoolean Get Return m_bOfficedokumentgeloescht End Get Set(ByVal Value As SqlBoolean) m_bOfficedokumentgeloescht = Value End Set End Property clsDokument.bUnvollstaendig bUnvollstaendig EDKB12WS.edokadb.clsDokument.bUnvollstaendig EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000135 Public Property bUnvollstaendig() As SqlBoolean public SqlBoolean bUnvollstaendig {get; set;} public: SqlBoolean get_bUnvollstaendig()public: void set_bUnvollstaendig( SqlBoolean) public function get bUnvollstaendig() : SqlBoolean;public function set bUnvollstaendig(value : SqlBoolean); Public Property [bUnvollstaendig]() As SqlBoolean Get Return m_bUnvollstaendig End Get Set(ByVal Value As SqlBoolean) m_bUnvollstaendig = Value End Set End Property clsDokument.bVertraulich bVertraulich EDKB12WS.edokadb.clsDokument.bVertraulich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000150 Public Property bVertraulich() As SqlBoolean public SqlBoolean bVertraulich {get; set;} public: SqlBoolean get_bVertraulich()public: void set_bVertraulich( SqlBoolean) public function get bVertraulich() : SqlBoolean;public function set bVertraulich(value : SqlBoolean); Public Property [bVertraulich]() As SqlBoolean Get Return m_bVertraulich End Get Set(ByVal Value As SqlBoolean) m_bVertraulich = Value End Set End Property clsDokument.bZu_retournieren bZu_retournieren EDKB12WS.edokadb.clsDokument.bZu_retournieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013B Public Property bZu_retournieren() As SqlBoolean public SqlBoolean bZu_retournieren {get; set;} public: SqlBoolean get_bZu_retournieren()public: void set_bZu_retournieren( SqlBoolean) public function get bZu_retournieren() : SqlBoolean;public function set bZu_retournieren(value : SqlBoolean); Public Property [bZu_retournieren]() As SqlBoolean Get Return m_bZu_retournieren End Get Set(ByVal Value As SqlBoolean) m_bZu_retournieren = Value End Set End Property clsDokument.bZustaendig_kube bZustaendig_kube EDKB12WS.edokadb.clsDokument.bZustaendig_kube EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014E Public Property bZustaendig_kube() As SqlBoolean public SqlBoolean bZustaendig_kube {get; set;} public: SqlBoolean get_bZustaendig_kube()public: void set_bZustaendig_kube( SqlBoolean) public function get bZustaendig_kube() : SqlBoolean;public function set bZustaendig_kube(value : SqlBoolean); Public Property [bZustaendig_kube]() As SqlBoolean Get Return m_bZustaendig_kube End Get Set(ByVal Value As SqlBoolean) m_bZustaendig_kube = Value End Set End Property clsDokument.daArchivierungsdatum daArchivierungsdatum EDKB12WS.edokadb.clsDokument.daArchivierungsdatum EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000152 Public Property daArchivierungsdatum() As SqlDateTime public SqlDateTime daArchivierungsdatum {get; set;} public: SqlDateTime get_daArchivierungsdatum()public: void set_daArchivierungsdatum( SqlDateTime) public function get daArchivierungsdatum() : SqlDateTime;public function set daArchivierungsdatum(value : SqlDateTime); Public Property [daArchivierungsdatum]() As SqlDateTime Get Return m_daArchivierungsdatum End Get Set(ByVal Value As SqlDateTime) m_daArchivierungsdatum = Value End Set End Property clsDokument.daDatum_ausgangsarchivierung daDatum_ausgangsarchivierung EDKB12WS.edokadb.clsDokument.daDatum_ausgangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000139 Public Property daDatum_ausgangsarchivierung() As SqlDateTime public SqlDateTime daDatum_ausgangsarchivierung {get; set;} public: SqlDateTime get_daDatum_ausgangsarchivierung()public: void set_daDatum_ausgangsarchivierung( SqlDateTime) public function get daDatum_ausgangsarchivierung() : SqlDateTime;public function set daDatum_ausgangsarchivierung(value : SqlDateTime); Public Property [daDatum_ausgangsarchivierung]() As SqlDateTime Get Return m_daDatum_ausgangsarchivierung End Get Set(ByVal Value As SqlDateTime) m_daDatum_ausgangsarchivierung = Value End Set End Property clsDokument.daDatum_eingangsarchivierung daDatum_eingangsarchivierung EDKB12WS.edokadb.clsDokument.daDatum_eingangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013D Public Property daDatum_eingangsarchivierung() As SqlDateTime public SqlDateTime daDatum_eingangsarchivierung {get; set;} public: SqlDateTime get_daDatum_eingangsarchivierung()public: void set_daDatum_eingangsarchivierung( SqlDateTime) public function get daDatum_eingangsarchivierung() : SqlDateTime;public function set daDatum_eingangsarchivierung(value : SqlDateTime); Public Property [daDatum_eingangsarchivierung]() As SqlDateTime Get Return m_daDatum_eingangsarchivierung End Get Set(ByVal Value As SqlDateTime) m_daDatum_eingangsarchivierung = Value End Set End Property clsDokument.daErinnerungam daErinnerungam EDKB12WS.edokadb.clsDokument.daErinnerungam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000160 Public Property daErinnerungam() As SqlDateTime public SqlDateTime daErinnerungam {get; set;} public: SqlDateTime get_daErinnerungam()public: void set_daErinnerungam( SqlDateTime) public function get daErinnerungam() : SqlDateTime;public function set daErinnerungam(value : SqlDateTime); Public Property [daErinnerungam]() As SqlDateTime Get Return m_daErinnerungam End Get Set(ByVal Value As SqlDateTime) m_daErinnerungam = Value End Set End Property clsDokument.daErstelltam daErstelltam EDKB12WS.edokadb.clsDokument.daErstelltam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000129 Public Property daErstelltam() As SqlDateTime public SqlDateTime daErstelltam {get; set;} public: SqlDateTime get_daErstelltam()public: void set_daErstelltam( SqlDateTime) public function get daErstelltam() : SqlDateTime;public function set daErstelltam(value : SqlDateTime); Public Property [daErstelltam]() As SqlDateTime Get Return m_daErstelltam End Get Set(ByVal Value As SqlDateTime) m_daErstelltam = Value End Set End Property clsDokument.daErstellungsdatum daErstellungsdatum EDKB12WS.edokadb.clsDokument.daErstellungsdatum EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000151 Public Property daErstellungsdatum() As SqlDateTime public SqlDateTime daErstellungsdatum {get; set;} public: SqlDateTime get_daErstellungsdatum()public: void set_daErstellungsdatum( SqlDateTime) public function get daErstellungsdatum() : SqlDateTime;public function set daErstellungsdatum(value : SqlDateTime); Public Property [daErstellungsdatum]() As SqlDateTime Get Return m_daErstellungsdatum End Get Set(ByVal Value As SqlDateTime) m_daErstellungsdatum = Value End Set End Property clsDokument.daGesperrtam daGesperrtam EDKB12WS.edokadb.clsDokument.daGesperrtam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000130 Public Property daGesperrtam() As SqlDateTime public SqlDateTime daGesperrtam {get; set;} public: SqlDateTime get_daGesperrtam()public: void set_daGesperrtam( SqlDateTime) public function get daGesperrtam() : SqlDateTime;public function set daGesperrtam(value : SqlDateTime); Public Property [daGesperrtam]() As SqlDateTime Get Return m_daGesperrtam End Get Set(ByVal Value As SqlDateTime) m_daGesperrtam = Value End Set End Property clsDokument.daMutiertam daMutiertam EDKB12WS.edokadb.clsDokument.daMutiertam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012C Public Property daMutiertam() As SqlDateTime public SqlDateTime daMutiertam {get; set;} public: SqlDateTime get_daMutiertam()public: void set_daMutiertam( SqlDateTime) public function get daMutiertam() : SqlDateTime;public function set daMutiertam(value : SqlDateTime); Public Property [daMutiertam]() As SqlDateTime Get Return m_daMutiertam End Get Set(ByVal Value As SqlDateTime) m_daMutiertam = Value End Set End Property clsDokument.daTermin daTermin EDKB12WS.edokadb.clsDokument.daTermin EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000153 Public Property daTermin() As SqlDateTime public SqlDateTime daTermin {get; set;} public: SqlDateTime get_daTermin()public: void set_daTermin( SqlDateTime) public function get daTermin() : SqlDateTime;public function set daTermin(value : SqlDateTime); Public Property [daTermin]() As SqlDateTime Get Return m_daTermin End Get Set(ByVal Value As SqlDateTime) m_daTermin = Value End Set End Property clsDokument.iAnzeigeStatus iAnzeigeStatus EDKB12WS.edokadb.clsDokument.iAnzeigeStatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016C Public Property iAnzeigeStatus() As SqlInt32 public SqlInt32 iAnzeigeStatus {get; set;} public: SqlInt32 get_iAnzeigeStatus()public: void set_iAnzeigeStatus( SqlInt32) public function get iAnzeigeStatus() : SqlInt32;public function set iAnzeigeStatus(value : SqlInt32); Public Property [iAnzeigeStatus]() As SqlInt32 Get Return m_iAnzeigeStatus End Get Set(ByVal Value As SqlInt32) m_iAnzeigeStatus = Value End Set End Property clsDokument.iAufbewahrung_elektronisch iAufbewahrung_elektronisch EDKB12WS.edokadb.clsDokument.iAufbewahrung_elektronisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015A Public Property iAufbewahrung_elektronisch() As SqlInt32 public SqlInt32 iAufbewahrung_elektronisch {get; set;} public: SqlInt32 get_iAufbewahrung_elektronisch()public: void set_iAufbewahrung_elektronisch( SqlInt32) public function get iAufbewahrung_elektronisch() : SqlInt32;public function set iAufbewahrung_elektronisch(value : SqlInt32); Public Property [iAufbewahrung_elektronisch]() As SqlInt32 Get Return m_iAufbewahrung_elektronisch End Get Set(ByVal Value As SqlInt32) m_iAufbewahrung_elektronisch = Value End Set End Property clsDokument.iAufbewahrung_phaysisch iAufbewahrung_phaysisch EDKB12WS.edokadb.clsDokument.iAufbewahrung_phaysisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015B Public Property iAufbewahrung_phaysisch() As SqlInt32 public SqlInt32 iAufbewahrung_phaysisch {get; set;} public: SqlInt32 get_iAufbewahrung_phaysisch()public: void set_iAufbewahrung_phaysisch( SqlInt32) public function get iAufbewahrung_phaysisch() : SqlInt32;public function set iAufbewahrung_phaysisch(value : SqlInt32); Public Property [iAufbewahrung_phaysisch]() As SqlInt32 Get Return m_iAufbewahrung_phaysisch End Get Set(ByVal Value As SqlInt32) m_iAufbewahrung_phaysisch = Value End Set End Property clsDokument.iBRVernichtungnachTagen iBRVernichtungnachTagen EDKB12WS.edokadb.clsDokument.iBRVernichtungnachTagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000168 Public Property iBRVernichtungnachTagen() As SqlInt32 public SqlInt32 iBRVernichtungnachTagen {get; set;} public: SqlInt32 get_iBRVernichtungnachTagen()public: void set_iBRVernichtungnachTagen( SqlInt32) public function get iBRVernichtungnachTagen() : SqlInt32;public function set iBRVernichtungnachTagen(value : SqlInt32); Public Property [iBRVernichtungnachTagen]() As SqlInt32 Get Return m_iBRVernichtungnachTagen End Get Set(ByVal Value As SqlInt32) m_iBRVernichtungnachTagen = Value End Set End Property clsDokument.iBarcodenr iBarcodenr EDKB12WS.edokadb.clsDokument.iBarcodenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000144 Public Property iBarcodenr() As SqlInt32 public SqlInt32 iBarcodenr {get; set;} public: SqlInt32 get_iBarcodenr()public: void set_iBarcodenr( SqlInt32) public function get iBarcodenr() : SqlInt32;public function set iBarcodenr(value : SqlInt32); Public Property [iBarcodenr]() As SqlInt32 Get Return m_iBarcodenr End Get Set(ByVal Value As SqlInt32) m_iBarcodenr = Value End Set End Property clsDokument.iBck iBck EDKB12WS.edokadb.clsDokument.iBck EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000157 Public Property iBck() As SqlInt32 public SqlInt32 iBck {get; set;} public: SqlInt32 get_iBck()public: void set_iBck( SqlInt32) public function get iBck() : SqlInt32;public function set iBck(value : SqlInt32); Public Property [iBck]() As SqlInt32 Get Return m_iBck End Get Set(ByVal Value As SqlInt32) m_iBck = Value End Set End Property clsDokument.iBearbeitung_nach_abschluss iBearbeitung_nach_abschluss EDKB12WS.edokadb.clsDokument.iBearbeitung_nach_abschluss EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015D Public Property iBearbeitung_nach_abschluss() As SqlInt32 public SqlInt32 iBearbeitung_nach_abschluss {get; set;} public: SqlInt32 get_iBearbeitung_nach_abschluss()public: void set_iBearbeitung_nach_abschluss( SqlInt32) public function get iBearbeitung_nach_abschluss() : SqlInt32;public function set iBearbeitung_nach_abschluss(value : SqlInt32); Public Property [iBearbeitung_nach_abschluss]() As SqlInt32 Get Return m_iBearbeitung_nach_abschluss End Get Set(ByVal Value As SqlInt32) m_iBearbeitung_nach_abschluss = Value End Set End Property clsDokument.iBearbeitungszeit_in_minuten iBearbeitungszeit_in_minuten EDKB12WS.edokadb.clsDokument.iBearbeitungszeit_in_minuten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000158 Public Property iBearbeitungszeit_in_minuten() As SqlInt32 public SqlInt32 iBearbeitungszeit_in_minuten {get; set;} public: SqlInt32 get_iBearbeitungszeit_in_minuten()public: void set_iBearbeitungszeit_in_minuten( SqlInt32) public function get iBearbeitungszeit_in_minuten() : SqlInt32;public function set iBearbeitungszeit_in_minuten(value : SqlInt32); Public Property [iBearbeitungszeit_in_minuten]() As SqlInt32 Get Return m_iBearbeitungszeit_in_minuten End Get Set(ByVal Value As SqlInt32) m_iBearbeitungszeit_in_minuten = Value End Set End Property clsDokument.iColdstatus iColdstatus EDKB12WS.edokadb.clsDokument.iColdstatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000142 Public Property iColdstatus() As SqlInt32 public SqlInt32 iColdstatus {get; set;} public: SqlInt32 get_iColdstatus()public: void set_iColdstatus( SqlInt32) public function get iColdstatus() : SqlInt32;public function set iColdstatus(value : SqlInt32); Public Property [iColdstatus]() As SqlInt32 Get Return m_iColdstatus End Get Set(ByVal Value As SqlInt32) m_iColdstatus = Value End Set End Property clsDokument.iDokdurchkubeweitergegeben iDokdurchkubeweitergegeben EDKB12WS.edokadb.clsDokument.iDokdurchkubeweitergegeben EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000156 Public Property iDokdurchkubeweitergegeben() As SqlInt32 public SqlInt32 iDokdurchkubeweitergegeben {get; set;} public: SqlInt32 get_iDokdurchkubeweitergegeben()public: void set_iDokdurchkubeweitergegeben( SqlInt32) public function get iDokdurchkubeweitergegeben() : SqlInt32;public function set iDokdurchkubeweitergegeben(value : SqlInt32); Public Property [iDokdurchkubeweitergegeben]() As SqlInt32 Get Return m_iDokdurchkubeweitergegeben End Get Set(ByVal Value As SqlInt32) m_iDokdurchkubeweitergegeben = Value End Set End Property clsDokument.iDokumenttypnr iDokumenttypnr EDKB12WS.edokadb.clsDokument.iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000134 Public Property iDokumenttypnr() As SqlInt32 public SqlInt32 iDokumenttypnr {get; set;} public: SqlInt32 get_iDokumenttypnr()public: void set_iDokumenttypnr( SqlInt32) public function get iDokumenttypnr() : SqlInt32;public function set iDokumenttypnr(value : SqlInt32); Public Property [iDokumenttypnr]() As SqlInt32 Get Return m_iDokumenttypnr End Get Set(ByVal Value As SqlInt32) m_iDokumenttypnr = Value End Set End Property clsDokument.iErsteller iErsteller EDKB12WS.edokadb.clsDokument.iErsteller EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000127 Public Property iErsteller() As SqlInt32 public SqlInt32 iErsteller {get; set;} public: SqlInt32 get_iErsteller()public: void set_iErsteller( SqlInt32) public function get iErsteller() : SqlInt32;public function set iErsteller(value : SqlInt32); Public Property [iErsteller]() As SqlInt32 Get Return m_iErsteller End Get Set(ByVal Value As SqlInt32) m_iErsteller = Value End Set End Property clsDokument.iErstellerteam iErstellerteam EDKB12WS.edokadb.clsDokument.iErstellerteam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000128 Public Property iErstellerteam() As SqlInt32 public SqlInt32 iErstellerteam {get; set;} public: SqlInt32 get_iErstellerteam()public: void set_iErstellerteam( SqlInt32) public function get iErstellerteam() : SqlInt32;public function set iErstellerteam(value : SqlInt32); Public Property [iErstellerteam]() As SqlInt32 Get Return m_iErstellerteam End Get Set(ByVal Value As SqlInt32) m_iErstellerteam = Value End Set End Property clsDokument.iGesperrt_durch iGesperrt_durch EDKB12WS.edokadb.clsDokument.iGesperrt_durch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012F Public Property iGesperrt_durch() As SqlInt32 public SqlInt32 iGesperrt_durch {get; set;} public: SqlInt32 get_iGesperrt_durch()public: void set_iGesperrt_durch( SqlInt32) public function get iGesperrt_durch() : SqlInt32;public function set iGesperrt_durch(value : SqlInt32); Public Property [iGesperrt_durch]() As SqlInt32 Get Return m_iGesperrt_durch End Get Set(ByVal Value As SqlInt32) m_iGesperrt_durch = Value End Set End Property clsDokument.iIn_edoka_datenbank iIn_edoka_datenbank EDKB12WS.edokadb.clsDokument.iIn_edoka_datenbank EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015C Public Property iIn_edoka_datenbank() As SqlInt32 public SqlInt32 iIn_edoka_datenbank {get; set;} public: SqlInt32 get_iIn_edoka_datenbank()public: void set_iIn_edoka_datenbank( SqlInt32) public function get iIn_edoka_datenbank() : SqlInt32;public function set iIn_edoka_datenbank(value : SqlInt32); Public Property [iIn_edoka_datenbank]() As SqlInt32 Get Return m_iIn_edoka_datenbank End Get Set(ByVal Value As SqlInt32) m_iIn_edoka_datenbank = Value End Set End Property clsDokument.iMa_ausgangsarchivierung iMa_ausgangsarchivierung EDKB12WS.edokadb.clsDokument.iMa_ausgangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013A Public Property iMa_ausgangsarchivierung() As SqlInt32 public SqlInt32 iMa_ausgangsarchivierung {get; set;} public: SqlInt32 get_iMa_ausgangsarchivierung()public: void set_iMa_ausgangsarchivierung( SqlInt32) public function get iMa_ausgangsarchivierung() : SqlInt32;public function set iMa_ausgangsarchivierung(value : SqlInt32); Public Property [iMa_ausgangsarchivierung]() As SqlInt32 Get Return m_iMa_ausgangsarchivierung End Get Set(ByVal Value As SqlInt32) m_iMa_ausgangsarchivierung = Value End Set End Property clsDokument.iMa_eingangsarchivierung iMa_eingangsarchivierung EDKB12WS.edokadb.clsDokument.iMa_eingangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013E Public Property iMa_eingangsarchivierung() As SqlInt32 public SqlInt32 iMa_eingangsarchivierung {get; set;} public: SqlInt32 get_iMa_eingangsarchivierung()public: void set_iMa_eingangsarchivierung( SqlInt32) public function get iMa_eingangsarchivierung() : SqlInt32;public function set iMa_eingangsarchivierung(value : SqlInt32); Public Property [iMa_eingangsarchivierung]() As SqlInt32 Get Return m_iMa_eingangsarchivierung End Get Set(ByVal Value As SqlInt32) m_iMa_eingangsarchivierung = Value End Set End Property clsDokument.iMitarbeiternr iMitarbeiternr EDKB12WS.edokadb.clsDokument.iMitarbeiternr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000122 Public Property iMitarbeiternr() As SqlInt32 public SqlInt32 iMitarbeiternr {get; set;} public: SqlInt32 get_iMitarbeiternr()public: void set_iMitarbeiternr( SqlInt32) public function get iMitarbeiternr() : SqlInt32;public function set iMitarbeiternr(value : SqlInt32); Public Property [iMitarbeiternr]() As SqlInt32 Get Return m_iMitarbeiternr End Get Set(ByVal Value As SqlInt32) m_iMitarbeiternr = Value End Set End Property clsDokument.iMitarbeiternr1 iMitarbeiternr1 EDKB12WS.edokadb.clsDokument.iMitarbeiternr1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000123 Public Property iMitarbeiternr1() As SqlInt32 public SqlInt32 iMitarbeiternr1 {get; set;} public: SqlInt32 get_iMitarbeiternr1()public: void set_iMitarbeiternr1( SqlInt32) public function get iMitarbeiternr1() : SqlInt32;public function set iMitarbeiternr1(value : SqlInt32); Public Property [iMitarbeiternr1]() As SqlInt32 Get Return m_iMitarbeiternr1 End Get Set(ByVal Value As SqlInt32) m_iMitarbeiternr1 = Value End Set End Property clsDokument.iMonierung_in_tagen iMonierung_in_tagen EDKB12WS.edokadb.clsDokument.iMonierung_in_tagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000159 Public Property iMonierung_in_tagen() As SqlInt32 public SqlInt32 iMonierung_in_tagen {get; set;} public: SqlInt32 get_iMonierung_in_tagen()public: void set_iMonierung_in_tagen( SqlInt32) public function get iMonierung_in_tagen() : SqlInt32;public function set iMonierung_in_tagen(value : SqlInt32); Public Property [iMonierung_in_tagen]() As SqlInt32 Get Return m_iMonierung_in_tagen End Get Set(ByVal Value As SqlInt32) m_iMonierung_in_tagen = Value End Set End Property clsDokument.iMutierer iMutierer EDKB12WS.edokadb.clsDokument.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012A Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsDokument.iMutiererteam iMutiererteam EDKB12WS.edokadb.clsDokument.iMutiererteam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000154 Public Property iMutiererteam() As SqlInt32 public SqlInt32 iMutiererteam {get; set;} public: SqlInt32 get_iMutiererteam()public: void set_iMutiererteam( SqlInt32) public function get iMutiererteam() : SqlInt32;public function set iMutiererteam(value : SqlInt32); Public Property [iMutiererteam]() As SqlInt32 Get Return m_iMutiererteam End Get Set(ByVal Value As SqlInt32) m_iMutiererteam = Value End Set End Property clsDokument.iMutierertieam iMutierertieam EDKB12WS.edokadb.clsDokument.iMutierertieam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012B Public Property iMutierertieam() As SqlInt32 public SqlInt32 iMutierertieam {get; set;} public: SqlInt32 get_iMutierertieam()public: void set_iMutierertieam( SqlInt32) public function get iMutierertieam() : SqlInt32;public function set iMutierertieam(value : SqlInt32); Public Property [iMutierertieam]() As SqlInt32 Get Return m_iMutierertieam End Get Set(ByVal Value As SqlInt32) m_iMutierertieam = Value End Set End Property clsDokument.iNrpar00 iNrpar00 EDKB12WS.edokadb.clsDokument.iNrpar00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000124 Public Property iNrpar00() As SqlInt32 public SqlInt32 iNrpar00 {get; set;} public: SqlInt32 get_iNrpar00()public: void set_iNrpar00( SqlInt32) public function get iNrpar00() : SqlInt32;public function set iNrpar00(value : SqlInt32); Public Property [iNrpar00]() As SqlInt32 Get Return m_iNrpar00 End Get Set(ByVal Value As SqlInt32) m_iNrpar00 = Value End Set End Property clsDokument.iPostzustellung iPostzustellung EDKB12WS.edokadb.clsDokument.iPostzustellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014B Public Property iPostzustellung() As SqlInt32 public SqlInt32 iPostzustellung {get; set;} public: SqlInt32 get_iPostzustellung()public: void set_iPostzustellung( SqlInt32) public function get iPostzustellung() : SqlInt32;public function set iPostzustellung(value : SqlInt32); Public Property [iPostzustellung]() As SqlInt32 Get Return m_iPostzustellung End Get Set(ByVal Value As SqlInt32) m_iPostzustellung = Value End Set End Property clsDokument.iStatus_edoka_batch_ausgang iStatus_edoka_batch_ausgang EDKB12WS.edokadb.clsDokument.iStatus_edoka_batch_ausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000013F Public Property iStatus_edoka_batch_ausgang() As SqlInt32 public SqlInt32 iStatus_edoka_batch_ausgang {get; set;} public: SqlInt32 get_iStatus_edoka_batch_ausgang()public: void set_iStatus_edoka_batch_ausgang( SqlInt32) public function get iStatus_edoka_batch_ausgang() : SqlInt32;public function set iStatus_edoka_batch_ausgang(value : SqlInt32); Public Property [iStatus_edoka_batch_ausgang]() As SqlInt32 Get Return m_iStatus_edoka_batch_ausgang End Get Set(ByVal Value As SqlInt32) m_iStatus_edoka_batch_ausgang = Value End Set End Property clsDokument.iStatus_edoka_batch_eingang iStatus_edoka_batch_eingang EDKB12WS.edokadb.clsDokument.iStatus_edoka_batch_eingang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000140 Public Property iStatus_edoka_batch_eingang() As SqlInt32 public SqlInt32 iStatus_edoka_batch_eingang {get; set;} public: SqlInt32 get_iStatus_edoka_batch_eingang()public: void set_iStatus_edoka_batch_eingang( SqlInt32) public function get iStatus_edoka_batch_eingang() : SqlInt32;public function set iStatus_edoka_batch_eingang(value : SqlInt32); Public Property [iStatus_edoka_batch_eingang]() As SqlInt32 Get Return m_iStatus_edoka_batch_eingang End Get Set(ByVal Value As SqlInt32) m_iStatus_edoka_batch_eingang = Value End Set End Property clsDokument.iStatusnr iStatusnr EDKB12WS.edokadb.clsDokument.iStatusnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014D Public Property iStatusnr() As SqlInt32 public SqlInt32 iStatusnr {get; set;} public: SqlInt32 get_iStatusnr()public: void set_iStatusnr( SqlInt32) public function get iStatusnr() : SqlInt32;public function set iStatusnr(value : SqlInt32); Public Property [iStatusnr]() As SqlInt32 Get Return m_iStatusnr End Get Set(ByVal Value As SqlInt32) m_iStatusnr = Value End Set End Property clsDokument.iUnterschriftlinks iUnterschriftlinks EDKB12WS.edokadb.clsDokument.iUnterschriftlinks EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000149 Public Property iUnterschriftlinks() As SqlInt32 public SqlInt32 iUnterschriftlinks {get; set;} public: SqlInt32 get_iUnterschriftlinks()public: void set_iUnterschriftlinks( SqlInt32) public function get iUnterschriftlinks() : SqlInt32;public function set iUnterschriftlinks(value : SqlInt32); Public Property [iUnterschriftlinks]() As SqlInt32 Get Return m_iUnterschriftlinks End Get Set(ByVal Value As SqlInt32) m_iUnterschriftlinks = Value End Set End Property clsDokument.iUnterschriftrechts iUnterschriftrechts EDKB12WS.edokadb.clsDokument.iUnterschriftrechts EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014A Public Property iUnterschriftrechts() As SqlInt32 public SqlInt32 iUnterschriftrechts {get; set;} public: SqlInt32 get_iUnterschriftrechts()public: void set_iUnterschriftrechts( SqlInt32) public function get iUnterschriftrechts() : SqlInt32;public function set iUnterschriftrechts(value : SqlInt32); Public Property [iUnterschriftrechts]() As SqlInt32 Get Return m_iUnterschriftrechts End Get Set(ByVal Value As SqlInt32) m_iUnterschriftrechts = Value End Set End Property clsDokument.iVerantwortlich iVerantwortlich EDKB12WS.edokadb.clsDokument.iVerantwortlich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000147 Public Property iVerantwortlich() As SqlInt32 public SqlInt32 iVerantwortlich {get; set;} public: SqlInt32 get_iVerantwortlich()public: void set_iVerantwortlich( SqlInt32) public function get iVerantwortlich() : SqlInt32;public function set iVerantwortlich(value : SqlInt32); Public Property [iVerantwortlich]() As SqlInt32 Get Return m_iVerantwortlich End Get Set(ByVal Value As SqlInt32) m_iVerantwortlich = Value End Set End Property clsDokument.iZustaendiger iZustaendiger EDKB12WS.edokadb.clsDokument.iZustaendiger EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000148 Public Property iZustaendiger() As SqlInt32 public SqlInt32 iZustaendiger {get; set;} public: SqlInt32 get_iZustaendiger()public: void set_iZustaendiger( SqlInt32) public function get iZustaendiger() : SqlInt32;public function set iZustaendiger(value : SqlInt32); Public Property [iZustaendiger]() As SqlInt32 Get Return m_iZustaendiger End Get Set(ByVal Value As SqlInt32) m_iZustaendiger = Value End Set End Property clsDokument.sAnredezustelladresse sAnredezustelladresse EDKB12WS.edokadb.clsDokument.sAnredezustelladresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000155 Public Property sAnredezustelladresse() As SqlString public SqlString sAnredezustelladresse {get; set;} public: SqlString get_sAnredezustelladresse()public: void set_sAnredezustelladresse( SqlString) public function get sAnredezustelladresse() : SqlString;public function set sAnredezustelladresse(value : SqlString); Public Property [sAnredezustelladresse]() As SqlString Get Return m_sAnredezustelladresse End Get Set(ByVal Value As SqlString) m_sAnredezustelladresse = Value End Set End Property clsDokument.sBedRDokumentid sBedRDokumentid EDKB12WS.edokadb.clsDokument.sBedRDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000166 Public Property sBedRDokumentid() As SqlString public SqlString sBedRDokumentid {get; set;} public: SqlString get_sBedRDokumentid()public: void set_sBedRDokumentid( SqlString) public function get sBedRDokumentid() : SqlString;public function set sBedRDokumentid(value : SqlString); Public Property [sBedRDokumentid]() As SqlString Get Return m_sBedRDokumentid End Get Set(ByVal Value As SqlString) m_sBedRDokumentid = Value End Set End Property clsDokument.sBemerkung sBemerkung EDKB12WS.edokadb.clsDokument.sBemerkung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000132 Public Property sBemerkung() As SqlString public SqlString sBemerkung {get; set;} public: SqlString get_sBemerkung()public: void set_sBemerkung( SqlString) public function get sBemerkung() : SqlString;public function set sBemerkung(value : SqlString); Public Property [sBemerkung]() As SqlString Get Return m_sBemerkung End Get Set(ByVal Value As SqlString) m_sBemerkung = Value End Set End Property clsDokument.sBemerkunguvm sBemerkunguvm EDKB12WS.edokadb.clsDokument.sBemerkunguvm EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000136 Public Property sBemerkunguvm() As SqlString public SqlString sBemerkunguvm {get; set;} public: SqlString get_sBemerkunguvm()public: void set_sBemerkunguvm( SqlString) public function get sBemerkunguvm() : SqlString;public function set sBemerkunguvm(value : SqlString); Public Property [sBemerkunguvm]() As SqlString Get Return m_sBemerkunguvm End Get Set(ByVal Value As SqlString) m_sBemerkunguvm = Value End Set End Property clsDokument.sBezeichnung sBezeichnung EDKB12WS.edokadb.clsDokument.sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000131 Public Property sBezeichnung() As SqlString public SqlString sBezeichnung {get; set;} public: SqlString get_sBezeichnung()public: void set_sBezeichnung( SqlString) public function get sBezeichnung() : SqlString;public function set sBezeichnung(value : SqlString); Public Property [sBezeichnung]() As SqlString Get Return m_sBezeichnung End Get Set(ByVal Value As SqlString) m_sBezeichnung = Value End Set End Property clsDokument.sColddokumentid sColddokumentid EDKB12WS.edokadb.clsDokument.sColddokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000145 Public Property sColddokumentid() As SqlString public SqlString sColddokumentid {get; set;} public: SqlString get_sColddokumentid()public: void set_sColddokumentid( SqlString) public function get sColddokumentid() : SqlString;public function set sColddokumentid(value : SqlString); Public Property [sColddokumentid]() As SqlString Get Return m_sColddokumentid End Get Set(ByVal Value As SqlString) m_sColddokumentid = Value End Set End Property clsDokument.sColdfolder sColdfolder EDKB12WS.edokadb.clsDokument.sColdfolder EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015E Public Property sColdfolder() As SqlString public SqlString sColdfolder {get; set;} public: SqlString get_sColdfolder()public: void set_sColdfolder( SqlString) public function get sColdfolder() : SqlString;public function set sColdfolder(value : SqlString); Public Property [sColdfolder]() As SqlString Get Return m_sColdfolder End Get Set(ByVal Value As SqlString) m_sColdfolder = Value End Set End Property clsDokument.sColdschema sColdschema EDKB12WS.edokadb.clsDokument.sColdschema EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000015F Public Property sColdschema() As SqlString public SqlString sColdschema {get; set;} public: SqlString get_sColdschema()public: void set_sColdschema( SqlString) public function get sColdschema() : SqlString;public function set sColdschema(value : SqlString); Public Property [sColdschema]() As SqlString Get Return m_sColdschema End Get Set(ByVal Value As SqlString) m_sColdschema = Value End Set End Property clsDokument.sDokumentid sDokumentid EDKB12WS.edokadb.clsDokument.sDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000121 Public Property sDokumentid() As SqlString public SqlString sDokumentid {get; set;} public: SqlString get_sDokumentid()public: void set_sDokumentid( SqlString) public function get sDokumentid() : SqlString;public function set sDokumentid(value : SqlString); Public Property [sDokumentid]() As SqlString Get Return m_sDokumentid End Get Set(ByVal Value As SqlString) Dim sDokumentidTmp As SqlString = Value If sDokumentidTmp.IsNull Then Throw New ArgumentOutOfRangeException("sDokumentid", "sDokumentid can't be NULL") End If m_sDokumentid = Value End Set End Property clsDokument.sDokumentidn sDokumentidn EDKB12WS.edokadb.clsDokument.sDokumentidn EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000125 Public Property sDokumentidn() As SqlString public SqlString sDokumentidn {get; set;} public: SqlString get_sDokumentidn()public: void set_sDokumentidn( SqlString) public function get sDokumentidn() : SqlString;public function set sDokumentidn(value : SqlString); Public Property [sDokumentidn]() As SqlString Get Return m_sDokumentidn End Get Set(ByVal Value As SqlString) m_sDokumentidn = Value End Set End Property clsDokument.sDokumentname sDokumentname EDKB12WS.edokadb.clsDokument.sDokumentname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000126 Public Property sDokumentname() As SqlString public SqlString sDokumentname {get; set;} public: SqlString get_sDokumentname()public: void set_sDokumentname( SqlString) public function get sDokumentname() : SqlString;public function set sDokumentname(value : SqlString); Public Property [sDokumentname]() As SqlString Get Return m_sDokumentname End Get Set(ByVal Value As SqlString) m_sDokumentname = Value End Set End Property clsDokument.sFANummer1 sFANummer1 EDKB12WS.edokadb.clsDokument.sFANummer1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000161 Public Property sFANummer1() As SqlString public SqlString sFANummer1 {get; set;} public: SqlString get_sFANummer1()public: void set_sFANummer1( SqlString) public function get sFANummer1() : SqlString;public function set sFANummer1(value : SqlString); Public Property [sFANummer1]() As SqlString Get Return m_sFANummer1 End Get Set(ByVal Value As SqlString) m_sFANummer1 = Value End Set End Property clsDokument.sFANummer2 sFANummer2 EDKB12WS.edokadb.clsDokument.sFANummer2 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000162 Public Property sFANummer2() As SqlString public SqlString sFANummer2 {get; set;} public: SqlString get_sFANummer2()public: void set_sFANummer2( SqlString) public function get sFANummer2() : SqlString;public function set sFANummer2(value : SqlString); Public Property [sFANummer2]() As SqlString Get Return m_sFANummer2 End Get Set(ByVal Value As SqlString) m_sFANummer2 = Value End Set End Property clsDokument.sFanummer3 sFanummer3 EDKB12WS.edokadb.clsDokument.sFanummer3 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016A Public Property sFanummer3() As SqlString public SqlString sFanummer3 {get; set;} public: SqlString get_sFanummer3()public: void set_sFanummer3( SqlString) public function get sFanummer3() : SqlString;public function set sFanummer3(value : SqlString); Public Property [sFanummer3]() As SqlString Get Return m_sFanummer3 End Get Set(ByVal Value As SqlString) m_sFanummer3 = Value End Set End Property clsDokument.sLoeschgrund sLoeschgrund EDKB12WS.edokadb.clsDokument.sLoeschgrund EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000141 Public Property sLoeschgrund() As SqlString public SqlString sLoeschgrund {get; set;} public: SqlString get_sLoeschgrund()public: void set_sLoeschgrund( SqlString) public function get sLoeschgrund() : SqlString;public function set sLoeschgrund(value : SqlString); Public Property [sLoeschgrund]() As SqlString Get Return m_sLoeschgrund End Get Set(ByVal Value As SqlString) m_sLoeschgrund = Value End Set End Property clsDokument.sSpeicherort sSpeicherort EDKB12WS.edokadb.clsDokument.sSpeicherort EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000012D Public Property sSpeicherort() As SqlString public SqlString sSpeicherort {get; set;} public: SqlString get_sSpeicherort()public: void set_sSpeicherort( SqlString) public function get sSpeicherort() : SqlString;public function set sSpeicherort(value : SqlString); Public Property [sSpeicherort]() As SqlString Get Return m_sSpeicherort End Get Set(ByVal Value As SqlString) m_sSpeicherort = Value End Set End Property clsDokument.sVersandadresse sVersandadresse EDKB12WS.edokadb.clsDokument.sVersandadresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000143 Public Property sVersandadresse() As SqlString public SqlString sVersandadresse {get; set;} public: SqlString get_sVersandadresse()public: void set_sVersandadresse( SqlString) public function get sVersandadresse() : SqlString;public function set sVersandadresse(value : SqlString); Public Property [sVersandadresse]() As SqlString Get Return m_sVersandadresse End Get Set(ByVal Value As SqlString) m_sVersandadresse = Value End Set End Property clsDokument.sVvnr sVvnr EDKB12WS.edokadb.clsDokument.sVvnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016B Public Property sVvnr() As SqlString public SqlString sVvnr {get; set;} public: SqlString get_sVvnr()public: void set_sVvnr( SqlString) public function get sVvnr() : SqlString;public function set sVvnr(value : SqlString); Public Property [sVvnr]() As SqlString Get Return m_sVvnr End Get Set(ByVal Value As SqlString) m_sVvnr = Value End Set End Property clsDokument.sZustelladresse sZustelladresse EDKB12WS.edokadb.clsDokument.sZustelladresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000014F Public Property sZustelladresse() As SqlString public SqlString sZustelladresse {get; set;} public: SqlString get_sZustelladresse()public: void set_sZustelladresse( SqlString) public function get sZustelladresse() : SqlString;public function set sZustelladresse(value : SqlString); Public Property [sZustelladresse]() As SqlString Get Return m_sZustelladresse End Get Set(ByVal Value As SqlString) m_sZustelladresse = Value End Set End Property clsDokument.Delete Delete EDKB12WS.edokadb.clsDokument.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011E Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokument::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsDokument.Insert Insert EDKB12WS.edokadb.clsDokument.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011C Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokument::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsDokument.SelectAll SelectAll EDKB12WS.edokadb.clsDokument.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000120 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("dokument") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokument::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsDokument.SelectOne SelectOne EDKB12WS.edokadb.clsDokument.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011F Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("dokument") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then m_iMitarbeiternr = SqlInt32.Null Else m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer)) End If If dtToReturn.Rows(0)("mitarbeiternr1") Is System.DBNull.Value Then m_iMitarbeiternr1 = SqlInt32.Null Else m_iMitarbeiternr1 = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr1"), Integer)) End If If dtToReturn.Rows(0)("nrpar00") Is System.DBNull.Value Then m_iNrpar00 = SqlInt32.Null Else m_iNrpar00 = New SqlInt32(CType(dtToReturn.Rows(0)("nrpar00"), Integer)) End If If dtToReturn.Rows(0)("dokumentidn") Is System.DBNull.Value Then m_sDokumentidn = SqlString.Null Else m_sDokumentidn = New SqlString(CType(dtToReturn.Rows(0)("dokumentidn"), String)) End If If dtToReturn.Rows(0)("dokumentname") Is System.DBNull.Value Then m_sDokumentname = SqlString.Null Else m_sDokumentname = New SqlString(CType(dtToReturn.Rows(0)("dokumentname"), String)) End If If dtToReturn.Rows(0)("ersteller") Is System.DBNull.Value Then m_iErsteller = SqlInt32.Null Else m_iErsteller = New SqlInt32(CType(dtToReturn.Rows(0)("ersteller"), Integer)) End If If dtToReturn.Rows(0)("erstellerteam") Is System.DBNull.Value Then m_iErstellerteam = SqlInt32.Null Else m_iErstellerteam = New SqlInt32(CType(dtToReturn.Rows(0)("erstellerteam"), Integer)) End If If dtToReturn.Rows(0)("erstelltam") Is System.DBNull.Value Then m_daErstelltam = SqlDateTime.Null Else m_daErstelltam = New SqlDateTime(CType(dtToReturn.Rows(0)("erstelltam"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("mutierertieam") Is System.DBNull.Value Then m_iMutierertieam = SqlInt32.Null Else m_iMutierertieam = New SqlInt32(CType(dtToReturn.Rows(0)("mutierertieam"), Integer)) End If If dtToReturn.Rows(0)("mutiertam") Is System.DBNull.Value Then m_daMutiertam = SqlDateTime.Null Else m_daMutiertam = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiertam"), Date)) End If If dtToReturn.Rows(0)("speicherort") Is System.DBNull.Value Then m_sSpeicherort = SqlString.Null Else m_sSpeicherort = New SqlString(CType(dtToReturn.Rows(0)("speicherort"), String)) End If If dtToReturn.Rows(0)("gesperrt") Is System.DBNull.Value Then m_bGesperrt = SqlBoolean.Null Else m_bGesperrt = New SqlBoolean(CType(dtToReturn.Rows(0)("gesperrt"), Boolean)) End If If dtToReturn.Rows(0)("gesperrt_durch") Is System.DBNull.Value Then m_iGesperrt_durch = SqlInt32.Null Else m_iGesperrt_durch = New SqlInt32(CType(dtToReturn.Rows(0)("gesperrt_durch"), Integer)) End If If dtToReturn.Rows(0)("gesperrtam") Is System.DBNull.Value Then m_daGesperrtam = SqlDateTime.Null Else m_daGesperrtam = New SqlDateTime(CType(dtToReturn.Rows(0)("gesperrtam"), Date)) End If If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then m_sBezeichnung = SqlString.Null Else m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String)) End If If dtToReturn.Rows(0)("bemerkung") Is System.DBNull.Value Then m_sBemerkung = SqlString.Null Else m_sBemerkung = New SqlString(CType(dtToReturn.Rows(0)("bemerkung"), String)) End If If dtToReturn.Rows(0)("auserstuebernahme") Is System.DBNull.Value Then m_bAuserstuebernahme = SqlBoolean.Null Else m_bAuserstuebernahme = New SqlBoolean(CType(dtToReturn.Rows(0)("auserstuebernahme"), Boolean)) End If If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then m_iDokumenttypnr = SqlInt32.Null Else m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) End If If dtToReturn.Rows(0)("unvollstaendig") Is System.DBNull.Value Then m_bUnvollstaendig = SqlBoolean.Null Else m_bUnvollstaendig = New SqlBoolean(CType(dtToReturn.Rows(0)("unvollstaendig"), Boolean)) End If If dtToReturn.Rows(0)("bemerkunguvm") Is System.DBNull.Value Then m_sBemerkunguvm = SqlString.Null Else m_sBemerkunguvm = New SqlString(CType(dtToReturn.Rows(0)("bemerkunguvm"), String)) End If If dtToReturn.Rows(0)("bereit_zur_archivierung") Is System.DBNull.Value Then m_bBereit_zur_archivierung = SqlBoolean.Null Else m_bBereit_zur_archivierung = New SqlBoolean(CType(dtToReturn.Rows(0)("bereit_zur_archivierung"), Boolean)) End If If dtToReturn.Rows(0)("ausgangsarchiviert") Is System.DBNull.Value Then m_bAusgangsarchiviert = SqlBoolean.Null Else m_bAusgangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("ausgangsarchiviert"), Boolean)) End If If dtToReturn.Rows(0)("datum_ausgangsarchivierung") Is System.DBNull.Value Then m_daDatum_ausgangsarchivierung = SqlDateTime.Null Else m_daDatum_ausgangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_ausgangsarchivierung"), Date)) End If If dtToReturn.Rows(0)("ma_ausgangsarchivierung") Is System.DBNull.Value Then m_iMa_ausgangsarchivierung = SqlInt32.Null Else m_iMa_ausgangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_ausgangsarchivierung"), Integer)) End If If dtToReturn.Rows(0)("zu_retournieren") Is System.DBNull.Value Then m_bZu_retournieren = SqlBoolean.Null Else m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean)) End If If dtToReturn.Rows(0)("eingangsarchiviert") Is System.DBNull.Value Then m_bEingangsarchiviert = SqlBoolean.Null Else m_bEingangsarchiviert = New SqlBoolean(CType(dtToReturn.Rows(0)("eingangsarchiviert"), Boolean)) End If If dtToReturn.Rows(0)("datum_eingangsarchivierung") Is System.DBNull.Value Then m_daDatum_eingangsarchivierung = SqlDateTime.Null Else m_daDatum_eingangsarchivierung = New SqlDateTime(CType(dtToReturn.Rows(0)("datum_eingangsarchivierung"), Date)) End If If dtToReturn.Rows(0)("ma_eingangsarchivierung") Is System.DBNull.Value Then m_iMa_eingangsarchivierung = SqlInt32.Null Else m_iMa_eingangsarchivierung = New SqlInt32(CType(dtToReturn.Rows(0)("ma_eingangsarchivierung"), Integer)) End If If dtToReturn.Rows(0)("status_edoka_batch_ausgang") Is System.DBNull.Value Then m_iStatus_edoka_batch_ausgang = SqlInt32.Null Else m_iStatus_edoka_batch_ausgang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_ausgang"), Integer)) End If If dtToReturn.Rows(0)("status_edoka_batch_eingang") Is System.DBNull.Value Then m_iStatus_edoka_batch_eingang = SqlInt32.Null Else m_iStatus_edoka_batch_eingang = New SqlInt32(CType(dtToReturn.Rows(0)("status_edoka_batch_eingang"), Integer)) End If If dtToReturn.Rows(0)("loeschgrund") Is System.DBNull.Value Then m_sLoeschgrund = SqlString.Null Else m_sLoeschgrund = New SqlString(CType(dtToReturn.Rows(0)("loeschgrund"), String)) End If If dtToReturn.Rows(0)("coldstatus") Is System.DBNull.Value Then m_iColdstatus = SqlInt32.Null Else m_iColdstatus = New SqlInt32(CType(dtToReturn.Rows(0)("coldstatus"), Integer)) End If If dtToReturn.Rows(0)("versandadresse") Is System.DBNull.Value Then m_sVersandadresse = SqlString.Null Else m_sVersandadresse = New SqlString(CType(dtToReturn.Rows(0)("versandadresse"), String)) End If If dtToReturn.Rows(0)("barcodenr") Is System.DBNull.Value Then m_iBarcodenr = SqlInt32.Null Else m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer)) End If If dtToReturn.Rows(0)("colddokumentid") Is System.DBNull.Value Then m_sColddokumentid = SqlString.Null Else m_sColddokumentid = New SqlString(CType(dtToReturn.Rows(0)("colddokumentid"), String)) End If If dtToReturn.Rows(0)("amsdokument") Is System.DBNull.Value Then m_bAmsdokument = SqlBoolean.Null Else m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean)) End If If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then m_iVerantwortlich = SqlInt32.Null Else m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) End If If dtToReturn.Rows(0)("zustaendiger") Is System.DBNull.Value Then m_iZustaendiger = SqlInt32.Null Else m_iZustaendiger = New SqlInt32(CType(dtToReturn.Rows(0)("zustaendiger"), Integer)) End If If dtToReturn.Rows(0)("unterschriftlinks") Is System.DBNull.Value Then m_iUnterschriftlinks = SqlInt32.Null Else m_iUnterschriftlinks = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftlinks"), Integer)) End If If dtToReturn.Rows(0)("unterschriftrechts") Is System.DBNull.Value Then m_iUnterschriftrechts = SqlInt32.Null Else m_iUnterschriftrechts = New SqlInt32(CType(dtToReturn.Rows(0)("unterschriftrechts"), Integer)) End If If dtToReturn.Rows(0)("postzustellung") Is System.DBNull.Value Then m_iPostzustellung = SqlInt32.Null Else m_iPostzustellung = New SqlInt32(CType(dtToReturn.Rows(0)("postzustellung"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("statusnr") Is System.DBNull.Value Then m_iStatusnr = SqlInt32.Null Else m_iStatusnr = New SqlInt32(CType(dtToReturn.Rows(0)("statusnr"), Integer)) End If If dtToReturn.Rows(0)("zustaendig_kube") Is System.DBNull.Value Then m_bZustaendig_kube = SqlBoolean.Null Else m_bZustaendig_kube = New SqlBoolean(CType(dtToReturn.Rows(0)("zustaendig_kube"), Boolean)) End If If dtToReturn.Rows(0)("zustelladresse") Is System.DBNull.Value Then m_sZustelladresse = SqlString.Null Else m_sZustelladresse = New SqlString(CType(dtToReturn.Rows(0)("zustelladresse"), String)) End If If dtToReturn.Rows(0)("vertraulich") Is System.DBNull.Value Then m_bVertraulich = SqlBoolean.Null Else m_bVertraulich = New SqlBoolean(CType(dtToReturn.Rows(0)("vertraulich"), Boolean)) End If If dtToReturn.Rows(0)("erstellungsdatum") Is System.DBNull.Value Then m_daErstellungsdatum = SqlDateTime.Null Else m_daErstellungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellungsdatum"), Date)) End If If dtToReturn.Rows(0)("archivierungsdatum") Is System.DBNull.Value Then m_daArchivierungsdatum = SqlDateTime.Null Else m_daArchivierungsdatum = New SqlDateTime(CType(dtToReturn.Rows(0)("archivierungsdatum"), Date)) End If If dtToReturn.Rows(0)("termin") Is System.DBNull.Value Then m_daTermin = SqlDateTime.Null Else m_daTermin = New SqlDateTime(CType(dtToReturn.Rows(0)("termin"), Date)) End If If dtToReturn.Rows(0)("mutiererteam") Is System.DBNull.Value Then m_iMutiererteam = SqlInt32.Null Else m_iMutiererteam = New SqlInt32(CType(dtToReturn.Rows(0)("mutiererteam"), Integer)) End If If dtToReturn.Rows(0)("anredezustelladresse") Is System.DBNull.Value Then m_sAnredezustelladresse = SqlString.Null Else m_sAnredezustelladresse = New SqlString(CType(dtToReturn.Rows(0)("anredezustelladresse"), String)) End If If dtToReturn.Rows(0)("dokdurchkubeweitergegeben") Is System.DBNull.Value Then m_iDokdurchkubeweitergegeben = SqlInt32.Null Else m_iDokdurchkubeweitergegeben = New SqlInt32(CType(dtToReturn.Rows(0)("dokdurchkubeweitergegeben"), Integer)) End If If dtToReturn.Rows(0)("bck") Is System.DBNull.Value Then m_iBck = SqlInt32.Null Else m_iBck = New SqlInt32(CType(dtToReturn.Rows(0)("bck"), Integer)) End If If dtToReturn.Rows(0)("bearbeitungszeit_in_minuten") Is System.DBNull.Value Then m_iBearbeitungszeit_in_minuten = SqlInt32.Null Else m_iBearbeitungszeit_in_minuten = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitungszeit_in_minuten"), Integer)) End If If dtToReturn.Rows(0)("monierung_in_tagen") Is System.DBNull.Value Then m_iMonierung_in_tagen = SqlInt32.Null Else m_iMonierung_in_tagen = New SqlInt32(CType(dtToReturn.Rows(0)("monierung_in_tagen"), Integer)) End If If dtToReturn.Rows(0)("aufbewahrung_elektronisch") Is System.DBNull.Value Then m_iAufbewahrung_elektronisch = SqlInt32.Null Else m_iAufbewahrung_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_elektronisch"), Integer)) End If If dtToReturn.Rows(0)("aufbewahrung_phaysisch") Is System.DBNull.Value Then m_iAufbewahrung_phaysisch = SqlInt32.Null Else m_iAufbewahrung_phaysisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrung_phaysisch"), Integer)) End If If dtToReturn.Rows(0)("in_edoka_datenbank") Is System.DBNull.Value Then m_iIn_edoka_datenbank = SqlInt32.Null Else m_iIn_edoka_datenbank = New SqlInt32(CType(dtToReturn.Rows(0)("in_edoka_datenbank"), Integer)) End If If dtToReturn.Rows(0)("bearbeitung_nach_abschluss") Is System.DBNull.Value Then m_iBearbeitung_nach_abschluss = SqlInt32.Null Else m_iBearbeitung_nach_abschluss = New SqlInt32(CType(dtToReturn.Rows(0)("bearbeitung_nach_abschluss"), Integer)) End If If dtToReturn.Rows(0)("coldfolder") Is System.DBNull.Value Then m_sColdfolder = SqlString.Null Else m_sColdfolder = New SqlString(CType(dtToReturn.Rows(0)("coldfolder"), String)) End If If dtToReturn.Rows(0)("coldschema") Is System.DBNull.Value Then m_sColdschema = SqlString.Null Else m_sColdschema = New SqlString(CType(dtToReturn.Rows(0)("coldschema"), String)) End If If dtToReturn.Rows(0)("erinnerungam") Is System.DBNull.Value Then m_daErinnerungam = SqlDateTime.Null Else m_daErinnerungam = New SqlDateTime(CType(dtToReturn.Rows(0)("erinnerungam"), Date)) End If If dtToReturn.Rows(0)("FANummer1") Is System.DBNull.Value Then m_sFANummer1 = SqlString.Null Else m_sFANummer1 = New SqlString(CType(dtToReturn.Rows(0)("FANummer1"), String)) End If If dtToReturn.Rows(0)("FANummer2") Is System.DBNull.Value Then m_sFANummer2 = SqlString.Null Else m_sFANummer2 = New SqlString(CType(dtToReturn.Rows(0)("FANummer2"), String)) End If If dtToReturn.Rows(0)("fapartnerwechsel") Is System.DBNull.Value Then m_bFapartnerwechsel = SqlBoolean.Null Else m_bFapartnerwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("fapartnerwechsel"), Boolean)) End If If dtToReturn.Rows(0)("FAStatuswechsel") Is System.DBNull.Value Then m_bFAStatuswechsel = SqlBoolean.Null Else m_bFAStatuswechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAStatuswechsel"), Boolean)) End If If dtToReturn.Rows(0)("FAVerantwortlicherwechsel") Is System.DBNull.Value Then m_bFAVerantwortlicherwechsel = SqlBoolean.Null Else m_bFAVerantwortlicherwechsel = New SqlBoolean(CType(dtToReturn.Rows(0)("FAVerantwortlicherwechsel"), Boolean)) End If If dtToReturn.Rows(0)("BedRDokumentid") Is System.DBNull.Value Then m_sBedRDokumentid = SqlString.Null Else m_sBedRDokumentid = New SqlString(CType(dtToReturn.Rows(0)("BedRDokumentid"), String)) End If If dtToReturn.Rows(0)("BedRRetourniert") Is System.DBNull.Value Then m_bBedRRetourniert = SqlBoolean.Null Else m_bBedRRetourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("BedRRetourniert"), Boolean)) End If If dtToReturn.Rows(0)("BRVernichtungnachTagen") Is System.DBNull.Value Then m_iBRVernichtungnachTagen = SqlInt32.Null Else m_iBRVernichtungnachTagen = New SqlInt32(CType(dtToReturn.Rows(0)("BRVernichtungnachTagen"), Integer)) End If If dtToReturn.Rows(0)("officedokumentgeloescht") Is System.DBNull.Value Then m_bOfficedokumentgeloescht = SqlBoolean.Null Else m_bOfficedokumentgeloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("officedokumentgeloescht"), Boolean)) End If If dtToReturn.Rows(0)("fanummer3") Is System.DBNull.Value Then m_sFanummer3 = SqlString.Null Else m_sFanummer3 = New SqlString(CType(dtToReturn.Rows(0)("fanummer3"), String)) End If If dtToReturn.Rows(0)("vvnr") Is System.DBNull.Value Then m_sVvnr = SqlString.Null Else m_sVvnr = New SqlString(CType(dtToReturn.Rows(0)("vvnr"), String)) End If If dtToReturn.Rows(0)("AnzeigeStatus") Is System.DBNull.Value Then m_iAnzeigeStatus = SqlInt32.Null Else m_iAnzeigeStatus = New SqlInt32(CType(dtToReturn.Rows(0)("AnzeigeStatus"), Integer)) End If If dtToReturn.Rows(0)("bl_scan") Is System.DBNull.Value Then m_bBl_scan = SqlBoolean.Null Else m_bBl_scan = New SqlBoolean(CType(dtToReturn.Rows(0)("bl_scan"), Boolean)) End If If dtToReturn.Rows(0)("bldossier") Is System.DBNull.Value Then m_bBldossier = SqlBoolean.Null Else m_bBldossier = New SqlBoolean(CType(dtToReturn.Rows(0)("bldossier"), Boolean)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokument::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsDokument.Update Update EDKB12WS.edokadb.clsDokument.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011D Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokument_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@inrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentidn", SqlDbType.VarChar, 20, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentidn)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iersteller", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErsteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ierstellerteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iErstellerteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstelltam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstelltam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierertieam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierertieam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiertam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiertam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sspeicherort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpeicherort)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bgesperrt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bGesperrt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@igesperrt_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iGesperrt_durch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dagesperrtam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daGesperrtam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bauserstuebernahme", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAuserstuebernahme)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunvollstaendig", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bUnvollstaendig)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbemerkunguvm", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBemerkunguvm)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbereit_zur_archivierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBereit_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausgangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusgangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_ausgangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_ausgangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_ausgangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingangsarchiviert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEingangsarchiviert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatum_eingangsarchivierung", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatum_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ima_eingangsarchivierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMa_eingangsarchivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_ausgang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus_edoka_batch_eingang", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatus_edoka_batch_eingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sloeschgrund", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sLoeschgrund)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icoldstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iColdstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sversandadresse", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersandadresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scolddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColddokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@izustaendiger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iZustaendiger)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftlinks", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftlinks)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iunterschriftrechts", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iUnterschriftrechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipostzustellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPostzustellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatusnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iStatusnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzustaendig_kube", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bZustaendig_kube)) scmCmdToExecute.Parameters.Add(New SqlParameter("@szustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertraulich", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertraulich)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daarchivierungsdatum", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daArchivierungsdatum)) scmCmdToExecute.Parameters.Add(New SqlParameter("@datermin", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daTermin)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutiererteam", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutiererteam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sanredezustelladresse", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnredezustelladresse)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokdurchkubeweitergegeben", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokdurchkubeweitergegeben)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibck", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBck)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitungszeit_in_minuten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitungszeit_in_minuten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonierung_in_tagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMonierung_in_tagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrung_phaysisch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrung_phaysisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iin_edoka_datenbank", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIn_edoka_datenbank)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibearbeitung_nach_abschluss", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBearbeitung_nach_abschluss)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldfolder", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdfolder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@scoldschema", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sColdschema)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerinnerungam", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErinnerungam)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer1", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sFANummer2", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFANummer2)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfapartnerwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFapartnerwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAStatuswechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAStatuswechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bFAVerantwortlicherwechsel", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFAVerantwortlicherwechsel)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBedRDokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBedRDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bBedRRetourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedRRetourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iBRVernichtungnachTagen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBRVernichtungnachTagen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bofficedokumentgeloescht", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bOfficedokumentgeloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfanummer3", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFanummer3)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svvnr", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVvnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAnzeigeStatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnzeigeStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbl_scan", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBl_scan)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbldossier", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBldossier)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokument_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokument::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsDokument.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D4 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bAmsdokument m_bAmsdokument EDKB12WS.edokadb.clsDokument.m_bAmsdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D3 Private m_bAmsdokument As SqlBoolean private SqlBoolean m_bAmsdokument private: SqlBoolean m_bAmsdokument; private m_bAmsdokument : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bAuserstuebernahme m_bAuserstuebernahme EDKB12WS.edokadb.clsDokument.m_bAuserstuebernahme EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D1 Private m_bAuserstuebernahme As SqlBoolean private SqlBoolean m_bAuserstuebernahme private: SqlBoolean m_bAuserstuebernahme; private m_bAuserstuebernahme : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bAusgangsarchiviert m_bAusgangsarchiviert EDKB12WS.edokadb.clsDokument.m_bAusgangsarchiviert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CE Private m_bAusgangsarchiviert As SqlBoolean private SqlBoolean m_bAusgangsarchiviert private: SqlBoolean m_bAusgangsarchiviert; private m_bAusgangsarchiviert : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bBedRRetourniert m_bBedRRetourniert EDKB12WS.edokadb.clsDokument.m_bBedRRetourniert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DE Private m_bBedRRetourniert As SqlBoolean private SqlBoolean m_bBedRRetourniert private: SqlBoolean m_bBedRRetourniert; private m_bBedRRetourniert : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bBereit_zur_archivierung m_bBereit_zur_archivierung EDKB12WS.edokadb.clsDokument.m_bBereit_zur_archivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CD Private m_bBereit_zur_archivierung As SqlBoolean private SqlBoolean m_bBereit_zur_archivierung private: SqlBoolean m_bBereit_zur_archivierung; private m_bBereit_zur_archivierung : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bBl_scan m_bBl_scan EDKB12WS.edokadb.clsDokument.m_bBl_scan EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D9 Private m_bBl_scan As SqlBoolean private SqlBoolean m_bBl_scan private: SqlBoolean m_bBl_scan; private m_bBl_scan : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bBldossier m_bBldossier EDKB12WS.edokadb.clsDokument.m_bBldossier EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DD Private m_bBldossier As SqlBoolean private SqlBoolean m_bBldossier private: SqlBoolean m_bBldossier; private m_bBldossier : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bEingangsarchiviert m_bEingangsarchiviert EDKB12WS.edokadb.clsDokument.m_bEingangsarchiviert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D6 Private m_bEingangsarchiviert As SqlBoolean private SqlBoolean m_bEingangsarchiviert private: SqlBoolean m_bEingangsarchiviert; private m_bEingangsarchiviert : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bFAStatuswechsel m_bFAStatuswechsel EDKB12WS.edokadb.clsDokument.m_bFAStatuswechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DB Private m_bFAStatuswechsel As SqlBoolean private SqlBoolean m_bFAStatuswechsel private: SqlBoolean m_bFAStatuswechsel; private m_bFAStatuswechsel : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bFAVerantwortlicherwechsel m_bFAVerantwortlicherwechsel EDKB12WS.edokadb.clsDokument.m_bFAVerantwortlicherwechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DC Private m_bFAVerantwortlicherwechsel As SqlBoolean private SqlBoolean m_bFAVerantwortlicherwechsel private: SqlBoolean m_bFAVerantwortlicherwechsel; private m_bFAVerantwortlicherwechsel : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bFapartnerwechsel m_bFapartnerwechsel EDKB12WS.edokadb.clsDokument.m_bFapartnerwechsel EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D8 Private m_bFapartnerwechsel As SqlBoolean private SqlBoolean m_bFapartnerwechsel private: SqlBoolean m_bFapartnerwechsel; private m_bFapartnerwechsel : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bGesperrt m_bGesperrt EDKB12WS.edokadb.clsDokument.m_bGesperrt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D0 Private m_bGesperrt As SqlBoolean private SqlBoolean m_bGesperrt private: SqlBoolean m_bGesperrt; private m_bGesperrt : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bOfficedokumentgeloescht m_bOfficedokumentgeloescht EDKB12WS.edokadb.clsDokument.m_bOfficedokumentgeloescht EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DA Private m_bOfficedokumentgeloescht As SqlBoolean private SqlBoolean m_bOfficedokumentgeloescht private: SqlBoolean m_bOfficedokumentgeloescht; private m_bOfficedokumentgeloescht : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bUnvollstaendig m_bUnvollstaendig EDKB12WS.edokadb.clsDokument.m_bUnvollstaendig EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000CF Private m_bUnvollstaendig As SqlBoolean private SqlBoolean m_bUnvollstaendig private: SqlBoolean m_bUnvollstaendig; private m_bUnvollstaendig : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bVertraulich m_bVertraulich EDKB12WS.edokadb.clsDokument.m_bVertraulich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D7 Private m_bVertraulich As SqlBoolean private SqlBoolean m_bVertraulich private: SqlBoolean m_bVertraulich; private m_bVertraulich : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bZu_retournieren m_bZu_retournieren EDKB12WS.edokadb.clsDokument.m_bZu_retournieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D2 Private m_bZu_retournieren As SqlBoolean private SqlBoolean m_bZu_retournieren private: SqlBoolean m_bZu_retournieren; private m_bZu_retournieren : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_bZustaendig_kube m_bZustaendig_kube EDKB12WS.edokadb.clsDokument.m_bZustaendig_kube EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000D5 Private m_bZustaendig_kube As SqlBoolean private SqlBoolean m_bZustaendig_kube private: SqlBoolean m_bZustaendig_kube; private m_bZustaendig_kube : SqlBoolean Private m_bBereit_zur_archivierung, m_bAusgangsarchiviert, m_bUnvollstaendig, m_bGesperrt, m_bAuserstuebernahme, m_bZu_retournieren, m_bAmsdokument, m_bAktiv, m_bZustaendig_kube, m_bEingangsarchiviert, m_bVertraulich, m_bFapartnerwechsel, m_bBl_scan, m_bOfficedokumentgeloescht, m_bFAStatuswechsel, m_bFAVerantwortlicherwechsel, m_bBldossier, m_bBedRRetourniert As SqlBoolean m_daArchivierungsdatum m_daArchivierungsdatum EDKB12WS.edokadb.clsDokument.m_daArchivierungsdatum EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000DF Private m_daArchivierungsdatum As SqlDateTime private SqlDateTime m_daArchivierungsdatum private: SqlDateTime m_daArchivierungsdatum; private m_daArchivierungsdatum : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daDatum_ausgangsarchivierung m_daDatum_ausgangsarchivierung EDKB12WS.edokadb.clsDokument.m_daDatum_ausgangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E1 Private m_daDatum_ausgangsarchivierung As SqlDateTime private SqlDateTime m_daDatum_ausgangsarchivierung private: SqlDateTime m_daDatum_ausgangsarchivierung; private m_daDatum_ausgangsarchivierung : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daDatum_eingangsarchivierung m_daDatum_eingangsarchivierung EDKB12WS.edokadb.clsDokument.m_daDatum_eingangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E3 Private m_daDatum_eingangsarchivierung As SqlDateTime private SqlDateTime m_daDatum_eingangsarchivierung private: SqlDateTime m_daDatum_eingangsarchivierung; private m_daDatum_eingangsarchivierung : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daErinnerungam m_daErinnerungam EDKB12WS.edokadb.clsDokument.m_daErinnerungam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E5 Private m_daErinnerungam As SqlDateTime private SqlDateTime m_daErinnerungam private: SqlDateTime m_daErinnerungam; private m_daErinnerungam : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daErstelltam m_daErstelltam EDKB12WS.edokadb.clsDokument.m_daErstelltam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E7 Private m_daErstelltam As SqlDateTime private SqlDateTime m_daErstelltam private: SqlDateTime m_daErstelltam; private m_daErstelltam : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daErstellungsdatum m_daErstellungsdatum EDKB12WS.edokadb.clsDokument.m_daErstellungsdatum EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E2 Private m_daErstellungsdatum As SqlDateTime private SqlDateTime m_daErstellungsdatum private: SqlDateTime m_daErstellungsdatum; private m_daErstellungsdatum : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daGesperrtam m_daGesperrtam EDKB12WS.edokadb.clsDokument.m_daGesperrtam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E4 Private m_daGesperrtam As SqlDateTime private SqlDateTime m_daGesperrtam private: SqlDateTime m_daGesperrtam; private m_daGesperrtam : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daMutiertam m_daMutiertam EDKB12WS.edokadb.clsDokument.m_daMutiertam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E6 Private m_daMutiertam As SqlDateTime private SqlDateTime m_daMutiertam private: SqlDateTime m_daMutiertam; private m_daMutiertam : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_daTermin m_daTermin EDKB12WS.edokadb.clsDokument.m_daTermin EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E0 Private m_daTermin As SqlDateTime private SqlDateTime m_daTermin private: SqlDateTime m_daTermin; private m_daTermin : SqlDateTime Private m_daArchivierungsdatum, m_daTermin, m_daDatum_ausgangsarchivierung, m_daErstellungsdatum, m_daDatum_eingangsarchivierung, m_daGesperrtam, m_daErinnerungam, m_daMutiertam, m_daErstelltam As SqlDateTime m_iAnzeigeStatus m_iAnzeigeStatus EDKB12WS.edokadb.clsDokument.m_iAnzeigeStatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E9 Private m_iAnzeigeStatus As SqlInt32 private SqlInt32 m_iAnzeigeStatus private: SqlInt32 m_iAnzeigeStatus; private m_iAnzeigeStatus : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iAufbewahrung_elektronisch m_iAufbewahrung_elektronisch EDKB12WS.edokadb.clsDokument.m_iAufbewahrung_elektronisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000EC Private m_iAufbewahrung_elektronisch As SqlInt32 private SqlInt32 m_iAufbewahrung_elektronisch private: SqlInt32 m_iAufbewahrung_elektronisch; private m_iAufbewahrung_elektronisch : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iAufbewahrung_phaysisch m_iAufbewahrung_phaysisch EDKB12WS.edokadb.clsDokument.m_iAufbewahrung_phaysisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000EE Private m_iAufbewahrung_phaysisch As SqlInt32 private SqlInt32 m_iAufbewahrung_phaysisch private: SqlInt32 m_iAufbewahrung_phaysisch; private m_iAufbewahrung_phaysisch : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iBRVernichtungnachTagen m_iBRVernichtungnachTagen EDKB12WS.edokadb.clsDokument.m_iBRVernichtungnachTagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F3 Private m_iBRVernichtungnachTagen As SqlInt32 private SqlInt32 m_iBRVernichtungnachTagen private: SqlInt32 m_iBRVernichtungnachTagen; private m_iBRVernichtungnachTagen : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iBarcodenr m_iBarcodenr EDKB12WS.edokadb.clsDokument.m_iBarcodenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000105 Private m_iBarcodenr As SqlInt32 private SqlInt32 m_iBarcodenr private: SqlInt32 m_iBarcodenr; private m_iBarcodenr : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iBck m_iBck EDKB12WS.edokadb.clsDokument.m_iBck EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F5 Private m_iBck As SqlInt32 private SqlInt32 m_iBck private: SqlInt32 m_iBck; private m_iBck : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iBearbeitung_nach_abschluss m_iBearbeitung_nach_abschluss EDKB12WS.edokadb.clsDokument.m_iBearbeitung_nach_abschluss EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000EF Private m_iBearbeitung_nach_abschluss As SqlInt32 private SqlInt32 m_iBearbeitung_nach_abschluss private: SqlInt32 m_iBearbeitung_nach_abschluss; private m_iBearbeitung_nach_abschluss : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iBearbeitungszeit_in_minuten m_iBearbeitungszeit_in_minuten EDKB12WS.edokadb.clsDokument.m_iBearbeitungszeit_in_minuten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F4 Private m_iBearbeitungszeit_in_minuten As SqlInt32 private SqlInt32 m_iBearbeitungszeit_in_minuten private: SqlInt32 m_iBearbeitungszeit_in_minuten; private m_iBearbeitungszeit_in_minuten : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iColdstatus m_iColdstatus EDKB12WS.edokadb.clsDokument.m_iColdstatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000102 Private m_iColdstatus As SqlInt32 private SqlInt32 m_iColdstatus private: SqlInt32 m_iColdstatus; private m_iColdstatus : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iDokdurchkubeweitergegeben m_iDokdurchkubeweitergegeben EDKB12WS.edokadb.clsDokument.m_iDokdurchkubeweitergegeben EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F1 Private m_iDokdurchkubeweitergegeben As SqlInt32 private SqlInt32 m_iDokdurchkubeweitergegeben private: SqlInt32 m_iDokdurchkubeweitergegeben; private m_iDokdurchkubeweitergegeben : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iDokumenttypnr m_iDokumenttypnr EDKB12WS.edokadb.clsDokument.m_iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F8 Private m_iDokumenttypnr As SqlInt32 private SqlInt32 m_iDokumenttypnr private: SqlInt32 m_iDokumenttypnr; private m_iDokumenttypnr : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iErsteller m_iErsteller EDKB12WS.edokadb.clsDokument.m_iErsteller EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000100 Private m_iErsteller As SqlInt32 private SqlInt32 m_iErsteller private: SqlInt32 m_iErsteller; private m_iErsteller : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iErstellerteam m_iErstellerteam EDKB12WS.edokadb.clsDokument.m_iErstellerteam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FF Private m_iErstellerteam As SqlInt32 private SqlInt32 m_iErstellerteam private: SqlInt32 m_iErstellerteam; private m_iErstellerteam : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iGesperrt_durch m_iGesperrt_durch EDKB12WS.edokadb.clsDokument.m_iGesperrt_durch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F6 Private m_iGesperrt_durch As SqlInt32 private SqlInt32 m_iGesperrt_durch private: SqlInt32 m_iGesperrt_durch; private m_iGesperrt_durch : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iIn_edoka_datenbank m_iIn_edoka_datenbank EDKB12WS.edokadb.clsDokument.m_iIn_edoka_datenbank EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F0 Private m_iIn_edoka_datenbank As SqlInt32 private SqlInt32 m_iIn_edoka_datenbank private: SqlInt32 m_iIn_edoka_datenbank; private m_iIn_edoka_datenbank : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMa_ausgangsarchivierung m_iMa_ausgangsarchivierung EDKB12WS.edokadb.clsDokument.m_iMa_ausgangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FA Private m_iMa_ausgangsarchivierung As SqlInt32 private SqlInt32 m_iMa_ausgangsarchivierung private: SqlInt32 m_iMa_ausgangsarchivierung; private m_iMa_ausgangsarchivierung : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMa_eingangsarchivierung m_iMa_eingangsarchivierung EDKB12WS.edokadb.clsDokument.m_iMa_eingangsarchivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F9 Private m_iMa_eingangsarchivierung As SqlInt32 private SqlInt32 m_iMa_eingangsarchivierung private: SqlInt32 m_iMa_eingangsarchivierung; private m_iMa_eingangsarchivierung : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMitarbeiternr m_iMitarbeiternr EDKB12WS.edokadb.clsDokument.m_iMitarbeiternr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FD Private m_iMitarbeiternr As SqlInt32 private SqlInt32 m_iMitarbeiternr private: SqlInt32 m_iMitarbeiternr; private m_iMitarbeiternr : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMitarbeiternr1 m_iMitarbeiternr1 EDKB12WS.edokadb.clsDokument.m_iMitarbeiternr1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FC Private m_iMitarbeiternr1 As SqlInt32 private SqlInt32 m_iMitarbeiternr1 private: SqlInt32 m_iMitarbeiternr1; private m_iMitarbeiternr1 : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMonierung_in_tagen m_iMonierung_in_tagen EDKB12WS.edokadb.clsDokument.m_iMonierung_in_tagen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000ED Private m_iMonierung_in_tagen As SqlInt32 private SqlInt32 m_iMonierung_in_tagen private: SqlInt32 m_iMonierung_in_tagen; private m_iMonierung_in_tagen : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsDokument.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FB Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMutiererteam m_iMutiererteam EDKB12WS.edokadb.clsDokument.m_iMutiererteam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F2 Private m_iMutiererteam As SqlInt32 private SqlInt32 m_iMutiererteam private: SqlInt32 m_iMutiererteam; private m_iMutiererteam : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iMutierertieam m_iMutierertieam EDKB12WS.edokadb.clsDokument.m_iMutierertieam EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000F7 Private m_iMutierertieam As SqlInt32 private SqlInt32 m_iMutierertieam private: SqlInt32 m_iMutierertieam; private m_iMutierertieam : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iNrpar00 m_iNrpar00 EDKB12WS.edokadb.clsDokument.m_iNrpar00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000FE Private m_iNrpar00 As SqlInt32 private SqlInt32 m_iNrpar00 private: SqlInt32 m_iNrpar00; private m_iNrpar00 : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iPostzustellung m_iPostzustellung EDKB12WS.edokadb.clsDokument.m_iPostzustellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000EA Private m_iPostzustellung As SqlInt32 private SqlInt32 m_iPostzustellung private: SqlInt32 m_iPostzustellung; private m_iPostzustellung : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iStatus_edoka_batch_ausgang m_iStatus_edoka_batch_ausgang EDKB12WS.edokadb.clsDokument.m_iStatus_edoka_batch_ausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000106 Private m_iStatus_edoka_batch_ausgang As SqlInt32 private SqlInt32 m_iStatus_edoka_batch_ausgang private: SqlInt32 m_iStatus_edoka_batch_ausgang; private m_iStatus_edoka_batch_ausgang : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iStatus_edoka_batch_eingang m_iStatus_edoka_batch_eingang EDKB12WS.edokadb.clsDokument.m_iStatus_edoka_batch_eingang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000107 Private m_iStatus_edoka_batch_eingang As SqlInt32 private SqlInt32 m_iStatus_edoka_batch_eingang private: SqlInt32 m_iStatus_edoka_batch_eingang; private m_iStatus_edoka_batch_eingang : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iStatusnr m_iStatusnr EDKB12WS.edokadb.clsDokument.m_iStatusnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000EB Private m_iStatusnr As SqlInt32 private SqlInt32 m_iStatusnr private: SqlInt32 m_iStatusnr; private m_iStatusnr : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iUnterschriftlinks m_iUnterschriftlinks EDKB12WS.edokadb.clsDokument.m_iUnterschriftlinks EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000104 Private m_iUnterschriftlinks As SqlInt32 private SqlInt32 m_iUnterschriftlinks private: SqlInt32 m_iUnterschriftlinks; private m_iUnterschriftlinks : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iUnterschriftrechts m_iUnterschriftrechts EDKB12WS.edokadb.clsDokument.m_iUnterschriftrechts EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000E8 Private m_iUnterschriftrechts As SqlInt32 private SqlInt32 m_iUnterschriftrechts private: SqlInt32 m_iUnterschriftrechts; private m_iUnterschriftrechts : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iVerantwortlich m_iVerantwortlich EDKB12WS.edokadb.clsDokument.m_iVerantwortlich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000103 Private m_iVerantwortlich As SqlInt32 private SqlInt32 m_iVerantwortlich private: SqlInt32 m_iVerantwortlich; private m_iVerantwortlich : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_iZustaendiger m_iZustaendiger EDKB12WS.edokadb.clsDokument.m_iZustaendiger EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000101 Private m_iZustaendiger As SqlInt32 private SqlInt32 m_iZustaendiger private: SqlInt32 m_iZustaendiger; private m_iZustaendiger : SqlInt32 Private m_iUnterschriftrechts, m_iAnzeigeStatus, m_iPostzustellung, m_iStatusnr, m_iAufbewahrung_elektronisch, m_iMonierung_in_tagen, m_iAufbewahrung_phaysisch, m_iBearbeitung_nach_abschluss, m_iIn_edoka_datenbank, m_iDokdurchkubeweitergegeben, m_iMutiererteam, m_iBRVernichtungnachTagen, m_iBearbeitungszeit_in_minuten, m_iBck, m_iGesperrt_durch, m_iMutierertieam, m_iDokumenttypnr, m_iMa_eingangsarchivierung, m_iMa_ausgangsarchivierung, m_iMutierer, m_iMitarbeiternr1, m_iMitarbeiternr, m_iNrpar00, m_iErstellerteam, m_iErsteller, m_iZustaendiger, m_iColdstatus, m_iVerantwortlich, m_iUnterschriftlinks, m_iBarcodenr, m_iStatus_edoka_batch_ausgang, m_iStatus_edoka_batch_eingang As SqlInt32 m_sAnredezustelladresse m_sAnredezustelladresse EDKB12WS.edokadb.clsDokument.m_sAnredezustelladresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000113 Private m_sAnredezustelladresse As SqlString private SqlString m_sAnredezustelladresse private: SqlString m_sAnredezustelladresse; private m_sAnredezustelladresse : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sBedRDokumentid m_sBedRDokumentid EDKB12WS.edokadb.clsDokument.m_sBedRDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010A Private m_sBedRDokumentid As SqlString private SqlString m_sBedRDokumentid private: SqlString m_sBedRDokumentid; private m_sBedRDokumentid : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sBemerkung m_sBemerkung EDKB12WS.edokadb.clsDokument.m_sBemerkung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000110 Private m_sBemerkung As SqlString private SqlString m_sBemerkung private: SqlString m_sBemerkung; private m_sBemerkung : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sBemerkunguvm m_sBemerkunguvm EDKB12WS.edokadb.clsDokument.m_sBemerkunguvm EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000114 Private m_sBemerkunguvm As SqlString private SqlString m_sBemerkunguvm private: SqlString m_sBemerkunguvm; private m_sBemerkunguvm : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sBezeichnung m_sBezeichnung EDKB12WS.edokadb.clsDokument.m_sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000111 Private m_sBezeichnung As SqlString private SqlString m_sBezeichnung private: SqlString m_sBezeichnung; private m_sBezeichnung : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sColddokumentid m_sColddokumentid EDKB12WS.edokadb.clsDokument.m_sColddokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000109 Private m_sColddokumentid As SqlString private SqlString m_sColddokumentid private: SqlString m_sColddokumentid; private m_sColddokumentid : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sColdfolder m_sColdfolder EDKB12WS.edokadb.clsDokument.m_sColdfolder EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000119 Private m_sColdfolder As SqlString private SqlString m_sColdfolder private: SqlString m_sColdfolder; private m_sColdfolder : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sColdschema m_sColdschema EDKB12WS.edokadb.clsDokument.m_sColdschema EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000011A Private m_sColdschema As SqlString private SqlString m_sColdschema private: SqlString m_sColdschema; private m_sColdschema : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sDokumentid m_sDokumentid EDKB12WS.edokadb.clsDokument.m_sDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010C Private m_sDokumentid As SqlString private SqlString m_sDokumentid private: SqlString m_sDokumentid; private m_sDokumentid : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sDokumentidn m_sDokumentidn EDKB12WS.edokadb.clsDokument.m_sDokumentidn EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010D Private m_sDokumentidn As SqlString private SqlString m_sDokumentidn private: SqlString m_sDokumentidn; private m_sDokumentidn : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sDokumentname m_sDokumentname EDKB12WS.edokadb.clsDokument.m_sDokumentname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000108 Private m_sDokumentname As SqlString private SqlString m_sDokumentname private: SqlString m_sDokumentname; private m_sDokumentname : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sFANummer1 m_sFANummer1 EDKB12WS.edokadb.clsDokument.m_sFANummer1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000116 Private m_sFANummer1 As SqlString private SqlString m_sFANummer1 private: SqlString m_sFANummer1; private m_sFANummer1 : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sFANummer2 m_sFANummer2 EDKB12WS.edokadb.clsDokument.m_sFANummer2 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000117 Private m_sFANummer2 As SqlString private SqlString m_sFANummer2 private: SqlString m_sFANummer2; private m_sFANummer2 : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sFanummer3 m_sFanummer3 EDKB12WS.edokadb.clsDokument.m_sFanummer3 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010E Private m_sFanummer3 As SqlString private SqlString m_sFanummer3 private: SqlString m_sFanummer3; private m_sFanummer3 : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sLoeschgrund m_sLoeschgrund EDKB12WS.edokadb.clsDokument.m_sLoeschgrund EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000112 Private m_sLoeschgrund As SqlString private SqlString m_sLoeschgrund private: SqlString m_sLoeschgrund; private m_sLoeschgrund : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sSpeicherort m_sSpeicherort EDKB12WS.edokadb.clsDokument.m_sSpeicherort EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000115 Private m_sSpeicherort As SqlString private SqlString m_sSpeicherort private: SqlString m_sSpeicherort; private m_sSpeicherort : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sVersandadresse m_sVersandadresse EDKB12WS.edokadb.clsDokument.m_sVersandadresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000118 Private m_sVersandadresse As SqlString private SqlString m_sVersandadresse private: SqlString m_sVersandadresse; private m_sVersandadresse : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sVvnr m_sVvnr EDKB12WS.edokadb.clsDokument.m_sVvnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010B Private m_sVvnr As SqlString private SqlString m_sVvnr private: SqlString m_sVvnr; private m_sVvnr : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString m_sZustelladresse m_sZustelladresse EDKB12WS.edokadb.clsDokument.m_sZustelladresse EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000010F Private m_sZustelladresse As SqlString private SqlString m_sZustelladresse private: SqlString m_sZustelladresse; private m_sZustelladresse : SqlString Private m_sDokumentname, m_sColddokumentid, m_sBedRDokumentid, m_sVvnr, m_sDokumentid, m_sDokumentidn, m_sFanummer3, m_sZustelladresse, m_sBemerkung, m_sBezeichnung, m_sLoeschgrund, m_sAnredezustelladresse, m_sBemerkunguvm, m_sSpeicherort, m_sFANummer1, m_sFANummer2, m_sVersandadresse, m_sColdfolder, m_sColdschema As SqlString clsDokumenttyp clsDokumenttyp EDKB12WS.edokadb.clsDokumenttyp EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000016F Public Class clsDokumenttyp Inherits clsDBInteractionBase public class clsDokumenttyp : clsDBInteractionBase public __gc class clsDokumenttyp : public clsDBInteractionBase public class clsDokumenttyp extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv bAmsdokument bAnzeigeZurDokumenterstellung bBedingtretournierbar bBezeichnungmut bCold_ersetzen bDokument_wird_erstellt bDokument_wird_retourniert bEingang_ersetzt_ausgang bEmail_versand bFunktionen_zuweisen bHostdokument bKundenDokument bNurnative bPartnersaldierung_statusalt bSb bSbedituser bSbimport bSbnur bUnterschrift_links bUnterschrift_rechts bVertrag bVertrauliches_dokument bWird_importiert bWird_nicht_geloescht bZu_retournieren bZu_vercolden cpMainConnectionProvider daErstellt_am daMutiert_am iAnzahl_tage iAufbewahrungsfrist_elektronisch iAufbewahrungsfrist_physisch iCold_folder iDbearbeitungszeit iDoktypbedingteretournierung iDokumentart_coldausgang iDokumentart_coldeingang iDokumentart_host iDokumentart_kundendossier iDokumentart_nativ iDokumentart_neuerstellung iDokumentart_retournierung iDokumentart_weitere iDokumentstatus iDokumentstatus_barcode iDokumenttypnr iErrorCode iMandantnr iMonate_bis_zur_archivierung iMutierer iObjektbezeichnungnr iOffice_vorlagenr iOwner iPhysisches_archiv iProzessnr iProzessnr1 iTage_mutation iTagebisvernichtungbedingteretournierung sBeschreibung sBezeichnung sConnectionString sHostdokumenttyp clsDokumenttyp Constructor m_bAktiv m_bAmsdokument m_bAnzeigeZurDokumenterstellung m_bBedingtretournierbar m_bBezeichnungmut m_bCold_ersetzen m_bDokument_wird_erstellt m_bDokument_wird_retourniert m_bEingang_ersetzt_ausgang m_bEmail_versand m_bFunktionen_zuweisen m_bHostdokument m_bKundenDokument m_bMainConnectionIsCreatedLocal m_bNurnative m_bPartnersaldierung_statusalt m_bSb m_bSbedituser m_bSbimport m_bSbnur m_bUnterschrift_links m_bUnterschrift_rechts m_bVertrag m_bVertrauliches_dokument m_bWird_importiert m_bWird_nicht_geloescht m_bZu_retournieren m_bZu_vercolden m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iAnzahl_tage m_iAufbewahrungsfrist_elektronisch m_iAufbewahrungsfrist_physisch m_iCold_folder m_iDbearbeitungszeit m_iDoktypbedingteretournierung m_iDokumentart_coldausgang m_iDokumentart_coldeingang m_iDokumentart_host m_iDokumentart_kundendossier m_iDokumentart_nativ m_iDokumentart_neuerstellung m_iDokumentart_retournierung m_iDokumentart_weitere m_iDokumentstatus m_iDokumentstatus_barcode m_iDokumenttypnr m_iErrorCode m_iMandantnr m_iMonate_bis_zur_archivierung m_iMutierer m_iObjektbezeichnungnr m_iOffice_vorlagenr m_iOwner m_iPhysisches_archiv m_iProzessnr m_iProzessnr1 m_iTage_mutation m_iTagebisvernichtungbedingteretournierung m_sBeschreibung m_sBezeichnung m_sHostdokumenttyp m_scoMainConnection clsDokumenttyp Constructor New EDKB12WS.edokadb.clsDokumenttyp.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AC Public Sub New() public clsDokumenttyp() public: clsDokumenttyp(); public function clsDokumenttyp(); Public Sub New() ' // Nothing for now. End Sub clsDokumenttyp.bAktiv bAktiv EDKB12WS.edokadb.clsDokumenttyp.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C5 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsDokumenttyp.bAmsdokument bAmsdokument EDKB12WS.edokadb.clsDokumenttyp.bAmsdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D4 Public Property bAmsdokument() As SqlBoolean public SqlBoolean bAmsdokument {get; set;} public: SqlBoolean get_bAmsdokument()public: void set_bAmsdokument( SqlBoolean) public function get bAmsdokument() : SqlBoolean;public function set bAmsdokument(value : SqlBoolean); Public Property [bAmsdokument]() As SqlBoolean Get Return m_bAmsdokument End Get Set(ByVal Value As SqlBoolean) Dim bAmsdokumentTmp As SqlBoolean = Value If bAmsdokumentTmp.IsNull Then Throw New ArgumentOutOfRangeException("bAmsdokument", "bAmsdokument can't be NULL") End If m_bAmsdokument = Value End Set End Property clsDokumenttyp.bAnzeigeZurDokumenterstellung bAnzeigeZurDokumenterstellung EDKB12WS.edokadb.clsDokumenttyp.bAnzeigeZurDokumenterstellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E7 Public Property bAnzeigeZurDokumenterstellung() As SqlBoolean public SqlBoolean bAnzeigeZurDokumenterstellung {get; set;} public: SqlBoolean get_bAnzeigeZurDokumenterstellung()public: void set_bAnzeigeZurDokumenterstellung( SqlBoolean) public function get bAnzeigeZurDokumenterstellung() : SqlBoolean;public function set bAnzeigeZurDokumenterstellung(value : SqlBoolean); Public Property [bAnzeigeZurDokumenterstellung]() As SqlBoolean Get Return m_bAnzeigeZurDokumenterstellung End Get Set(ByVal Value As SqlBoolean) m_bAnzeigeZurDokumenterstellung = Value End Set End Property clsDokumenttyp.bBedingtretournierbar bBedingtretournierbar EDKB12WS.edokadb.clsDokumenttyp.bBedingtretournierbar EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E4 Public Property bBedingtretournierbar() As SqlBoolean public SqlBoolean bBedingtretournierbar {get; set;} public: SqlBoolean get_bBedingtretournierbar()public: void set_bBedingtretournierbar( SqlBoolean) public function get bBedingtretournierbar() : SqlBoolean;public function set bBedingtretournierbar(value : SqlBoolean); Public Property [bBedingtretournierbar]() As SqlBoolean Get Return m_bBedingtretournierbar End Get Set(ByVal Value As SqlBoolean) m_bBedingtretournierbar = Value End Set End Property clsDokumenttyp.bBezeichnungmut bBezeichnungmut EDKB12WS.edokadb.clsDokumenttyp.bBezeichnungmut EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001ED Public Property bBezeichnungmut() As SqlBoolean public SqlBoolean bBezeichnungmut {get; set;} public: SqlBoolean get_bBezeichnungmut()public: void set_bBezeichnungmut( SqlBoolean) public function get bBezeichnungmut() : SqlBoolean;public function set bBezeichnungmut(value : SqlBoolean); Public Property [bBezeichnungmut]() As SqlBoolean Get Return m_bBezeichnungmut End Get Set(ByVal Value As SqlBoolean) m_bBezeichnungmut = Value End Set End Property clsDokumenttyp.bCold_ersetzen bCold_ersetzen EDKB12WS.edokadb.clsDokumenttyp.bCold_ersetzen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DC Public Property bCold_ersetzen() As SqlBoolean public SqlBoolean bCold_ersetzen {get; set;} public: SqlBoolean get_bCold_ersetzen()public: void set_bCold_ersetzen( SqlBoolean) public function get bCold_ersetzen() : SqlBoolean;public function set bCold_ersetzen(value : SqlBoolean); Public Property [bCold_ersetzen]() As SqlBoolean Get Return m_bCold_ersetzen End Get Set(ByVal Value As SqlBoolean) m_bCold_ersetzen = Value End Set End Property clsDokumenttyp.bDokument_wird_erstellt bDokument_wird_erstellt EDKB12WS.edokadb.clsDokumenttyp.bDokument_wird_erstellt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DA Public Property bDokument_wird_erstellt() As SqlBoolean public SqlBoolean bDokument_wird_erstellt {get; set;} public: SqlBoolean get_bDokument_wird_erstellt()public: void set_bDokument_wird_erstellt( SqlBoolean) public function get bDokument_wird_erstellt() : SqlBoolean;public function set bDokument_wird_erstellt(value : SqlBoolean); Public Property [bDokument_wird_erstellt]() As SqlBoolean Get Return m_bDokument_wird_erstellt End Get Set(ByVal Value As SqlBoolean) m_bDokument_wird_erstellt = Value End Set End Property clsDokumenttyp.bDokument_wird_retourniert bDokument_wird_retourniert EDKB12WS.edokadb.clsDokumenttyp.bDokument_wird_retourniert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DB Public Property bDokument_wird_retourniert() As SqlBoolean public SqlBoolean bDokument_wird_retourniert {get; set;} public: SqlBoolean get_bDokument_wird_retourniert()public: void set_bDokument_wird_retourniert( SqlBoolean) public function get bDokument_wird_retourniert() : SqlBoolean;public function set bDokument_wird_retourniert(value : SqlBoolean); Public Property [bDokument_wird_retourniert]() As SqlBoolean Get Return m_bDokument_wird_retourniert End Get Set(ByVal Value As SqlBoolean) m_bDokument_wird_retourniert = Value End Set End Property clsDokumenttyp.bEingang_ersetzt_ausgang bEingang_ersetzt_ausgang EDKB12WS.edokadb.clsDokumenttyp.bEingang_ersetzt_ausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B7 Public Property bEingang_ersetzt_ausgang() As SqlBoolean public SqlBoolean bEingang_ersetzt_ausgang {get; set;} public: SqlBoolean get_bEingang_ersetzt_ausgang()public: void set_bEingang_ersetzt_ausgang( SqlBoolean) public function get bEingang_ersetzt_ausgang() : SqlBoolean;public function set bEingang_ersetzt_ausgang(value : SqlBoolean); Public Property [bEingang_ersetzt_ausgang]() As SqlBoolean Get Return m_bEingang_ersetzt_ausgang End Get Set(ByVal Value As SqlBoolean) Dim bEingang_ersetzt_ausgangTmp As SqlBoolean = Value If bEingang_ersetzt_ausgangTmp.IsNull Then Throw New ArgumentOutOfRangeException("bEingang_ersetzt_ausgang", "bEingang_ersetzt_ausgang can't be NULL") End If m_bEingang_ersetzt_ausgang = Value End Set End Property clsDokumenttyp.bEmail_versand bEmail_versand EDKB12WS.edokadb.clsDokumenttyp.bEmail_versand EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DD Public Property bEmail_versand() As SqlBoolean public SqlBoolean bEmail_versand {get; set;} public: SqlBoolean get_bEmail_versand()public: void set_bEmail_versand( SqlBoolean) public function get bEmail_versand() : SqlBoolean;public function set bEmail_versand(value : SqlBoolean); Public Property [bEmail_versand]() As SqlBoolean Get Return m_bEmail_versand End Get Set(ByVal Value As SqlBoolean) m_bEmail_versand = Value End Set End Property clsDokumenttyp.bFunktionen_zuweisen bFunktionen_zuweisen EDKB12WS.edokadb.clsDokumenttyp.bFunktionen_zuweisen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DE Public Property bFunktionen_zuweisen() As SqlBoolean public SqlBoolean bFunktionen_zuweisen {get; set;} public: SqlBoolean get_bFunktionen_zuweisen()public: void set_bFunktionen_zuweisen( SqlBoolean) public function get bFunktionen_zuweisen() : SqlBoolean;public function set bFunktionen_zuweisen(value : SqlBoolean); Public Property [bFunktionen_zuweisen]() As SqlBoolean Get Return m_bFunktionen_zuweisen End Get Set(ByVal Value As SqlBoolean) m_bFunktionen_zuweisen = Value End Set End Property clsDokumenttyp.bHostdokument bHostdokument EDKB12WS.edokadb.clsDokumenttyp.bHostdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D5 Public Property bHostdokument() As SqlBoolean public SqlBoolean bHostdokument {get; set;} public: SqlBoolean get_bHostdokument()public: void set_bHostdokument( SqlBoolean) public function get bHostdokument() : SqlBoolean;public function set bHostdokument(value : SqlBoolean); Public Property [bHostdokument]() As SqlBoolean Get Return m_bHostdokument End Get Set(ByVal Value As SqlBoolean) m_bHostdokument = Value End Set End Property clsDokumenttyp.bKundenDokument bKundenDokument EDKB12WS.edokadb.clsDokumenttyp.bKundenDokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E8 Public Property bKundenDokument() As SqlBoolean public SqlBoolean bKundenDokument {get; set;} public: SqlBoolean get_bKundenDokument()public: void set_bKundenDokument( SqlBoolean) public function get bKundenDokument() : SqlBoolean;public function set bKundenDokument(value : SqlBoolean); Public Property [bKundenDokument]() As SqlBoolean Get Return m_bKundenDokument End Get Set(ByVal Value As SqlBoolean) m_bKundenDokument = Value End Set End Property clsDokumenttyp.bNurnative bNurnative EDKB12WS.edokadb.clsDokumenttyp.bNurnative EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E0 Public Property bNurnative() As SqlBoolean public SqlBoolean bNurnative {get; set;} public: SqlBoolean get_bNurnative()public: void set_bNurnative( SqlBoolean) public function get bNurnative() : SqlBoolean;public function set bNurnative(value : SqlBoolean); Public Property [bNurnative]() As SqlBoolean Get Return m_bNurnative End Get Set(ByVal Value As SqlBoolean) m_bNurnative = Value End Set End Property clsDokumenttyp.bPartnersaldierung_statusalt bPartnersaldierung_statusalt EDKB12WS.edokadb.clsDokumenttyp.bPartnersaldierung_statusalt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BC Public Property bPartnersaldierung_statusalt() As SqlBoolean public SqlBoolean bPartnersaldierung_statusalt {get; set;} public: SqlBoolean get_bPartnersaldierung_statusalt()public: void set_bPartnersaldierung_statusalt( SqlBoolean) public function get bPartnersaldierung_statusalt() : SqlBoolean;public function set bPartnersaldierung_statusalt(value : SqlBoolean); Public Property [bPartnersaldierung_statusalt]() As SqlBoolean Get Return m_bPartnersaldierung_statusalt End Get Set(ByVal Value As SqlBoolean) Dim bPartnersaldierung_statusaltTmp As SqlBoolean = Value If bPartnersaldierung_statusaltTmp.IsNull Then Throw New ArgumentOutOfRangeException("bPartnersaldierung_statusalt", "bPartnersaldierung_statusalt can't be NULL") End If m_bPartnersaldierung_statusalt = Value End Set End Property clsDokumenttyp.bSb bSb EDKB12WS.edokadb.clsDokumenttyp.bSb EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E9 Public Property bSb() As SqlBoolean public SqlBoolean bSb {get; set;} public: SqlBoolean get_bSb()public: void set_bSb( SqlBoolean) public function get bSb() : SqlBoolean;public function set bSb(value : SqlBoolean); Public Property [bSb]() As SqlBoolean Get Return m_bSb End Get Set(ByVal Value As SqlBoolean) m_bSb = Value End Set End Property clsDokumenttyp.bSbedituser bSbedituser EDKB12WS.edokadb.clsDokumenttyp.bSbedituser EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001EB Public Property bSbedituser() As SqlBoolean public SqlBoolean bSbedituser {get; set;} public: SqlBoolean get_bSbedituser()public: void set_bSbedituser( SqlBoolean) public function get bSbedituser() : SqlBoolean;public function set bSbedituser(value : SqlBoolean); Public Property [bSbedituser]() As SqlBoolean Get Return m_bSbedituser End Get Set(ByVal Value As SqlBoolean) m_bSbedituser = Value End Set End Property clsDokumenttyp.bSbimport bSbimport EDKB12WS.edokadb.clsDokumenttyp.bSbimport EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001EA Public Property bSbimport() As SqlBoolean public SqlBoolean bSbimport {get; set;} public: SqlBoolean get_bSbimport()public: void set_bSbimport( SqlBoolean) public function get bSbimport() : SqlBoolean;public function set bSbimport(value : SqlBoolean); Public Property [bSbimport]() As SqlBoolean Get Return m_bSbimport End Get Set(ByVal Value As SqlBoolean) m_bSbimport = Value End Set End Property clsDokumenttyp.bSbnur bSbnur EDKB12WS.edokadb.clsDokumenttyp.bSbnur EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001EC Public Property bSbnur() As SqlBoolean public SqlBoolean bSbnur {get; set;} public: SqlBoolean get_bSbnur()public: void set_bSbnur( SqlBoolean) public function get bSbnur() : SqlBoolean;public function set bSbnur(value : SqlBoolean); Public Property [bSbnur]() As SqlBoolean Get Return m_bSbnur End Get Set(ByVal Value As SqlBoolean) m_bSbnur = Value End Set End Property clsDokumenttyp.bUnterschrift_links bUnterschrift_links EDKB12WS.edokadb.clsDokumenttyp.bUnterschrift_links EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BF Public Property bUnterschrift_links() As SqlBoolean public SqlBoolean bUnterschrift_links {get; set;} public: SqlBoolean get_bUnterschrift_links()public: void set_bUnterschrift_links( SqlBoolean) public function get bUnterschrift_links() : SqlBoolean;public function set bUnterschrift_links(value : SqlBoolean); Public Property [bUnterschrift_links]() As SqlBoolean Get Return m_bUnterschrift_links End Get Set(ByVal Value As SqlBoolean) Dim bUnterschrift_linksTmp As SqlBoolean = Value If bUnterschrift_linksTmp.IsNull Then Throw New ArgumentOutOfRangeException("bUnterschrift_links", "bUnterschrift_links can't be NULL") End If m_bUnterschrift_links = Value End Set End Property clsDokumenttyp.bUnterschrift_rechts bUnterschrift_rechts EDKB12WS.edokadb.clsDokumenttyp.bUnterschrift_rechts EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C0 Public Property bUnterschrift_rechts() As SqlBoolean public SqlBoolean bUnterschrift_rechts {get; set;} public: SqlBoolean get_bUnterschrift_rechts()public: void set_bUnterschrift_rechts( SqlBoolean) public function get bUnterschrift_rechts() : SqlBoolean;public function set bUnterschrift_rechts(value : SqlBoolean); Public Property [bUnterschrift_rechts]() As SqlBoolean Get Return m_bUnterschrift_rechts End Get Set(ByVal Value As SqlBoolean) Dim bUnterschrift_rechtsTmp As SqlBoolean = Value If bUnterschrift_rechtsTmp.IsNull Then Throw New ArgumentOutOfRangeException("bUnterschrift_rechts", "bUnterschrift_rechts can't be NULL") End If m_bUnterschrift_rechts = Value End Set End Property clsDokumenttyp.bVertrag bVertrag EDKB12WS.edokadb.clsDokumenttyp.bVertrag EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E2 Public Property bVertrag() As SqlBoolean public SqlBoolean bVertrag {get; set;} public: SqlBoolean get_bVertrag()public: void set_bVertrag( SqlBoolean) public function get bVertrag() : SqlBoolean;public function set bVertrag(value : SqlBoolean); Public Property [bVertrag]() As SqlBoolean Get Return m_bVertrag End Get Set(ByVal Value As SqlBoolean) m_bVertrag = Value End Set End Property clsDokumenttyp.bVertrauliches_dokument bVertrauliches_dokument EDKB12WS.edokadb.clsDokumenttyp.bVertrauliches_dokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BE Public Property bVertrauliches_dokument() As SqlBoolean public SqlBoolean bVertrauliches_dokument {get; set;} public: SqlBoolean get_bVertrauliches_dokument()public: void set_bVertrauliches_dokument( SqlBoolean) public function get bVertrauliches_dokument() : SqlBoolean;public function set bVertrauliches_dokument(value : SqlBoolean); Public Property [bVertrauliches_dokument]() As SqlBoolean Get Return m_bVertrauliches_dokument End Get Set(ByVal Value As SqlBoolean) Dim bVertrauliches_dokumentTmp As SqlBoolean = Value If bVertrauliches_dokumentTmp.IsNull Then Throw New ArgumentOutOfRangeException("bVertrauliches_dokument", "bVertrauliches_dokument can't be NULL") End If m_bVertrauliches_dokument = Value End Set End Property clsDokumenttyp.bWird_importiert bWird_importiert EDKB12WS.edokadb.clsDokumenttyp.bWird_importiert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B8 Public Property bWird_importiert() As SqlBoolean public SqlBoolean bWird_importiert {get; set;} public: SqlBoolean get_bWird_importiert()public: void set_bWird_importiert( SqlBoolean) public function get bWird_importiert() : SqlBoolean;public function set bWird_importiert(value : SqlBoolean); Public Property [bWird_importiert]() As SqlBoolean Get Return m_bWird_importiert End Get Set(ByVal Value As SqlBoolean) Dim bWird_importiertTmp As SqlBoolean = Value If bWird_importiertTmp.IsNull Then Throw New ArgumentOutOfRangeException("bWird_importiert", "bWird_importiert can't be NULL") End If m_bWird_importiert = Value End Set End Property clsDokumenttyp.bWird_nicht_geloescht bWird_nicht_geloescht EDKB12WS.edokadb.clsDokumenttyp.bWird_nicht_geloescht EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BD Public Property bWird_nicht_geloescht() As SqlBoolean public SqlBoolean bWird_nicht_geloescht {get; set;} public: SqlBoolean get_bWird_nicht_geloescht()public: void set_bWird_nicht_geloescht( SqlBoolean) public function get bWird_nicht_geloescht() : SqlBoolean;public function set bWird_nicht_geloescht(value : SqlBoolean); Public Property [bWird_nicht_geloescht]() As SqlBoolean Get Return m_bWird_nicht_geloescht End Get Set(ByVal Value As SqlBoolean) Dim bWird_nicht_geloeschtTmp As SqlBoolean = Value If bWird_nicht_geloeschtTmp.IsNull Then Throw New ArgumentOutOfRangeException("bWird_nicht_geloescht", "bWird_nicht_geloescht can't be NULL") End If m_bWird_nicht_geloescht = Value End Set End Property clsDokumenttyp.bZu_retournieren bZu_retournieren EDKB12WS.edokadb.clsDokumenttyp.bZu_retournieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B6 Public Property bZu_retournieren() As SqlBoolean public SqlBoolean bZu_retournieren {get; set;} public: SqlBoolean get_bZu_retournieren()public: void set_bZu_retournieren( SqlBoolean) public function get bZu_retournieren() : SqlBoolean;public function set bZu_retournieren(value : SqlBoolean); Public Property [bZu_retournieren]() As SqlBoolean Get Return m_bZu_retournieren End Get Set(ByVal Value As SqlBoolean) Dim bZu_retournierenTmp As SqlBoolean = Value If bZu_retournierenTmp.IsNull Then Throw New ArgumentOutOfRangeException("bZu_retournieren", "bZu_retournieren can't be NULL") End If m_bZu_retournieren = Value End Set End Property clsDokumenttyp.bZu_vercolden bZu_vercolden EDKB12WS.edokadb.clsDokumenttyp.bZu_vercolden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B5 Public Property bZu_vercolden() As SqlBoolean public SqlBoolean bZu_vercolden {get; set;} public: SqlBoolean get_bZu_vercolden()public: void set_bZu_vercolden( SqlBoolean) public function get bZu_vercolden() : SqlBoolean;public function set bZu_vercolden(value : SqlBoolean); Public Property [bZu_vercolden]() As SqlBoolean Get Return m_bZu_vercolden End Get Set(ByVal Value As SqlBoolean) Dim bZu_vercoldenTmp As SqlBoolean = Value If bZu_vercoldenTmp.IsNull Then Throw New ArgumentOutOfRangeException("bZu_vercolden", "bZu_vercolden can't be NULL") End If m_bZu_vercolden = Value End Set End Property clsDokumenttyp.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsDokumenttyp.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C6 Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsDokumenttyp.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsDokumenttyp.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C7 Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsDokumenttyp.iAnzahl_tage iAnzahl_tage EDKB12WS.edokadb.clsDokumenttyp.iAnzahl_tage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B9 Public Property iAnzahl_tage() As SqlInt32 public SqlInt32 iAnzahl_tage {get; set;} public: SqlInt32 get_iAnzahl_tage()public: void set_iAnzahl_tage( SqlInt32) public function get iAnzahl_tage() : SqlInt32;public function set iAnzahl_tage(value : SqlInt32); Public Property [iAnzahl_tage]() As SqlInt32 Get Return m_iAnzahl_tage End Get Set(ByVal Value As SqlInt32) Dim iAnzahl_tageTmp As SqlInt32 = Value If iAnzahl_tageTmp.IsNull Then Throw New ArgumentOutOfRangeException("iAnzahl_tage", "iAnzahl_tage can't be NULL") End If m_iAnzahl_tage = Value End Set End Property clsDokumenttyp.iAufbewahrungsfrist_elektronisch iAufbewahrungsfrist_elektronisch EDKB12WS.edokadb.clsDokumenttyp.iAufbewahrungsfrist_elektronisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C2 Public Property iAufbewahrungsfrist_elektronisch() As SqlInt32 public SqlInt32 iAufbewahrungsfrist_elektronisch {get; set;} public: SqlInt32 get_iAufbewahrungsfrist_elektronisch()public: void set_iAufbewahrungsfrist_elektronisch( SqlInt32) public function get iAufbewahrungsfrist_elektronisch() : SqlInt32;public function set iAufbewahrungsfrist_elektronisch(value : SqlInt32); Public Property [iAufbewahrungsfrist_elektronisch]() As SqlInt32 Get Return m_iAufbewahrungsfrist_elektronisch End Get Set(ByVal Value As SqlInt32) Dim iAufbewahrungsfrist_elektronischTmp As SqlInt32 = Value If iAufbewahrungsfrist_elektronischTmp.IsNull Then Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_elektronisch", "iAufbewahrungsfrist_elektronisch can't be NULL") End If m_iAufbewahrungsfrist_elektronisch = Value End Set End Property clsDokumenttyp.iAufbewahrungsfrist_physisch iAufbewahrungsfrist_physisch EDKB12WS.edokadb.clsDokumenttyp.iAufbewahrungsfrist_physisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C3 Public Property iAufbewahrungsfrist_physisch() As SqlInt32 public SqlInt32 iAufbewahrungsfrist_physisch {get; set;} public: SqlInt32 get_iAufbewahrungsfrist_physisch()public: void set_iAufbewahrungsfrist_physisch( SqlInt32) public function get iAufbewahrungsfrist_physisch() : SqlInt32;public function set iAufbewahrungsfrist_physisch(value : SqlInt32); Public Property [iAufbewahrungsfrist_physisch]() As SqlInt32 Get Return m_iAufbewahrungsfrist_physisch End Get Set(ByVal Value As SqlInt32) Dim iAufbewahrungsfrist_physischTmp As SqlInt32 = Value If iAufbewahrungsfrist_physischTmp.IsNull Then Throw New ArgumentOutOfRangeException("iAufbewahrungsfrist_physisch", "iAufbewahrungsfrist_physisch can't be NULL") End If m_iAufbewahrungsfrist_physisch = Value End Set End Property clsDokumenttyp.iCold_folder iCold_folder EDKB12WS.edokadb.clsDokumenttyp.iCold_folder EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D7 Public Property iCold_folder() As SqlInt32 public SqlInt32 iCold_folder {get; set;} public: SqlInt32 get_iCold_folder()public: void set_iCold_folder( SqlInt32) public function get iCold_folder() : SqlInt32;public function set iCold_folder(value : SqlInt32); Public Property [iCold_folder]() As SqlInt32 Get Return m_iCold_folder End Get Set(ByVal Value As SqlInt32) m_iCold_folder = Value End Set End Property clsDokumenttyp.iDbearbeitungszeit iDbearbeitungszeit EDKB12WS.edokadb.clsDokumenttyp.iDbearbeitungszeit EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BA Public Property iDbearbeitungszeit() As SqlInt32 public SqlInt32 iDbearbeitungszeit {get; set;} public: SqlInt32 get_iDbearbeitungszeit()public: void set_iDbearbeitungszeit( SqlInt32) public function get iDbearbeitungszeit() : SqlInt32;public function set iDbearbeitungszeit(value : SqlInt32); Public Property [iDbearbeitungszeit]() As SqlInt32 Get Return m_iDbearbeitungszeit End Get Set(ByVal Value As SqlInt32) Dim iDbearbeitungszeitTmp As SqlInt32 = Value If iDbearbeitungszeitTmp.IsNull Then Throw New ArgumentOutOfRangeException("iDbearbeitungszeit", "iDbearbeitungszeit can't be NULL") End If m_iDbearbeitungszeit = Value End Set End Property clsDokumenttyp.iDoktypbedingteretournierung iDoktypbedingteretournierung EDKB12WS.edokadb.clsDokumenttyp.iDoktypbedingteretournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E5 Public Property iDoktypbedingteretournierung() As SqlInt32 public SqlInt32 iDoktypbedingteretournierung {get; set;} public: SqlInt32 get_iDoktypbedingteretournierung()public: void set_iDoktypbedingteretournierung( SqlInt32) public function get iDoktypbedingteretournierung() : SqlInt32;public function set iDoktypbedingteretournierung(value : SqlInt32); Public Property [iDoktypbedingteretournierung]() As SqlInt32 Get Return m_iDoktypbedingteretournierung End Get Set(ByVal Value As SqlInt32) m_iDoktypbedingteretournierung = Value End Set End Property clsDokumenttyp.iDokumentart_coldausgang iDokumentart_coldausgang EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_coldausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CD Public Property iDokumentart_coldausgang() As SqlInt32 public SqlInt32 iDokumentart_coldausgang {get; set;} public: SqlInt32 get_iDokumentart_coldausgang()public: void set_iDokumentart_coldausgang( SqlInt32) public function get iDokumentart_coldausgang() : SqlInt32;public function set iDokumentart_coldausgang(value : SqlInt32); Public Property [iDokumentart_coldausgang]() As SqlInt32 Get Return m_iDokumentart_coldausgang End Get Set(ByVal Value As SqlInt32) Dim iDokumentart_coldausgangTmp As SqlInt32 = Value If iDokumentart_coldausgangTmp.IsNull Then Throw New ArgumentOutOfRangeException("iDokumentart_coldausgang", "iDokumentart_coldausgang can't be NULL") End If m_iDokumentart_coldausgang = Value End Set End Property clsDokumenttyp.iDokumentart_coldeingang iDokumentart_coldeingang EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_coldeingang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CE Public Property iDokumentart_coldeingang() As SqlInt32 public SqlInt32 iDokumentart_coldeingang {get; set;} public: SqlInt32 get_iDokumentart_coldeingang()public: void set_iDokumentart_coldeingang( SqlInt32) public function get iDokumentart_coldeingang() : SqlInt32;public function set iDokumentart_coldeingang(value : SqlInt32); Public Property [iDokumentart_coldeingang]() As SqlInt32 Get Return m_iDokumentart_coldeingang End Get Set(ByVal Value As SqlInt32) Dim iDokumentart_coldeingangTmp As SqlInt32 = Value If iDokumentart_coldeingangTmp.IsNull Then Throw New ArgumentOutOfRangeException("iDokumentart_coldeingang", "iDokumentart_coldeingang can't be NULL") End If m_iDokumentart_coldeingang = Value End Set End Property clsDokumenttyp.iDokumentart_host iDokumentart_host EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_host EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CF Public Property iDokumentart_host() As SqlInt32 public SqlInt32 iDokumentart_host {get; set;} public: SqlInt32 get_iDokumentart_host()public: void set_iDokumentart_host( SqlInt32) public function get iDokumentart_host() : SqlInt32;public function set iDokumentart_host(value : SqlInt32); Public Property [iDokumentart_host]() As SqlInt32 Get Return m_iDokumentart_host End Get Set(ByVal Value As SqlInt32) m_iDokumentart_host = Value End Set End Property clsDokumenttyp.iDokumentart_kundendossier iDokumentart_kundendossier EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_kundendossier EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CA Public Property iDokumentart_kundendossier() As SqlInt32 public SqlInt32 iDokumentart_kundendossier {get; set;} public: SqlInt32 get_iDokumentart_kundendossier()public: void set_iDokumentart_kundendossier( SqlInt32) public function get iDokumentart_kundendossier() : SqlInt32;public function set iDokumentart_kundendossier(value : SqlInt32); Public Property [iDokumentart_kundendossier]() As SqlInt32 Get Return m_iDokumentart_kundendossier End Get Set(ByVal Value As SqlInt32) m_iDokumentart_kundendossier = Value End Set End Property clsDokumenttyp.iDokumentart_nativ iDokumentart_nativ EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_nativ EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D1 Public Property iDokumentart_nativ() As SqlInt32 public SqlInt32 iDokumentart_nativ {get; set;} public: SqlInt32 get_iDokumentart_nativ()public: void set_iDokumentart_nativ( SqlInt32) public function get iDokumentart_nativ() : SqlInt32;public function set iDokumentart_nativ(value : SqlInt32); Public Property [iDokumentart_nativ]() As SqlInt32 Get Return m_iDokumentart_nativ End Get Set(ByVal Value As SqlInt32) m_iDokumentart_nativ = Value End Set End Property clsDokumenttyp.iDokumentart_neuerstellung iDokumentart_neuerstellung EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_neuerstellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CB Public Property iDokumentart_neuerstellung() As SqlInt32 public SqlInt32 iDokumentart_neuerstellung {get; set;} public: SqlInt32 get_iDokumentart_neuerstellung()public: void set_iDokumentart_neuerstellung( SqlInt32) public function get iDokumentart_neuerstellung() : SqlInt32;public function set iDokumentart_neuerstellung(value : SqlInt32); Public Property [iDokumentart_neuerstellung]() As SqlInt32 Get Return m_iDokumentart_neuerstellung End Get Set(ByVal Value As SqlInt32) m_iDokumentart_neuerstellung = Value End Set End Property clsDokumenttyp.iDokumentart_retournierung iDokumentart_retournierung EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_retournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001CC Public Property iDokumentart_retournierung() As SqlInt32 public SqlInt32 iDokumentart_retournierung {get; set;} public: SqlInt32 get_iDokumentart_retournierung()public: void set_iDokumentart_retournierung( SqlInt32) public function get iDokumentart_retournierung() : SqlInt32;public function set iDokumentart_retournierung(value : SqlInt32); Public Property [iDokumentart_retournierung]() As SqlInt32 Get Return m_iDokumentart_retournierung End Get Set(ByVal Value As SqlInt32) m_iDokumentart_retournierung = Value End Set End Property clsDokumenttyp.iDokumentart_weitere iDokumentart_weitere EDKB12WS.edokadb.clsDokumenttyp.iDokumentart_weitere EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D0 Public Property iDokumentart_weitere() As SqlInt32 public SqlInt32 iDokumentart_weitere {get; set;} public: SqlInt32 get_iDokumentart_weitere()public: void set_iDokumentart_weitere( SqlInt32) public function get iDokumentart_weitere() : SqlInt32;public function set iDokumentart_weitere(value : SqlInt32); Public Property [iDokumentart_weitere]() As SqlInt32 Get Return m_iDokumentart_weitere End Get Set(ByVal Value As SqlInt32) m_iDokumentart_weitere = Value End Set End Property clsDokumenttyp.iDokumentstatus iDokumentstatus EDKB12WS.edokadb.clsDokumenttyp.iDokumentstatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D9 Public Property iDokumentstatus() As SqlInt32 public SqlInt32 iDokumentstatus {get; set;} public: SqlInt32 get_iDokumentstatus()public: void set_iDokumentstatus( SqlInt32) public function get iDokumentstatus() : SqlInt32;public function set iDokumentstatus(value : SqlInt32); Public Property [iDokumentstatus]() As SqlInt32 Get Return m_iDokumentstatus End Get Set(ByVal Value As SqlInt32) m_iDokumentstatus = Value End Set End Property clsDokumenttyp.iDokumentstatus_barcode iDokumentstatus_barcode EDKB12WS.edokadb.clsDokumenttyp.iDokumentstatus_barcode EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001DF Public Property iDokumentstatus_barcode() As SqlInt32 public SqlInt32 iDokumentstatus_barcode {get; set;} public: SqlInt32 get_iDokumentstatus_barcode()public: void set_iDokumentstatus_barcode( SqlInt32) public function get iDokumentstatus_barcode() : SqlInt32;public function set iDokumentstatus_barcode(value : SqlInt32); Public Property [iDokumentstatus_barcode]() As SqlInt32 Get Return m_iDokumentstatus_barcode End Get Set(ByVal Value As SqlInt32) m_iDokumentstatus_barcode = Value End Set End Property clsDokumenttyp.iDokumenttypnr iDokumenttypnr EDKB12WS.edokadb.clsDokumenttyp.iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B2 Public Property iDokumenttypnr() As SqlInt32 public SqlInt32 iDokumenttypnr {get; set;} public: SqlInt32 get_iDokumenttypnr()public: void set_iDokumenttypnr( SqlInt32) public function get iDokumenttypnr() : SqlInt32;public function set iDokumenttypnr(value : SqlInt32); Public Property [iDokumenttypnr]() As SqlInt32 Get Return m_iDokumenttypnr End Get Set(ByVal Value As SqlInt32) Dim iDokumenttypnrTmp As SqlInt32 = Value If iDokumenttypnrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iDokumenttypnr", "iDokumenttypnr can't be NULL") End If m_iDokumenttypnr = Value End Set End Property clsDokumenttyp.iMandantnr iMandantnr EDKB12WS.edokadb.clsDokumenttyp.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C4 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsDokumenttyp.iMonate_bis_zur_archivierung iMonate_bis_zur_archivierung EDKB12WS.edokadb.clsDokumenttyp.iMonate_bis_zur_archivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C1 Public Property iMonate_bis_zur_archivierung() As SqlInt32 public SqlInt32 iMonate_bis_zur_archivierung {get; set;} public: SqlInt32 get_iMonate_bis_zur_archivierung()public: void set_iMonate_bis_zur_archivierung( SqlInt32) public function get iMonate_bis_zur_archivierung() : SqlInt32;public function set iMonate_bis_zur_archivierung(value : SqlInt32); Public Property [iMonate_bis_zur_archivierung]() As SqlInt32 Get Return m_iMonate_bis_zur_archivierung End Get Set(ByVal Value As SqlInt32) Dim iMonate_bis_zur_archivierungTmp As SqlInt32 = Value If iMonate_bis_zur_archivierungTmp.IsNull Then Throw New ArgumentOutOfRangeException("iMonate_bis_zur_archivierung", "iMonate_bis_zur_archivierung can't be NULL") End If m_iMonate_bis_zur_archivierung = Value End Set End Property clsDokumenttyp.iMutierer iMutierer EDKB12WS.edokadb.clsDokumenttyp.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C8 Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsDokumenttyp.iObjektbezeichnungnr iObjektbezeichnungnr EDKB12WS.edokadb.clsDokumenttyp.iObjektbezeichnungnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E3 Public Property iObjektbezeichnungnr() As SqlInt32 public SqlInt32 iObjektbezeichnungnr {get; set;} public: SqlInt32 get_iObjektbezeichnungnr()public: void set_iObjektbezeichnungnr( SqlInt32) public function get iObjektbezeichnungnr() : SqlInt32;public function set iObjektbezeichnungnr(value : SqlInt32); Public Property [iObjektbezeichnungnr]() As SqlInt32 Get Return m_iObjektbezeichnungnr End Get Set(ByVal Value As SqlInt32) m_iObjektbezeichnungnr = Value End Set End Property clsDokumenttyp.iOffice_vorlagenr iOffice_vorlagenr EDKB12WS.edokadb.clsDokumenttyp.iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001C9 Public Property iOffice_vorlagenr() As SqlInt32 public SqlInt32 iOffice_vorlagenr {get; set;} public: SqlInt32 get_iOffice_vorlagenr()public: void set_iOffice_vorlagenr( SqlInt32) public function get iOffice_vorlagenr() : SqlInt32;public function set iOffice_vorlagenr(value : SqlInt32); Public Property [iOffice_vorlagenr]() As SqlInt32 Get Return m_iOffice_vorlagenr End Get Set(ByVal Value As SqlInt32) m_iOffice_vorlagenr = Value End Set End Property clsDokumenttyp.iOwner iOwner EDKB12WS.edokadb.clsDokumenttyp.iOwner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E1 Public Property iOwner() As SqlInt32 public SqlInt32 iOwner {get; set;} public: SqlInt32 get_iOwner()public: void set_iOwner( SqlInt32) public function get iOwner() : SqlInt32;public function set iOwner(value : SqlInt32); Public Property [iOwner]() As SqlInt32 Get Return m_iOwner End Get Set(ByVal Value As SqlInt32) m_iOwner = Value End Set End Property clsDokumenttyp.iPhysisches_archiv iPhysisches_archiv EDKB12WS.edokadb.clsDokumenttyp.iPhysisches_archiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D8 Public Property iPhysisches_archiv() As SqlInt32 public SqlInt32 iPhysisches_archiv {get; set;} public: SqlInt32 get_iPhysisches_archiv()public: void set_iPhysisches_archiv( SqlInt32) public function get iPhysisches_archiv() : SqlInt32;public function set iPhysisches_archiv(value : SqlInt32); Public Property [iPhysisches_archiv]() As SqlInt32 Get Return m_iPhysisches_archiv End Get Set(ByVal Value As SqlInt32) m_iPhysisches_archiv = Value End Set End Property clsDokumenttyp.iProzessnr iProzessnr EDKB12WS.edokadb.clsDokumenttyp.iProzessnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D2 Public Property iProzessnr() As SqlInt32 public SqlInt32 iProzessnr {get; set;} public: SqlInt32 get_iProzessnr()public: void set_iProzessnr( SqlInt32) public function get iProzessnr() : SqlInt32;public function set iProzessnr(value : SqlInt32); Public Property [iProzessnr]() As SqlInt32 Get Return m_iProzessnr End Get Set(ByVal Value As SqlInt32) m_iProzessnr = Value End Set End Property clsDokumenttyp.iProzessnr1 iProzessnr1 EDKB12WS.edokadb.clsDokumenttyp.iProzessnr1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D3 Public Property iProzessnr1() As SqlInt32 public SqlInt32 iProzessnr1 {get; set;} public: SqlInt32 get_iProzessnr1()public: void set_iProzessnr1( SqlInt32) public function get iProzessnr1() : SqlInt32;public function set iProzessnr1(value : SqlInt32); Public Property [iProzessnr1]() As SqlInt32 Get Return m_iProzessnr1 End Get Set(ByVal Value As SqlInt32) m_iProzessnr1 = Value End Set End Property clsDokumenttyp.iTage_mutation iTage_mutation EDKB12WS.edokadb.clsDokumenttyp.iTage_mutation EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001BB Public Property iTage_mutation() As SqlInt32 public SqlInt32 iTage_mutation {get; set;} public: SqlInt32 get_iTage_mutation()public: void set_iTage_mutation( SqlInt32) public function get iTage_mutation() : SqlInt32;public function set iTage_mutation(value : SqlInt32); Public Property [iTage_mutation]() As SqlInt32 Get Return m_iTage_mutation End Get Set(ByVal Value As SqlInt32) Dim iTage_mutationTmp As SqlInt32 = Value If iTage_mutationTmp.IsNull Then Throw New ArgumentOutOfRangeException("iTage_mutation", "iTage_mutation can't be NULL") End If m_iTage_mutation = Value End Set End Property clsDokumenttyp.iTagebisvernichtungbedingteretournierung iTagebisvernichtungbedingteretournierung EDKB12WS.edokadb.clsDokumenttyp.iTagebisvernichtungbedingteretournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001E6 Public Property iTagebisvernichtungbedingteretournierung() As SqlInt32 public SqlInt32 iTagebisvernichtungbedingteretournierung {get; set;} public: SqlInt32 get_iTagebisvernichtungbedingteretournierung()public: void set_iTagebisvernichtungbedingteretournierung( SqlInt32) public function get iTagebisvernichtungbedingteretournierung() : SqlInt32;public function set iTagebisvernichtungbedingteretournierung(value : SqlInt32); Public Property [iTagebisvernichtungbedingteretournierung]() As SqlInt32 Get Return m_iTagebisvernichtungbedingteretournierung End Get Set(ByVal Value As SqlInt32) m_iTagebisvernichtungbedingteretournierung = Value End Set End Property clsDokumenttyp.sBeschreibung sBeschreibung EDKB12WS.edokadb.clsDokumenttyp.sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B4 Public Property sBeschreibung() As SqlString public SqlString sBeschreibung {get; set;} public: SqlString get_sBeschreibung()public: void set_sBeschreibung( SqlString) public function get sBeschreibung() : SqlString;public function set sBeschreibung(value : SqlString); Public Property [sBeschreibung]() As SqlString Get Return m_sBeschreibung End Get Set(ByVal Value As SqlString) m_sBeschreibung = Value End Set End Property clsDokumenttyp.sBezeichnung sBezeichnung EDKB12WS.edokadb.clsDokumenttyp.sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B3 Public Property sBezeichnung() As SqlString public SqlString sBezeichnung {get; set;} public: SqlString get_sBezeichnung()public: void set_sBezeichnung( SqlString) public function get sBezeichnung() : SqlString;public function set sBezeichnung(value : SqlString); Public Property [sBezeichnung]() As SqlString Get Return m_sBezeichnung End Get Set(ByVal Value As SqlString) m_sBezeichnung = Value End Set End Property clsDokumenttyp.sHostdokumenttyp sHostdokumenttyp EDKB12WS.edokadb.clsDokumenttyp.sHostdokumenttyp EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001D6 Public Property sHostdokumenttyp() As SqlString public SqlString sHostdokumenttyp {get; set;} public: SqlString get_sHostdokumenttyp()public: void set_sHostdokumenttyp( SqlString) public function get sHostdokumenttyp() : SqlString;public function set sHostdokumenttyp(value : SqlString); Public Property [sHostdokumenttyp]() As SqlString Get Return m_sHostdokumenttyp End Get Set(ByVal Value As SqlString) m_sHostdokumenttyp = Value End Set End Property clsDokumenttyp.Delete Delete EDKB12WS.edokadb.clsDokumenttyp.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AF Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokumenttyp_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokumenttyp::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsDokumenttyp.Insert Insert EDKB12WS.edokadb.clsDokumenttyp.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AD Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSb)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbimport)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbedituser)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbnur)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokumenttyp_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokumenttyp::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsDokumenttyp.SelectAll SelectAll EDKB12WS.edokadb.clsDokumenttyp.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B1 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("dokumenttyp") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokumenttyp::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsDokumenttyp.SelectOne SelectOne EDKB12WS.edokadb.clsDokumenttyp.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001B0 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("dokumenttyp") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokumenttyp_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then m_sBezeichnung = SqlString.Null Else m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String)) End If If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then m_sBeschreibung = SqlString.Null Else m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String)) End If m_bZu_vercolden = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_vercolden"), Boolean)) m_bZu_retournieren = New SqlBoolean(CType(dtToReturn.Rows(0)("zu_retournieren"), Boolean)) m_bEingang_ersetzt_ausgang = New SqlBoolean(CType(dtToReturn.Rows(0)("eingang_ersetzt_ausgang"), Boolean)) m_bWird_importiert = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_importiert"), Boolean)) m_iAnzahl_tage = New SqlInt32(CType(dtToReturn.Rows(0)("anzahl_tage"), Integer)) m_iDbearbeitungszeit = New SqlInt32(CType(dtToReturn.Rows(0)("dbearbeitungszeit"), Integer)) m_iTage_mutation = New SqlInt32(CType(dtToReturn.Rows(0)("tage_mutation"), Integer)) m_bPartnersaldierung_statusalt = New SqlBoolean(CType(dtToReturn.Rows(0)("partnersaldierung_statusalt"), Boolean)) m_bWird_nicht_geloescht = New SqlBoolean(CType(dtToReturn.Rows(0)("wird_nicht_geloescht"), Boolean)) m_bVertrauliches_dokument = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrauliches_dokument"), Boolean)) m_bUnterschrift_links = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_links"), Boolean)) m_bUnterschrift_rechts = New SqlBoolean(CType(dtToReturn.Rows(0)("unterschrift_rechts"), Boolean)) m_iMonate_bis_zur_archivierung = New SqlInt32(CType(dtToReturn.Rows(0)("monate_bis_zur_archivierung"), Integer)) m_iAufbewahrungsfrist_elektronisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_elektronisch"), Integer)) m_iAufbewahrungsfrist_physisch = New SqlInt32(CType(dtToReturn.Rows(0)("aufbewahrungsfrist_physisch"), Integer)) If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then m_iOffice_vorlagenr = SqlInt32.Null Else m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer)) End If If dtToReturn.Rows(0)("dokumentart_kundendossier") Is System.DBNull.Value Then m_iDokumentart_kundendossier = SqlInt32.Null Else m_iDokumentart_kundendossier = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_kundendossier"), Integer)) End If If dtToReturn.Rows(0)("dokumentart_neuerstellung") Is System.DBNull.Value Then m_iDokumentart_neuerstellung = SqlInt32.Null Else m_iDokumentart_neuerstellung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_neuerstellung"), Integer)) End If If dtToReturn.Rows(0)("dokumentart_retournierung") Is System.DBNull.Value Then m_iDokumentart_retournierung = SqlInt32.Null Else m_iDokumentart_retournierung = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_retournierung"), Integer)) End If m_iDokumentart_coldausgang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldausgang"), Integer)) m_iDokumentart_coldeingang = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_coldeingang"), Integer)) If dtToReturn.Rows(0)("dokumentart_host") Is System.DBNull.Value Then m_iDokumentart_host = SqlInt32.Null Else m_iDokumentart_host = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_host"), Integer)) End If If dtToReturn.Rows(0)("dokumentart_weitere") Is System.DBNull.Value Then m_iDokumentart_weitere = SqlInt32.Null Else m_iDokumentart_weitere = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_weitere"), Integer)) End If If dtToReturn.Rows(0)("dokumentart_nativ") Is System.DBNull.Value Then m_iDokumentart_nativ = SqlInt32.Null Else m_iDokumentart_nativ = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentart_nativ"), Integer)) End If If dtToReturn.Rows(0)("prozessnr") Is System.DBNull.Value Then m_iProzessnr = SqlInt32.Null Else m_iProzessnr = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr"), Integer)) End If If dtToReturn.Rows(0)("prozessnr1") Is System.DBNull.Value Then m_iProzessnr1 = SqlInt32.Null Else m_iProzessnr1 = New SqlInt32(CType(dtToReturn.Rows(0)("prozessnr1"), Integer)) End If m_bAmsdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("amsdokument"), Boolean)) If dtToReturn.Rows(0)("hostdokument") Is System.DBNull.Value Then m_bHostdokument = SqlBoolean.Null Else m_bHostdokument = New SqlBoolean(CType(dtToReturn.Rows(0)("hostdokument"), Boolean)) End If If dtToReturn.Rows(0)("hostdokumenttyp") Is System.DBNull.Value Then m_sHostdokumenttyp = SqlString.Null Else m_sHostdokumenttyp = New SqlString(CType(dtToReturn.Rows(0)("hostdokumenttyp"), String)) End If If dtToReturn.Rows(0)("cold_folder") Is System.DBNull.Value Then m_iCold_folder = SqlInt32.Null Else m_iCold_folder = New SqlInt32(CType(dtToReturn.Rows(0)("cold_folder"), Integer)) End If If dtToReturn.Rows(0)("physisches_archiv") Is System.DBNull.Value Then m_iPhysisches_archiv = SqlInt32.Null Else m_iPhysisches_archiv = New SqlInt32(CType(dtToReturn.Rows(0)("physisches_archiv"), Integer)) End If If dtToReturn.Rows(0)("dokumentstatus") Is System.DBNull.Value Then m_iDokumentstatus = SqlInt32.Null Else m_iDokumentstatus = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus"), Integer)) End If If dtToReturn.Rows(0)("Dokument_wird_erstellt") Is System.DBNull.Value Then m_bDokument_wird_erstellt = SqlBoolean.Null Else m_bDokument_wird_erstellt = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_erstellt"), Boolean)) End If If dtToReturn.Rows(0)("Dokument_wird_retourniert") Is System.DBNull.Value Then m_bDokument_wird_retourniert = SqlBoolean.Null Else m_bDokument_wird_retourniert = New SqlBoolean(CType(dtToReturn.Rows(0)("Dokument_wird_retourniert"), Boolean)) End If If dtToReturn.Rows(0)("cold_ersetzen") Is System.DBNull.Value Then m_bCold_ersetzen = SqlBoolean.Null Else m_bCold_ersetzen = New SqlBoolean(CType(dtToReturn.Rows(0)("cold_ersetzen"), Boolean)) End If If dtToReturn.Rows(0)("email_versand") Is System.DBNull.Value Then m_bEmail_versand = SqlBoolean.Null Else m_bEmail_versand = New SqlBoolean(CType(dtToReturn.Rows(0)("email_versand"), Boolean)) End If If dtToReturn.Rows(0)("funktionen_zuweisen") Is System.DBNull.Value Then m_bFunktionen_zuweisen = SqlBoolean.Null Else m_bFunktionen_zuweisen = New SqlBoolean(CType(dtToReturn.Rows(0)("funktionen_zuweisen"), Boolean)) End If If dtToReturn.Rows(0)("dokumentstatus_barcode") Is System.DBNull.Value Then m_iDokumentstatus_barcode = SqlInt32.Null Else m_iDokumentstatus_barcode = New SqlInt32(CType(dtToReturn.Rows(0)("dokumentstatus_barcode"), Integer)) End If If dtToReturn.Rows(0)("nurnative") Is System.DBNull.Value Then m_bNurnative = SqlBoolean.Null Else m_bNurnative = New SqlBoolean(CType(dtToReturn.Rows(0)("nurnative"), Boolean)) End If If dtToReturn.Rows(0)("Owner") Is System.DBNull.Value Then m_iOwner = SqlInt32.Null Else m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("Owner"), Integer)) End If If dtToReturn.Rows(0)("vertrag") Is System.DBNull.Value Then m_bVertrag = SqlBoolean.Null Else m_bVertrag = New SqlBoolean(CType(dtToReturn.Rows(0)("vertrag"), Boolean)) End If If dtToReturn.Rows(0)("objektbezeichnungnr") Is System.DBNull.Value Then m_iObjektbezeichnungnr = SqlInt32.Null Else m_iObjektbezeichnungnr = New SqlInt32(CType(dtToReturn.Rows(0)("objektbezeichnungnr"), Integer)) End If If dtToReturn.Rows(0)("bedingtretournierbar") Is System.DBNull.Value Then m_bBedingtretournierbar = SqlBoolean.Null Else m_bBedingtretournierbar = New SqlBoolean(CType(dtToReturn.Rows(0)("bedingtretournierbar"), Boolean)) End If If dtToReturn.Rows(0)("doktypbedingteretournierung") Is System.DBNull.Value Then m_iDoktypbedingteretournierung = SqlInt32.Null Else m_iDoktypbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("doktypbedingteretournierung"), Integer)) End If If dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung") Is System.DBNull.Value Then m_iTagebisvernichtungbedingteretournierung = SqlInt32.Null Else m_iTagebisvernichtungbedingteretournierung = New SqlInt32(CType(dtToReturn.Rows(0)("tagebisvernichtungbedingteretournierung"), Integer)) End If If dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung") Is System.DBNull.Value Then m_bAnzeigeZurDokumenterstellung = SqlBoolean.Null Else m_bAnzeigeZurDokumenterstellung = New SqlBoolean(CType(dtToReturn.Rows(0)("AnzeigeZurDokumenterstellung"), Boolean)) End If If dtToReturn.Rows(0)("KundenDokument") Is System.DBNull.Value Then m_bKundenDokument = SqlBoolean.Null Else m_bKundenDokument = New SqlBoolean(CType(dtToReturn.Rows(0)("KundenDokument"), Boolean)) End If If dtToReturn.Rows(0)("sb") Is System.DBNull.Value Then m_bSb = SqlBoolean.Null Else m_bSb = New SqlBoolean(CType(dtToReturn.Rows(0)("sb"), Boolean)) End If If dtToReturn.Rows(0)("sbimport") Is System.DBNull.Value Then m_bSbimport = SqlBoolean.Null Else m_bSbimport = New SqlBoolean(CType(dtToReturn.Rows(0)("sbimport"), Boolean)) End If If dtToReturn.Rows(0)("sbedituser") Is System.DBNull.Value Then m_bSbedituser = SqlBoolean.Null Else m_bSbedituser = New SqlBoolean(CType(dtToReturn.Rows(0)("sbedituser"), Boolean)) End If If dtToReturn.Rows(0)("sbnur") Is System.DBNull.Value Then m_bSbnur = SqlBoolean.Null Else m_bSbnur = New SqlBoolean(CType(dtToReturn.Rows(0)("sbnur"), Boolean)) End If If dtToReturn.Rows(0)("bezeichnungmut") Is System.DBNull.Value Then m_bBezeichnungmut = SqlBoolean.Null Else m_bBezeichnungmut = New SqlBoolean(CType(dtToReturn.Rows(0)("bezeichnungmut"), Boolean)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokumenttyp::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsDokumenttyp.Update Update EDKB12WS.edokadb.clsDokumenttyp.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AE Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_dokumenttyp_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_vercolden", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_vercolden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bzu_retournieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bZu_retournieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beingang_ersetzt_ausgang", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bEingang_ersetzt_ausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_importiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_importiert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ianzahl_tage", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAnzahl_tage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idbearbeitungszeit", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDbearbeitungszeit)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itage_mutation", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iTage_mutation)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bpartnersaldierung_statusalt", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bPartnersaldierung_statusalt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bwird_nicht_geloescht", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bWird_nicht_geloescht)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrauliches_dokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bVertrauliches_dokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_links", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_links)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bunterschrift_rechts", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bUnterschrift_rechts)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imonate_bis_zur_archivierung", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMonate_bis_zur_archivierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_elektronisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_elektronisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iaufbewahrungsfrist_physisch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iAufbewahrungsfrist_physisch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_kundendossier", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_kundendossier)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_neuerstellung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_neuerstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_retournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_retournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldausgang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldausgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_coldeingang", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_coldeingang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_host)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_weitere", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_weitere)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentart_nativ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentart_nativ)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iprozessnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iProzessnr1)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bamsdokument", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAmsdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bhostdokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bHostdokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@shostdokumenttyp", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sHostdokumenttyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@icold_folder", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iCold_folder)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iphysisches_archiv", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iPhysisches_archiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_erstellt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_erstellt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bDokument_wird_retourniert", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_wird_retourniert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bcold_ersetzen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bCold_ersetzen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bemail_versand", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEmail_versand)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bfunktionen_zuweisen", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFunktionen_zuweisen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumentstatus_barcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumentstatus_barcode)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bnurnative", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bNurnative)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iOwner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bvertrag", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bVertrag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iobjektbezeichnungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iObjektbezeichnungnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbedingtretournierbar", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBedingtretournierbar)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idoktypbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDoktypbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@itagebisvernichtungbedingteretournierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iTagebisvernichtungbedingteretournierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bAnzeigeZurDokumenterstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAnzeigeZurDokumenterstellung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bKundenDokument", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bKundenDokument)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsb", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSb)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbimport", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbimport)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbedituser", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbedituser)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bsbnur", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bSbnur)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbezeichnungmut", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBezeichnungmut)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_dokumenttyp_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsDokumenttyp::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsDokumenttyp.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000170 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bAmsdokument m_bAmsdokument EDKB12WS.edokadb.clsDokumenttyp.m_bAmsdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000178 Private m_bAmsdokument As SqlBoolean private SqlBoolean m_bAmsdokument private: SqlBoolean m_bAmsdokument; private m_bAmsdokument : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bAnzeigeZurDokumenterstellung m_bAnzeigeZurDokumenterstellung EDKB12WS.edokadb.clsDokumenttyp.m_bAnzeigeZurDokumenterstellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000174 Private m_bAnzeigeZurDokumenterstellung As SqlBoolean private SqlBoolean m_bAnzeigeZurDokumenterstellung private: SqlBoolean m_bAnzeigeZurDokumenterstellung; private m_bAnzeigeZurDokumenterstellung : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bBedingtretournierbar m_bBedingtretournierbar EDKB12WS.edokadb.clsDokumenttyp.m_bBedingtretournierbar EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000175 Private m_bBedingtretournierbar As SqlBoolean private SqlBoolean m_bBedingtretournierbar private: SqlBoolean m_bBedingtretournierbar; private m_bBedingtretournierbar : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bBezeichnungmut m_bBezeichnungmut EDKB12WS.edokadb.clsDokumenttyp.m_bBezeichnungmut EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000184 Private m_bBezeichnungmut As SqlBoolean private SqlBoolean m_bBezeichnungmut private: SqlBoolean m_bBezeichnungmut; private m_bBezeichnungmut : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bCold_ersetzen m_bCold_ersetzen EDKB12WS.edokadb.clsDokumenttyp.m_bCold_ersetzen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017B Private m_bCold_ersetzen As SqlBoolean private SqlBoolean m_bCold_ersetzen private: SqlBoolean m_bCold_ersetzen; private m_bCold_ersetzen : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bDokument_wird_erstellt m_bDokument_wird_erstellt EDKB12WS.edokadb.clsDokumenttyp.m_bDokument_wird_erstellt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000177 Private m_bDokument_wird_erstellt As SqlBoolean private SqlBoolean m_bDokument_wird_erstellt private: SqlBoolean m_bDokument_wird_erstellt; private m_bDokument_wird_erstellt : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bDokument_wird_retourniert m_bDokument_wird_retourniert EDKB12WS.edokadb.clsDokumenttyp.m_bDokument_wird_retourniert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017C Private m_bDokument_wird_retourniert As SqlBoolean private SqlBoolean m_bDokument_wird_retourniert private: SqlBoolean m_bDokument_wird_retourniert; private m_bDokument_wird_retourniert : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bEingang_ersetzt_ausgang m_bEingang_ersetzt_ausgang EDKB12WS.edokadb.clsDokumenttyp.m_bEingang_ersetzt_ausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017F Private m_bEingang_ersetzt_ausgang As SqlBoolean private SqlBoolean m_bEingang_ersetzt_ausgang private: SqlBoolean m_bEingang_ersetzt_ausgang; private m_bEingang_ersetzt_ausgang : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bEmail_versand m_bEmail_versand EDKB12WS.edokadb.clsDokumenttyp.m_bEmail_versand EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017A Private m_bEmail_versand As SqlBoolean private SqlBoolean m_bEmail_versand private: SqlBoolean m_bEmail_versand; private m_bEmail_versand : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bFunktionen_zuweisen m_bFunktionen_zuweisen EDKB12WS.edokadb.clsDokumenttyp.m_bFunktionen_zuweisen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000176 Private m_bFunktionen_zuweisen As SqlBoolean private SqlBoolean m_bFunktionen_zuweisen private: SqlBoolean m_bFunktionen_zuweisen; private m_bFunktionen_zuweisen : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bHostdokument m_bHostdokument EDKB12WS.edokadb.clsDokumenttyp.m_bHostdokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000179 Private m_bHostdokument As SqlBoolean private SqlBoolean m_bHostdokument private: SqlBoolean m_bHostdokument; private m_bHostdokument : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bKundenDokument m_bKundenDokument EDKB12WS.edokadb.clsDokumenttyp.m_bKundenDokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000188 Private m_bKundenDokument As SqlBoolean private SqlBoolean m_bKundenDokument private: SqlBoolean m_bKundenDokument; private m_bKundenDokument : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bNurnative m_bNurnative EDKB12WS.edokadb.clsDokumenttyp.m_bNurnative EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000172 Private m_bNurnative As SqlBoolean private SqlBoolean m_bNurnative private: SqlBoolean m_bNurnative; private m_bNurnative : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bPartnersaldierung_statusalt m_bPartnersaldierung_statusalt EDKB12WS.edokadb.clsDokumenttyp.m_bPartnersaldierung_statusalt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000187 Private m_bPartnersaldierung_statusalt As SqlBoolean private SqlBoolean m_bPartnersaldierung_statusalt private: SqlBoolean m_bPartnersaldierung_statusalt; private m_bPartnersaldierung_statusalt : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bSb m_bSb EDKB12WS.edokadb.clsDokumenttyp.m_bSb EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000180 Private m_bSb As SqlBoolean private SqlBoolean m_bSb private: SqlBoolean m_bSb; private m_bSb : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bSbedituser m_bSbedituser EDKB12WS.edokadb.clsDokumenttyp.m_bSbedituser EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000186 Private m_bSbedituser As SqlBoolean private SqlBoolean m_bSbedituser private: SqlBoolean m_bSbedituser; private m_bSbedituser : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bSbimport m_bSbimport EDKB12WS.edokadb.clsDokumenttyp.m_bSbimport EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000181 Private m_bSbimport As SqlBoolean private SqlBoolean m_bSbimport private: SqlBoolean m_bSbimport; private m_bSbimport : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bSbnur m_bSbnur EDKB12WS.edokadb.clsDokumenttyp.m_bSbnur EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000183 Private m_bSbnur As SqlBoolean private SqlBoolean m_bSbnur private: SqlBoolean m_bSbnur; private m_bSbnur : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bUnterschrift_links m_bUnterschrift_links EDKB12WS.edokadb.clsDokumenttyp.m_bUnterschrift_links EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017D Private m_bUnterschrift_links As SqlBoolean private SqlBoolean m_bUnterschrift_links private: SqlBoolean m_bUnterschrift_links; private m_bUnterschrift_links : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bUnterschrift_rechts m_bUnterschrift_rechts EDKB12WS.edokadb.clsDokumenttyp.m_bUnterschrift_rechts EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000173 Private m_bUnterschrift_rechts As SqlBoolean private SqlBoolean m_bUnterschrift_rechts private: SqlBoolean m_bUnterschrift_rechts; private m_bUnterschrift_rechts : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bVertrag m_bVertrag EDKB12WS.edokadb.clsDokumenttyp.m_bVertrag EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000171 Private m_bVertrag As SqlBoolean private SqlBoolean m_bVertrag private: SqlBoolean m_bVertrag; private m_bVertrag : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bVertrauliches_dokument m_bVertrauliches_dokument EDKB12WS.edokadb.clsDokumenttyp.m_bVertrauliches_dokument EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000189 Private m_bVertrauliches_dokument As SqlBoolean private SqlBoolean m_bVertrauliches_dokument private: SqlBoolean m_bVertrauliches_dokument; private m_bVertrauliches_dokument : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bWird_importiert m_bWird_importiert EDKB12WS.edokadb.clsDokumenttyp.m_bWird_importiert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000017E Private m_bWird_importiert As SqlBoolean private SqlBoolean m_bWird_importiert private: SqlBoolean m_bWird_importiert; private m_bWird_importiert : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bWird_nicht_geloescht m_bWird_nicht_geloescht EDKB12WS.edokadb.clsDokumenttyp.m_bWird_nicht_geloescht EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018A Private m_bWird_nicht_geloescht As SqlBoolean private SqlBoolean m_bWird_nicht_geloescht private: SqlBoolean m_bWird_nicht_geloescht; private m_bWird_nicht_geloescht : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bZu_retournieren m_bZu_retournieren EDKB12WS.edokadb.clsDokumenttyp.m_bZu_retournieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000182 Private m_bZu_retournieren As SqlBoolean private SqlBoolean m_bZu_retournieren private: SqlBoolean m_bZu_retournieren; private m_bZu_retournieren : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_bZu_vercolden m_bZu_vercolden EDKB12WS.edokadb.clsDokumenttyp.m_bZu_vercolden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000185 Private m_bZu_vercolden As SqlBoolean private SqlBoolean m_bZu_vercolden private: SqlBoolean m_bZu_vercolden; private m_bZu_vercolden : SqlBoolean Private m_bAktiv, m_bVertrag, m_bNurnative, m_bUnterschrift_rechts, m_bAnzeigeZurDokumenterstellung, m_bBedingtretournierbar, m_bFunktionen_zuweisen, m_bDokument_wird_erstellt, m_bAmsdokument, m_bHostdokument, m_bEmail_versand, m_bCold_ersetzen, m_bDokument_wird_retourniert, m_bUnterschrift_links, m_bWird_importiert, m_bEingang_ersetzt_ausgang, m_bSb, m_bSbimport, m_bZu_retournieren, m_bSbnur, m_bBezeichnungmut, m_bZu_vercolden, m_bSbedituser, m_bPartnersaldierung_statusalt, m_bKundenDokument, m_bVertrauliches_dokument, m_bWird_nicht_geloescht As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsDokumenttyp.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018C Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daMutiert_am, m_daErstellt_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsDokumenttyp.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018B Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daMutiert_am, m_daErstellt_am As SqlDateTime m_iAnzahl_tage m_iAnzahl_tage EDKB12WS.edokadb.clsDokumenttyp.m_iAnzahl_tage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019A Private m_iAnzahl_tage As SqlInt32 private SqlInt32 m_iAnzahl_tage private: SqlInt32 m_iAnzahl_tage; private m_iAnzahl_tage : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iAufbewahrungsfrist_elektronisch m_iAufbewahrungsfrist_elektronisch EDKB12WS.edokadb.clsDokumenttyp.m_iAufbewahrungsfrist_elektronisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000196 Private m_iAufbewahrungsfrist_elektronisch As SqlInt32 private SqlInt32 m_iAufbewahrungsfrist_elektronisch private: SqlInt32 m_iAufbewahrungsfrist_elektronisch; private m_iAufbewahrungsfrist_elektronisch : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iAufbewahrungsfrist_physisch m_iAufbewahrungsfrist_physisch EDKB12WS.edokadb.clsDokumenttyp.m_iAufbewahrungsfrist_physisch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000195 Private m_iAufbewahrungsfrist_physisch As SqlInt32 private SqlInt32 m_iAufbewahrungsfrist_physisch private: SqlInt32 m_iAufbewahrungsfrist_physisch; private m_iAufbewahrungsfrist_physisch : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iCold_folder m_iCold_folder EDKB12WS.edokadb.clsDokumenttyp.m_iCold_folder EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018F Private m_iCold_folder As SqlInt32 private SqlInt32 m_iCold_folder private: SqlInt32 m_iCold_folder; private m_iCold_folder : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDbearbeitungszeit m_iDbearbeitungszeit EDKB12WS.edokadb.clsDokumenttyp.m_iDbearbeitungszeit EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019C Private m_iDbearbeitungszeit As SqlInt32 private SqlInt32 m_iDbearbeitungszeit private: SqlInt32 m_iDbearbeitungszeit; private m_iDbearbeitungszeit : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDoktypbedingteretournierung m_iDoktypbedingteretournierung EDKB12WS.edokadb.clsDokumenttyp.m_iDoktypbedingteretournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000191 Private m_iDoktypbedingteretournierung As SqlInt32 private SqlInt32 m_iDoktypbedingteretournierung private: SqlInt32 m_iDoktypbedingteretournierung; private m_iDoktypbedingteretournierung : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_coldausgang m_iDokumentart_coldausgang EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_coldausgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A8 Private m_iDokumentart_coldausgang As SqlInt32 private SqlInt32 m_iDokumentart_coldausgang private: SqlInt32 m_iDokumentart_coldausgang; private m_iDokumentart_coldausgang : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_coldeingang m_iDokumentart_coldeingang EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_coldeingang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A7 Private m_iDokumentart_coldeingang As SqlInt32 private SqlInt32 m_iDokumentart_coldeingang private: SqlInt32 m_iDokumentart_coldeingang; private m_iDokumentart_coldeingang : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_host m_iDokumentart_host EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_host EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A4 Private m_iDokumentart_host As SqlInt32 private SqlInt32 m_iDokumentart_host private: SqlInt32 m_iDokumentart_host; private m_iDokumentart_host : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_kundendossier m_iDokumentart_kundendossier EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_kundendossier EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019F Private m_iDokumentart_kundendossier As SqlInt32 private SqlInt32 m_iDokumentart_kundendossier private: SqlInt32 m_iDokumentart_kundendossier; private m_iDokumentart_kundendossier : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_nativ m_iDokumentart_nativ EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_nativ EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A0 Private m_iDokumentart_nativ As SqlInt32 private SqlInt32 m_iDokumentart_nativ private: SqlInt32 m_iDokumentart_nativ; private m_iDokumentart_nativ : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_neuerstellung m_iDokumentart_neuerstellung EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_neuerstellung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A6 Private m_iDokumentart_neuerstellung As SqlInt32 private SqlInt32 m_iDokumentart_neuerstellung private: SqlInt32 m_iDokumentart_neuerstellung; private m_iDokumentart_neuerstellung : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_retournierung m_iDokumentart_retournierung EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_retournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A5 Private m_iDokumentart_retournierung As SqlInt32 private SqlInt32 m_iDokumentart_retournierung private: SqlInt32 m_iDokumentart_retournierung; private m_iDokumentart_retournierung : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentart_weitere m_iDokumentart_weitere EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentart_weitere EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A1 Private m_iDokumentart_weitere As SqlInt32 private SqlInt32 m_iDokumentart_weitere private: SqlInt32 m_iDokumentart_weitere; private m_iDokumentart_weitere : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentstatus m_iDokumentstatus EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentstatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000193 Private m_iDokumentstatus As SqlInt32 private SqlInt32 m_iDokumentstatus private: SqlInt32 m_iDokumentstatus; private m_iDokumentstatus : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumentstatus_barcode m_iDokumentstatus_barcode EDKB12WS.edokadb.clsDokumenttyp.m_iDokumentstatus_barcode EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000192 Private m_iDokumentstatus_barcode As SqlInt32 private SqlInt32 m_iDokumentstatus_barcode private: SqlInt32 m_iDokumentstatus_barcode; private m_iDokumentstatus_barcode : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iDokumenttypnr m_iDokumenttypnr EDKB12WS.edokadb.clsDokumenttyp.m_iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019B Private m_iDokumenttypnr As SqlInt32 private SqlInt32 m_iDokumenttypnr private: SqlInt32 m_iDokumenttypnr; private m_iDokumenttypnr : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsDokumenttyp.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000197 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iMonate_bis_zur_archivierung m_iMonate_bis_zur_archivierung EDKB12WS.edokadb.clsDokumenttyp.m_iMonate_bis_zur_archivierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019D Private m_iMonate_bis_zur_archivierung As SqlInt32 private SqlInt32 m_iMonate_bis_zur_archivierung private: SqlInt32 m_iMonate_bis_zur_archivierung; private m_iMonate_bis_zur_archivierung : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsDokumenttyp.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000199 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iObjektbezeichnungnr m_iObjektbezeichnungnr EDKB12WS.edokadb.clsDokumenttyp.m_iObjektbezeichnungnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000190 Private m_iObjektbezeichnungnr As SqlInt32 private SqlInt32 m_iObjektbezeichnungnr private: SqlInt32 m_iObjektbezeichnungnr; private m_iObjektbezeichnungnr : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iOffice_vorlagenr m_iOffice_vorlagenr EDKB12WS.edokadb.clsDokumenttyp.m_iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000198 Private m_iOffice_vorlagenr As SqlInt32 private SqlInt32 m_iOffice_vorlagenr private: SqlInt32 m_iOffice_vorlagenr; private m_iOffice_vorlagenr : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iOwner m_iOwner EDKB12WS.edokadb.clsDokumenttyp.m_iOwner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018D Private m_iOwner As SqlInt32 private SqlInt32 m_iOwner private: SqlInt32 m_iOwner; private m_iOwner : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iPhysisches_archiv m_iPhysisches_archiv EDKB12WS.edokadb.clsDokumenttyp.m_iPhysisches_archiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000018E Private m_iPhysisches_archiv As SqlInt32 private SqlInt32 m_iPhysisches_archiv private: SqlInt32 m_iPhysisches_archiv; private m_iPhysisches_archiv : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iProzessnr m_iProzessnr EDKB12WS.edokadb.clsDokumenttyp.m_iProzessnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A3 Private m_iProzessnr As SqlInt32 private SqlInt32 m_iProzessnr private: SqlInt32 m_iProzessnr; private m_iProzessnr : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iProzessnr1 m_iProzessnr1 EDKB12WS.edokadb.clsDokumenttyp.m_iProzessnr1 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A2 Private m_iProzessnr1 As SqlInt32 private SqlInt32 m_iProzessnr1 private: SqlInt32 m_iProzessnr1; private m_iProzessnr1 : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iTage_mutation m_iTage_mutation EDKB12WS.edokadb.clsDokumenttyp.m_iTage_mutation EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000019E Private m_iTage_mutation As SqlInt32 private SqlInt32 m_iTage_mutation private: SqlInt32 m_iTage_mutation; private m_iTage_mutation : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_iTagebisvernichtungbedingteretournierung m_iTagebisvernichtungbedingteretournierung EDKB12WS.edokadb.clsDokumenttyp.m_iTagebisvernichtungbedingteretournierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000194 Private m_iTagebisvernichtungbedingteretournierung As SqlInt32 private SqlInt32 m_iTagebisvernichtungbedingteretournierung private: SqlInt32 m_iTagebisvernichtungbedingteretournierung; private m_iTagebisvernichtungbedingteretournierung : SqlInt32 Private m_iOwner, m_iPhysisches_archiv, m_iCold_folder, m_iObjektbezeichnungnr, m_iDoktypbedingteretournierung, m_iDokumentstatus_barcode, m_iDokumentstatus, m_iTagebisvernichtungbedingteretournierung, m_iAufbewahrungsfrist_physisch, m_iAufbewahrungsfrist_elektronisch, m_iMandantnr, m_iOffice_vorlagenr, m_iMutierer, m_iAnzahl_tage, m_iDokumenttypnr, m_iDbearbeitungszeit, m_iMonate_bis_zur_archivierung, m_iTage_mutation, m_iDokumentart_kundendossier, m_iDokumentart_nativ, m_iDokumentart_weitere, m_iProzessnr1, m_iProzessnr, m_iDokumentart_host, m_iDokumentart_retournierung, m_iDokumentart_neuerstellung, m_iDokumentart_coldeingang, m_iDokumentart_coldausgang As SqlInt32 m_sBeschreibung m_sBeschreibung EDKB12WS.edokadb.clsDokumenttyp.m_sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AB Private m_sBeschreibung As SqlString private SqlString m_sBeschreibung private: SqlString m_sBeschreibung; private m_sBeschreibung : SqlString Private m_sHostdokumenttyp, m_sBezeichnung, m_sBeschreibung As SqlString m_sBezeichnung m_sBezeichnung EDKB12WS.edokadb.clsDokumenttyp.m_sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001AA Private m_sBezeichnung As SqlString private SqlString m_sBezeichnung private: SqlString m_sBezeichnung; private m_sBezeichnung : SqlString Private m_sHostdokumenttyp, m_sBezeichnung, m_sBeschreibung As SqlString m_sHostdokumenttyp m_sHostdokumenttyp EDKB12WS.edokadb.clsDokumenttyp.m_sHostdokumenttyp EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001A9 Private m_sHostdokumenttyp As SqlString private SqlString m_sHostdokumenttyp private: SqlString m_sHostdokumenttyp; private m_sHostdokumenttyp : SqlString Private m_sHostdokumenttyp, m_sBezeichnung, m_sBeschreibung As SqlString clsIdvmakro_office_vorlage clsIdvmakro_office_vorlage EDKB12WS.edokadb.clsIdvmakro_office_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001EE Public Class clsIdvmakro_office_vorlage Inherits clsDBInteractionBase public class clsIdvmakro_office_vorlage : clsDBInteractionBase public __gc class clsIdvmakro_office_vorlage : public clsDBInteractionBase public class clsIdvmakro_office_vorlage extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectAllWidvmakronrLogic SelectAllWoffice_vorlagenrLogic SelectOne ToString Update UpdateAllWidvmakronrLogic UpdateAllWoffice_vorlagenrLogic bAktiv cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iIdvmakronr iIdvmakronrOld iIdvmakroofficevorlagenr iMandantnr iMutierer iOffice_vorlagenr iOffice_vorlagenrOld iReihenfolge sConnectionString clsIdvmakro_office_vorlage Constructor m_bAktiv m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iErrorCode m_iIdvmakronr m_iIdvmakronrOld m_iIdvmakroofficevorlagenr m_iMandantnr m_iMutierer m_iOffice_vorlagenr m_iOffice_vorlagenrOld m_iReihenfolge m_scoMainConnection clsIdvmakro_office_vorlage Constructor New EDKB12WS.edokadb.clsIdvmakro_office_vorlage.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FA Public Sub New() public clsIdvmakro_office_vorlage() public: clsIdvmakro_office_vorlage(); public function clsIdvmakro_office_vorlage(); Public Sub New() ' // Nothing for now. End Sub clsIdvmakro_office_vorlage.bAktiv bAktiv EDKB12WS.edokadb.clsIdvmakro_office_vorlage.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000207 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsIdvmakro_office_vorlage.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsIdvmakro_office_vorlage.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000208 Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsIdvmakro_office_vorlage.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsIdvmakro_office_vorlage.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000209 Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsIdvmakro_office_vorlage.iIdvmakronr iIdvmakronr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iIdvmakronr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020D Public Property iIdvmakronr() As SqlInt32 public SqlInt32 iIdvmakronr {get; set;} public: SqlInt32 get_iIdvmakronr()public: void set_iIdvmakronr( SqlInt32) public function get iIdvmakronr() : SqlInt32;public function set iIdvmakronr(value : SqlInt32); Public Property [iIdvmakronr]() As SqlInt32 Get Return m_iIdvmakronr End Get Set(ByVal Value As SqlInt32) m_iIdvmakronr = Value End Set End Property clsIdvmakro_office_vorlage.iIdvmakronrOld iIdvmakronrOld EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iIdvmakronrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020E Public Property iIdvmakronrOld() As SqlInt32 public SqlInt32 iIdvmakronrOld {get; set;} public: SqlInt32 get_iIdvmakronrOld()public: void set_iIdvmakronrOld( SqlInt32) public function get iIdvmakronrOld() : SqlInt32;public function set iIdvmakronrOld(value : SqlInt32); Public Property [iIdvmakronrOld]() As SqlInt32 Get Return m_iIdvmakronrOld End Get Set(ByVal Value As SqlInt32) m_iIdvmakronrOld = Value End Set End Property clsIdvmakro_office_vorlage.iIdvmakroofficevorlagenr iIdvmakroofficevorlagenr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iIdvmakroofficevorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000204 Public Property iIdvmakroofficevorlagenr() As SqlInt32 public SqlInt32 iIdvmakroofficevorlagenr {get; set;} public: SqlInt32 get_iIdvmakroofficevorlagenr()public: void set_iIdvmakroofficevorlagenr( SqlInt32) public function get iIdvmakroofficevorlagenr() : SqlInt32;public function set iIdvmakroofficevorlagenr(value : SqlInt32); Public Property [iIdvmakroofficevorlagenr]() As SqlInt32 Get Return m_iIdvmakroofficevorlagenr End Get Set(ByVal Value As SqlInt32) Dim iIdvmakroofficevorlagenrTmp As SqlInt32 = Value If iIdvmakroofficevorlagenrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iIdvmakroofficevorlagenr", "iIdvmakroofficevorlagenr can't be NULL") End If m_iIdvmakroofficevorlagenr = Value End Set End Property clsIdvmakro_office_vorlage.iMandantnr iMandantnr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000206 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsIdvmakro_office_vorlage.iMutierer iMutierer EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020A Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) Dim iMutiererTmp As SqlInt32 = Value If iMutiererTmp.IsNull Then Throw New ArgumentOutOfRangeException("iMutierer", "iMutierer can't be NULL") End If m_iMutierer = Value End Set End Property clsIdvmakro_office_vorlage.iOffice_vorlagenr iOffice_vorlagenr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020B Public Property iOffice_vorlagenr() As SqlInt32 public SqlInt32 iOffice_vorlagenr {get; set;} public: SqlInt32 get_iOffice_vorlagenr()public: void set_iOffice_vorlagenr( SqlInt32) public function get iOffice_vorlagenr() : SqlInt32;public function set iOffice_vorlagenr(value : SqlInt32); Public Property [iOffice_vorlagenr]() As SqlInt32 Get Return m_iOffice_vorlagenr End Get Set(ByVal Value As SqlInt32) m_iOffice_vorlagenr = Value End Set End Property clsIdvmakro_office_vorlage.iOffice_vorlagenrOld iOffice_vorlagenrOld EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iOffice_vorlagenrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020C Public Property iOffice_vorlagenrOld() As SqlInt32 public SqlInt32 iOffice_vorlagenrOld {get; set;} public: SqlInt32 get_iOffice_vorlagenrOld()public: void set_iOffice_vorlagenrOld( SqlInt32) public function get iOffice_vorlagenrOld() : SqlInt32;public function set iOffice_vorlagenrOld(value : SqlInt32); Public Property [iOffice_vorlagenrOld]() As SqlInt32 Get Return m_iOffice_vorlagenrOld End Get Set(ByVal Value As SqlInt32) m_iOffice_vorlagenrOld = Value End Set End Property clsIdvmakro_office_vorlage.iReihenfolge iReihenfolge EDKB12WS.edokadb.clsIdvmakro_office_vorlage.iReihenfolge EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000205 Public Property iReihenfolge() As SqlInt32 public SqlInt32 iReihenfolge {get; set;} public: SqlInt32 get_iReihenfolge()public: void set_iReihenfolge( SqlInt32) public function get iReihenfolge() : SqlInt32;public function set iReihenfolge(value : SqlInt32); Public Property [iReihenfolge]() As SqlInt32 Get Return m_iReihenfolge End Get Set(ByVal Value As SqlInt32) Dim iReihenfolgeTmp As SqlInt32 = Value If iReihenfolgeTmp.IsNull Then Throw New ArgumentOutOfRangeException("iReihenfolge", "iReihenfolge can't be NULL") End If m_iReihenfolge = Value End Set End Property clsIdvmakro_office_vorlage.Delete Delete EDKB12WS.edokadb.clsIdvmakro_office_vorlage.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FF Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsIdvmakro_office_vorlage.Insert Insert EDKB12WS.edokadb.clsIdvmakro_office_vorlage.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FB Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ireihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::Insert::Error occured." + ex.Message, ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsIdvmakro_office_vorlage.SelectAll SelectAll EDKB12WS.edokadb.clsIdvmakro_office_vorlage.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000201 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("idvmakro_office_vorlage") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsIdvmakro_office_vorlage.SelectAllWidvmakronrLogic SelectAllWidvmakronrLogic EDKB12WS.edokadb.clsIdvmakro_office_vorlage.SelectAllWidvmakronrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000203 Public Function SelectAllWidvmakronrLogic() As DataTable public DataTable SelectAllWidvmakronrLogic() public: DataTable __gc* SelectAllWidvmakronrLogic(); public function SelectAllWidvmakronrLogic() : DataTable; Public Function SelectAllWidvmakronrLogic() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAllWidvmakronrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("idvmakro_office_vorlage") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAllWidvmakronrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::SelectAllWidvmakronrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsIdvmakro_office_vorlage.SelectAllWoffice_vorlagenrLogic SelectAllWoffice_vorlagenrLogic EDKB12WS.edokadb.clsIdvmakro_office_vorlage.SelectAllWoffice_vorlagenrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000202 Public Function SelectAllWoffice_vorlagenrLogic() As DataTable public DataTable SelectAllWoffice_vorlagenrLogic() public: DataTable __gc* SelectAllWoffice_vorlagenrLogic(); public function SelectAllWoffice_vorlagenrLogic() : DataTable; Public Function SelectAllWoffice_vorlagenrLogic() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAllWoffice_vorlagenrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("idvmakro_office_vorlage") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAllWoffice_vorlagenrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::SelectAllWoffice_vorlagenrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsIdvmakro_office_vorlage.SelectOne SelectOne EDKB12WS.edokadb.clsIdvmakro_office_vorlage.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000200 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("idvmakro_office_vorlage") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iIdvmakroofficevorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakroofficevorlagenr"), Integer)) m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("reihenfolge"), Integer)) If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then m_iOffice_vorlagenr = SqlInt32.Null Else m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer)) End If If dtToReturn.Rows(0)("idvmakronr") Is System.DBNull.Value Then m_iIdvmakronr = SqlInt32.Null Else m_iIdvmakronr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakronr"), Integer)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsIdvmakro_office_vorlage.Update Update EDKB12WS.edokadb.clsIdvmakro_office_vorlage.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FC Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ireihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsIdvmakro_office_vorlage.UpdateAllWidvmakronrLogic UpdateAllWidvmakronrLogic EDKB12WS.edokadb.clsIdvmakro_office_vorlage.UpdateAllWidvmakronrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FE Public Function UpdateAllWidvmakronrLogic() As Boolean public bool UpdateAllWidvmakronrLogic() public: bool UpdateAllWidvmakronrLogic(); public function UpdateAllWidvmakronrLogic() : boolean; Public Function UpdateAllWidvmakronrLogic() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_UpdateAllWidvmakronrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakronrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronrOld)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_UpdateAllWidvmakronrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::UpdateAllWidvmakronrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsIdvmakro_office_vorlage.UpdateAllWoffice_vorlagenrLogic UpdateAllWoffice_vorlagenrLogic EDKB12WS.edokadb.clsIdvmakro_office_vorlage.UpdateAllWoffice_vorlagenrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001FD Public Function UpdateAllWoffice_vorlagenrLogic() As Boolean public bool UpdateAllWoffice_vorlagenrLogic() public: bool UpdateAllWoffice_vorlagenrLogic(); public function UpdateAllWoffice_vorlagenrLogic() : boolean; Public Function UpdateAllWoffice_vorlagenrLogic() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_UpdateAllWoffice_vorlagenrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenrOld)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_UpdateAllWoffice_vorlagenrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsIdvmakro_office_vorlage::UpdateAllWoffice_vorlagenrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001EF Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bAktiv As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F0 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F1 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_iIdvmakronr m_iIdvmakronr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iIdvmakronr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F5 Private m_iIdvmakronr As SqlInt32 private SqlInt32 m_iIdvmakronr private: SqlInt32 m_iIdvmakronr; private m_iIdvmakronr : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iIdvmakronrOld m_iIdvmakronrOld EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iIdvmakronrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F6 Private m_iIdvmakronrOld As SqlInt32 private SqlInt32 m_iIdvmakronrOld private: SqlInt32 m_iIdvmakronrOld; private m_iIdvmakronrOld : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iIdvmakroofficevorlagenr m_iIdvmakroofficevorlagenr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iIdvmakroofficevorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F9 Private m_iIdvmakroofficevorlagenr As SqlInt32 private SqlInt32 m_iIdvmakroofficevorlagenr private: SqlInt32 m_iIdvmakroofficevorlagenr; private m_iIdvmakroofficevorlagenr : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F7 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F2 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iOffice_vorlagenr m_iOffice_vorlagenr EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F3 Private m_iOffice_vorlagenr As SqlInt32 private SqlInt32 m_iOffice_vorlagenr private: SqlInt32 m_iOffice_vorlagenr; private m_iOffice_vorlagenr : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iOffice_vorlagenrOld m_iOffice_vorlagenrOld EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iOffice_vorlagenrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F4 Private m_iOffice_vorlagenrOld As SqlInt32 private SqlInt32 m_iOffice_vorlagenrOld private: SqlInt32 m_iOffice_vorlagenrOld; private m_iOffice_vorlagenrOld : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 m_iReihenfolge m_iReihenfolge EDKB12WS.edokadb.clsIdvmakro_office_vorlage.m_iReihenfolge EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000001F8 Private m_iReihenfolge As SqlInt32 private SqlInt32 m_iReihenfolge private: SqlInt32 m_iReihenfolge; private m_iReihenfolge : SqlInt32 Private m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32 clsJournaleintrag clsJournaleintrag EDKB12WS.edokadb.clsJournaleintrag EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000020F Public Class clsJournaleintrag Inherits clsDBInteractionBase public class clsJournaleintrag : clsDBInteractionBase public __gc class clsJournaleintrag : public clsDBInteractionBase public class clsJournaleintrag extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update cpMainConnectionProvider daDatumzeit iErrorCode iJournaleintragnr iJournalnr sConnectionString sEintrag clsJournaleintrag Constructor m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daDatumzeit m_iErrorCode m_iJournaleintragnr m_iJournalnr m_sEintrag m_scoMainConnection clsJournaleintrag Constructor New EDKB12WS.edokadb.clsJournaleintrag.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000214 Public Sub New() public clsJournaleintrag() public: clsJournaleintrag(); public function clsJournaleintrag(); Public Sub New() ' // Nothing for now. End Sub clsJournaleintrag.daDatumzeit daDatumzeit EDKB12WS.edokadb.clsJournaleintrag.daDatumzeit EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021D Public Property daDatumzeit() As SqlDateTime public SqlDateTime daDatumzeit {get; set;} public: SqlDateTime get_daDatumzeit()public: void set_daDatumzeit( SqlDateTime) public function get daDatumzeit() : SqlDateTime;public function set daDatumzeit(value : SqlDateTime); Public Property [daDatumzeit]() As SqlDateTime Get Return m_daDatumzeit End Get Set(ByVal Value As SqlDateTime) m_daDatumzeit = Value End Set End Property clsJournaleintrag.iJournaleintragnr iJournaleintragnr EDKB12WS.edokadb.clsJournaleintrag.iJournaleintragnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021A Public Property iJournaleintragnr() As SqlInt32 public SqlInt32 iJournaleintragnr {get; set;} public: SqlInt32 get_iJournaleintragnr()public: void set_iJournaleintragnr( SqlInt32) public function get iJournaleintragnr() : SqlInt32;public function set iJournaleintragnr(value : SqlInt32); Public Property [iJournaleintragnr]() As SqlInt32 Get Return m_iJournaleintragnr End Get Set(ByVal Value As SqlInt32) Dim iJournaleintragnrTmp As SqlInt32 = Value If iJournaleintragnrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iJournaleintragnr", "iJournaleintragnr can't be NULL") End If m_iJournaleintragnr = Value End Set End Property clsJournaleintrag.iJournalnr iJournalnr EDKB12WS.edokadb.clsJournaleintrag.iJournalnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021B Public Property iJournalnr() As SqlInt32 public SqlInt32 iJournalnr {get; set;} public: SqlInt32 get_iJournalnr()public: void set_iJournalnr( SqlInt32) public function get iJournalnr() : SqlInt32;public function set iJournalnr(value : SqlInt32); Public Property [iJournalnr]() As SqlInt32 Get Return m_iJournalnr End Get Set(ByVal Value As SqlInt32) m_iJournalnr = Value End Set End Property clsJournaleintrag.sEintrag sEintrag EDKB12WS.edokadb.clsJournaleintrag.sEintrag EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021C Public Property sEintrag() As SqlString public SqlString sEintrag {get; set;} public: SqlString get_sEintrag()public: void set_sEintrag( SqlString) public function get sEintrag() : SqlString;public function set sEintrag(value : SqlString); Public Property [sEintrag]() As SqlString Get Return m_sEintrag End Get Set(ByVal Value As SqlString) m_sEintrag = Value End Set End Property clsJournaleintrag.Delete Delete EDKB12WS.edokadb.clsJournaleintrag.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000217 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Overrides Public Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsJournaleintrag.Insert Insert EDKB12WS.edokadb.clsJournaleintrag.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000215 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit)) scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Journaleintrag_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsJournaleintrag::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsJournaleintrag.SelectAll SelectAll EDKB12WS.edokadb.clsJournaleintrag.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000219 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Overrides Public Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Journaleintrag") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsJournaleintrag::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsJournaleintrag.SelectOne SelectOne EDKB12WS.edokadb.clsJournaleintrag.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000218 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Journaleintrag") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer)) If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then m_iJournalnr = SqlInt32.Null Else m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer)) End If If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then m_sEintrag = SqlString.Null Else m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String)) End If If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then m_daDatumzeit = SqlDateTime.Null Else m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsJournaleintrag.Update Update EDKB12WS.edokadb.clsJournaleintrag.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000216 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Journaleintrag_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsJournaleintrag::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_daDatumzeit m_daDatumzeit EDKB12WS.edokadb.clsJournaleintrag.m_daDatumzeit EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000210 Private m_daDatumzeit As SqlDateTime private SqlDateTime m_daDatumzeit private: SqlDateTime m_daDatumzeit; private m_daDatumzeit : SqlDateTime Private m_daDatumzeit As SqlDateTime m_iJournaleintragnr m_iJournaleintragnr EDKB12WS.edokadb.clsJournaleintrag.m_iJournaleintragnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000212 Private m_iJournaleintragnr As SqlInt32 private SqlInt32 m_iJournaleintragnr private: SqlInt32 m_iJournaleintragnr; private m_iJournaleintragnr : SqlInt32 Private m_iJournalnr, m_iJournaleintragnr As SqlInt32 m_iJournalnr m_iJournalnr EDKB12WS.edokadb.clsJournaleintrag.m_iJournalnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000211 Private m_iJournalnr As SqlInt32 private SqlInt32 m_iJournalnr private: SqlInt32 m_iJournalnr; private m_iJournalnr : SqlInt32 Private m_iJournalnr, m_iJournaleintragnr As SqlInt32 m_sEintrag m_sEintrag EDKB12WS.edokadb.clsJournaleintrag.m_sEintrag EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000213 Private m_sEintrag As SqlString private SqlString m_sEintrag private: SqlString m_sEintrag; private m_sEintrag : SqlString Private m_sEintrag As SqlString clsKey_tabelle clsKey_tabelle EDKB12WS.edokadb.clsKey_tabelle EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021E Public Class clsKey_tabelle Inherits clsDBInteractionBase public class clsKey_tabelle : clsDBInteractionBase public __gc class clsKey_tabelle : public clsDBInteractionBase public class clsKey_tabelle extends clsDBInteractionBase EDKB12WS.edokadb.clsMyKey_Tabelle EDKB12WS.edokadb.clsMyKey_Tabelle System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iKey_wert iKeynr iMandantnr iMutierer sBeschreibung sConnectionString clsKey_tabelle Constructor m_bAktiv m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iErrorCode m_iKey_wert m_iKeynr m_iMandantnr m_iMutierer m_sBeschreibung m_scoMainConnection clsKey_tabelle Constructor New EDKB12WS.edokadb.clsKey_tabelle.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000227 Public Sub New() public clsKey_tabelle() public: clsKey_tabelle(); public function clsKey_tabelle(); Public Sub New() ' // Nothing for now. End Sub clsKey_tabelle.bAktiv bAktiv EDKB12WS.edokadb.clsKey_tabelle.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000231 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsKey_tabelle.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsKey_tabelle.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000232 Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsKey_tabelle.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsKey_tabelle.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000233 Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsKey_tabelle.iKey_wert iKey_wert EDKB12WS.edokadb.clsKey_tabelle.iKey_wert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022F Public Property iKey_wert() As SqlInt32 public SqlInt32 iKey_wert {get; set;} public: SqlInt32 get_iKey_wert()public: void set_iKey_wert( SqlInt32) public function get iKey_wert() : SqlInt32;public function set iKey_wert(value : SqlInt32); Public Property [iKey_wert]() As SqlInt32 Get Return m_iKey_wert End Get Set(ByVal Value As SqlInt32) Dim iKey_wertTmp As SqlInt32 = Value If iKey_wertTmp.IsNull Then Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL") End If m_iKey_wert = Value End Set End Property clsKey_tabelle.iKeynr iKeynr EDKB12WS.edokadb.clsKey_tabelle.iKeynr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022D Public Property iKeynr() As SqlInt32 public SqlInt32 iKeynr {get; set;} public: SqlInt32 get_iKeynr()public: void set_iKeynr( SqlInt32) public function get iKeynr() : SqlInt32;public function set iKeynr(value : SqlInt32); Public Property [iKeynr]() As SqlInt32 Get Return m_iKeynr End Get Set(ByVal Value As SqlInt32) Dim iKeynrTmp As SqlInt32 = Value If iKeynrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL") End If m_iKeynr = Value End Set End Property clsKey_tabelle.iMandantnr iMandantnr EDKB12WS.edokadb.clsKey_tabelle.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000230 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsKey_tabelle.iMutierer iMutierer EDKB12WS.edokadb.clsKey_tabelle.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000234 Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsKey_tabelle.sBeschreibung sBeschreibung EDKB12WS.edokadb.clsKey_tabelle.sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022E Public Property sBeschreibung() As SqlString public SqlString sBeschreibung {get; set;} public: SqlString get_sBeschreibung()public: void set_sBeschreibung( SqlString) public function get sBeschreibung() : SqlString;public function set sBeschreibung(value : SqlString); Public Property [sBeschreibung]() As SqlString Get Return m_sBeschreibung End Get Set(ByVal Value As SqlString) Dim sBeschreibungTmp As SqlString = Value If sBeschreibungTmp.IsNull Then Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL") End If m_sBeschreibung = Value End Set End Property clsKey_tabelle.Delete Delete EDKB12WS.edokadb.clsKey_tabelle.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022A Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsKey_tabelle.Insert Insert EDKB12WS.edokadb.clsKey_tabelle.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000228 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsKey_tabelle.SelectAll SelectAll EDKB12WS.edokadb.clsKey_tabelle.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022C Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("key_tabelle") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsKey_tabelle.SelectOne SelectOne EDKB12WS.edokadb.clsKey_tabelle.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000022B Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("key_tabelle") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer)) m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String)) m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer)) If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsKey_tabelle.Update Update EDKB12WS.edokadb.clsKey_tabelle.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000229 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsKey_tabelle.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000021F Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bAktiv As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsKey_tabelle.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000220 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsKey_tabelle.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000221 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_iKey_wert m_iKey_wert EDKB12WS.edokadb.clsKey_tabelle.m_iKey_wert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000224 Private m_iKey_wert As SqlInt32 private SqlInt32 m_iKey_wert private: SqlInt32 m_iKey_wert; private m_iKey_wert : SqlInt32 Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32 m_iKeynr m_iKeynr EDKB12WS.edokadb.clsKey_tabelle.m_iKeynr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000223 Private m_iKeynr As SqlInt32 private SqlInt32 m_iKeynr private: SqlInt32 m_iKeynr; private m_iKeynr : SqlInt32 Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsKey_tabelle.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000225 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsKey_tabelle.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000222 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32 m_sBeschreibung m_sBeschreibung EDKB12WS.edokadb.clsKey_tabelle.m_sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000226 Private m_sBeschreibung As SqlString private SqlString m_sBeschreibung private: SqlString m_sBeschreibung; private m_sBeschreibung : SqlString Private m_sBeschreibung As SqlString clsMitarbeiter clsMitarbeiter EDKB12WS.edokadb.clsMitarbeiter EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000235 Public Class clsMitarbeiter Inherits clsDBInteractionBase public class clsMitarbeiter : clsDBInteractionBase public __gc class clsMitarbeiter : public clsDBInteractionBase public class clsMitarbeiter extends clsDBInteractionBase EDKB12WS.edokaDB.clsMyMitarbeiter EDKB12WS.edokaDB.clsMyMitarbeiter System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv bEdokaMesasge bEdoka_mail bJournalisierung bMailDirektVersenden bMailDokumentrueckgang bMailempfang bShowtip cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iFuermandant iFunktionnr iKlassifizierung iMandantnr iMitarbeiternr iMutierer iPartnernr iSprache sAnrede sConnectionString sEmail sFax sFunktion sKurzzeichen sName sRang sTelefon sTgnummer sUnterschrift_text sVorname clsMitarbeiter Constructor m_bAktiv m_bEdokaMesasge m_bEdoka_mail m_bJournalisierung m_bMailDirektVersenden m_bMailDokumentrueckgang m_bMailempfang m_bMainConnectionIsCreatedLocal m_bShowtip m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iErrorCode m_iFuermandant m_iFunktionnr m_iKlassifizierung m_iMandantnr m_iMitarbeiternr m_iMutierer m_iPartnernr m_iSprache m_sAnrede m_sEmail m_sFax m_sFunktion m_sKurzzeichen m_sName m_sRang m_sTelefon m_sTgnummer m_sUnterschrift_text m_sVorname m_scoMainConnection clsMitarbeiter Constructor New EDKB12WS.edokadb.clsMitarbeiter.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000253 Public Sub New() public clsMitarbeiter() public: clsMitarbeiter(); public function clsMitarbeiter(); Public Sub New() ' // Nothing for now. End Sub clsMitarbeiter.bAktiv bAktiv EDKB12WS.edokadb.clsMitarbeiter.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000269 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsMitarbeiter.bEdokaMesasge bEdokaMesasge EDKB12WS.edokadb.clsMitarbeiter.bEdokaMesasge EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026E Public Property bEdokaMesasge() As SqlBoolean public SqlBoolean bEdokaMesasge {get; set;} public: SqlBoolean get_bEdokaMesasge()public: void set_bEdokaMesasge( SqlBoolean) public function get bEdokaMesasge() : SqlBoolean;public function set bEdokaMesasge(value : SqlBoolean); Public Property [bEdokaMesasge]() As SqlBoolean Get Return m_bEdokaMesasge End Get Set(ByVal Value As SqlBoolean) m_bEdokaMesasge = Value End Set End Property clsMitarbeiter.bEdoka_mail bEdoka_mail EDKB12WS.edokadb.clsMitarbeiter.bEdoka_mail EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000274 Public Property bEdoka_mail() As SqlBoolean public SqlBoolean bEdoka_mail {get; set;} public: SqlBoolean get_bEdoka_mail()public: void set_bEdoka_mail( SqlBoolean) public function get bEdoka_mail() : SqlBoolean;public function set bEdoka_mail(value : SqlBoolean); Public Property [bEdoka_mail]() As SqlBoolean Get Return m_bEdoka_mail End Get Set(ByVal Value As SqlBoolean) m_bEdoka_mail = Value End Set End Property clsMitarbeiter.bJournalisierung bJournalisierung EDKB12WS.edokadb.clsMitarbeiter.bJournalisierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000275 Public Property bJournalisierung() As SqlBoolean public SqlBoolean bJournalisierung {get; set;} public: SqlBoolean get_bJournalisierung()public: void set_bJournalisierung( SqlBoolean) public function get bJournalisierung() : SqlBoolean;public function set bJournalisierung(value : SqlBoolean); Public Property [bJournalisierung]() As SqlBoolean Get Return m_bJournalisierung End Get Set(ByVal Value As SqlBoolean) m_bJournalisierung = Value End Set End Property clsMitarbeiter.bMailDirektVersenden bMailDirektVersenden EDKB12WS.edokadb.clsMitarbeiter.bMailDirektVersenden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000270 Public Property bMailDirektVersenden() As SqlBoolean public SqlBoolean bMailDirektVersenden {get; set;} public: SqlBoolean get_bMailDirektVersenden()public: void set_bMailDirektVersenden( SqlBoolean) public function get bMailDirektVersenden() : SqlBoolean;public function set bMailDirektVersenden(value : SqlBoolean); Public Property [bMailDirektVersenden]() As SqlBoolean Get Return m_bMailDirektVersenden End Get Set(ByVal Value As SqlBoolean) m_bMailDirektVersenden = Value End Set End Property clsMitarbeiter.bMailDokumentrueckgang bMailDokumentrueckgang EDKB12WS.edokadb.clsMitarbeiter.bMailDokumentrueckgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000272 Public Property bMailDokumentrueckgang() As SqlBoolean public SqlBoolean bMailDokumentrueckgang {get; set;} public: SqlBoolean get_bMailDokumentrueckgang()public: void set_bMailDokumentrueckgang( SqlBoolean) public function get bMailDokumentrueckgang() : SqlBoolean;public function set bMailDokumentrueckgang(value : SqlBoolean); Public Property [bMailDokumentrueckgang]() As SqlBoolean Get Return m_bMailDokumentrueckgang End Get Set(ByVal Value As SqlBoolean) m_bMailDokumentrueckgang = Value End Set End Property clsMitarbeiter.bMailempfang bMailempfang EDKB12WS.edokadb.clsMitarbeiter.bMailempfang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026D Public Property bMailempfang() As SqlBoolean public SqlBoolean bMailempfang {get; set;} public: SqlBoolean get_bMailempfang()public: void set_bMailempfang( SqlBoolean) public function get bMailempfang() : SqlBoolean;public function set bMailempfang(value : SqlBoolean); Public Property [bMailempfang]() As SqlBoolean Get Return m_bMailempfang End Get Set(ByVal Value As SqlBoolean) m_bMailempfang = Value End Set End Property clsMitarbeiter.bShowtip bShowtip EDKB12WS.edokadb.clsMitarbeiter.bShowtip EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000266 Public Property bShowtip() As SqlBoolean public SqlBoolean bShowtip {get; set;} public: SqlBoolean get_bShowtip()public: void set_bShowtip( SqlBoolean) public function get bShowtip() : SqlBoolean;public function set bShowtip(value : SqlBoolean); Public Property [bShowtip]() As SqlBoolean Get Return m_bShowtip End Get Set(ByVal Value As SqlBoolean) Dim bShowtipTmp As SqlBoolean = Value If bShowtipTmp.IsNull Then Throw New ArgumentOutOfRangeException("bShowtip", "bShowtip can't be NULL") End If m_bShowtip = Value End Set End Property clsMitarbeiter.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsMitarbeiter.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026A Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsMitarbeiter.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsMitarbeiter.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026B Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsMitarbeiter.iFuermandant iFuermandant EDKB12WS.edokadb.clsMitarbeiter.iFuermandant EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000265 Public Property iFuermandant() As SqlInt32 public SqlInt32 iFuermandant {get; set;} public: SqlInt32 get_iFuermandant()public: void set_iFuermandant( SqlInt32) public function get iFuermandant() : SqlInt32;public function set iFuermandant(value : SqlInt32); Public Property [iFuermandant]() As SqlInt32 Get Return m_iFuermandant End Get Set(ByVal Value As SqlInt32) Dim iFuermandantTmp As SqlInt32 = Value If iFuermandantTmp.IsNull Then Throw New ArgumentOutOfRangeException("iFuermandant", "iFuermandant can't be NULL") End If m_iFuermandant = Value End Set End Property clsMitarbeiter.iFunktionnr iFunktionnr EDKB12WS.edokadb.clsMitarbeiter.iFunktionnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000263 Public Property iFunktionnr() As SqlInt32 public SqlInt32 iFunktionnr {get; set;} public: SqlInt32 get_iFunktionnr()public: void set_iFunktionnr( SqlInt32) public function get iFunktionnr() : SqlInt32;public function set iFunktionnr(value : SqlInt32); Public Property [iFunktionnr]() As SqlInt32 Get Return m_iFunktionnr End Get Set(ByVal Value As SqlInt32) m_iFunktionnr = Value End Set End Property clsMitarbeiter.iKlassifizierung iKlassifizierung EDKB12WS.edokadb.clsMitarbeiter.iKlassifizierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000273 Public Property iKlassifizierung() As SqlInt32 public SqlInt32 iKlassifizierung {get; set;} public: SqlInt32 get_iKlassifizierung()public: void set_iKlassifizierung( SqlInt32) public function get iKlassifizierung() : SqlInt32;public function set iKlassifizierung(value : SqlInt32); Public Property [iKlassifizierung]() As SqlInt32 Get Return m_iKlassifizierung End Get Set(ByVal Value As SqlInt32) m_iKlassifizierung = Value End Set End Property clsMitarbeiter.iMandantnr iMandantnr EDKB12WS.edokadb.clsMitarbeiter.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000268 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsMitarbeiter.iMitarbeiternr iMitarbeiternr EDKB12WS.edokadb.clsMitarbeiter.iMitarbeiternr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000259 Public Property iMitarbeiternr() As SqlInt32 public SqlInt32 iMitarbeiternr {get; set;} public: SqlInt32 get_iMitarbeiternr()public: void set_iMitarbeiternr( SqlInt32) public function get iMitarbeiternr() : SqlInt32;public function set iMitarbeiternr(value : SqlInt32); Public Property [iMitarbeiternr]() As SqlInt32 Get Return m_iMitarbeiternr End Get Set(ByVal Value As SqlInt32) Dim iMitarbeiternrTmp As SqlInt32 = Value If iMitarbeiternrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL") End If m_iMitarbeiternr = Value End Set End Property clsMitarbeiter.iMutierer iMutierer EDKB12WS.edokadb.clsMitarbeiter.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026C Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsMitarbeiter.iPartnernr iPartnernr EDKB12WS.edokadb.clsMitarbeiter.iPartnernr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000267 Public Property iPartnernr() As SqlInt32 public SqlInt32 iPartnernr {get; set;} public: SqlInt32 get_iPartnernr()public: void set_iPartnernr( SqlInt32) public function get iPartnernr() : SqlInt32;public function set iPartnernr(value : SqlInt32); Public Property [iPartnernr]() As SqlInt32 Get Return m_iPartnernr End Get Set(ByVal Value As SqlInt32) Dim iPartnernrTmp As SqlInt32 = Value If iPartnernrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iPartnernr", "iPartnernr can't be NULL") End If m_iPartnernr = Value End Set End Property clsMitarbeiter.iSprache iSprache EDKB12WS.edokadb.clsMitarbeiter.iSprache EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000264 Public Property iSprache() As SqlInt32 public SqlInt32 iSprache {get; set;} public: SqlInt32 get_iSprache()public: void set_iSprache( SqlInt32) public function get iSprache() : SqlInt32;public function set iSprache(value : SqlInt32); Public Property [iSprache]() As SqlInt32 Get Return m_iSprache End Get Set(ByVal Value As SqlInt32) m_iSprache = Value End Set End Property clsMitarbeiter.sAnrede sAnrede EDKB12WS.edokadb.clsMitarbeiter.sAnrede EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025D Public Property sAnrede() As SqlString public SqlString sAnrede {get; set;} public: SqlString get_sAnrede()public: void set_sAnrede( SqlString) public function get sAnrede() : SqlString;public function set sAnrede(value : SqlString); Public Property [sAnrede]() As SqlString Get Return m_sAnrede End Get Set(ByVal Value As SqlString) m_sAnrede = Value End Set End Property clsMitarbeiter.sEmail sEmail EDKB12WS.edokadb.clsMitarbeiter.sEmail EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025F Public Property sEmail() As SqlString public SqlString sEmail {get; set;} public: SqlString get_sEmail()public: void set_sEmail( SqlString) public function get sEmail() : SqlString;public function set sEmail(value : SqlString); Public Property [sEmail]() As SqlString Get Return m_sEmail End Get Set(ByVal Value As SqlString) m_sEmail = Value End Set End Property clsMitarbeiter.sFax sFax EDKB12WS.edokadb.clsMitarbeiter.sFax EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000260 Public Property sFax() As SqlString public SqlString sFax {get; set;} public: SqlString get_sFax()public: void set_sFax( SqlString) public function get sFax() : SqlString;public function set sFax(value : SqlString); Public Property [sFax]() As SqlString Get Return m_sFax End Get Set(ByVal Value As SqlString) m_sFax = Value End Set End Property clsMitarbeiter.sFunktion sFunktion EDKB12WS.edokadb.clsMitarbeiter.sFunktion EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000026F Public Property sFunktion() As SqlString public SqlString sFunktion {get; set;} public: SqlString get_sFunktion()public: void set_sFunktion( SqlString) public function get sFunktion() : SqlString;public function set sFunktion(value : SqlString); Public Property [sFunktion]() As SqlString Get Return m_sFunktion End Get Set(ByVal Value As SqlString) m_sFunktion = Value End Set End Property clsMitarbeiter.sKurzzeichen sKurzzeichen EDKB12WS.edokadb.clsMitarbeiter.sKurzzeichen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025C Public Property sKurzzeichen() As SqlString public SqlString sKurzzeichen {get; set;} public: SqlString get_sKurzzeichen()public: void set_sKurzzeichen( SqlString) public function get sKurzzeichen() : SqlString;public function set sKurzzeichen(value : SqlString); Public Property [sKurzzeichen]() As SqlString Get Return m_sKurzzeichen End Get Set(ByVal Value As SqlString) m_sKurzzeichen = Value End Set End Property clsMitarbeiter.sName sName EDKB12WS.edokadb.clsMitarbeiter.sName EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025B Public Property sName() As SqlString public SqlString sName {get; set;} public: SqlString get_sName()public: void set_sName( SqlString) public function get sName() : SqlString;public function set sName(value : SqlString); Public Property [sName]() As SqlString Get Return m_sName End Get Set(ByVal Value As SqlString) m_sName = Value End Set End Property clsMitarbeiter.sRang sRang EDKB12WS.edokadb.clsMitarbeiter.sRang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000271 Public Property sRang() As SqlString public SqlString sRang {get; set;} public: SqlString get_sRang()public: void set_sRang( SqlString) public function get sRang() : SqlString;public function set sRang(value : SqlString); Public Property [sRang]() As SqlString Get Return m_sRang End Get Set(ByVal Value As SqlString) m_sRang = Value End Set End Property clsMitarbeiter.sTelefon sTelefon EDKB12WS.edokadb.clsMitarbeiter.sTelefon EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000261 Public Property sTelefon() As SqlString public SqlString sTelefon {get; set;} public: SqlString get_sTelefon()public: void set_sTelefon( SqlString) public function get sTelefon() : SqlString;public function set sTelefon(value : SqlString); Public Property [sTelefon]() As SqlString Get Return m_sTelefon End Get Set(ByVal Value As SqlString) m_sTelefon = Value End Set End Property clsMitarbeiter.sTgnummer sTgnummer EDKB12WS.edokadb.clsMitarbeiter.sTgnummer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025E Public Property sTgnummer() As SqlString public SqlString sTgnummer {get; set;} public: SqlString get_sTgnummer()public: void set_sTgnummer( SqlString) public function get sTgnummer() : SqlString;public function set sTgnummer(value : SqlString); Public Property [sTgnummer]() As SqlString Get Return m_sTgnummer End Get Set(ByVal Value As SqlString) m_sTgnummer = Value End Set End Property clsMitarbeiter.sUnterschrift_text sUnterschrift_text EDKB12WS.edokadb.clsMitarbeiter.sUnterschrift_text EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000262 Public Property sUnterschrift_text() As SqlString public SqlString sUnterschrift_text {get; set;} public: SqlString get_sUnterschrift_text()public: void set_sUnterschrift_text( SqlString) public function get sUnterschrift_text() : SqlString;public function set sUnterschrift_text(value : SqlString); Public Property [sUnterschrift_text]() As SqlString Get Return m_sUnterschrift_text End Get Set(ByVal Value As SqlString) m_sUnterschrift_text = Value End Set End Property clsMitarbeiter.sVorname sVorname EDKB12WS.edokadb.clsMitarbeiter.sVorname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000025A Public Property sVorname() As SqlString public SqlString sVorname {get; set;} public: SqlString get_sVorname()public: void set_sVorname( SqlString) public function get sVorname() : SqlString;public function set sVorname(value : SqlString); Public Property [sVorname]() As SqlString Get Return m_sVorname End Get Set(ByVal Value As SqlString) m_sVorname = Value End Set End Property clsMitarbeiter.Delete Delete EDKB12WS.edokadb.clsMitarbeiter.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000256 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsMitarbeiter.Insert Insert EDKB12WS.edokadb.clsMitarbeiter.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000254 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName)) scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsMitarbeiter.SelectAll SelectAll EDKB12WS.edokadb.clsMitarbeiter.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000258 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("mitarbeiter") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMitarbeiter.SelectOne SelectOne EDKB12WS.edokadb.clsMitarbeiter.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000257 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("mitarbeiter") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer)) If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then m_sVorname = SqlString.Null Else m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String)) End If If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then m_sName = SqlString.Null Else m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String)) End If If dtToReturn.Rows(0)("kurzzeichen") Is System.DBNull.Value Then m_sKurzzeichen = SqlString.Null Else m_sKurzzeichen = New SqlString(CType(dtToReturn.Rows(0)("kurzzeichen"), String)) End If If dtToReturn.Rows(0)("anrede") Is System.DBNull.Value Then m_sAnrede = SqlString.Null Else m_sAnrede = New SqlString(CType(dtToReturn.Rows(0)("anrede"), String)) End If If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then m_sTgnummer = SqlString.Null Else m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String)) End If If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then m_sEmail = SqlString.Null Else m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String)) End If If dtToReturn.Rows(0)("fax") Is System.DBNull.Value Then m_sFax = SqlString.Null Else m_sFax = New SqlString(CType(dtToReturn.Rows(0)("fax"), String)) End If If dtToReturn.Rows(0)("telefon") Is System.DBNull.Value Then m_sTelefon = SqlString.Null Else m_sTelefon = New SqlString(CType(dtToReturn.Rows(0)("telefon"), String)) End If If dtToReturn.Rows(0)("unterschrift_text") Is System.DBNull.Value Then m_sUnterschrift_text = SqlString.Null Else m_sUnterschrift_text = New SqlString(CType(dtToReturn.Rows(0)("unterschrift_text"), String)) End If If dtToReturn.Rows(0)("funktionnr") Is System.DBNull.Value Then m_iFunktionnr = SqlInt32.Null Else m_iFunktionnr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionnr"), Integer)) End If If dtToReturn.Rows(0)("sprache") Is System.DBNull.Value Then m_iSprache = SqlInt32.Null Else m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer)) End If m_iFuermandant = New SqlInt32(CType(dtToReturn.Rows(0)("fuermandant"), Integer)) m_bShowtip = New SqlBoolean(CType(dtToReturn.Rows(0)("showtip"), Boolean)) m_iPartnernr = New SqlInt32(CType(dtToReturn.Rows(0)("partnernr"), Integer)) If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("Mailempfang") Is System.DBNull.Value Then m_bMailempfang = SqlBoolean.Null Else m_bMailempfang = New SqlBoolean(CType(dtToReturn.Rows(0)("Mailempfang"), Boolean)) End If If dtToReturn.Rows(0)("EdokaMesasge") Is System.DBNull.Value Then m_bEdokaMesasge = SqlBoolean.Null Else m_bEdokaMesasge = New SqlBoolean(CType(dtToReturn.Rows(0)("EdokaMesasge"), Boolean)) End If If dtToReturn.Rows(0)("funktion") Is System.DBNull.Value Then m_sFunktion = SqlString.Null Else m_sFunktion = New SqlString(CType(dtToReturn.Rows(0)("funktion"), String)) End If If dtToReturn.Rows(0)("MailDirektVersenden") Is System.DBNull.Value Then m_bMailDirektVersenden = SqlBoolean.Null Else m_bMailDirektVersenden = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDirektVersenden"), Boolean)) End If If dtToReturn.Rows(0)("Rang") Is System.DBNull.Value Then m_sRang = SqlString.Null Else m_sRang = New SqlString(CType(dtToReturn.Rows(0)("Rang"), String)) End If If dtToReturn.Rows(0)("MailDokumentrueckgang") Is System.DBNull.Value Then m_bMailDokumentrueckgang = SqlBoolean.Null Else m_bMailDokumentrueckgang = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDokumentrueckgang"), Boolean)) End If If dtToReturn.Rows(0)("klassifizierung") Is System.DBNull.Value Then m_iKlassifizierung = SqlInt32.Null Else m_iKlassifizierung = New SqlInt32(CType(dtToReturn.Rows(0)("klassifizierung"), Integer)) End If If dtToReturn.Rows(0)("edoka_mail") Is System.DBNull.Value Then m_bEdoka_mail = SqlBoolean.Null Else m_bEdoka_mail = New SqlBoolean(CType(dtToReturn.Rows(0)("edoka_mail"), Boolean)) End If If dtToReturn.Rows(0)("journalisierung") Is System.DBNull.Value Then m_bJournalisierung = SqlBoolean.Null Else m_bJournalisierung = New SqlBoolean(CType(dtToReturn.Rows(0)("journalisierung"), Boolean)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMitarbeiter.Update Update EDKB12WS.edokadb.clsMitarbeiter.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000255 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName)) scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_mitarbeiter_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMitarbeiter::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsMitarbeiter.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000239 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bEdokaMesasge m_bEdokaMesasge EDKB12WS.edokadb.clsMitarbeiter.m_bEdokaMesasge EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000237 Private m_bEdokaMesasge As SqlBoolean private SqlBoolean m_bEdokaMesasge private: SqlBoolean m_bEdokaMesasge; private m_bEdokaMesasge : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bEdoka_mail m_bEdoka_mail EDKB12WS.edokadb.clsMitarbeiter.m_bEdoka_mail EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023B Private m_bEdoka_mail As SqlBoolean private SqlBoolean m_bEdoka_mail private: SqlBoolean m_bEdoka_mail; private m_bEdoka_mail : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bJournalisierung m_bJournalisierung EDKB12WS.edokadb.clsMitarbeiter.m_bJournalisierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023C Private m_bJournalisierung As SqlBoolean private SqlBoolean m_bJournalisierung private: SqlBoolean m_bJournalisierung; private m_bJournalisierung : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bMailDirektVersenden m_bMailDirektVersenden EDKB12WS.edokadb.clsMitarbeiter.m_bMailDirektVersenden EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023A Private m_bMailDirektVersenden As SqlBoolean private SqlBoolean m_bMailDirektVersenden private: SqlBoolean m_bMailDirektVersenden; private m_bMailDirektVersenden : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bMailDokumentrueckgang m_bMailDokumentrueckgang EDKB12WS.edokadb.clsMitarbeiter.m_bMailDokumentrueckgang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023D Private m_bMailDokumentrueckgang As SqlBoolean private SqlBoolean m_bMailDokumentrueckgang private: SqlBoolean m_bMailDokumentrueckgang; private m_bMailDokumentrueckgang : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bMailempfang m_bMailempfang EDKB12WS.edokadb.clsMitarbeiter.m_bMailempfang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000236 Private m_bMailempfang As SqlBoolean private SqlBoolean m_bMailempfang private: SqlBoolean m_bMailempfang; private m_bMailempfang : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_bShowtip m_bShowtip EDKB12WS.edokadb.clsMitarbeiter.m_bShowtip EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000238 Private m_bShowtip As SqlBoolean private SqlBoolean m_bShowtip private: SqlBoolean m_bShowtip; private m_bShowtip : SqlBoolean Private m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsMitarbeiter.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023E Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsMitarbeiter.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000023F Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_iFuermandant m_iFuermandant EDKB12WS.edokadb.clsMitarbeiter.m_iFuermandant EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000246 Private m_iFuermandant As SqlInt32 private SqlInt32 m_iFuermandant private: SqlInt32 m_iFuermandant; private m_iFuermandant : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iFunktionnr m_iFunktionnr EDKB12WS.edokadb.clsMitarbeiter.m_iFunktionnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000244 Private m_iFunktionnr As SqlInt32 private SqlInt32 m_iFunktionnr private: SqlInt32 m_iFunktionnr; private m_iFunktionnr : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iKlassifizierung m_iKlassifizierung EDKB12WS.edokadb.clsMitarbeiter.m_iKlassifizierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000241 Private m_iKlassifizierung As SqlInt32 private SqlInt32 m_iKlassifizierung private: SqlInt32 m_iKlassifizierung; private m_iKlassifizierung : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsMitarbeiter.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000243 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iMitarbeiternr m_iMitarbeiternr EDKB12WS.edokadb.clsMitarbeiter.m_iMitarbeiternr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000245 Private m_iMitarbeiternr As SqlInt32 private SqlInt32 m_iMitarbeiternr private: SqlInt32 m_iMitarbeiternr; private m_iMitarbeiternr : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsMitarbeiter.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000242 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iPartnernr m_iPartnernr EDKB12WS.edokadb.clsMitarbeiter.m_iPartnernr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000240 Private m_iPartnernr As SqlInt32 private SqlInt32 m_iPartnernr private: SqlInt32 m_iPartnernr; private m_iPartnernr : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_iSprache m_iSprache EDKB12WS.edokadb.clsMitarbeiter.m_iSprache EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000247 Private m_iSprache As SqlInt32 private SqlInt32 m_iSprache private: SqlInt32 m_iSprache; private m_iSprache : SqlInt32 Private m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32 m_sAnrede m_sAnrede EDKB12WS.edokadb.clsMitarbeiter.m_sAnrede EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000249 Private m_sAnrede As SqlString private SqlString m_sAnrede private: SqlString m_sAnrede; private m_sAnrede : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sEmail m_sEmail EDKB12WS.edokadb.clsMitarbeiter.m_sEmail EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000252 Private m_sEmail As SqlString private SqlString m_sEmail private: SqlString m_sEmail; private m_sEmail : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sFax m_sFax EDKB12WS.edokadb.clsMitarbeiter.m_sFax EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024D Private m_sFax As SqlString private SqlString m_sFax private: SqlString m_sFax; private m_sFax : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sFunktion m_sFunktion EDKB12WS.edokadb.clsMitarbeiter.m_sFunktion EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000250 Private m_sFunktion As SqlString private SqlString m_sFunktion private: SqlString m_sFunktion; private m_sFunktion : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sKurzzeichen m_sKurzzeichen EDKB12WS.edokadb.clsMitarbeiter.m_sKurzzeichen EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024A Private m_sKurzzeichen As SqlString private SqlString m_sKurzzeichen private: SqlString m_sKurzzeichen; private m_sKurzzeichen : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sName m_sName EDKB12WS.edokadb.clsMitarbeiter.m_sName EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024C Private m_sName As SqlString private SqlString m_sName private: SqlString m_sName; private m_sName : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sRang m_sRang EDKB12WS.edokadb.clsMitarbeiter.m_sRang EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000248 Private m_sRang As SqlString private SqlString m_sRang private: SqlString m_sRang; private m_sRang : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sTelefon m_sTelefon EDKB12WS.edokadb.clsMitarbeiter.m_sTelefon EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024E Private m_sTelefon As SqlString private SqlString m_sTelefon private: SqlString m_sTelefon; private m_sTelefon : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sTgnummer m_sTgnummer EDKB12WS.edokadb.clsMitarbeiter.m_sTgnummer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000251 Private m_sTgnummer As SqlString private SqlString m_sTgnummer private: SqlString m_sTgnummer; private m_sTgnummer : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sUnterschrift_text m_sUnterschrift_text EDKB12WS.edokadb.clsMitarbeiter.m_sUnterschrift_text EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024F Private m_sUnterschrift_text As SqlString private SqlString m_sUnterschrift_text private: SqlString m_sUnterschrift_text; private m_sUnterschrift_text : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString m_sVorname m_sVorname EDKB12WS.edokadb.clsMitarbeiter.m_sVorname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000024B Private m_sVorname As SqlString private SqlString m_sVorname private: SqlString m_sVorname; private m_sVorname : SqlString Private m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString clsMyDokumentDaten clsMyDokumentDaten EDKB12WS.edokadb.clsMyDokumentDaten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000276 Public Class clsMyDokumentDaten Inherits clsVorlagenfeld public class clsMyDokumentDaten : clsVorlagenfeld public __gc class clsMyDokumentDaten : public clsVorlagenfeld public class clsMyDokumentDaten extends clsVorlagenfeld System.Object EDKB12WS.edokadb.clsDBInteractionBase EDKB12WS.edokadb.clsVorlagenfeld Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectAllWdokumenttypnrLogic SelectAllWvorlagenfeldregelnrLogic SelectOne SelectTestdata Select_IDVMakros ToString Update UpdateAllWdokumenttypnrLogic UpdateAllWvorlagenfeldregelnrLogic bAktiv bAusstiegsmakro bEinstiegsmakro cpMainConnectionProvider daErstellt_am daMutiert_am iDokumenttypnr iDokumenttypnrOld iErrorCode iMandantnr iMutierer iVorlagenfeldnr iVorlagenfeldregelnr iVorlagenfeldregelnrOld sBeginntextmarke sConnectionString sEndetextmarke sFeldname sTestdaten clsMyDokumentDaten Constructor m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_iErrorCode m_scoMainConnection clsMyDokumentDaten.SelectTestdata SelectTestdata EDKB12WS.edokadb.clsMyDokumentDaten.SelectTestdata EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000277 Public Function SelectTestdata( _ ByVal dokumenttypnr As Long _) As DataTable public DataTable SelectTestdata( long dokumenttypnr) public: DataTable __gc* SelectTestdata( long dokumenttypnr); public function SelectTestdata( dokumenttypnr : long) : DataTable; Public Function SelectTestdata(ByVal dokumenttypnr As Long) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[temp_sp_vorlagenfeld_Select]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyDokumentDaten.Select_IDVMakros Select_IDVMakros EDKB12WS.edokadb.clsMyDokumentDaten.Select_IDVMakros EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000278 Public Function Select_IDVMakros( _ ByVal dokumenttypnr As Long _) As DataTable public DataTable Select_IDVMakros( long dokumenttypnr) public: DataTable __gc* Select_IDVMakros( long dokumenttypnr); public function Select_IDVMakros( dokumenttypnr : long) : DataTable; Public Function Select_IDVMakros(ByVal dokumenttypnr As Long) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[sp_idvmakros_Select]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'sp_idvmakros_select' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("sp_idvmakros_select::SelectAll::Error occured." + ex.Message, ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyKey_Tabelle clsMyKey_Tabelle EDKB12WS.edokadb.clsMyKey_Tabelle EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000279 Public Class clsMyKey_Tabelle Inherits clsKey_tabelle public class clsMyKey_Tabelle : clsKey_tabelle public __gc class clsMyKey_Tabelle : public clsKey_tabelle public class clsMyKey_Tabelle extends clsKey_tabelle System.Object EDKB12WS.edokadb.clsDBInteractionBase EDKB12WS.edokadb.clsKey_tabelle Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update get_dbkey bAktiv cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iKey_wert iKeynr iMandantnr iMutierer sBeschreibung sConnectionString clsMyKey_Tabelle Constructor m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_iErrorCode m_scoMainConnection clsMyKey_Tabelle.get_dbkey get_dbkey EDKB12WS.edokadb.clsMyKey_Tabelle.get_dbkey EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000027A Public Function get_dbkey( _ ByVal Tablename As String _) As Long public long get_dbkey( string Tablename) public: long get_dbkey( String __gc* Tablename); public function get_dbkey( Tablename : String) : long; Public Function get_dbkey(ByVal Tablename As String) As Long Dim m_dbkey As Long Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. Try scmCmdToExecute.Connection.Open() Catch ex As Exception Finally End Try scmCmdToExecute.ExecuteNonQuery() m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) scmCmdToExecute.Connection.Close() If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return m_dbkey Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsMyPartner clsMyPartner EDKB12WS.edokadb.clsMyPartner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000280 Public Class clsMyPartner public class clsMyPartner public __gc class clsMyPartner public class clsMyPartner System.Object Equals Finalize GetHashCode GetType MemberwiseClone Partner_Betreuer Partner_Detail Partner_Gebdat Partner_VV ReferenceEquals ToString search_doppelte_partner search_partner clsMyPartner.Partner_Betreuer Partner_Betreuer EDKB12WS.edokadb.clsMyPartner.Partner_Betreuer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000286 Public Function Partner_Betreuer( _ ByVal nrpar00 As String _) As String public string Partner_Betreuer( string nrpar00) public: String __gc* Partner_Betreuer( String __gc* nrpar00); public function Partner_Betreuer( nrpar00 : String) : String; Public Function Partner_Betreuer(ByVal nrpar00 As String) As String Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim table As String = "dbo.partner" scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@betreuer").Value Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex) Return "" Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function clsMyPartner.Partner_Detail Partner_Detail EDKB12WS.edokadb.clsMyPartner.Partner_Detail EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000283 Public Function Partner_Detail( _ ByVal nrpar00 As String _) As DataTable public DataTable Partner_Detail( string nrpar00) public: DataTable __gc* Partner_Detail( String __gc* nrpar00); public function Partner_Detail( nrpar00 : String) : DataTable; Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim table As String = "dbo.partner" scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyPartner.Partner_Gebdat Partner_Gebdat EDKB12WS.edokadb.clsMyPartner.Partner_Gebdat EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000285 Public Function Partner_Gebdat( _ ByVal nrpar00 As String _) As String public string Partner_Gebdat( string nrpar00) public: String __gc* Partner_Gebdat( String __gc* nrpar00); public function Partner_Gebdat( nrpar00 : String) : String; Public Function Partner_Gebdat(ByVal nrpar00 As String) As String Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim table As String = "dbo.partner" scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@gebdat").Value Catch ex As Exception ' MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object ' Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex) Return "" Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyPartner.Partner_VV Partner_VV EDKB12WS.edokadb.clsMyPartner.Partner_VV EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000284 Public Function Partner_VV( _ ByVal nrpar00 As String _) As DataTable public DataTable Partner_VV( string nrpar00) public: DataTable __gc* Partner_VV( String __gc* nrpar00); public function Partner_VV( nrpar00 : String) : DataTable; Public Function Partner_VV(ByVal nrpar00 As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim table As String = "dbo.partner" scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyPartner.search_doppelte_partner search_doppelte_partner EDKB12WS.edokadb.clsMyPartner.search_doppelte_partner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000282 Public Function search_doppelte_partner( _ ByVal query As String, _ ByVal table As String, _ ByVal fnkt As Integer _) As DataTable public DataTable search_doppelte_partner( string query, string table, int fnkt) public: DataTable __gc* search_doppelte_partner( String __gc* query, String __gc* table, int fnkt); public function search_doppelte_partner( query : String, table : String, fnkt : int) : DataTable; Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[sp_partner_search]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query)) scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table)) scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4)) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsMyPartner.search_partner search_partner EDKB12WS.edokadb.clsMyPartner.search_partner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000281 Public Function search_partner( _ ByVal query As String, _ ByVal anzahl As String, _ ByVal fnkt As Integer _) As DataTable public DataTable search_partner( string query, string anzahl, int fnkt) public: DataTable __gc* search_partner( String __gc* query, String __gc* anzahl, int fnkt); public function search_partner( query : String, anzahl : String, fnkt : int) : DataTable; Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim table As String = "dbo.partner" scmCmdToExecute.CommandText = "dbo.[sp_partner_search]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query)) scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table)) scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt)) scmCmdToExecute.Connection.Open() sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex) Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsOffice_vorlage clsOffice_vorlage EDKB12WS.edokadb.clsOffice_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000287 Public Class clsOffice_vorlage Inherits clsDBInteractionBase public class clsOffice_vorlage : clsDBInteractionBase public __gc class clsOffice_vorlage : public clsDBInteractionBase public class clsOffice_vorlage extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAbsender_ersteller bAktiv bBchorizontal bDokument_geschuetzt bIdv_nativ bIdv_vorlage bKopfzeile_generieren cpMainConnectionProvider daErstellt_am daMutiert_am iAnwendungnr iBch iBcpl iBcpt iBcw iErrorCode iKlassifizierung iMandantnr iMutierer iOffice_vorlagenr iOwner iVorlageid sBeschreibung sBezeichnung sConnectionString sIdv_id sOffice_vorlage sPrefix_dokumentname sVorlagename clsOffice_vorlage Constructor m_bAbsender_ersteller m_bAktiv m_bBchorizontal m_bDokument_geschuetzt m_bIdv_nativ m_bIdv_vorlage m_bKopfzeile_generieren m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iAnwendungnr m_iBch m_iBcpl m_iBcpt m_iBcw m_iErrorCode m_iKlassifizierung m_iMandantnr m_iMutierer m_iOffice_vorlagenr m_iOwner m_iVorlageid m_sBeschreibung m_sBezeichnung m_sIdv_id m_sOffice_vorlage m_sPrefix_dokumentname m_sVorlagename m_scoMainConnection clsOffice_vorlage Constructor New EDKB12WS.edokadb.clsOffice_vorlage.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A2 Public Sub New() public clsOffice_vorlage() public: clsOffice_vorlage(); public function clsOffice_vorlage(); Public Sub New() ' // Nothing for now. End Sub clsOffice_vorlage.bAbsender_ersteller bAbsender_ersteller EDKB12WS.edokadb.clsOffice_vorlage.bAbsender_ersteller EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B1 Public Property bAbsender_ersteller() As SqlBoolean public SqlBoolean bAbsender_ersteller {get; set;} public: SqlBoolean get_bAbsender_ersteller()public: void set_bAbsender_ersteller( SqlBoolean) public function get bAbsender_ersteller() : SqlBoolean;public function set bAbsender_ersteller(value : SqlBoolean); Public Property [bAbsender_ersteller]() As SqlBoolean Get Return m_bAbsender_ersteller End Get Set(ByVal Value As SqlBoolean) m_bAbsender_ersteller = Value End Set End Property clsOffice_vorlage.bAktiv bAktiv EDKB12WS.edokadb.clsOffice_vorlage.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BC Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsOffice_vorlage.bBchorizontal bBchorizontal EDKB12WS.edokadb.clsOffice_vorlage.bBchorizontal EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BA Public Property bBchorizontal() As SqlBoolean public SqlBoolean bBchorizontal {get; set;} public: SqlBoolean get_bBchorizontal()public: void set_bBchorizontal( SqlBoolean) public function get bBchorizontal() : SqlBoolean;public function set bBchorizontal(value : SqlBoolean); Public Property [bBchorizontal]() As SqlBoolean Get Return m_bBchorizontal End Get Set(ByVal Value As SqlBoolean) m_bBchorizontal = Value End Set End Property clsOffice_vorlage.bDokument_geschuetzt bDokument_geschuetzt EDKB12WS.edokadb.clsOffice_vorlage.bDokument_geschuetzt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B3 Public Property bDokument_geschuetzt() As SqlBoolean public SqlBoolean bDokument_geschuetzt {get; set;} public: SqlBoolean get_bDokument_geschuetzt()public: void set_bDokument_geschuetzt( SqlBoolean) public function get bDokument_geschuetzt() : SqlBoolean;public function set bDokument_geschuetzt(value : SqlBoolean); Public Property [bDokument_geschuetzt]() As SqlBoolean Get Return m_bDokument_geschuetzt End Get Set(ByVal Value As SqlBoolean) m_bDokument_geschuetzt = Value End Set End Property clsOffice_vorlage.bIdv_nativ bIdv_nativ EDKB12WS.edokadb.clsOffice_vorlage.bIdv_nativ EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B2 Public Property bIdv_nativ() As SqlBoolean public SqlBoolean bIdv_nativ {get; set;} public: SqlBoolean get_bIdv_nativ()public: void set_bIdv_nativ( SqlBoolean) public function get bIdv_nativ() : SqlBoolean;public function set bIdv_nativ(value : SqlBoolean); Public Property [bIdv_nativ]() As SqlBoolean Get Return m_bIdv_nativ End Get Set(ByVal Value As SqlBoolean) Dim bIdv_nativTmp As SqlBoolean = Value If bIdv_nativTmp.IsNull Then Throw New ArgumentOutOfRangeException("bIdv_nativ", "bIdv_nativ can't be NULL") End If m_bIdv_nativ = Value End Set End Property clsOffice_vorlage.bIdv_vorlage bIdv_vorlage EDKB12WS.edokadb.clsOffice_vorlage.bIdv_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AE Public Property bIdv_vorlage() As SqlBoolean public SqlBoolean bIdv_vorlage {get; set;} public: SqlBoolean get_bIdv_vorlage()public: void set_bIdv_vorlage( SqlBoolean) public function get bIdv_vorlage() : SqlBoolean;public function set bIdv_vorlage(value : SqlBoolean); Public Property [bIdv_vorlage]() As SqlBoolean Get Return m_bIdv_vorlage End Get Set(ByVal Value As SqlBoolean) Dim bIdv_vorlageTmp As SqlBoolean = Value If bIdv_vorlageTmp.IsNull Then Throw New ArgumentOutOfRangeException("bIdv_vorlage", "bIdv_vorlage can't be NULL") End If m_bIdv_vorlage = Value End Set End Property clsOffice_vorlage.bKopfzeile_generieren bKopfzeile_generieren EDKB12WS.edokadb.clsOffice_vorlage.bKopfzeile_generieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B4 Public Property bKopfzeile_generieren() As SqlBoolean public SqlBoolean bKopfzeile_generieren {get; set;} public: SqlBoolean get_bKopfzeile_generieren()public: void set_bKopfzeile_generieren( SqlBoolean) public function get bKopfzeile_generieren() : SqlBoolean;public function set bKopfzeile_generieren(value : SqlBoolean); Public Property [bKopfzeile_generieren]() As SqlBoolean Get Return m_bKopfzeile_generieren End Get Set(ByVal Value As SqlBoolean) Dim bKopfzeile_generierenTmp As SqlBoolean = Value If bKopfzeile_generierenTmp.IsNull Then Throw New ArgumentOutOfRangeException("bKopfzeile_generieren", "bKopfzeile_generieren can't be NULL") End If m_bKopfzeile_generieren = Value End Set End Property clsOffice_vorlage.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsOffice_vorlage.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BD Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsOffice_vorlage.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsOffice_vorlage.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BE Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsOffice_vorlage.iAnwendungnr iAnwendungnr EDKB12WS.edokadb.clsOffice_vorlage.iAnwendungnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002C0 Public Property iAnwendungnr() As SqlInt32 public SqlInt32 iAnwendungnr {get; set;} public: SqlInt32 get_iAnwendungnr()public: void set_iAnwendungnr( SqlInt32) public function get iAnwendungnr() : SqlInt32;public function set iAnwendungnr(value : SqlInt32); Public Property [iAnwendungnr]() As SqlInt32 Get Return m_iAnwendungnr End Get Set(ByVal Value As SqlInt32) m_iAnwendungnr = Value End Set End Property clsOffice_vorlage.iBch iBch EDKB12WS.edokadb.clsOffice_vorlage.iBch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B9 Public Property iBch() As SqlInt32 public SqlInt32 iBch {get; set;} public: SqlInt32 get_iBch()public: void set_iBch( SqlInt32) public function get iBch() : SqlInt32;public function set iBch(value : SqlInt32); Public Property [iBch]() As SqlInt32 Get Return m_iBch End Get Set(ByVal Value As SqlInt32) Dim iBchTmp As SqlInt32 = Value If iBchTmp.IsNull Then Throw New ArgumentOutOfRangeException("iBch", "iBch can't be NULL") End If m_iBch = Value End Set End Property clsOffice_vorlage.iBcpl iBcpl EDKB12WS.edokadb.clsOffice_vorlage.iBcpl EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B7 Public Property iBcpl() As SqlInt32 public SqlInt32 iBcpl {get; set;} public: SqlInt32 get_iBcpl()public: void set_iBcpl( SqlInt32) public function get iBcpl() : SqlInt32;public function set iBcpl(value : SqlInt32); Public Property [iBcpl]() As SqlInt32 Get Return m_iBcpl End Get Set(ByVal Value As SqlInt32) m_iBcpl = Value End Set End Property clsOffice_vorlage.iBcpt iBcpt EDKB12WS.edokadb.clsOffice_vorlage.iBcpt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B6 Public Property iBcpt() As SqlInt32 public SqlInt32 iBcpt {get; set;} public: SqlInt32 get_iBcpt()public: void set_iBcpt( SqlInt32) public function get iBcpt() : SqlInt32;public function set iBcpt(value : SqlInt32); Public Property [iBcpt]() As SqlInt32 Get Return m_iBcpt End Get Set(ByVal Value As SqlInt32) Dim iBcptTmp As SqlInt32 = Value If iBcptTmp.IsNull Then Throw New ArgumentOutOfRangeException("iBcpt", "iBcpt can't be NULL") End If m_iBcpt = Value End Set End Property clsOffice_vorlage.iBcw iBcw EDKB12WS.edokadb.clsOffice_vorlage.iBcw EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B8 Public Property iBcw() As SqlInt32 public SqlInt32 iBcw {get; set;} public: SqlInt32 get_iBcw()public: void set_iBcw( SqlInt32) public function get iBcw() : SqlInt32;public function set iBcw(value : SqlInt32); Public Property [iBcw]() As SqlInt32 Get Return m_iBcw End Get Set(ByVal Value As SqlInt32) Dim iBcwTmp As SqlInt32 = Value If iBcwTmp.IsNull Then Throw New ArgumentOutOfRangeException("iBcw", "iBcw can't be NULL") End If m_iBcw = Value End Set End Property clsOffice_vorlage.iKlassifizierung iKlassifizierung EDKB12WS.edokadb.clsOffice_vorlage.iKlassifizierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B5 Public Property iKlassifizierung() As SqlInt32 public SqlInt32 iKlassifizierung {get; set;} public: SqlInt32 get_iKlassifizierung()public: void set_iKlassifizierung( SqlInt32) public function get iKlassifizierung() : SqlInt32;public function set iKlassifizierung(value : SqlInt32); Public Property [iKlassifizierung]() As SqlInt32 Get Return m_iKlassifizierung End Get Set(ByVal Value As SqlInt32) m_iKlassifizierung = Value End Set End Property clsOffice_vorlage.iMandantnr iMandantnr EDKB12WS.edokadb.clsOffice_vorlage.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BB Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsOffice_vorlage.iMutierer iMutierer EDKB12WS.edokadb.clsOffice_vorlage.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002BF Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsOffice_vorlage.iOffice_vorlagenr iOffice_vorlagenr EDKB12WS.edokadb.clsOffice_vorlage.iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A8 Public Property iOffice_vorlagenr() As SqlInt32 public SqlInt32 iOffice_vorlagenr {get; set;} public: SqlInt32 get_iOffice_vorlagenr()public: void set_iOffice_vorlagenr( SqlInt32) public function get iOffice_vorlagenr() : SqlInt32;public function set iOffice_vorlagenr(value : SqlInt32); Public Property [iOffice_vorlagenr]() As SqlInt32 Get Return m_iOffice_vorlagenr End Get Set(ByVal Value As SqlInt32) Dim iOffice_vorlagenrTmp As SqlInt32 = Value If iOffice_vorlagenrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iOffice_vorlagenr", "iOffice_vorlagenr can't be NULL") End If m_iOffice_vorlagenr = Value End Set End Property clsOffice_vorlage.iOwner iOwner EDKB12WS.edokadb.clsOffice_vorlage.iOwner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002C1 Public Property iOwner() As SqlInt32 public SqlInt32 iOwner {get; set;} public: SqlInt32 get_iOwner()public: void set_iOwner( SqlInt32) public function get iOwner() : SqlInt32;public function set iOwner(value : SqlInt32); Public Property [iOwner]() As SqlInt32 Get Return m_iOwner End Get Set(ByVal Value As SqlInt32) m_iOwner = Value End Set End Property clsOffice_vorlage.iVorlageid iVorlageid EDKB12WS.edokadb.clsOffice_vorlage.iVorlageid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AB Public Property iVorlageid() As SqlInt32 public SqlInt32 iVorlageid {get; set;} public: SqlInt32 get_iVorlageid()public: void set_iVorlageid( SqlInt32) public function get iVorlageid() : SqlInt32;public function set iVorlageid(value : SqlInt32); Public Property [iVorlageid]() As SqlInt32 Get Return m_iVorlageid End Get Set(ByVal Value As SqlInt32) m_iVorlageid = Value End Set End Property clsOffice_vorlage.sBeschreibung sBeschreibung EDKB12WS.edokadb.clsOffice_vorlage.sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AA Public Property sBeschreibung() As SqlString public SqlString sBeschreibung {get; set;} public: SqlString get_sBeschreibung()public: void set_sBeschreibung( SqlString) public function get sBeschreibung() : SqlString;public function set sBeschreibung(value : SqlString); Public Property [sBeschreibung]() As SqlString Get Return m_sBeschreibung End Get Set(ByVal Value As SqlString) m_sBeschreibung = Value End Set End Property clsOffice_vorlage.sBezeichnung sBezeichnung EDKB12WS.edokadb.clsOffice_vorlage.sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A9 Public Property sBezeichnung() As SqlString public SqlString sBezeichnung {get; set;} public: SqlString get_sBezeichnung()public: void set_sBezeichnung( SqlString) public function get sBezeichnung() : SqlString;public function set sBezeichnung(value : SqlString); Public Property [sBezeichnung]() As SqlString Get Return m_sBezeichnung End Get Set(ByVal Value As SqlString) m_sBezeichnung = Value End Set End Property clsOffice_vorlage.sIdv_id sIdv_id EDKB12WS.edokadb.clsOffice_vorlage.sIdv_id EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AF Public Property sIdv_id() As SqlString public SqlString sIdv_id {get; set;} public: SqlString get_sIdv_id()public: void set_sIdv_id( SqlString) public function get sIdv_id() : SqlString;public function set sIdv_id(value : SqlString); Public Property [sIdv_id]() As SqlString Get Return m_sIdv_id End Get Set(ByVal Value As SqlString) m_sIdv_id = Value End Set End Property clsOffice_vorlage.sOffice_vorlage sOffice_vorlage EDKB12WS.edokadb.clsOffice_vorlage.sOffice_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002B0 Public Property sOffice_vorlage() As SqlString public SqlString sOffice_vorlage {get; set;} public: SqlString get_sOffice_vorlage()public: void set_sOffice_vorlage( SqlString) public function get sOffice_vorlage() : SqlString;public function set sOffice_vorlage(value : SqlString); Public Property [sOffice_vorlage]() As SqlString Get Return m_sOffice_vorlage End Get Set(ByVal Value As SqlString) m_sOffice_vorlage = Value End Set End Property clsOffice_vorlage.sPrefix_dokumentname sPrefix_dokumentname EDKB12WS.edokadb.clsOffice_vorlage.sPrefix_dokumentname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AD Public Property sPrefix_dokumentname() As SqlString public SqlString sPrefix_dokumentname {get; set;} public: SqlString get_sPrefix_dokumentname()public: void set_sPrefix_dokumentname( SqlString) public function get sPrefix_dokumentname() : SqlString;public function set sPrefix_dokumentname(value : SqlString); Public Property [sPrefix_dokumentname]() As SqlString Get Return m_sPrefix_dokumentname End Get Set(ByVal Value As SqlString) m_sPrefix_dokumentname = Value End Set End Property clsOffice_vorlage.sVorlagename sVorlagename EDKB12WS.edokadb.clsOffice_vorlage.sVorlagename EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002AC Public Property sVorlagename() As SqlString public SqlString sVorlagename {get; set;} public: SqlString get_sVorlagename()public: void set_sVorlagename( SqlString) public function get sVorlagename() : SqlString;public function set sVorlagename(value : SqlString); Public Property [sVorlagename]() As SqlString Get Return m_sVorlagename End Get Set(ByVal Value As SqlString) m_sVorlagename = Value End Set End Property clsOffice_vorlage.Delete Delete EDKB12WS.edokadb.clsOffice_vorlage.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A5 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_office_vorlage_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_vorlage::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsOffice_vorlage.Insert Insert EDKB12WS.edokadb.clsOffice_vorlage.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A3 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlageid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlageid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svorlagename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorlagename)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sprefix_dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrefix_dokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_vorlage", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_vorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sidv_id", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIdv_id)) scmCmdToExecute.Parameters.Add(New SqlParameter("@soffice_vorlage", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOffice_vorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@babsender_ersteller", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAbsender_ersteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_nativ", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_nativ)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_geschuetzt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_geschuetzt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bkopfzeile_generieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bKopfzeile_generieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpt", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcpt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpl", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcpl)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcw", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcw)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbchorizontal", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBchorizontal)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ianwendungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnwendungnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iowner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_office_vorlage_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_vorlage::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsOffice_vorlage.SelectAll SelectAll EDKB12WS.edokadb.clsOffice_vorlage.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A7 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("office_vorlage") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_office_vorlage_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_vorlage::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsOffice_vorlage.SelectOne SelectOne EDKB12WS.edokadb.clsOffice_vorlage.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A6 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("office_vorlage") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_office_vorlage_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer)) If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then m_sBezeichnung = SqlString.Null Else m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String)) End If If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then m_sBeschreibung = SqlString.Null Else m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String)) End If If dtToReturn.Rows(0)("vorlageid") Is System.DBNull.Value Then m_iVorlageid = SqlInt32.Null Else m_iVorlageid = New SqlInt32(CType(dtToReturn.Rows(0)("vorlageid"), Integer)) End If If dtToReturn.Rows(0)("vorlagename") Is System.DBNull.Value Then m_sVorlagename = SqlString.Null Else m_sVorlagename = New SqlString(CType(dtToReturn.Rows(0)("vorlagename"), String)) End If If dtToReturn.Rows(0)("prefix_dokumentname") Is System.DBNull.Value Then m_sPrefix_dokumentname = SqlString.Null Else m_sPrefix_dokumentname = New SqlString(CType(dtToReturn.Rows(0)("prefix_dokumentname"), String)) End If m_bIdv_vorlage = New SqlBoolean(CType(dtToReturn.Rows(0)("idv_vorlage"), Boolean)) If dtToReturn.Rows(0)("idv_id") Is System.DBNull.Value Then m_sIdv_id = SqlString.Null Else m_sIdv_id = New SqlString(CType(dtToReturn.Rows(0)("idv_id"), String)) End If If dtToReturn.Rows(0)("office_vorlage") Is System.DBNull.Value Then m_sOffice_vorlage = SqlString.Null Else m_sOffice_vorlage = New SqlString(CType(dtToReturn.Rows(0)("office_vorlage"), String)) End If If dtToReturn.Rows(0)("absender_ersteller") Is System.DBNull.Value Then m_bAbsender_ersteller = SqlBoolean.Null Else m_bAbsender_ersteller = New SqlBoolean(CType(dtToReturn.Rows(0)("absender_ersteller"), Boolean)) End If m_bIdv_nativ = New SqlBoolean(CType(dtToReturn.Rows(0)("idv_nativ"), Boolean)) If dtToReturn.Rows(0)("dokument_geschuetzt") Is System.DBNull.Value Then m_bDokument_geschuetzt = SqlBoolean.Null Else m_bDokument_geschuetzt = New SqlBoolean(CType(dtToReturn.Rows(0)("dokument_geschuetzt"), Boolean)) End If m_bKopfzeile_generieren = New SqlBoolean(CType(dtToReturn.Rows(0)("kopfzeile_generieren"), Boolean)) If dtToReturn.Rows(0)("klassifizierung") Is System.DBNull.Value Then m_iKlassifizierung = SqlInt32.Null Else m_iKlassifizierung = New SqlInt32(CType(dtToReturn.Rows(0)("klassifizierung"), Integer)) End If m_iBcpt = New SqlInt32(CType(dtToReturn.Rows(0)("bcpt"), Integer)) If dtToReturn.Rows(0)("bcpl") Is System.DBNull.Value Then m_iBcpl = SqlInt32.Null Else m_iBcpl = New SqlInt32(CType(dtToReturn.Rows(0)("bcpl"), Integer)) End If m_iBcw = New SqlInt32(CType(dtToReturn.Rows(0)("bcw"), Integer)) m_iBch = New SqlInt32(CType(dtToReturn.Rows(0)("bch"), Integer)) If dtToReturn.Rows(0)("bchorizontal") Is System.DBNull.Value Then m_bBchorizontal = SqlBoolean.Null Else m_bBchorizontal = New SqlBoolean(CType(dtToReturn.Rows(0)("bchorizontal"), Boolean)) End If If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("anwendungnr") Is System.DBNull.Value Then m_iAnwendungnr = SqlInt32.Null Else m_iAnwendungnr = New SqlInt32(CType(dtToReturn.Rows(0)("anwendungnr"), Integer)) End If If dtToReturn.Rows(0)("owner") Is System.DBNull.Value Then m_iOwner = SqlInt32.Null Else m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("owner"), Integer)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_vorlage::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsOffice_vorlage.Update Update EDKB12WS.edokadb.clsOffice_vorlage.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A4 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlageid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlageid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@svorlagename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorlagename)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sprefix_dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrefix_dokumentname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_vorlage", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_vorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sidv_id", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIdv_id)) scmCmdToExecute.Parameters.Add(New SqlParameter("@soffice_vorlage", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOffice_vorlage)) scmCmdToExecute.Parameters.Add(New SqlParameter("@babsender_ersteller", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAbsender_ersteller)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_nativ", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_nativ)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_geschuetzt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_geschuetzt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bkopfzeile_generieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bKopfzeile_generieren)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpt", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcpt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpl", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcpl)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcw", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcw)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ibch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBch)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bbchorizontal", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBchorizontal)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ianwendungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnwendungnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iowner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_office_vorlage_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsOffice_vorlage::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAbsender_ersteller m_bAbsender_ersteller EDKB12WS.edokadb.clsOffice_vorlage.m_bAbsender_ersteller EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028A Private m_bAbsender_ersteller As SqlBoolean private SqlBoolean m_bAbsender_ersteller private: SqlBoolean m_bAbsender_ersteller; private m_bAbsender_ersteller : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bAktiv m_bAktiv EDKB12WS.edokadb.clsOffice_vorlage.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028B Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bBchorizontal m_bBchorizontal EDKB12WS.edokadb.clsOffice_vorlage.m_bBchorizontal EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028C Private m_bBchorizontal As SqlBoolean private SqlBoolean m_bBchorizontal private: SqlBoolean m_bBchorizontal; private m_bBchorizontal : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bDokument_geschuetzt m_bDokument_geschuetzt EDKB12WS.edokadb.clsOffice_vorlage.m_bDokument_geschuetzt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000288 Private m_bDokument_geschuetzt As SqlBoolean private SqlBoolean m_bDokument_geschuetzt private: SqlBoolean m_bDokument_geschuetzt; private m_bDokument_geschuetzt : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bIdv_nativ m_bIdv_nativ EDKB12WS.edokadb.clsOffice_vorlage.m_bIdv_nativ EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000289 Private m_bIdv_nativ As SqlBoolean private SqlBoolean m_bIdv_nativ private: SqlBoolean m_bIdv_nativ; private m_bIdv_nativ : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bIdv_vorlage m_bIdv_vorlage EDKB12WS.edokadb.clsOffice_vorlage.m_bIdv_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028E Private m_bIdv_vorlage As SqlBoolean private SqlBoolean m_bIdv_vorlage private: SqlBoolean m_bIdv_vorlage; private m_bIdv_vorlage : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_bKopfzeile_generieren m_bKopfzeile_generieren EDKB12WS.edokadb.clsOffice_vorlage.m_bKopfzeile_generieren EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028D Private m_bKopfzeile_generieren As SqlBoolean private SqlBoolean m_bKopfzeile_generieren private: SqlBoolean m_bKopfzeile_generieren; private m_bKopfzeile_generieren : SqlBoolean Private m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsOffice_vorlage.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000290 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daMutiert_am, m_daErstellt_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsOffice_vorlage.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000028F Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daMutiert_am, m_daErstellt_am As SqlDateTime m_iAnwendungnr m_iAnwendungnr EDKB12WS.edokadb.clsOffice_vorlage.m_iAnwendungnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000296 Private m_iAnwendungnr As SqlInt32 private SqlInt32 m_iAnwendungnr private: SqlInt32 m_iAnwendungnr; private m_iAnwendungnr : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iBch m_iBch EDKB12WS.edokadb.clsOffice_vorlage.m_iBch EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000292 Private m_iBch As SqlInt32 private SqlInt32 m_iBch private: SqlInt32 m_iBch; private m_iBch : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iBcpl m_iBcpl EDKB12WS.edokadb.clsOffice_vorlage.m_iBcpl EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029A Private m_iBcpl As SqlInt32 private SqlInt32 m_iBcpl private: SqlInt32 m_iBcpl; private m_iBcpl : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iBcpt m_iBcpt EDKB12WS.edokadb.clsOffice_vorlage.m_iBcpt EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029B Private m_iBcpt As SqlInt32 private SqlInt32 m_iBcpt private: SqlInt32 m_iBcpt; private m_iBcpt : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iBcw m_iBcw EDKB12WS.edokadb.clsOffice_vorlage.m_iBcw EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000293 Private m_iBcw As SqlInt32 private SqlInt32 m_iBcw private: SqlInt32 m_iBcw; private m_iBcw : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iKlassifizierung m_iKlassifizierung EDKB12WS.edokadb.clsOffice_vorlage.m_iKlassifizierung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000298 Private m_iKlassifizierung As SqlInt32 private SqlInt32 m_iKlassifizierung private: SqlInt32 m_iKlassifizierung; private m_iKlassifizierung : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsOffice_vorlage.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000291 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsOffice_vorlage.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000295 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iOffice_vorlagenr m_iOffice_vorlagenr EDKB12WS.edokadb.clsOffice_vorlage.m_iOffice_vorlagenr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000294 Private m_iOffice_vorlagenr As SqlInt32 private SqlInt32 m_iOffice_vorlagenr private: SqlInt32 m_iOffice_vorlagenr; private m_iOffice_vorlagenr : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iOwner m_iOwner EDKB12WS.edokadb.clsOffice_vorlage.m_iOwner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000297 Private m_iOwner As SqlInt32 private SqlInt32 m_iOwner private: SqlInt32 m_iOwner; private m_iOwner : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_iVorlageid m_iVorlageid EDKB12WS.edokadb.clsOffice_vorlage.m_iVorlageid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000299 Private m_iVorlageid As SqlInt32 private SqlInt32 m_iVorlageid private: SqlInt32 m_iVorlageid; private m_iVorlageid : SqlInt32 Private m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32 m_sBeschreibung m_sBeschreibung EDKB12WS.edokadb.clsOffice_vorlage.m_sBeschreibung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A0 Private m_sBeschreibung As SqlString private SqlString m_sBeschreibung private: SqlString m_sBeschreibung; private m_sBeschreibung : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString m_sBezeichnung m_sBezeichnung EDKB12WS.edokadb.clsOffice_vorlage.m_sBezeichnung EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029F Private m_sBezeichnung As SqlString private SqlString m_sBezeichnung private: SqlString m_sBezeichnung; private m_sBezeichnung : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString m_sIdv_id m_sIdv_id EDKB12WS.edokadb.clsOffice_vorlage.m_sIdv_id EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029D Private m_sIdv_id As SqlString private SqlString m_sIdv_id private: SqlString m_sIdv_id; private m_sIdv_id : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString m_sOffice_vorlage m_sOffice_vorlage EDKB12WS.edokadb.clsOffice_vorlage.m_sOffice_vorlage EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029E Private m_sOffice_vorlage As SqlString private SqlString m_sOffice_vorlage private: SqlString m_sOffice_vorlage; private m_sOffice_vorlage : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString m_sPrefix_dokumentname m_sPrefix_dokumentname EDKB12WS.edokadb.clsOffice_vorlage.m_sPrefix_dokumentname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000029C Private m_sPrefix_dokumentname As SqlString private SqlString m_sPrefix_dokumentname private: SqlString m_sPrefix_dokumentname; private m_sPrefix_dokumentname : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString m_sVorlagename m_sVorlagename EDKB12WS.edokadb.clsOffice_vorlage.m_sVorlagename EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002A1 Private m_sVorlagename As SqlString private SqlString m_sVorlagename private: SqlString m_sVorlagename; private m_sVorlagename : SqlString Private m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString clsPartner clsPartner EDKB12WS.edokadb.clsPartner EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002DF Public Class clsPartner Inherits clsDBInteractionBase public class clsPartner : clsDBInteractionBase public __gc class clsPartner : public clsDBInteractionBase public class clsPartner extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bCDVSA00 bSaldiert cpMainConnectionProvider iAZEPL00 iErrorCode iNRFOG012 iNRPAR00 sBEBAN011 sBEBAN012 sBEBAN022 sBEBAN21 sBEPGM00 sBKPAR00 sCDBAL00 sCDBNK00 sCDVIG00 sConnectionString sDMMSG00 sIDMSG00 sNRADR00 sNRFOG011 sNRFOG022 sNRFOG21 sNRPARAD sSAVRS00 sTSMUT00 sTXADZ011 sTXADZ012 sTXADZ021 sTXADZ022 sTXADZ031 sTXADZ032 sTXADZ041 sTXADZ042 sTXADZ051 sTXADZ052 sTXADZ061 sTXADZ062 sTXADZ071 sTXADZ072 sTXRes00 sVDMUTER sZTMSG00 clsPartner Constructor m_bCDVSA00 m_bMainConnectionIsCreatedLocal m_bSaldiert m_cpMainConnectionProvider m_iAZEPL00 m_iErrorCode m_iNRFOG012 m_iNRPAR00 m_sBEBAN011 m_sBEBAN012 m_sBEBAN022 m_sBEBAN21 m_sBEPGM00 m_sBKPAR00 m_sCDBAL00 m_sCDBNK00 m_sCDVIG00 m_sDMMSG00 m_sIDMSG00 m_sNRADR00 m_sNRFOG011 m_sNRFOG022 m_sNRFOG21 m_sNRPARAD m_sSAVRS00 m_sTSMUT00 m_sTXADZ011 m_sTXADZ012 m_sTXADZ021 m_sTXADZ022 m_sTXADZ031 m_sTXADZ032 m_sTXADZ041 m_sTXADZ042 m_sTXADZ051 m_sTXADZ052 m_sTXADZ061 m_sTXADZ062 m_sTXADZ071 m_sTXADZ072 m_sTXRes00 m_sVDMUTER m_sZTMSG00 m_scoMainConnection clsPartner Constructor New EDKB12WS.edokadb.clsPartner.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000308 Public Sub New() public clsPartner() public: clsPartner(); public function clsPartner(); Public Sub New() ' // Nothing for now. End Sub clsPartner.bCDVSA00 bCDVSA00 EDKB12WS.edokadb.clsPartner.bCDVSA00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000335 Public Property bCDVSA00() As SqlBoolean public SqlBoolean bCDVSA00 {get; set;} public: SqlBoolean get_bCDVSA00()public: void set_bCDVSA00( SqlBoolean) public function get bCDVSA00() : SqlBoolean;public function set bCDVSA00(value : SqlBoolean); Public Property [bCDVSA00]() As SqlBoolean Get Return m_bCDVSA00 End Get Set(ByVal Value As SqlBoolean) m_bCDVSA00 = Value End Set End Property clsPartner.bSaldiert bSaldiert EDKB12WS.edokadb.clsPartner.bSaldiert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000333 Public Property bSaldiert() As SqlBoolean public SqlBoolean bSaldiert {get; set;} public: SqlBoolean get_bSaldiert()public: void set_bSaldiert( SqlBoolean) public function get bSaldiert() : SqlBoolean;public function set bSaldiert(value : SqlBoolean); Public Property [bSaldiert]() As SqlBoolean Get Return m_bSaldiert End Get Set(ByVal Value As SqlBoolean) m_bSaldiert = Value End Set End Property clsPartner.iAZEPL00 iAZEPL00 EDKB12WS.edokadb.clsPartner.iAZEPL00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000334 Public Property iAZEPL00() As SqlInt32 public SqlInt32 iAZEPL00 {get; set;} public: SqlInt32 get_iAZEPL00()public: void set_iAZEPL00( SqlInt32) public function get iAZEPL00() : SqlInt32;public function set iAZEPL00(value : SqlInt32); Public Property [iAZEPL00]() As SqlInt32 Get Return m_iAZEPL00 End Get Set(ByVal Value As SqlInt32) m_iAZEPL00 = Value End Set End Property clsPartner.iNRFOG012 iNRFOG012 EDKB12WS.edokadb.clsPartner.iNRFOG012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000315 Public Property iNRFOG012() As SqlInt32 public SqlInt32 iNRFOG012 {get; set;} public: SqlInt32 get_iNRFOG012()public: void set_iNRFOG012( SqlInt32) public function get iNRFOG012() : SqlInt32;public function set iNRFOG012(value : SqlInt32); Public Property [iNRFOG012]() As SqlInt32 Get Return m_iNRFOG012 End Get Set(ByVal Value As SqlInt32) m_iNRFOG012 = Value End Set End Property clsPartner.iNRPAR00 iNRPAR00 EDKB12WS.edokadb.clsPartner.iNRPAR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000313 Public Property iNRPAR00() As SqlInt32 public SqlInt32 iNRPAR00 {get; set;} public: SqlInt32 get_iNRPAR00()public: void set_iNRPAR00( SqlInt32) public function get iNRPAR00() : SqlInt32;public function set iNRPAR00(value : SqlInt32); Public Property [iNRPAR00]() As SqlInt32 Get Return m_iNRPAR00 End Get Set(ByVal Value As SqlInt32) Dim iNRPAR00Tmp As SqlInt32 = Value If iNRPAR00Tmp.IsNull Then Throw New ArgumentOutOfRangeException("iNRPAR00", "iNRPAR00 can't be NULL") End If m_iNRPAR00 = Value End Set End Property clsPartner.sBEBAN011 sBEBAN011 EDKB12WS.edokadb.clsPartner.sBEBAN011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000323 Public Property sBEBAN011() As SqlString public SqlString sBEBAN011 {get; set;} public: SqlString get_sBEBAN011()public: void set_sBEBAN011( SqlString) public function get sBEBAN011() : SqlString;public function set sBEBAN011(value : SqlString); Public Property [sBEBAN011]() As SqlString Get Return m_sBEBAN011 End Get Set(ByVal Value As SqlString) m_sBEBAN011 = Value End Set End Property clsPartner.sBEBAN012 sBEBAN012 EDKB12WS.edokadb.clsPartner.sBEBAN012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000316 Public Property sBEBAN012() As SqlString public SqlString sBEBAN012 {get; set;} public: SqlString get_sBEBAN012()public: void set_sBEBAN012( SqlString) public function get sBEBAN012() : SqlString;public function set sBEBAN012(value : SqlString); Public Property [sBEBAN012]() As SqlString Get Return m_sBEBAN012 End Get Set(ByVal Value As SqlString) m_sBEBAN012 = Value End Set End Property clsPartner.sBEBAN022 sBEBAN022 EDKB12WS.edokadb.clsPartner.sBEBAN022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000318 Public Property sBEBAN022() As SqlString public SqlString sBEBAN022 {get; set;} public: SqlString get_sBEBAN022()public: void set_sBEBAN022( SqlString) public function get sBEBAN022() : SqlString;public function set sBEBAN022(value : SqlString); Public Property [sBEBAN022]() As SqlString Get Return m_sBEBAN022 End Get Set(ByVal Value As SqlString) m_sBEBAN022 = Value End Set End Property clsPartner.sBEBAN21 sBEBAN21 EDKB12WS.edokadb.clsPartner.sBEBAN21 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000325 Public Property sBEBAN21() As SqlString public SqlString sBEBAN21 {get; set;} public: SqlString get_sBEBAN21()public: void set_sBEBAN21( SqlString) public function get sBEBAN21() : SqlString;public function set sBEBAN21(value : SqlString); Public Property [sBEBAN21]() As SqlString Get Return m_sBEBAN21 End Get Set(ByVal Value As SqlString) m_sBEBAN21 = Value End Set End Property clsPartner.sBEPGM00 sBEPGM00 EDKB12WS.edokadb.clsPartner.sBEPGM00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000311 Public Property sBEPGM00() As SqlString public SqlString sBEPGM00 {get; set;} public: SqlString get_sBEPGM00()public: void set_sBEPGM00( SqlString) public function get sBEPGM00() : SqlString;public function set sBEPGM00(value : SqlString); Public Property [sBEPGM00]() As SqlString Get Return m_sBEPGM00 End Get Set(ByVal Value As SqlString) m_sBEPGM00 = Value End Set End Property clsPartner.sBKPAR00 sBKPAR00 EDKB12WS.edokadb.clsPartner.sBKPAR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000314 Public Property sBKPAR00() As SqlString public SqlString sBKPAR00 {get; set;} public: SqlString get_sBKPAR00()public: void set_sBKPAR00( SqlString) public function get sBKPAR00() : SqlString;public function set sBKPAR00(value : SqlString); Public Property [sBKPAR00]() As SqlString Get Return m_sBKPAR00 End Get Set(ByVal Value As SqlString) m_sBKPAR00 = Value End Set End Property clsPartner.sCDBAL00 sCDBAL00 EDKB12WS.edokadb.clsPartner.sCDBAL00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032D Public Property sCDBAL00() As SqlString public SqlString sCDBAL00 {get; set;} public: SqlString get_sCDBAL00()public: void set_sCDBAL00( SqlString) public function get sCDBAL00() : SqlString;public function set sCDBAL00(value : SqlString); Public Property [sCDBAL00]() As SqlString Get Return m_sCDBAL00 End Get Set(ByVal Value As SqlString) m_sCDBAL00 = Value End Set End Property clsPartner.sCDBNK00 sCDBNK00 EDKB12WS.edokadb.clsPartner.sCDBNK00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000312 Public Property sCDBNK00() As SqlString public SqlString sCDBNK00 {get; set;} public: SqlString get_sCDBNK00()public: void set_sCDBNK00( SqlString) public function get sCDBNK00() : SqlString;public function set sCDBNK00(value : SqlString); Public Property [sCDBNK00]() As SqlString Get Return m_sCDBNK00 End Get Set(ByVal Value As SqlString) m_sCDBNK00 = Value End Set End Property clsPartner.sCDVIG00 sCDVIG00 EDKB12WS.edokadb.clsPartner.sCDVIG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032E Public Property sCDVIG00() As SqlString public SqlString sCDVIG00 {get; set;} public: SqlString get_sCDVIG00()public: void set_sCDVIG00( SqlString) public function get sCDVIG00() : SqlString;public function set sCDVIG00(value : SqlString); Public Property [sCDVIG00]() As SqlString Get Return m_sCDVIG00 End Get Set(ByVal Value As SqlString) m_sCDVIG00 = Value End Set End Property clsPartner.sDMMSG00 sDMMSG00 EDKB12WS.edokadb.clsPartner.sDMMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030F Public Property sDMMSG00() As SqlString public SqlString sDMMSG00 {get; set;} public: SqlString get_sDMMSG00()public: void set_sDMMSG00( SqlString) public function get sDMMSG00() : SqlString;public function set sDMMSG00(value : SqlString); Public Property [sDMMSG00]() As SqlString Get Return m_sDMMSG00 End Get Set(ByVal Value As SqlString) m_sDMMSG00 = Value End Set End Property clsPartner.sIDMSG00 sIDMSG00 EDKB12WS.edokadb.clsPartner.sIDMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030E Public Property sIDMSG00() As SqlString public SqlString sIDMSG00 {get; set;} public: SqlString get_sIDMSG00()public: void set_sIDMSG00( SqlString) public function get sIDMSG00() : SqlString;public function set sIDMSG00(value : SqlString); Public Property [sIDMSG00]() As SqlString Get Return m_sIDMSG00 End Get Set(ByVal Value As SqlString) m_sIDMSG00 = Value End Set End Property clsPartner.sNRADR00 sNRADR00 EDKB12WS.edokadb.clsPartner.sNRADR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000321 Public Property sNRADR00() As SqlString public SqlString sNRADR00 {get; set;} public: SqlString get_sNRADR00()public: void set_sNRADR00( SqlString) public function get sNRADR00() : SqlString;public function set sNRADR00(value : SqlString); Public Property [sNRADR00]() As SqlString Get Return m_sNRADR00 End Get Set(ByVal Value As SqlString) m_sNRADR00 = Value End Set End Property clsPartner.sNRFOG011 sNRFOG011 EDKB12WS.edokadb.clsPartner.sNRFOG011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000322 Public Property sNRFOG011() As SqlString public SqlString sNRFOG011 {get; set;} public: SqlString get_sNRFOG011()public: void set_sNRFOG011( SqlString) public function get sNRFOG011() : SqlString;public function set sNRFOG011(value : SqlString); Public Property [sNRFOG011]() As SqlString Get Return m_sNRFOG011 End Get Set(ByVal Value As SqlString) m_sNRFOG011 = Value End Set End Property clsPartner.sNRFOG022 sNRFOG022 EDKB12WS.edokadb.clsPartner.sNRFOG022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000317 Public Property sNRFOG022() As SqlString public SqlString sNRFOG022 {get; set;} public: SqlString get_sNRFOG022()public: void set_sNRFOG022( SqlString) public function get sNRFOG022() : SqlString;public function set sNRFOG022(value : SqlString); Public Property [sNRFOG022]() As SqlString Get Return m_sNRFOG022 End Get Set(ByVal Value As SqlString) m_sNRFOG022 = Value End Set End Property clsPartner.sNRFOG21 sNRFOG21 EDKB12WS.edokadb.clsPartner.sNRFOG21 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000324 Public Property sNRFOG21() As SqlString public SqlString sNRFOG21 {get; set;} public: SqlString get_sNRFOG21()public: void set_sNRFOG21( SqlString) public function get sNRFOG21() : SqlString;public function set sNRFOG21(value : SqlString); Public Property [sNRFOG21]() As SqlString Get Return m_sNRFOG21 End Get Set(ByVal Value As SqlString) m_sNRFOG21 = Value End Set End Property clsPartner.sNRPARAD sNRPARAD EDKB12WS.edokadb.clsPartner.sNRPARAD EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000320 Public Property sNRPARAD() As SqlString public SqlString sNRPARAD {get; set;} public: SqlString get_sNRPARAD()public: void set_sNRPARAD( SqlString) public function get sNRPARAD() : SqlString;public function set sNRPARAD(value : SqlString); Public Property [sNRPARAD]() As SqlString Get Return m_sNRPARAD End Get Set(ByVal Value As SqlString) m_sNRPARAD = Value End Set End Property clsPartner.sSAVRS00 sSAVRS00 EDKB12WS.edokadb.clsPartner.sSAVRS00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032F Public Property sSAVRS00() As SqlString public SqlString sSAVRS00 {get; set;} public: SqlString get_sSAVRS00()public: void set_sSAVRS00( SqlString) public function get sSAVRS00() : SqlString;public function set sSAVRS00(value : SqlString); Public Property [sSAVRS00]() As SqlString Get Return m_sSAVRS00 End Get Set(ByVal Value As SqlString) m_sSAVRS00 = Value End Set End Property clsPartner.sTSMUT00 sTSMUT00 EDKB12WS.edokadb.clsPartner.sTSMUT00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000330 Public Property sTSMUT00() As SqlString public SqlString sTSMUT00 {get; set;} public: SqlString get_sTSMUT00()public: void set_sTSMUT00( SqlString) public function get sTSMUT00() : SqlString;public function set sTSMUT00(value : SqlString); Public Property [sTSMUT00]() As SqlString Get Return m_sTSMUT00 End Get Set(ByVal Value As SqlString) m_sTSMUT00 = Value End Set End Property clsPartner.sTXADZ011 sTXADZ011 EDKB12WS.edokadb.clsPartner.sTXADZ011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000326 Public Property sTXADZ011() As SqlString public SqlString sTXADZ011 {get; set;} public: SqlString get_sTXADZ011()public: void set_sTXADZ011( SqlString) public function get sTXADZ011() : SqlString;public function set sTXADZ011(value : SqlString); Public Property [sTXADZ011]() As SqlString Get Return m_sTXADZ011 End Get Set(ByVal Value As SqlString) m_sTXADZ011 = Value End Set End Property clsPartner.sTXADZ012 sTXADZ012 EDKB12WS.edokadb.clsPartner.sTXADZ012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000319 Public Property sTXADZ012() As SqlString public SqlString sTXADZ012 {get; set;} public: SqlString get_sTXADZ012()public: void set_sTXADZ012( SqlString) public function get sTXADZ012() : SqlString;public function set sTXADZ012(value : SqlString); Public Property [sTXADZ012]() As SqlString Get Return m_sTXADZ012 End Get Set(ByVal Value As SqlString) m_sTXADZ012 = Value End Set End Property clsPartner.sTXADZ021 sTXADZ021 EDKB12WS.edokadb.clsPartner.sTXADZ021 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000327 Public Property sTXADZ021() As SqlString public SqlString sTXADZ021 {get; set;} public: SqlString get_sTXADZ021()public: void set_sTXADZ021( SqlString) public function get sTXADZ021() : SqlString;public function set sTXADZ021(value : SqlString); Public Property [sTXADZ021]() As SqlString Get Return m_sTXADZ021 End Get Set(ByVal Value As SqlString) m_sTXADZ021 = Value End Set End Property clsPartner.sTXADZ022 sTXADZ022 EDKB12WS.edokadb.clsPartner.sTXADZ022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031A Public Property sTXADZ022() As SqlString public SqlString sTXADZ022 {get; set;} public: SqlString get_sTXADZ022()public: void set_sTXADZ022( SqlString) public function get sTXADZ022() : SqlString;public function set sTXADZ022(value : SqlString); Public Property [sTXADZ022]() As SqlString Get Return m_sTXADZ022 End Get Set(ByVal Value As SqlString) m_sTXADZ022 = Value End Set End Property clsPartner.sTXADZ031 sTXADZ031 EDKB12WS.edokadb.clsPartner.sTXADZ031 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000328 Public Property sTXADZ031() As SqlString public SqlString sTXADZ031 {get; set;} public: SqlString get_sTXADZ031()public: void set_sTXADZ031( SqlString) public function get sTXADZ031() : SqlString;public function set sTXADZ031(value : SqlString); Public Property [sTXADZ031]() As SqlString Get Return m_sTXADZ031 End Get Set(ByVal Value As SqlString) m_sTXADZ031 = Value End Set End Property clsPartner.sTXADZ032 sTXADZ032 EDKB12WS.edokadb.clsPartner.sTXADZ032 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031B Public Property sTXADZ032() As SqlString public SqlString sTXADZ032 {get; set;} public: SqlString get_sTXADZ032()public: void set_sTXADZ032( SqlString) public function get sTXADZ032() : SqlString;public function set sTXADZ032(value : SqlString); Public Property [sTXADZ032]() As SqlString Get Return m_sTXADZ032 End Get Set(ByVal Value As SqlString) m_sTXADZ032 = Value End Set End Property clsPartner.sTXADZ041 sTXADZ041 EDKB12WS.edokadb.clsPartner.sTXADZ041 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000329 Public Property sTXADZ041() As SqlString public SqlString sTXADZ041 {get; set;} public: SqlString get_sTXADZ041()public: void set_sTXADZ041( SqlString) public function get sTXADZ041() : SqlString;public function set sTXADZ041(value : SqlString); Public Property [sTXADZ041]() As SqlString Get Return m_sTXADZ041 End Get Set(ByVal Value As SqlString) m_sTXADZ041 = Value End Set End Property clsPartner.sTXADZ042 sTXADZ042 EDKB12WS.edokadb.clsPartner.sTXADZ042 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031C Public Property sTXADZ042() As SqlString public SqlString sTXADZ042 {get; set;} public: SqlString get_sTXADZ042()public: void set_sTXADZ042( SqlString) public function get sTXADZ042() : SqlString;public function set sTXADZ042(value : SqlString); Public Property [sTXADZ042]() As SqlString Get Return m_sTXADZ042 End Get Set(ByVal Value As SqlString) m_sTXADZ042 = Value End Set End Property clsPartner.sTXADZ051 sTXADZ051 EDKB12WS.edokadb.clsPartner.sTXADZ051 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032A Public Property sTXADZ051() As SqlString public SqlString sTXADZ051 {get; set;} public: SqlString get_sTXADZ051()public: void set_sTXADZ051( SqlString) public function get sTXADZ051() : SqlString;public function set sTXADZ051(value : SqlString); Public Property [sTXADZ051]() As SqlString Get Return m_sTXADZ051 End Get Set(ByVal Value As SqlString) m_sTXADZ051 = Value End Set End Property clsPartner.sTXADZ052 sTXADZ052 EDKB12WS.edokadb.clsPartner.sTXADZ052 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031D Public Property sTXADZ052() As SqlString public SqlString sTXADZ052 {get; set;} public: SqlString get_sTXADZ052()public: void set_sTXADZ052( SqlString) public function get sTXADZ052() : SqlString;public function set sTXADZ052(value : SqlString); Public Property [sTXADZ052]() As SqlString Get Return m_sTXADZ052 End Get Set(ByVal Value As SqlString) m_sTXADZ052 = Value End Set End Property clsPartner.sTXADZ061 sTXADZ061 EDKB12WS.edokadb.clsPartner.sTXADZ061 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032B Public Property sTXADZ061() As SqlString public SqlString sTXADZ061 {get; set;} public: SqlString get_sTXADZ061()public: void set_sTXADZ061( SqlString) public function get sTXADZ061() : SqlString;public function set sTXADZ061(value : SqlString); Public Property [sTXADZ061]() As SqlString Get Return m_sTXADZ061 End Get Set(ByVal Value As SqlString) m_sTXADZ061 = Value End Set End Property clsPartner.sTXADZ062 sTXADZ062 EDKB12WS.edokadb.clsPartner.sTXADZ062 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031E Public Property sTXADZ062() As SqlString public SqlString sTXADZ062 {get; set;} public: SqlString get_sTXADZ062()public: void set_sTXADZ062( SqlString) public function get sTXADZ062() : SqlString;public function set sTXADZ062(value : SqlString); Public Property [sTXADZ062]() As SqlString Get Return m_sTXADZ062 End Get Set(ByVal Value As SqlString) m_sTXADZ062 = Value End Set End Property clsPartner.sTXADZ071 sTXADZ071 EDKB12WS.edokadb.clsPartner.sTXADZ071 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000032C Public Property sTXADZ071() As SqlString public SqlString sTXADZ071 {get; set;} public: SqlString get_sTXADZ071()public: void set_sTXADZ071( SqlString) public function get sTXADZ071() : SqlString;public function set sTXADZ071(value : SqlString); Public Property [sTXADZ071]() As SqlString Get Return m_sTXADZ071 End Get Set(ByVal Value As SqlString) m_sTXADZ071 = Value End Set End Property clsPartner.sTXADZ072 sTXADZ072 EDKB12WS.edokadb.clsPartner.sTXADZ072 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000031F Public Property sTXADZ072() As SqlString public SqlString sTXADZ072 {get; set;} public: SqlString get_sTXADZ072()public: void set_sTXADZ072( SqlString) public function get sTXADZ072() : SqlString;public function set sTXADZ072(value : SqlString); Public Property [sTXADZ072]() As SqlString Get Return m_sTXADZ072 End Get Set(ByVal Value As SqlString) m_sTXADZ072 = Value End Set End Property clsPartner.sTXRes00 sTXRes00 EDKB12WS.edokadb.clsPartner.sTXRes00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000332 Public Property sTXRes00() As SqlString public SqlString sTXRes00 {get; set;} public: SqlString get_sTXRes00()public: void set_sTXRes00( SqlString) public function get sTXRes00() : SqlString;public function set sTXRes00(value : SqlString); Public Property [sTXRes00]() As SqlString Get Return m_sTXRes00 End Get Set(ByVal Value As SqlString) m_sTXRes00 = Value End Set End Property clsPartner.sVDMUTER sVDMUTER EDKB12WS.edokadb.clsPartner.sVDMUTER EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000331 Public Property sVDMUTER() As SqlString public SqlString sVDMUTER {get; set;} public: SqlString get_sVDMUTER()public: void set_sVDMUTER( SqlString) public function get sVDMUTER() : SqlString;public function set sVDMUTER(value : SqlString); Public Property [sVDMUTER]() As SqlString Get Return m_sVDMUTER End Get Set(ByVal Value As SqlString) m_sVDMUTER = Value End Set End Property clsPartner.sZTMSG00 sZTMSG00 EDKB12WS.edokadb.clsPartner.sZTMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000310 Public Property sZTMSG00() As SqlString public SqlString sZTMSG00 {get; set;} public: SqlString get_sZTMSG00()public: void set_sZTMSG00( SqlString) public function get sZTMSG00() : SqlString;public function set sZTMSG00(value : SqlString); Public Property [sZTMSG00]() As SqlString Get Return m_sZTMSG00 End Get Set(ByVal Value As SqlString) m_sZTMSG00 = Value End Set End Property clsPartner.Delete Delete EDKB12WS.edokadb.clsPartner.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030B Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Partner_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsPartner::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsPartner.Insert Insert EDKB12WS.edokadb.clsPartner.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000309 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 53, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bSaldiert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Partner_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsPartner::Insert::Error occured." + ex.Message, ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsPartner.SelectAll SelectAll EDKB12WS.edokadb.clsPartner.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030D Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("Partner") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Partner_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsPartner::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsPartner.SelectOne SelectOne EDKB12WS.edokadb.clsPartner.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030C Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("Partner") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Partner_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then If dtToReturn.Rows(0)("IDMSG00") Is System.DBNull.Value Then m_sIDMSG00 = SqlString.Null Else m_sIDMSG00 = New SqlString(CType(dtToReturn.Rows(0)("IDMSG00"), String)) End If If dtToReturn.Rows(0)("DMMSG00") Is System.DBNull.Value Then m_sDMMSG00 = SqlString.Null Else m_sDMMSG00 = New SqlString(CType(dtToReturn.Rows(0)("DMMSG00"), String)) End If If dtToReturn.Rows(0)("ZTMSG00") Is System.DBNull.Value Then m_sZTMSG00 = SqlString.Null Else m_sZTMSG00 = New SqlString(CType(dtToReturn.Rows(0)("ZTMSG00"), String)) End If If dtToReturn.Rows(0)("BEPGM00") Is System.DBNull.Value Then m_sBEPGM00 = SqlString.Null Else m_sBEPGM00 = New SqlString(CType(dtToReturn.Rows(0)("BEPGM00"), String)) End If If dtToReturn.Rows(0)("CDBNK00") Is System.DBNull.Value Then m_sCDBNK00 = SqlString.Null Else m_sCDBNK00 = New SqlString(CType(dtToReturn.Rows(0)("CDBNK00"), String)) End If m_iNRPAR00 = New SqlInt32(CType(dtToReturn.Rows(0)("NRPAR00"), Integer)) If dtToReturn.Rows(0)("BKPAR00") Is System.DBNull.Value Then m_sBKPAR00 = SqlString.Null Else m_sBKPAR00 = New SqlString(CType(dtToReturn.Rows(0)("BKPAR00"), String)) End If If dtToReturn.Rows(0)("NRFOG012") Is System.DBNull.Value Then m_iNRFOG012 = SqlInt32.Null Else m_iNRFOG012 = New SqlInt32(CType(dtToReturn.Rows(0)("NRFOG012"), Integer)) End If If dtToReturn.Rows(0)("BEBAN012") Is System.DBNull.Value Then m_sBEBAN012 = SqlString.Null Else m_sBEBAN012 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN012"), String)) End If If dtToReturn.Rows(0)("NRFOG022") Is System.DBNull.Value Then m_sNRFOG022 = SqlString.Null Else m_sNRFOG022 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG022"), String)) End If If dtToReturn.Rows(0)("BEBAN022") Is System.DBNull.Value Then m_sBEBAN022 = SqlString.Null Else m_sBEBAN022 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN022"), String)) End If If dtToReturn.Rows(0)("TXADZ012") Is System.DBNull.Value Then m_sTXADZ012 = SqlString.Null Else m_sTXADZ012 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ012"), String)) End If If dtToReturn.Rows(0)("TXADZ022") Is System.DBNull.Value Then m_sTXADZ022 = SqlString.Null Else m_sTXADZ022 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ022"), String)) End If If dtToReturn.Rows(0)("TXADZ032") Is System.DBNull.Value Then m_sTXADZ032 = SqlString.Null Else m_sTXADZ032 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ032"), String)) End If If dtToReturn.Rows(0)("TXADZ042") Is System.DBNull.Value Then m_sTXADZ042 = SqlString.Null Else m_sTXADZ042 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ042"), String)) End If If dtToReturn.Rows(0)("TXADZ052") Is System.DBNull.Value Then m_sTXADZ052 = SqlString.Null Else m_sTXADZ052 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ052"), String)) End If If dtToReturn.Rows(0)("TXADZ062") Is System.DBNull.Value Then m_sTXADZ062 = SqlString.Null Else m_sTXADZ062 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ062"), String)) End If If dtToReturn.Rows(0)("TXADZ072") Is System.DBNull.Value Then m_sTXADZ072 = SqlString.Null Else m_sTXADZ072 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ072"), String)) End If If dtToReturn.Rows(0)("NRPARAD") Is System.DBNull.Value Then m_sNRPARAD = SqlString.Null Else m_sNRPARAD = New SqlString(CType(dtToReturn.Rows(0)("NRPARAD"), String)) End If If dtToReturn.Rows(0)("NRADR00") Is System.DBNull.Value Then m_sNRADR00 = SqlString.Null Else m_sNRADR00 = New SqlString(CType(dtToReturn.Rows(0)("NRADR00"), String)) End If If dtToReturn.Rows(0)("NRFOG011") Is System.DBNull.Value Then m_sNRFOG011 = SqlString.Null Else m_sNRFOG011 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG011"), String)) End If If dtToReturn.Rows(0)("BEBAN011") Is System.DBNull.Value Then m_sBEBAN011 = SqlString.Null Else m_sBEBAN011 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN011"), String)) End If If dtToReturn.Rows(0)("NRFOG21") Is System.DBNull.Value Then m_sNRFOG21 = SqlString.Null Else m_sNRFOG21 = New SqlString(CType(dtToReturn.Rows(0)("NRFOG21"), String)) End If If dtToReturn.Rows(0)("BEBAN21") Is System.DBNull.Value Then m_sBEBAN21 = SqlString.Null Else m_sBEBAN21 = New SqlString(CType(dtToReturn.Rows(0)("BEBAN21"), String)) End If If dtToReturn.Rows(0)("TXADZ011") Is System.DBNull.Value Then m_sTXADZ011 = SqlString.Null Else m_sTXADZ011 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ011"), String)) End If If dtToReturn.Rows(0)("TXADZ021") Is System.DBNull.Value Then m_sTXADZ021 = SqlString.Null Else m_sTXADZ021 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ021"), String)) End If If dtToReturn.Rows(0)("TXADZ031") Is System.DBNull.Value Then m_sTXADZ031 = SqlString.Null Else m_sTXADZ031 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ031"), String)) End If If dtToReturn.Rows(0)("TXADZ041") Is System.DBNull.Value Then m_sTXADZ041 = SqlString.Null Else m_sTXADZ041 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ041"), String)) End If If dtToReturn.Rows(0)("TXADZ051") Is System.DBNull.Value Then m_sTXADZ051 = SqlString.Null Else m_sTXADZ051 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ051"), String)) End If If dtToReturn.Rows(0)("TXADZ061") Is System.DBNull.Value Then m_sTXADZ061 = SqlString.Null Else m_sTXADZ061 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ061"), String)) End If If dtToReturn.Rows(0)("TXADZ071") Is System.DBNull.Value Then m_sTXADZ071 = SqlString.Null Else m_sTXADZ071 = New SqlString(CType(dtToReturn.Rows(0)("TXADZ071"), String)) End If If dtToReturn.Rows(0)("CDBAL00") Is System.DBNull.Value Then m_sCDBAL00 = SqlString.Null Else m_sCDBAL00 = New SqlString(CType(dtToReturn.Rows(0)("CDBAL00"), String)) End If If dtToReturn.Rows(0)("CDVIG00") Is System.DBNull.Value Then m_sCDVIG00 = SqlString.Null Else m_sCDVIG00 = New SqlString(CType(dtToReturn.Rows(0)("CDVIG00"), String)) End If If dtToReturn.Rows(0)("SAVRS00") Is System.DBNull.Value Then m_sSAVRS00 = SqlString.Null Else m_sSAVRS00 = New SqlString(CType(dtToReturn.Rows(0)("SAVRS00"), String)) End If If dtToReturn.Rows(0)("TSMUT00") Is System.DBNull.Value Then m_sTSMUT00 = SqlString.Null Else m_sTSMUT00 = New SqlString(CType(dtToReturn.Rows(0)("TSMUT00"), String)) End If If dtToReturn.Rows(0)("VDMUTER") Is System.DBNull.Value Then m_sVDMUTER = SqlString.Null Else m_sVDMUTER = New SqlString(CType(dtToReturn.Rows(0)("VDMUTER"), String)) End If If dtToReturn.Rows(0)("TXRes00") Is System.DBNull.Value Then m_sTXRes00 = SqlString.Null Else m_sTXRes00 = New SqlString(CType(dtToReturn.Rows(0)("TXRes00"), String)) End If m_bSaldiert = New SqlBoolean(CType(dtToReturn.Rows(0)("Saldiert"), Boolean)) If dtToReturn.Rows(0)("AZEPL00") Is System.DBNull.Value Then m_iAZEPL00 = SqlInt32.Null Else m_iAZEPL00 = New SqlInt32(CType(dtToReturn.Rows(0)("AZEPL00"), Integer)) End If m_bCDVSA00 = New SqlBoolean(CType(dtToReturn.Rows(0)("CDVSA00"), Boolean)) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsPartner::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsPartner.Update Update EDKB12WS.edokadb.clsPartner.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000030A Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_Partner_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sIDMSG00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIDMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sDMMSG00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDMMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sZTMSG00", SqlDbType.VarChar, 12, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sZTMSG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEPGM00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEPGM00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBNK00", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBNK00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRPAR00", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iNRPAR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBKPAR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBKPAR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iNRFOG012", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iNRFOG012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN012", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN022", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ012", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ012)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ022", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ022)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ032", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ032)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ042", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ042)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ052", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ052)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ062", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ062)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ072", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ072)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRPARAD", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRPARAD)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRADR00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRADR00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN011", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sNRFOG21", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNRFOG21)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sBEBAN21", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBEBAN21)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ011", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ011)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ021", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ021)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ031", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ031)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ041", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ041)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ051", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ051)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ061", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ061)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXADZ071", SqlDbType.VarChar, 53, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXADZ071)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDBAL00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDBAL00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sCDVIG00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sCDVIG00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sSAVRS00", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSAVRS00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTSMUT00", SqlDbType.VarChar, 26, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTSMUT00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sVDMUTER", SqlDbType.VarChar, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVDMUTER)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sTXRes00", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTXRes00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bSaldiert", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bSaldiert)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iAZEPL00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAZEPL00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bCDVSA00", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bCDVSA00)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_Partner_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsPartner::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bCDVSA00 m_bCDVSA00 EDKB12WS.edokadb.clsPartner.m_bCDVSA00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E1 Private m_bCDVSA00 As SqlBoolean private SqlBoolean m_bCDVSA00 private: SqlBoolean m_bCDVSA00; private m_bCDVSA00 : SqlBoolean Private m_bSaldiert, m_bCDVSA00 As SqlBoolean m_bSaldiert m_bSaldiert EDKB12WS.edokadb.clsPartner.m_bSaldiert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E0 Private m_bSaldiert As SqlBoolean private SqlBoolean m_bSaldiert private: SqlBoolean m_bSaldiert; private m_bSaldiert : SqlBoolean Private m_bSaldiert, m_bCDVSA00 As SqlBoolean m_iAZEPL00 m_iAZEPL00 EDKB12WS.edokadb.clsPartner.m_iAZEPL00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E4 Private m_iAZEPL00 As SqlInt32 private SqlInt32 m_iAZEPL00 private: SqlInt32 m_iAZEPL00; private m_iAZEPL00 : SqlInt32 Private m_iNRFOG012, m_iNRPAR00, m_iAZEPL00 As SqlInt32 m_iNRFOG012 m_iNRFOG012 EDKB12WS.edokadb.clsPartner.m_iNRFOG012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E2 Private m_iNRFOG012 As SqlInt32 private SqlInt32 m_iNRFOG012 private: SqlInt32 m_iNRFOG012; private m_iNRFOG012 : SqlInt32 Private m_iNRFOG012, m_iNRPAR00, m_iAZEPL00 As SqlInt32 m_iNRPAR00 m_iNRPAR00 EDKB12WS.edokadb.clsPartner.m_iNRPAR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E3 Private m_iNRPAR00 As SqlInt32 private SqlInt32 m_iNRPAR00 private: SqlInt32 m_iNRPAR00; private m_iNRPAR00 : SqlInt32 Private m_iNRFOG012, m_iNRPAR00, m_iAZEPL00 As SqlInt32 m_sBEBAN011 m_sBEBAN011 EDKB12WS.edokadb.clsPartner.m_sBEBAN011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002EA Private m_sBEBAN011 As SqlString private SqlString m_sBEBAN011 private: SqlString m_sBEBAN011; private m_sBEBAN011 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sBEBAN012 m_sBEBAN012 EDKB12WS.edokadb.clsPartner.m_sBEBAN012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F5 Private m_sBEBAN012 As SqlString private SqlString m_sBEBAN012 private: SqlString m_sBEBAN012; private m_sBEBAN012 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sBEBAN022 m_sBEBAN022 EDKB12WS.edokadb.clsPartner.m_sBEBAN022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F7 Private m_sBEBAN022 As SqlString private SqlString m_sBEBAN022 private: SqlString m_sBEBAN022; private m_sBEBAN022 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sBEBAN21 m_sBEBAN21 EDKB12WS.edokadb.clsPartner.m_sBEBAN21 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002EC Private m_sBEBAN21 As SqlString private SqlString m_sBEBAN21 private: SqlString m_sBEBAN21; private m_sBEBAN21 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sBEPGM00 m_sBEPGM00 EDKB12WS.edokadb.clsPartner.m_sBEPGM00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FC Private m_sBEPGM00 As SqlString private SqlString m_sBEPGM00 private: SqlString m_sBEPGM00; private m_sBEPGM00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sBKPAR00 m_sBKPAR00 EDKB12WS.edokadb.clsPartner.m_sBKPAR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F6 Private m_sBKPAR00 As SqlString private SqlString m_sBKPAR00 private: SqlString m_sBKPAR00; private m_sBKPAR00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sCDBAL00 m_sCDBAL00 EDKB12WS.edokadb.clsPartner.m_sCDBAL00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F4 Private m_sCDBAL00 As SqlString private SqlString m_sCDBAL00 private: SqlString m_sCDBAL00; private m_sCDBAL00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sCDBNK00 m_sCDBNK00 EDKB12WS.edokadb.clsPartner.m_sCDBNK00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F9 Private m_sCDBNK00 As SqlString private SqlString m_sCDBNK00 private: SqlString m_sCDBNK00; private m_sCDBNK00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sCDVIG00 m_sCDVIG00 EDKB12WS.edokadb.clsPartner.m_sCDVIG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F3 Private m_sCDVIG00 As SqlString private SqlString m_sCDVIG00 private: SqlString m_sCDVIG00; private m_sCDVIG00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sDMMSG00 m_sDMMSG00 EDKB12WS.edokadb.clsPartner.m_sDMMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FA Private m_sDMMSG00 As SqlString private SqlString m_sDMMSG00 private: SqlString m_sDMMSG00; private m_sDMMSG00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sIDMSG00 m_sIDMSG00 EDKB12WS.edokadb.clsPartner.m_sIDMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FB Private m_sIDMSG00 As SqlString private SqlString m_sIDMSG00 private: SqlString m_sIDMSG00; private m_sIDMSG00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sNRADR00 m_sNRADR00 EDKB12WS.edokadb.clsPartner.m_sNRADR00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000302 Private m_sNRADR00 As SqlString private SqlString m_sNRADR00 private: SqlString m_sNRADR00; private m_sNRADR00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sNRFOG011 m_sNRFOG011 EDKB12WS.edokadb.clsPartner.m_sNRFOG011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000301 Private m_sNRFOG011 As SqlString private SqlString m_sNRFOG011 private: SqlString m_sNRFOG011; private m_sNRFOG011 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sNRFOG022 m_sNRFOG022 EDKB12WS.edokadb.clsPartner.m_sNRFOG022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F8 Private m_sNRFOG022 As SqlString private SqlString m_sNRFOG022 private: SqlString m_sNRFOG022; private m_sNRFOG022 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sNRFOG21 m_sNRFOG21 EDKB12WS.edokadb.clsPartner.m_sNRFOG21 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E9 Private m_sNRFOG21 As SqlString private SqlString m_sNRFOG21 private: SqlString m_sNRFOG21; private m_sNRFOG21 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sNRPARAD m_sNRPARAD EDKB12WS.edokadb.clsPartner.m_sNRPARAD EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FF Private m_sNRPARAD As SqlString private SqlString m_sNRPARAD private: SqlString m_sNRPARAD; private m_sNRPARAD : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sSAVRS00 m_sSAVRS00 EDKB12WS.edokadb.clsPartner.m_sSAVRS00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002EE Private m_sSAVRS00 As SqlString private SqlString m_sSAVRS00 private: SqlString m_sSAVRS00; private m_sSAVRS00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTSMUT00 m_sTSMUT00 EDKB12WS.edokadb.clsPartner.m_sTSMUT00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002ED Private m_sTSMUT00 As SqlString private SqlString m_sTSMUT00 private: SqlString m_sTSMUT00; private m_sTSMUT00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ011 m_sTXADZ011 EDKB12WS.edokadb.clsPartner.m_sTXADZ011 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002EB Private m_sTXADZ011 As SqlString private SqlString m_sTXADZ011 private: SqlString m_sTXADZ011; private m_sTXADZ011 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ012 m_sTXADZ012 EDKB12WS.edokadb.clsPartner.m_sTXADZ012 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FE Private m_sTXADZ012 As SqlString private SqlString m_sTXADZ012 private: SqlString m_sTXADZ012; private m_sTXADZ012 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ021 m_sTXADZ021 EDKB12WS.edokadb.clsPartner.m_sTXADZ021 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E5 Private m_sTXADZ021 As SqlString private SqlString m_sTXADZ021 private: SqlString m_sTXADZ021; private m_sTXADZ021 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ022 m_sTXADZ022 EDKB12WS.edokadb.clsPartner.m_sTXADZ022 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000305 Private m_sTXADZ022 As SqlString private SqlString m_sTXADZ022 private: SqlString m_sTXADZ022; private m_sTXADZ022 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ031 m_sTXADZ031 EDKB12WS.edokadb.clsPartner.m_sTXADZ031 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E6 Private m_sTXADZ031 As SqlString private SqlString m_sTXADZ031 private: SqlString m_sTXADZ031; private m_sTXADZ031 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ032 m_sTXADZ032 EDKB12WS.edokadb.clsPartner.m_sTXADZ032 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000304 Private m_sTXADZ032 As SqlString private SqlString m_sTXADZ032 private: SqlString m_sTXADZ032; private m_sTXADZ032 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ041 m_sTXADZ041 EDKB12WS.edokadb.clsPartner.m_sTXADZ041 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E8 Private m_sTXADZ041 As SqlString private SqlString m_sTXADZ041 private: SqlString m_sTXADZ041; private m_sTXADZ041 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ042 m_sTXADZ042 EDKB12WS.edokadb.clsPartner.m_sTXADZ042 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000307 Private m_sTXADZ042 As SqlString private SqlString m_sTXADZ042 private: SqlString m_sTXADZ042; private m_sTXADZ042 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ051 m_sTXADZ051 EDKB12WS.edokadb.clsPartner.m_sTXADZ051 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002E7 Private m_sTXADZ051 As SqlString private SqlString m_sTXADZ051 private: SqlString m_sTXADZ051; private m_sTXADZ051 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ052 m_sTXADZ052 EDKB12WS.edokadb.clsPartner.m_sTXADZ052 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000306 Private m_sTXADZ052 As SqlString private SqlString m_sTXADZ052 private: SqlString m_sTXADZ052; private m_sTXADZ052 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ061 m_sTXADZ061 EDKB12WS.edokadb.clsPartner.m_sTXADZ061 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F2 Private m_sTXADZ061 As SqlString private SqlString m_sTXADZ061 private: SqlString m_sTXADZ061; private m_sTXADZ061 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ062 m_sTXADZ062 EDKB12WS.edokadb.clsPartner.m_sTXADZ062 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000303 Private m_sTXADZ062 As SqlString private SqlString m_sTXADZ062 private: SqlString m_sTXADZ062; private m_sTXADZ062 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ071 m_sTXADZ071 EDKB12WS.edokadb.clsPartner.m_sTXADZ071 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F1 Private m_sTXADZ071 As SqlString private SqlString m_sTXADZ071 private: SqlString m_sTXADZ071; private m_sTXADZ071 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXADZ072 m_sTXADZ072 EDKB12WS.edokadb.clsPartner.m_sTXADZ072 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000300 Private m_sTXADZ072 As SqlString private SqlString m_sTXADZ072 private: SqlString m_sTXADZ072; private m_sTXADZ072 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sTXRes00 m_sTXRes00 EDKB12WS.edokadb.clsPartner.m_sTXRes00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002EF Private m_sTXRes00 As SqlString private SqlString m_sTXRes00 private: SqlString m_sTXRes00; private m_sTXRes00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sVDMUTER m_sVDMUTER EDKB12WS.edokadb.clsPartner.m_sVDMUTER EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002F0 Private m_sVDMUTER As SqlString private SqlString m_sVDMUTER private: SqlString m_sVDMUTER; private m_sVDMUTER : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString m_sZTMSG00 m_sZTMSG00 EDKB12WS.edokadb.clsPartner.m_sZTMSG00 EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000002FD Private m_sZTMSG00 As SqlString private SqlString m_sZTMSG00 private: SqlString m_sZTMSG00; private m_sZTMSG00 : SqlString Private m_sTXADZ021, m_sTXADZ031, m_sTXADZ051, m_sTXADZ041, m_sNRFOG21, m_sBEBAN011, m_sTXADZ011, m_sBEBAN21, m_sTSMUT00, m_sSAVRS00, m_sTXRes00, m_sVDMUTER, m_sTXADZ071, m_sTXADZ061, m_sCDVIG00, m_sCDBAL00, m_sBEBAN012, m_sBKPAR00, m_sBEBAN022, m_sNRFOG022, m_sCDBNK00, m_sDMMSG00, m_sIDMSG00, m_sBEPGM00, m_sZTMSG00, m_sTXADZ012, m_sNRPARAD, m_sTXADZ072, m_sNRFOG011, m_sNRADR00, m_sTXADZ062, m_sTXADZ032, m_sTXADZ022, m_sTXADZ052, m_sTXADZ042 As SqlString clsStatushistory clsStatushistory EDKB12WS.edokadb.clsStatushistory EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000336 Public Class clsStatushistory Inherits clsDBInteractionBase public class clsStatushistory : clsDBInteractionBase public __gc class clsStatushistory : public clsDBInteractionBase public class clsStatushistory extends clsDBInteractionBase System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectOne ToString Update bAktiv cpMainConnectionProvider daErstellt_am daMutiert_am iErrorCode iMandantnr iMutierer iStatus iStatushistorynr iVerantwortlich sConnectionString sDokumentid clsStatushistory Constructor m_bAktiv m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iErrorCode m_iMandantnr m_iMutierer m_iStatus m_iStatushistorynr m_iVerantwortlich m_sDokumentid m_scoMainConnection clsStatushistory Constructor New EDKB12WS.edokadb.clsStatushistory.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000340 Public Sub New() public clsStatushistory() public: clsStatushistory(); public function clsStatushistory(); Public Sub New() ' // Nothing for now. End Sub clsStatushistory.bAktiv bAktiv EDKB12WS.edokadb.clsStatushistory.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000349 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsStatushistory.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsStatushistory.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034A Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsStatushistory.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsStatushistory.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034B Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsStatushistory.iMandantnr iMandantnr EDKB12WS.edokadb.clsStatushistory.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000348 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsStatushistory.iMutierer iMutierer EDKB12WS.edokadb.clsStatushistory.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034C Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsStatushistory.iStatus iStatus EDKB12WS.edokadb.clsStatushistory.iStatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000347 Public Property iStatus() As SqlInt32 public SqlInt32 iStatus {get; set;} public: SqlInt32 get_iStatus()public: void set_iStatus( SqlInt32) public function get iStatus() : SqlInt32;public function set iStatus(value : SqlInt32); Public Property [iStatus]() As SqlInt32 Get Return m_iStatus End Get Set(ByVal Value As SqlInt32) Dim iStatusTmp As SqlInt32 = Value If iStatusTmp.IsNull Then Throw New ArgumentOutOfRangeException("iStatus", "iStatus can't be NULL") End If m_iStatus = Value End Set End Property clsStatushistory.iStatushistorynr iStatushistorynr EDKB12WS.edokadb.clsStatushistory.iStatushistorynr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000346 Public Property iStatushistorynr() As SqlInt32 public SqlInt32 iStatushistorynr {get; set;} public: SqlInt32 get_iStatushistorynr()public: void set_iStatushistorynr( SqlInt32) public function get iStatushistorynr() : SqlInt32;public function set iStatushistorynr(value : SqlInt32); Public Property [iStatushistorynr]() As SqlInt32 Get Return m_iStatushistorynr End Get Set(ByVal Value As SqlInt32) Dim iStatushistorynrTmp As SqlInt32 = Value If iStatushistorynrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iStatushistorynr", "iStatushistorynr can't be NULL") End If m_iStatushistorynr = Value End Set End Property clsStatushistory.iVerantwortlich iVerantwortlich EDKB12WS.edokadb.clsStatushistory.iVerantwortlich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034E Public Property iVerantwortlich() As SqlInt32 public SqlInt32 iVerantwortlich {get; set;} public: SqlInt32 get_iVerantwortlich()public: void set_iVerantwortlich( SqlInt32) public function get iVerantwortlich() : SqlInt32;public function set iVerantwortlich(value : SqlInt32); Public Property [iVerantwortlich]() As SqlInt32 Get Return m_iVerantwortlich End Get Set(ByVal Value As SqlInt32) m_iVerantwortlich = Value End Set End Property clsStatushistory.sDokumentid sDokumentid EDKB12WS.edokadb.clsStatushistory.sDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034D Public Property sDokumentid() As SqlString public SqlString sDokumentid {get; set;} public: SqlString get_sDokumentid()public: void set_sDokumentid( SqlString) public function get sDokumentid() : SqlString;public function set sDokumentid(value : SqlString); Public Property [sDokumentid]() As SqlString Get Return m_sDokumentid End Get Set(ByVal Value As SqlString) m_sDokumentid = Value End Set End Property clsStatushistory.Delete Delete EDKB12WS.edokadb.clsStatushistory.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000343 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_statushistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsStatushistory::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsStatushistory.Insert Insert EDKB12WS.edokadb.clsStatushistory.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000341 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_statushistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsStatushistory::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsStatushistory.SelectAll SelectAll EDKB12WS.edokadb.clsStatushistory.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000345 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("statushistory") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_statushistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsStatushistory::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsStatushistory.SelectOne SelectOne EDKB12WS.edokadb.clsStatushistory.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000344 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("statushistory") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_statushistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iStatushistorynr = New SqlInt32(CType(dtToReturn.Rows(0)("statushistorynr"), Integer)) m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer)) If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then m_sDokumentid = SqlString.Null Else m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String)) End If If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then m_iVerantwortlich = SqlInt32.Null Else m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsStatushistory::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsStatushistory.Update Update EDKB12WS.edokadb.clsStatushistory.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000342 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_statushistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsStatushistory::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsStatushistory.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000337 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bAktiv As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsStatushistory.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000338 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsStatushistory.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000339 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsStatushistory.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033D Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsStatushistory.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033A Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 m_iStatus m_iStatus EDKB12WS.edokadb.clsStatushistory.m_iStatus EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033E Private m_iStatus As SqlInt32 private SqlInt32 m_iStatus private: SqlInt32 m_iStatus; private m_iStatus : SqlInt32 Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 m_iStatushistorynr m_iStatushistorynr EDKB12WS.edokadb.clsStatushistory.m_iStatushistorynr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033C Private m_iStatushistorynr As SqlInt32 private SqlInt32 m_iStatushistorynr private: SqlInt32 m_iStatushistorynr; private m_iStatushistorynr : SqlInt32 Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 m_iVerantwortlich m_iVerantwortlich EDKB12WS.edokadb.clsStatushistory.m_iVerantwortlich EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033B Private m_iVerantwortlich As SqlInt32 private SqlInt32 m_iVerantwortlich private: SqlInt32 m_iVerantwortlich; private m_iVerantwortlich : SqlInt32 Private m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32 m_sDokumentid m_sDokumentid EDKB12WS.edokadb.clsStatushistory.m_sDokumentid EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000033F Private m_sDokumentid As SqlString private SqlString m_sDokumentid private: SqlString m_sDokumentid; private m_sDokumentid : SqlString Private m_sDokumentid As SqlString clsVorlagenfeld clsVorlagenfeld EDKB12WS.edokadb.clsVorlagenfeld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000034F Public Class clsVorlagenfeld Inherits clsDBInteractionBase public class clsVorlagenfeld : clsDBInteractionBase public __gc class clsVorlagenfeld : public clsDBInteractionBase public class clsVorlagenfeld extends clsDBInteractionBase EDKB12WS.edokadb.clsMyDokumentDaten EDKB12WS.edokadb.clsMyDokumentDaten System.Object EDKB12WS.edokadb.clsDBInteractionBase Delete Dispose Equals Finalize GetHashCode GetType Insert MemberwiseClone ReferenceEquals SelectAll SelectAllWdokumenttypnrLogic SelectAllWvorlagenfeldregelnrLogic SelectOne ToString Update UpdateAllWdokumenttypnrLogic UpdateAllWvorlagenfeldregelnrLogic bAktiv bAusstiegsmakro bEinstiegsmakro cpMainConnectionProvider daErstellt_am daMutiert_am iDokumenttypnr iDokumenttypnrOld iErrorCode iMandantnr iMutierer iVorlagenfeldnr iVorlagenfeldregelnr iVorlagenfeldregelnrOld sBeginntextmarke sConnectionString sEndetextmarke sFeldname sTestdaten clsVorlagenfeld Constructor m_bAktiv m_bAusstiegsmakro m_bEinstiegsmakro m_bMainConnectionIsCreatedLocal m_cpMainConnectionProvider m_daErstellt_am m_daMutiert_am m_iDokumenttypnr m_iDokumenttypnrOld m_iErrorCode m_iMandantnr m_iMutierer m_iVorlagenfeldnr m_iVorlagenfeldregelnr m_iVorlagenfeldregelnrOld m_sBeginntextmarke m_sEndetextmarke m_sFeldname m_sTestdaten m_scoMainConnection clsVorlagenfeld Constructor New EDKB12WS.edokadb.clsVorlagenfeld.New EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000360 Public Sub New() public clsVorlagenfeld() public: clsVorlagenfeld(); public function clsVorlagenfeld(); Public Sub New() ' // Nothing for now. End Sub clsVorlagenfeld.bAktiv bAktiv EDKB12WS.edokadb.clsVorlagenfeld.bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000376 Public Property bAktiv() As SqlBoolean public SqlBoolean bAktiv {get; set;} public: SqlBoolean get_bAktiv()public: void set_bAktiv( SqlBoolean) public function get bAktiv() : SqlBoolean;public function set bAktiv(value : SqlBoolean); Public Property [bAktiv]() As SqlBoolean Get Return m_bAktiv End Get Set(ByVal Value As SqlBoolean) m_bAktiv = Value End Set End Property clsVorlagenfeld.bAusstiegsmakro bAusstiegsmakro EDKB12WS.edokadb.clsVorlagenfeld.bAusstiegsmakro EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000373 Public Property bAusstiegsmakro() As SqlBoolean public SqlBoolean bAusstiegsmakro {get; set;} public: SqlBoolean get_bAusstiegsmakro()public: void set_bAusstiegsmakro( SqlBoolean) public function get bAusstiegsmakro() : SqlBoolean;public function set bAusstiegsmakro(value : SqlBoolean); Public Property [bAusstiegsmakro]() As SqlBoolean Get Return m_bAusstiegsmakro End Get Set(ByVal Value As SqlBoolean) m_bAusstiegsmakro = Value End Set End Property clsVorlagenfeld.bEinstiegsmakro bEinstiegsmakro EDKB12WS.edokadb.clsVorlagenfeld.bEinstiegsmakro EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000372 Public Property bEinstiegsmakro() As SqlBoolean public SqlBoolean bEinstiegsmakro {get; set;} public: SqlBoolean get_bEinstiegsmakro()public: void set_bEinstiegsmakro( SqlBoolean) public function get bEinstiegsmakro() : SqlBoolean;public function set bEinstiegsmakro(value : SqlBoolean); Public Property [bEinstiegsmakro]() As SqlBoolean Get Return m_bEinstiegsmakro End Get Set(ByVal Value As SqlBoolean) m_bEinstiegsmakro = Value End Set End Property clsVorlagenfeld.daErstellt_am daErstellt_am EDKB12WS.edokadb.clsVorlagenfeld.daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000377 Public Property daErstellt_am() As SqlDateTime public SqlDateTime daErstellt_am {get; set;} public: SqlDateTime get_daErstellt_am()public: void set_daErstellt_am( SqlDateTime) public function get daErstellt_am() : SqlDateTime;public function set daErstellt_am(value : SqlDateTime); Public Property [daErstellt_am]() As SqlDateTime Get Return m_daErstellt_am End Get Set(ByVal Value As SqlDateTime) m_daErstellt_am = Value End Set End Property clsVorlagenfeld.daMutiert_am daMutiert_am EDKB12WS.edokadb.clsVorlagenfeld.daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000378 Public Property daMutiert_am() As SqlDateTime public SqlDateTime daMutiert_am {get; set;} public: SqlDateTime get_daMutiert_am()public: void set_daMutiert_am( SqlDateTime) public function get daMutiert_am() : SqlDateTime;public function set daMutiert_am(value : SqlDateTime); Public Property [daMutiert_am]() As SqlDateTime Get Return m_daMutiert_am End Get Set(ByVal Value As SqlDateTime) m_daMutiert_am = Value End Set End Property clsVorlagenfeld.iDokumenttypnr iDokumenttypnr EDKB12WS.edokadb.clsVorlagenfeld.iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036B Public Property iDokumenttypnr() As SqlInt32 public SqlInt32 iDokumenttypnr {get; set;} public: SqlInt32 get_iDokumenttypnr()public: void set_iDokumenttypnr( SqlInt32) public function get iDokumenttypnr() : SqlInt32;public function set iDokumenttypnr(value : SqlInt32); Public Property [iDokumenttypnr]() As SqlInt32 Get Return m_iDokumenttypnr End Get Set(ByVal Value As SqlInt32) m_iDokumenttypnr = Value End Set End Property clsVorlagenfeld.iDokumenttypnrOld iDokumenttypnrOld EDKB12WS.edokadb.clsVorlagenfeld.iDokumenttypnrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036C Public Property iDokumenttypnrOld() As SqlInt32 public SqlInt32 iDokumenttypnrOld {get; set;} public: SqlInt32 get_iDokumenttypnrOld()public: void set_iDokumenttypnrOld( SqlInt32) public function get iDokumenttypnrOld() : SqlInt32;public function set iDokumenttypnrOld(value : SqlInt32); Public Property [iDokumenttypnrOld]() As SqlInt32 Get Return m_iDokumenttypnrOld End Get Set(ByVal Value As SqlInt32) m_iDokumenttypnrOld = Value End Set End Property clsVorlagenfeld.iMandantnr iMandantnr EDKB12WS.edokadb.clsVorlagenfeld.iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000375 Public Property iMandantnr() As SqlInt32 public SqlInt32 iMandantnr {get; set;} public: SqlInt32 get_iMandantnr()public: void set_iMandantnr( SqlInt32) public function get iMandantnr() : SqlInt32;public function set iMandantnr(value : SqlInt32); Public Property [iMandantnr]() As SqlInt32 Get Return m_iMandantnr End Get Set(ByVal Value As SqlInt32) m_iMandantnr = Value End Set End Property clsVorlagenfeld.iMutierer iMutierer EDKB12WS.edokadb.clsVorlagenfeld.iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000379 Public Property iMutierer() As SqlInt32 public SqlInt32 iMutierer {get; set;} public: SqlInt32 get_iMutierer()public: void set_iMutierer( SqlInt32) public function get iMutierer() : SqlInt32;public function set iMutierer(value : SqlInt32); Public Property [iMutierer]() As SqlInt32 Get Return m_iMutierer End Get Set(ByVal Value As SqlInt32) m_iMutierer = Value End Set End Property clsVorlagenfeld.iVorlagenfeldnr iVorlagenfeldnr EDKB12WS.edokadb.clsVorlagenfeld.iVorlagenfeldnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036A Public Property iVorlagenfeldnr() As SqlInt32 public SqlInt32 iVorlagenfeldnr {get; set;} public: SqlInt32 get_iVorlagenfeldnr()public: void set_iVorlagenfeldnr( SqlInt32) public function get iVorlagenfeldnr() : SqlInt32;public function set iVorlagenfeldnr(value : SqlInt32); Public Property [iVorlagenfeldnr]() As SqlInt32 Get Return m_iVorlagenfeldnr End Get Set(ByVal Value As SqlInt32) Dim iVorlagenfeldnrTmp As SqlInt32 = Value If iVorlagenfeldnrTmp.IsNull Then Throw New ArgumentOutOfRangeException("iVorlagenfeldnr", "iVorlagenfeldnr can't be NULL") End If m_iVorlagenfeldnr = Value End Set End Property clsVorlagenfeld.iVorlagenfeldregelnr iVorlagenfeldregelnr EDKB12WS.edokadb.clsVorlagenfeld.iVorlagenfeldregelnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036D Public Property iVorlagenfeldregelnr() As SqlInt32 public SqlInt32 iVorlagenfeldregelnr {get; set;} public: SqlInt32 get_iVorlagenfeldregelnr()public: void set_iVorlagenfeldregelnr( SqlInt32) public function get iVorlagenfeldregelnr() : SqlInt32;public function set iVorlagenfeldregelnr(value : SqlInt32); Public Property [iVorlagenfeldregelnr]() As SqlInt32 Get Return m_iVorlagenfeldregelnr End Get Set(ByVal Value As SqlInt32) m_iVorlagenfeldregelnr = Value End Set End Property clsVorlagenfeld.iVorlagenfeldregelnrOld iVorlagenfeldregelnrOld EDKB12WS.edokadb.clsVorlagenfeld.iVorlagenfeldregelnrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036E Public Property iVorlagenfeldregelnrOld() As SqlInt32 public SqlInt32 iVorlagenfeldregelnrOld {get; set;} public: SqlInt32 get_iVorlagenfeldregelnrOld()public: void set_iVorlagenfeldregelnrOld( SqlInt32) public function get iVorlagenfeldregelnrOld() : SqlInt32;public function set iVorlagenfeldregelnrOld(value : SqlInt32); Public Property [iVorlagenfeldregelnrOld]() As SqlInt32 Get Return m_iVorlagenfeldregelnrOld End Get Set(ByVal Value As SqlInt32) m_iVorlagenfeldregelnrOld = Value End Set End Property clsVorlagenfeld.sBeginntextmarke sBeginntextmarke EDKB12WS.edokadb.clsVorlagenfeld.sBeginntextmarke EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000370 Public Property sBeginntextmarke() As SqlString public SqlString sBeginntextmarke {get; set;} public: SqlString get_sBeginntextmarke()public: void set_sBeginntextmarke( SqlString) public function get sBeginntextmarke() : SqlString;public function set sBeginntextmarke(value : SqlString); Public Property [sBeginntextmarke]() As SqlString Get Return m_sBeginntextmarke End Get Set(ByVal Value As SqlString) m_sBeginntextmarke = Value End Set End Property clsVorlagenfeld.sEndetextmarke sEndetextmarke EDKB12WS.edokadb.clsVorlagenfeld.sEndetextmarke EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000371 Public Property sEndetextmarke() As SqlString public SqlString sEndetextmarke {get; set;} public: SqlString get_sEndetextmarke()public: void set_sEndetextmarke( SqlString) public function get sEndetextmarke() : SqlString;public function set sEndetextmarke(value : SqlString); Public Property [sEndetextmarke]() As SqlString Get Return m_sEndetextmarke End Get Set(ByVal Value As SqlString) m_sEndetextmarke = Value End Set End Property clsVorlagenfeld.sFeldname sFeldname EDKB12WS.edokadb.clsVorlagenfeld.sFeldname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000036F Public Property sFeldname() As SqlString public SqlString sFeldname {get; set;} public: SqlString get_sFeldname()public: void set_sFeldname( SqlString) public function get sFeldname() : SqlString;public function set sFeldname(value : SqlString); Public Property [sFeldname]() As SqlString Get Return m_sFeldname End Get Set(ByVal Value As SqlString) m_sFeldname = Value End Set End Property clsVorlagenfeld.sTestdaten sTestdaten EDKB12WS.edokadb.clsVorlagenfeld.sTestdaten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000374 Public Property sTestdaten() As SqlString public SqlString sTestdaten {get; set;} public: SqlString get_sTestdaten()public: void set_sTestdaten( SqlString) public function get sTestdaten() : SqlString;public function set sTestdaten(value : SqlString); Public Property [sTestdaten]() As SqlString Get Return m_sTestdaten End Get Set(ByVal Value As SqlString) m_sTestdaten = Value End Set End Property clsVorlagenfeld.Delete Delete EDKB12WS.edokadb.clsVorlagenfeld.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000365 Public Overrides Function Delete() As Boolean public override bool Delete() public: bool Delete(); public function Delete() : boolean; Public Overrides Function Delete() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Delete]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Delete' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::Delete::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsVorlagenfeld.Insert Insert EDKB12WS.edokadb.clsVorlagenfeld.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000361 Public Overrides Function Insert() As Boolean public override bool Insert() public: bool Insert(); public function Insert() : boolean; Overrides Public Function Insert() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Insert]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeginntextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeginntextmarke)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sendetextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEndetextmarke)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beinstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEinstiegsmakro)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusstiegsmakro)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stestdaten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTestdaten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Insert' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::Insert::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsVorlagenfeld.SelectAll SelectAll EDKB12WS.edokadb.clsVorlagenfeld.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000367 Public Overrides Function SelectAll() As DataTable public override DataTable SelectAll() public: DataTable __gc* SelectAll(); public function SelectAll() : DataTable; Public Overrides Function SelectAll() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAll]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::SelectAll::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsVorlagenfeld.SelectAllWdokumenttypnrLogic SelectAllWdokumenttypnrLogic EDKB12WS.edokadb.clsVorlagenfeld.SelectAllWdokumenttypnrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000368 Public Function SelectAllWdokumenttypnrLogic() As DataTable public DataTable SelectAllWdokumenttypnrLogic() public: DataTable __gc* SelectAllWdokumenttypnrLogic(); public function SelectAllWdokumenttypnrLogic() : DataTable; Public Function SelectAllWdokumenttypnrLogic() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAllWdokumenttypnrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAllWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::SelectAllWdokumenttypnrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsVorlagenfeld.SelectAllWvorlagenfeldregelnrLogic SelectAllWvorlagenfeldregelnrLogic EDKB12WS.edokadb.clsVorlagenfeld.SelectAllWvorlagenfeldregelnrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000369 Public Function SelectAllWvorlagenfeldregelnrLogic() As DataTable public DataTable SelectAllWvorlagenfeldregelnrLogic() public: DataTable __gc* SelectAllWvorlagenfeldregelnrLogic(); public function SelectAllWvorlagenfeldregelnrLogic() : DataTable; Public Function SelectAllWvorlagenfeldregelnrLogic() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAllWvorlagenfeldregelnrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAllWvorlagenfeldregelnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::SelectAllWvorlagenfeldregelnrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsVorlagenfeld.SelectOne SelectOne EDKB12WS.edokadb.clsVorlagenfeld.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000366 Public Overrides Function SelectOne() As DataTable public override DataTable SelectOne() public: DataTable __gc* SelectOne(); public function SelectOne() : DataTable; Overrides Public Function SelectOne() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectOne]" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = new DataTable("vorlagenfeld") Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute) ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. sdaAdapter.Fill(dtToReturn) m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString()) End If If dtToReturn.Rows.Count > 0 Then m_iVorlagenfeldnr = New SqlInt32(CType(dtToReturn.Rows(0)("vorlagenfeldnr"), Integer)) If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then m_iDokumenttypnr = SqlInt32.Null Else m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer)) End If If dtToReturn.Rows(0)("vorlagenfeldregelnr") Is System.DBNull.Value Then m_iVorlagenfeldregelnr = SqlInt32.Null Else m_iVorlagenfeldregelnr = New SqlInt32(CType(dtToReturn.Rows(0)("vorlagenfeldregelnr"), Integer)) End If If dtToReturn.Rows(0)("feldname") Is System.DBNull.Value Then m_sFeldname = SqlString.Null Else m_sFeldname = New SqlString(CType(dtToReturn.Rows(0)("feldname"), String)) End If If dtToReturn.Rows(0)("beginntextmarke") Is System.DBNull.Value Then m_sBeginntextmarke = SqlString.Null Else m_sBeginntextmarke = New SqlString(CType(dtToReturn.Rows(0)("beginntextmarke"), String)) End If If dtToReturn.Rows(0)("endetextmarke") Is System.DBNull.Value Then m_sEndetextmarke = SqlString.Null Else m_sEndetextmarke = New SqlString(CType(dtToReturn.Rows(0)("endetextmarke"), String)) End If If dtToReturn.Rows(0)("einstiegsmakro") Is System.DBNull.Value Then m_bEinstiegsmakro = SqlBoolean.Null Else m_bEinstiegsmakro = New SqlBoolean(CType(dtToReturn.Rows(0)("einstiegsmakro"), Boolean)) End If If dtToReturn.Rows(0)("ausstiegsmakro") Is System.DBNull.Value Then m_bAusstiegsmakro = SqlBoolean.Null Else m_bAusstiegsmakro = New SqlBoolean(CType(dtToReturn.Rows(0)("ausstiegsmakro"), Boolean)) End If If dtToReturn.Rows(0)("testdaten") Is System.DBNull.Value Then m_sTestdaten = SqlString.Null Else m_sTestdaten = New SqlString(CType(dtToReturn.Rows(0)("testdaten"), String)) End If If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then m_iMandantnr = SqlInt32.Null Else m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer)) End If If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then m_bAktiv = SqlBoolean.Null Else m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean)) End If If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then m_daErstellt_am = SqlDateTime.Null Else m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date)) End If If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then m_daMutiert_am = SqlDateTime.Null Else m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date)) End If If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then m_iMutierer = SqlInt32.Null Else m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer)) End If End If Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::SelectOne::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function clsVorlagenfeld.Update Update EDKB12WS.edokadb.clsVorlagenfeld.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000362 Public Overrides Function Update() As Boolean public override bool Update() public: bool Update(); public function Update() : boolean; Overrides Public Function Update() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Update]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldname)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeginntextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeginntextmarke)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sendetextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEndetextmarke)) scmCmdToExecute.Parameters.Add(New SqlParameter("@beinstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEinstiegsmakro)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bausstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusstiegsmakro)) scmCmdToExecute.Parameters.Add(New SqlParameter("@stestdaten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTestdaten)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv)) scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am)) scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Update' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::Update::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsVorlagenfeld.UpdateAllWdokumenttypnrLogic UpdateAllWdokumenttypnrLogic EDKB12WS.edokadb.clsVorlagenfeld.UpdateAllWdokumenttypnrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000363 Public Function UpdateAllWdokumenttypnrLogic() As Boolean public bool UpdateAllWdokumenttypnrLogic() public: bool UpdateAllWdokumenttypnrLogic(); public function UpdateAllWdokumenttypnrLogic() : boolean; Public Function UpdateAllWdokumenttypnrLogic() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_UpdateAllWdokumenttypnrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnrOld)) scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_UpdateAllWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::UpdateAllWdokumenttypnrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function clsVorlagenfeld.UpdateAllWvorlagenfeldregelnrLogic UpdateAllWvorlagenfeldregelnrLogic EDKB12WS.edokadb.clsVorlagenfeld.UpdateAllWvorlagenfeldregelnrLogic EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000364 Public Function UpdateAllWvorlagenfeldregelnrLogic() As Boolean public bool UpdateAllWvorlagenfeldregelnrLogic() public: bool UpdateAllWvorlagenfeldregelnrLogic(); public function UpdateAllWvorlagenfeldregelnrLogic() : boolean; Public Function UpdateAllWvorlagenfeldregelnrLogic() As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_UpdateAllWvorlagenfeldregelnrLogic]" scmCmdToExecute.CommandType = CommandType.StoredProcedure ' // Use base class' connection object scmCmdToExecute.Connection = m_scoMainConnection Try scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr)) scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldregelnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnrOld)) scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode)) If m_bMainConnectionIsCreatedLocal Then ' // Open connection. m_scoMainConnection.Open() Else If m_cpMainConnectionProvider.bIsTransactionPending Then scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction End If End If ' // Execute query. scmCmdToExecute.ExecuteNonQuery() m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32)) If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then ' // Throw error. Throw New Exception("Stored Procedure 'pr_vorlagenfeld_UpdateAllWvorlagenfeldregelnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString()) End If Return True Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("clsVorlagenfeld::UpdateAllWvorlagenfeldregelnrLogic::Error occured.", ex) Finally If m_bMainConnectionIsCreatedLocal Then ' // Close connection. m_scoMainConnection.Close() End If scmCmdToExecute.Dispose() End Try End Function m_bAktiv m_bAktiv EDKB12WS.edokadb.clsVorlagenfeld.m_bAktiv EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000352 Private m_bAktiv As SqlBoolean private SqlBoolean m_bAktiv private: SqlBoolean m_bAktiv; private m_bAktiv : SqlBoolean Private m_bEinstiegsmakro, m_bAusstiegsmakro, m_bAktiv As SqlBoolean m_bAusstiegsmakro m_bAusstiegsmakro EDKB12WS.edokadb.clsVorlagenfeld.m_bAusstiegsmakro EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000351 Private m_bAusstiegsmakro As SqlBoolean private SqlBoolean m_bAusstiegsmakro private: SqlBoolean m_bAusstiegsmakro; private m_bAusstiegsmakro : SqlBoolean Private m_bEinstiegsmakro, m_bAusstiegsmakro, m_bAktiv As SqlBoolean m_bEinstiegsmakro m_bEinstiegsmakro EDKB12WS.edokadb.clsVorlagenfeld.m_bEinstiegsmakro EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000350 Private m_bEinstiegsmakro As SqlBoolean private SqlBoolean m_bEinstiegsmakro private: SqlBoolean m_bEinstiegsmakro; private m_bEinstiegsmakro : SqlBoolean Private m_bEinstiegsmakro, m_bAusstiegsmakro, m_bAktiv As SqlBoolean m_daErstellt_am m_daErstellt_am EDKB12WS.edokadb.clsVorlagenfeld.m_daErstellt_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000353 Private m_daErstellt_am As SqlDateTime private SqlDateTime m_daErstellt_am private: SqlDateTime m_daErstellt_am; private m_daErstellt_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_daMutiert_am m_daMutiert_am EDKB12WS.edokadb.clsVorlagenfeld.m_daMutiert_am EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000354 Private m_daMutiert_am As SqlDateTime private SqlDateTime m_daMutiert_am private: SqlDateTime m_daMutiert_am; private m_daMutiert_am : SqlDateTime Private m_daErstellt_am, m_daMutiert_am As SqlDateTime m_iDokumenttypnr m_iDokumenttypnr EDKB12WS.edokadb.clsVorlagenfeld.m_iDokumenttypnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000357 Private m_iDokumenttypnr As SqlInt32 private SqlInt32 m_iDokumenttypnr private: SqlInt32 m_iDokumenttypnr; private m_iDokumenttypnr : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iDokumenttypnrOld m_iDokumenttypnrOld EDKB12WS.edokadb.clsVorlagenfeld.m_iDokumenttypnrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000358 Private m_iDokumenttypnrOld As SqlInt32 private SqlInt32 m_iDokumenttypnrOld private: SqlInt32 m_iDokumenttypnrOld; private m_iDokumenttypnrOld : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iMandantnr m_iMandantnr EDKB12WS.edokadb.clsVorlagenfeld.m_iMandantnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000356 Private m_iMandantnr As SqlInt32 private SqlInt32 m_iMandantnr private: SqlInt32 m_iMandantnr; private m_iMandantnr : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iMutierer m_iMutierer EDKB12WS.edokadb.clsVorlagenfeld.m_iMutierer EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000359 Private m_iMutierer As SqlInt32 private SqlInt32 m_iMutierer private: SqlInt32 m_iMutierer; private m_iMutierer : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iVorlagenfeldnr m_iVorlagenfeldnr EDKB12WS.edokadb.clsVorlagenfeld.m_iVorlagenfeldnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_0000000000000355 Private m_iVorlagenfeldnr As SqlInt32 private SqlInt32 m_iVorlagenfeldnr private: SqlInt32 m_iVorlagenfeldnr; private m_iVorlagenfeldnr : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iVorlagenfeldregelnr m_iVorlagenfeldregelnr EDKB12WS.edokadb.clsVorlagenfeld.m_iVorlagenfeldregelnr EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035A Private m_iVorlagenfeldregelnr As SqlInt32 private SqlInt32 m_iVorlagenfeldregelnr private: SqlInt32 m_iVorlagenfeldregelnr; private m_iVorlagenfeldregelnr : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_iVorlagenfeldregelnrOld m_iVorlagenfeldregelnrOld EDKB12WS.edokadb.clsVorlagenfeld.m_iVorlagenfeldregelnrOld EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035B Private m_iVorlagenfeldregelnrOld As SqlInt32 private SqlInt32 m_iVorlagenfeldregelnrOld private: SqlInt32 m_iVorlagenfeldregelnrOld; private m_iVorlagenfeldregelnrOld : SqlInt32 Private m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32 m_sBeginntextmarke m_sBeginntextmarke EDKB12WS.edokadb.clsVorlagenfeld.m_sBeginntextmarke EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035C Private m_sBeginntextmarke As SqlString private SqlString m_sBeginntextmarke private: SqlString m_sBeginntextmarke; private m_sBeginntextmarke : SqlString Private m_sBeginntextmarke, m_sFeldname, m_sTestdaten, m_sEndetextmarke As SqlString m_sEndetextmarke m_sEndetextmarke EDKB12WS.edokadb.clsVorlagenfeld.m_sEndetextmarke EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035F Private m_sEndetextmarke As SqlString private SqlString m_sEndetextmarke private: SqlString m_sEndetextmarke; private m_sEndetextmarke : SqlString Private m_sBeginntextmarke, m_sFeldname, m_sTestdaten, m_sEndetextmarke As SqlString m_sFeldname m_sFeldname EDKB12WS.edokadb.clsVorlagenfeld.m_sFeldname EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035D Private m_sFeldname As SqlString private SqlString m_sFeldname private: SqlString m_sFeldname; private m_sFeldname : SqlString Private m_sBeginntextmarke, m_sFeldname, m_sTestdaten, m_sEndetextmarke As SqlString m_sTestdaten m_sTestdaten EDKB12WS.edokadb.clsVorlagenfeld.m_sTestdaten EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_000000000000035E Private m_sTestdaten As SqlString private SqlString m_sTestdaten private: SqlString m_sTestdaten; private m_sTestdaten : SqlString Private m_sBeginntextmarke, m_sFeldname, m_sTestdaten, m_sEndetextmarke As SqlString ICommonDBAccess ICommonDBAccess EDKB12WS.edokadb.ICommonDBAccess EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B3 Public Interface ICommonDBAccess public interface ICommonDBAccess public __gc __interface ICommonDBAccess public interface ICommonDBAccess Delete Insert SelectAll SelectOne Update ICommonDBAccess.Delete Delete EDKB12WS.edokadb.ICommonDBAccess.Delete EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B6 Function Delete() As Boolean bool Delete() bool Delete(); function Delete() : boolean; Function Delete() As Boolean ICommonDBAccess.Insert Insert EDKB12WS.edokadb.ICommonDBAccess.Insert EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B4 Function Insert() As Boolean bool Insert() bool Insert(); function Insert() : boolean; Function Insert() As Boolean ICommonDBAccess.SelectAll SelectAll EDKB12WS.edokadb.ICommonDBAccess.SelectAll EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B8 Function SelectAll() As DataTable DataTable SelectAll() DataTable __gc* SelectAll(); function SelectAll() : DataTable; Function SelectAll() As DataTable ICommonDBAccess.SelectOne SelectOne EDKB12WS.edokadb.ICommonDBAccess.SelectOne EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B7 Function SelectOne() As DataTable DataTable SelectOne() DataTable __gc* SelectOne(); function SelectOne() : DataTable; Function SelectOne() As DataTable ICommonDBAccess.Update Update EDKB12WS.edokadb.ICommonDBAccess.Update EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B5 Function Update() As Boolean bool Update() bool Update(); function Update() : boolean; Function Update() As Boolean LLBLError LLBLError EDKB12WS.edokadb.LLBLError EDKB12WS.edokadb EDKB12WS (in EDKB12WS.exe) topic_00000000000000B1 Public Enum LLBLError AllOk ' // Add more here (check the comma's!) End Enum