edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-10-20 22:24:56 +02:00
parent 787491cf6b
commit 2d7bb951d2
26 changed files with 1204 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmAvisoWeiterleiten.vb
View File

@@ -103,18 +103,24 @@ Public Class frmAvisoWeiterleiten
Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
Dim text = ""
Dim WeiterleitungTextTV = ""
Dim code = 3
Select Case WLart
Case "T"
text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] gegeben."
WeiterleitungTextTV = bezeichnungFirma & "/" & bezeichnung
Case "A"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
Case "N"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
Case "F"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
Case "B"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
End Select
'Anhänge:
@@ -141,11 +147,11 @@ Public Class frmAvisoWeiterleiten
If Art = "S" Then
ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
If rtbVermerk.Text.Trim <> "" Then ASF.insertSendungsVermerk(SendungsId, AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
Else
ASF.insertVermerkAllg(AvisoId, text, 46)
If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
ASF.AktUebernehmen_Zuruecksetzen(AvisoId)
ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
End If
' Me.Close()