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

Mahnlauf fix, Mitarbeiter, verwahrung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-17 13:27:13 +02:00
parent 4546af4e35
commit 13e24bb02a
2 changed files with 6 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -374,7 +374,7 @@ Public Class frmBU_Mahnlauf
Dim bemerkungFilter As String = "" Dim bemerkungFilter As String = ""
If bemerkungSrch IsNot Nothing AndAlso bemerkungSrch.Length > 0 Then If bemerkungSrch IsNot Nothing AndAlso bemerkungSrch.Length > 0 Then
bemerkungFilter = " AND (" & bemerkungFilter = " AND ( 1 = 1 " &
String.Join(" OR ", String.Join(" OR ",
bemerkungSrch. bemerkungSrch.
Where(Function(x) Not String.IsNullOrWhiteSpace(x)). Where(Function(x) Not String.IsNullOrWhiteSpace(x)).
@@ -383,7 +383,7 @@ Public Class frmBU_Mahnlauf
Return "c_bemerkung LIKE '" & val & "'" Return "c_bemerkung LIKE '" & val & "'"
End Function) End Function)
) & ) &
") " ") "
End If 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 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 FROM op_debitor OP

16
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -241,18 +241,6 @@ Public Class frmMDMDatenverarbetiung
rpt.DataSource = dt 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 Dim sum = 0
rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
@@ -4222,6 +4210,10 @@ Public Class frmMDMDatenverarbetiung
op.LeistungsNr op.LeistungsNr
ORDER BY ORDER BY
KundeOK,
ProduktOK,
OfferteOK,
LeistungOK,
d.plose_POLSEKundennummer, d.plose_POLSEKundennummer,
d.plose_ProduktCode" d.plose_ProduktCode"