Mahnlauf fix, Mitarbeiter, verwahrung, etc.

This commit is contained in:
2026-04-17 13:27:13 +02:00
parent 4546af4e35
commit 13e24bb02a
2 changed files with 6 additions and 14 deletions

View File

@@ -374,7 +374,7 @@ Public Class frmBU_Mahnlauf
Dim bemerkungFilter As String = ""
If bemerkungSrch IsNot Nothing AndAlso bemerkungSrch.Length > 0 Then
bemerkungFilter = " AND (" &
bemerkungFilter = " AND ( 1 = 1 " &
String.Join(" OR ",
bemerkungSrch.
Where(Function(x) Not String.IsNullOrWhiteSpace(x)).
@@ -383,7 +383,7 @@ Public Class frmBU_Mahnlauf
Return "c_bemerkung LIKE '" & val & "'"
End Function)
) &
") "
") "
End If
Dim sqlStr = "SELECT c_urbelegid OP_Typ,d_rechnung Rechnungsdatum,d_netto Faelligkeit,dec_fremdbrutto Rechnungsbetrag,c_bemerkung Bemerkung,dec_fremdzahlung Zahlung,dec_fremdbrutto+dec_fremdzahlung Ausstand,c_waehrung Währung,si_mahnstufe Mahnstufe
FROM op_debitor OP

View File

@@ -241,18 +241,6 @@ Public Class frmMDMDatenverarbetiung
rpt.DataSource = dt
'If cbxProdukt.Checked Then
' rpt.GroupHeader2.DataField = "prod_descr"
'Else
' rpt.GroupHeader2.Visible = False
' rpt.GroupFooter2.Visible = False
'End If
Dim sum = 0
rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
@@ -4222,6 +4210,10 @@ Public Class frmMDMDatenverarbetiung
op.LeistungsNr
ORDER BY
KundeOK,
ProduktOK,
OfferteOK,
LeistungOK,
d.plose_POLSEKundennummer,
d.plose_ProduktCode"