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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-27 17:06:57 +02:00
parent 83ba3c2777
commit a1b3c442d7
2 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/SDL.vbproj
View File

@@ -5009,6 +5009,9 @@
</None> </None>
<None Include="Resources\ambar_boarder1.jpg" /> <None Include="Resources\ambar_boarder1.jpg" />
<None Include="Resources\ambar_boarder.jpg" /> <None Include="Resources\ambar_boarder.jpg" />
<Content Include="Resources\AEO_CS.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\food.png" /> <Content Include="Resources\food.png" />
<None Include="Resources\food1.png" /> <None Include="Resources\food1.png" />
<None Include="Resources\food2.png" /> <None Include="Resources\food2.png" />

7
VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb
View File

@@ -657,12 +657,19 @@ Public Class cSMS
If Me.sms_AvisoId IsNot Nothing AndAlso IsNumeric(Me.sms_AvisoId) Then If Me.sms_AvisoId IsNot Nothing AndAlso IsNumeric(Me.sms_AvisoId) Then
Select Case MSG.Status Select Case MSG.Status
Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
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. 'Keine Übermittlung.
Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1) Dim MaId As Integer = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & Me.sms_AvisoId & "' ", "AVISO", -1)
If MaId > 0 Then 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, "")) 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 If
End Select End Select
End Select
End If End If