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

fix dyverarbeitung

Browse Source
This commit is contained in:
d.breimaier
2026-03-30 15:44:31 +02:00
parent 525148be30
commit bcbbf76d31
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -1550,13 +1550,12 @@ Public Class frmDYNachrichtenVerarbeitung
End If
If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
'If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
' If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
End If
End If
' End If
'End If
'=====ATEZ BEREITSTELLUNG==========
@@ -7997,7 +7996,7 @@ Public Class frmDYNachrichtenVerarbeitung
'Wenn gefunden
If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
Dim statusAVISO As Integer = statusAVISO = CInt(SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1))
' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
Select Case statusAVISO