ModMain.Send_Message Method EDKB12WS.ModMain.Send_Message Method Send_Message Method topic_00000000000003AB EDKB12WS.ModMain.Send_Message EDKB12WS.ModMain.Send_Message ModMain.Send_Message EDKB12WS.ModMain.ModMain.Send_Message EDKB12WS.ModMain.Send_Message EDKB12WS (in EDKB12WS.exe) ModMain.Send_Message Method EDKB12WS.ModMain topic_00000000000003AB

ModMain.Send_Message Method

Assembly: EDKB12WS (in EDKB12WS.exe)

Visual Basic Private Shared Sub Send_Message( _   ByVal ok As ]]>Booleana]]>]]>, _   ByVal status As ]]>Integera]]>]]> _ ) C# private static ]]>System.Voida]]>]]> Send_Message(   ]]>boola]]>]]> ok,   ]]>inta]]>]]> status ) C++ private: static ]]>System::Voida]]>]]> Send_Message(   ]]>boola]]>]]> ok,   ]]>inta]]>]]> status ) JScript private static function Send_Message(    ok : ]]>booleana]]>]]>,    status : ]]>inta]]>]]> ); Parametersok status

$END-IFNOTEMPTY$

Visual Basic Copy Code ]]> 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

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

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

Reference ModMain Class ModMain ModMain Members