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

fix Rechnungssuche

Browse Source
This commit is contained in:
d.breimaier
2026-08-12 14:25:22 +02:00
parent 2a5f96b7b7
commit 62ca069242
1 changed files with 1 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -542,9 +542,6 @@ Public Class frmRechnungenSuche
Me.Cursor = Cursors.WaitCursor
Dim SQLMitPositionen As String = ""
'cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
If brexitXLS Then
cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource, {"J1:J" & (DataGridView.DataSource.Rows.Count + 2), "L1:M" & (DataGridView.DataSource.Rows.Count + 2)},,,, "£")
@@ -553,7 +550,7 @@ Public Class frmRechnungenSuche
' Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
sqlstr &= "SELECT Rechnungsausgang.RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
" isnull(cast([AbsenderKundenNr] as nvarchar(10)) + ' ','') + [AbsenderName 1] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(10)) + ' ','') + [EmpfängerName 1] as Empfänger, isnull(cast([VermittlerKundenNr] as nvarchar(10)) + ' ','') + [VermittlerName 1] as Vermittler, [LKW Kennzeichen],Sachbearbeiter,[SteuerpflichtigerGesamtbetrag],[SteuerfreierGesamtbetrag] " &
", * FROM [Rechnungsausgang] " & SQLMitPositionen & " WHERE 1=1 "
" FROM [Rechnungsausgang] WHERE 1=1 "
If cbxMitPositionen.Checked Then
sqlstr = " SELECT Rechnungsausgang.RK_ID,[RechnungsNr],cast([RechnungsDatum] as date) RechnungsDatum, Sammelrechnung, [FilialenNr],[AbfertigungsNr],[UnterNr],cast(Abfertigungsdatum as date) Abfertigungsdatum, isnull(cast(RechnungsKundenNr as nvarchar(10)) + ' ','') + [RechnungsName 1] as [RechnungAn], " &
@@ -567,9 +564,6 @@ Public Class frmRechnungenSuche
End If
Me.Cursor = Cursors.Default
'Me.Cursor = Cursors.WaitCursor
''cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
'If brexitXLS Then