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

fremdrechnungen

Browse Source
This commit is contained in:
d.breimaier
2025-04-02 13:48:58 +02:00
parent ff27e4081f
commit aea81f68a7
1 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -1012,21 +1012,35 @@ Public Class usrcntlFremdrechnungen
If Not dgvInitWait Then If Not dgvInitWait Then
Try Try
If dgvLFRechnung.SelectedRows.Count > 0 AndAlso (aktLieferant = "IDS" Or aktLieferant = "ALLE") Then 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 dgvDetails.Visible = True
If Not SplitContainer1.Panel2Collapsed Then If Not SplitContainer1.Panel2Collapsed Then
Select Case aktLieferant Select Case aktLieferant
Case "IDS" : initDGVRechnungsdetails(dgvLFRechnung.SelectedRows(0).Cells("invoice_id").Value) 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) 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 End Select
Else Else
dgvDetails.Visible = False dgvDetails.Visible = False
End If
End If End If
End If
Catch ex As Exception Catch ex As Exception
'Neuer eintrag 'Neuer eintrag
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)