From 057b73b6bd70ecabafc3b08e9be018a26f7f70f3 Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Tue, 8 Oct 2024 13:46:49 +0200 Subject: [PATCH] Sammelrechnungen drucken ansicht mit Summe --- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 86ed9321..344a0a46 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -59,7 +59,7 @@ Public Class frmFaktSammelRgDrucken Dim whereAbfArt = "" If cboAbfertigungsart._value <> "" Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "' " - Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " + Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl, SUM(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Summe" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " ,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "' @@ -74,6 +74,9 @@ Public Class frmFaktSammelRgDrucken .Columns("RechnungsKundenNr").Width = 120 .Columns("RechnungsKundenNr").HeaderText = "KundenNr" .Columns("RechnungsName 1").HeaderText = "Firma" + .Columns("Summe").HeaderText = "Summe" + .Columns("Summe").DefaultCellStyle.Format = "#,##0.00 €" + .Columns("Summe").Width = 80 .Columns("RechnungsLandKz").Visible = False .Columns("Anzahl").Width = 42 .Columns("Rechnungsdruck").Width = 80 @@ -81,7 +84,7 @@ Public Class frmFaktSammelRgDrucken .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(2).Visible = False - If .Columns.Count = 7 Then + If .Columns.Count = 8 Then .Columns("LKW").Width = 80 End If