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

eAVISO ANpassung, Banchrichtigungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:07:05 +01:00
parent a94373cda8
commit f77a8b16d7
6 changed files with 200 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -1,4 +1,5 @@
Imports DAKOSY_Worker.SumAErledigungsinformationVorpapier
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlBenachrichtigungen
Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -269,13 +270,23 @@ Public Class usrCntlBenachrichtigungen
Case Else 'Weiterleitung Akt/Snd
If AB.BESTAETIGEN_BENACHRICHTIGUNG Then
'Übermehmen
If AB.ab_Art = "A" Then
If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
Else
If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
End If
Select Case AB.ab_BenachrichtigungCode
Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.Vorauskasse_OK
AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'Vorauskasse OK' bestätigt.", 46)
'Akt nicht übernehmen
Case VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
AvisoStatusFunctions.insertSendungsVermerk(AB.ab_SendungID, AB.ab_AvisoID, "Benachrichtigung 'ZOLL:Dokumentenbeschau' bestätigt.", 46)
'Akt nicht übernehmen
Case Else
'Weiterleitung --> Übermehmen
If AB.ab_Art = "A" Then
If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, False) Then Exit Sub
' If Not ASF.AktUebernehmen(AB.ab_AvisoID, False, False, True) Then Exit Sub
Else
If Not ASF.SendungUebernehmen(AB.ab_SendungID, AB.ab_AvisoID) Then Exit Sub
End If
End Select
'VERMERK inserieren
'insertSendungsVermerk(SendungID, myAviso.AvisoID, "In die Neukunden-Abteilung gegeben.", 46)
Dim f As New frmAvisoWeiterleitenBestaetigen(AB)