From 947a1ad056ff3cbb3daea778b0e1cd11cdee9e03 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 6 May 2024 08:32:54 +0200 Subject: [PATCH] bugifx --- SDL/Fakturierung/frmAbrechnungsMaske.vb | 39 ++++++++++++----------- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 -- 2 files changed, 21 insertions(+), 20 deletions(-) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 1d955b40..d0c6e4a2 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -48,7 +48,6 @@ Public Class frmAbrechnungsMaske If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then FirmaTmp = "VERAGIMEX" End If - FirmaTmp = "AMBAR" MyComboBox2.Items.Clear() @@ -146,19 +145,30 @@ Public Class frmAbrechnungsMaske If Not loaded Then Exit Sub Dim dgv As VERAG_PROG_ALLGEMEIN.MyDatagridview = getDGV() - Dim sqlRechnungsdruck = IIf(Not cbxGutschriftenAnVerag.Checked, ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck ", "") - With dgv Dim sqlstr = "" - ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID" - sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr, UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr" - sqlstr &= sqlRechnungsdruck - sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" + + If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = "24" Then + sqlstr &= " SELECT R1.FilialenNr, R1.AbfertigungsNr, cast(R1.FilialenNr as varchar) + ' ' + cast(R1.AbfertigungsNr as varchar) as PosNr, R1.UnterNr, Firma_ID,R1.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr FROM Rechnungsausgang as R1 INNER JOIN Adressen ON AdressenNr=R1.RechnungsKundenNr inner Join Speditionsbuch on Speditionsbuch.FilialenNr = R1.FilialenNr And Speditionsbuch.AbfertigungsNr = R1.AbfertigungsNr and Speditionsbuch.UnterNr = R1.SpeditionsbuchUnterNr " + sqlstr &= " WHERE 1=1 AND R1.Firma_ID=24 " + sqlstr &= getRGWhere(MyComboBox3._value) + sqlstr &= " and (SELECT COUNT(*) FROM Rechnungsausgang as R2 where" + sqlstr &= " R1.FilialenNr=R2.FilialenNr and R1.AbfertigungsNr=R2.AbfertigungsNr and R1.SpeditionsbuchUnterNr=R2.SpeditionsbuchUnterNr AND RechnungsKundenNr=3013401 and R2.[BelegartenNr]=71)=0" + sqlstr &= " and Speditionsbuch.Abfertigungsart IN (1)" + sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr" + + Else + + ' sqlstr &= " SELECT FilialenNr, AbfertigungsNr, UnterNr, Firma_ID, Status, Sammelrechnung, Sachbearbeiter, SteuerpflichtigerGesamtbetrag, SteuerfreierGesamtbetrag, RechnungsNr, RechnungsDatum, DruckDatumZeit, Buchungsjahr, RK_ID" + sqlstr &= " SELECT FilialenNr, AbfertigungsNr, cast(FilialenNr as varchar) + ' ' + cast(AbfertigungsNr as varchar) as PosNr, UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, RK_ID,RechnungsLandKz,RechnungsKundenNr" + sqlstr &= ",(CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' WHEN Rechnungsdruck=5 THEN 'MAIL+KOPIE' ELSE '-' END) as Rechnungsdruck " + sqlstr &= " FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=Rechnungsausgang.RechnungsKundenNr" sqlstr &= " WHERE 1=1 " sqlstr &= getRGWhere(MyComboBox3._value) ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" sqlstr &= " ORDER BY FilialenNr, AbfertigungsNr, UnterNr " + End If .SET_SQL(sqlstr, "FMZOLL") .LOAD() @@ -195,24 +205,17 @@ Public Class frmAbrechnungsMaske Dim srchSB = "" ' "NÖBAUER ANJA" 'VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME srchSB = MyComboBox2._value + If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" AndAlso cboFirma._value = 24 Then Return sqlstr + Select Case filterSR Case "ER" : sqlstr &= " And Rechnungsausgang.Sammelrechnung IN (0) " Case "SR" : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (0,6) " Case Else : sqlstr &= " And Rechnungsausgang.Sammelrechnung NOT IN (6) " End Select - If cbxGutschriftenAnVerag.Checked AndAlso cboFirma._value <> "" Then - sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & - " EXCEPT - Select Rechnungsausgang.FilialenNr, Rechnungsausgang.AbfertigungsNr, cast(Rechnungsausgang.FilialenNr As varchar) + ' ' + cast(Rechnungsausgang.AbfertigungsNr as varchar) as PosNr, Rechnungsausgang.UnterNr, Firma_ID,Rechnungsausgang.Sammelrechnung as Art, [RechnungsName 1] as Rechnungsempfänger, (isnull(SteuerpflichtigerGesamtbetrag,0) + isnull(SteuerfreierGesamtbetrag,0)) as Betrag, - RK_ID, RechnungsLandKz, RechnungsKundenNr - From Rechnungsausgang - Right Join Speditionsbuch on Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr And Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr - WHERE Rechnungsausgang.Firma_ID = 24 And ((SELECT count(*) FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr = Rechnungsausgang.FilialenNr And Speditionsbuch.AbfertigungsNr = Rechnungsausgang.AbfertigungsNr And Speditionsbuch.Abfertigungsart = 1 And Rechnungsausgang.RechnungsKundenNr = 3013401 And Rechnungsausgang.Firma_ID=" & cboFirma._value & ") = 0 And Speditionsbuch.Abfertigungsart = 1 or Speditionsbuch.Abfertigungsart <> 1) " - Else - If cbx.Checked Then + If cbx.Checked Then 'sqlstr &= " AND Status = 0 " sqlstr &= " AND DruckDatumZeit BETWEEN '" & txtAbfertDat._value & " 00:00:00' AND '" & txtAbfertDatBis._value & " 23:59:59'" @@ -232,7 +235,7 @@ Public Class frmAbrechnungsMaske End If If srchSB <> "" Then sqlstr &= " And Rechnungsausgang.Sachbearbeiter='" & srchSB & "' " If cboFirma._value <> "" Then sqlstr &= " AND Rechnungsausgang.Firma_ID=" & cboFirma._value & " " - End If + ' sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)" diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 5552955f..6928ab96 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -539,8 +539,6 @@ Public Class usrCntlFaktAbrechnung FirmaTmp = "VERAGIMEX" End If - FirmaTmp = "AMBAR" - Select Case FirmaTmp Case "VERAG" If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then