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