From bcbbf76d311f978e6a599d6916b352ae95ec62fe Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 15:44:31 +0200 Subject: [PATCH] fix dyverarbeitung --- .../frmDYNachrichtenVerarbeitung.vb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 211ce7b..a18a4fc 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -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