Mahnlauf fix, Mitarbeiter, verwahrung, etc.
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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"
|
||||
|
||||
|
||||
Reference in New Issue
Block a user