From a1b3c442d7c1f4e34a2599b2b76f4202de14c740 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Tue, 27 May 2025 17:06:57 +0200
Subject: [PATCH] vers

---
 SDL/SDL.vbproj                       |  3 +++
 VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb | 19 +++++++++++++------
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index acb77eb5..0a598180 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -5009,6 +5009,9 @@
     </None>
     <None Include="Resources\ambar_boarder1.jpg" />
     <None Include="Resources\ambar_boarder.jpg" />
+    <Content Include="Resources\AEO_CS.jpg">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </Content>
     <Content Include="Resources\food.png" />
     <None Include="Resources\food1.png" />
     <None Include="Resources\food2.png" />
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
index e4400c7b..f934a4bc 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
@@ -657,12 +657,19 @@ Public Class cSMS
                     If Me.sms_AvisoId IsNot Nothing AndAlso IsNumeric(Me.sms_AvisoId) Then
                     Select Case MSG.Status
                         Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
-                                'Keine Übermittlung.
-                                Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
-                                If MaId > 0 Then
-                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*SMS Fehler*", 0, "", "Fehler bei der SMS Übermittlung: " & If(Me.sms_Failure, ""))
-                                End If
-                    End Select
+                                Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
+
+                                Select Case statusAVISO
+                                    Case -1, VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
+                                        'Nicht
+                                    Case Else
+                                        'Keine Übermittlung.
+                                        Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
+                                        If MaId > 0 Then
+                                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(Me.sms_AvisoId, Nothing, 3, "B", MaId, "*SMS Fehler*", 0, "", "Fehler bei der SMS Übermittlung: " & If(Me.sms_Failure, ""))
+                                        End If
+                                End Select
+                        End Select
 
                 End If