From aea81f68a782f0171dcfffe24a803c1284337986 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 2 Apr 2025 13:48:58 +0200 Subject: [PATCH] fremdrechnungen --- SDL/mdm/usrcntlFremdrechnungen.vb | 28 +++++++++++++++++++++------- 1 file changed, 21 insertions(+), 7 deletions(-) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 768797c1..94318945 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -1012,21 +1012,35 @@ Public Class usrcntlFremdrechnungen If Not dgvInitWait Then Try If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then + + If dgvLFRechnung.SelectedRows.Count = 1 AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value <> "IDS" Then + dgvDetails.Visible = False + Exit Sub + End If + dgvDetails.Visible = True + If Not SplitContainer1.Panel2Collapsed Then - Select Case aktLieferant - Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) - Case "ALLE" : If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) + Select Case aktLieferant + Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) + Case "ALLE" + If dgvLFRechnung.Columns.Contains("Lieferant") AndAlso dgvLFRechnung.SelectedRows(0).Cells("Lieferant").Value = "IDS" Then + initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) + Else + dgvDetails.Visible = False + End If End Select + + Else - dgvDetails.Visible = False + dgvDetails.Visible = False + End If + + End If - - - End If Catch ex As Exception 'Neuer eintrag MsgBox(ex.Message & ex.StackTrace)