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

Sendungsopt, Kundendatenblatt

Browse Source
This commit is contained in:
d.breimaier
2025-06-18 13:47:31 +02:00
parent e1fbf34ddf
commit b231c71feb
2 changed files with 71 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/kunden/frmKundenblatt.vb
View File

@@ -2115,10 +2115,10 @@ Public Class frmKundenblatt
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND [VermittlerKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
where = " AND [RechnungsKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
where &= " AND [VermittlerKundenNr] = " & kdNr
where &= " AND [RechnungsKundenNr] = " & kdNr
End If
Dim sqlstr = ""