From ca1b9f657cfec0f531fde3a0916e5add50c44b96 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Dec 2024 17:05:30 +0100 Subject: [PATCH] ustva --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmMDM_USTVAntrag.vb | 6 +++--- SDL/USTV/frmUSTVoffeneAntraege.vb | 26 +++++++++++++------------- 3 files changed, 18 insertions(+), 18 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index e25df88f..945995aa 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 5ce14afd..f90d1b68 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -731,7 +731,7 @@ Public Class frmMDM_USTVAntrag USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID] USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr USTV_POS.UStVPo_ReDat = r.Item("rmc_reDatum") - USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr") + USTV_POS.UStVPo_ReNr = r.Item("rmc_reNr").ToString USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then @@ -861,7 +861,7 @@ Public Class frmMDM_USTVAntrag USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID] USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr USTV_POS.UStVPo_ReDat = r.Item("Rechnungsdatum") - USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer") + USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer").ToString USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then @@ -927,7 +927,7 @@ Public Class frmMDM_USTVAntrag USTV_POS.UStVAn_ID = USTV_ANTRAG.[UStVAn_ID] USTV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr USTV_POS.UStVPo_ReDat = r.Item("Rechnungsdatum") - USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer") + USTV_POS.UStVPo_ReNr = r.Item("Rechnungsnummer").ToString USTV_POS.UStVPo_SchnittstellenNr = bytSchnittstellenNr If Not alreadyExists(USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_LandNr, USTV_POS) Then diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index 7cb60768..8e8506e7 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -85,19 +85,19 @@ Public Class frmUSTVoffeneAntraege Dim sqlwhere = "" If kdnr > 0 Then - sqlwhere &= " and plose_POLSEKundennummer = " & kdnr + sqlwhere &= " and Adressen.AdressenNr = " & kdnr End If - .SET_SQL("select " & top & " plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_Lieferant],[plose_RechnungsDatum],[plose_RechnungsNr],plp_Land, sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details] + .SET_SQL("select " & top & " Adressen.AdressenNr, Adressen.[Name 1] ,[plose_Lieferant],[plose_RechnungsDatum],[plose_RechnungsNr],plp_Land, sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode] - WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwhere & - "group by plose_POLSEKundennummer, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant], plp_Land + WHERE plose_Archiv <> 1 /*AND plose_LieferantCode IN (0,1,7) */ AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwhere & + "group by Adressen.AdressenNr, Adressen.[Name 1] ,[plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant], plp_Land having sum(plose_MWSTBetrag) <>0", "FMZOLL") .LOAD() If .Columns.Count > 0 Then - .Columns("plose_POLSEKundennummer").HeaderText = "KdNr" + .Columns("AdressenNr").HeaderText = "KdNr" .Columns("Name 1").HeaderText = "Kunde" .Columns("plose_Lieferant").HeaderText = "PLOSE-Lieferant" .Columns("plose_RechnungsDatum").HeaderText = "RE-Datum" @@ -448,7 +448,7 @@ Public Class frmUSTVoffeneAntraege 'MsgBox(.sql) Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,tblSteuernummern.UStV as SteuerNr,Lieferant , KdNr, Kundenname, Kundenland, Einreichland from ( select " & top & " 'PLOSE' as Lieferant, - plose_POLSEKundennummer as KdNr, + Adressen.AdressenNr as KdNr, Adressen.[Name 1] as Kundenname, Adressen.LandKz as Kundenland, plp_Land as Einreichland, @@ -457,9 +457,9 @@ Public Class frmUSTVoffeneAntraege FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode] - WHERE plose_Archiv <> 1 AND plose_LieferantCode IN (0,1,7) AND + WHERE plose_Archiv <> 1 /*AND plose_LieferantCode IN (0,1,7) */ AND cast(plose_RechnungsDatum as date) between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' and plose_RechnungsNr is not null " & sqlwherePLOSE & " - group by plose_POLSEKundennummer, Adressen.[Name 1],Adressen.LandKz ,[plose_RechnungsDatum],plp_Land + group by Adressen.AdressenNr, Adressen.[Name 1],Adressen.LandKz ,[plose_RechnungsDatum],plp_Land having sum(plose_MWSTBetrag)<>0 UNION ALL @@ -627,11 +627,11 @@ Public Class frmUSTVoffeneAntraege Sub init() Select Case LIEFERANT.ToString.ToLower - Case "plose" : initDgv_PLOSE(txtmaxAnz.Text, kdNr) - Case "rmc" : initDgv_RMC(txtmaxAnz.Text, kdNr) - Case "mse" : initDgv_MSE(txtmaxAnz.Text, kdNr) - Case "uta" : initDgv_UTA(txtmaxAnz.Text, kdNr) - Case "ids" : initDgv_IDS(txtmaxAnz.Text, kdNr) + Case "plose" : initDgv_PLOSE(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr)) + Case "rmc" : initDgv_RMC(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr)) + Case "mse" : initDgv_MSE(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr)) + Case "uta" : initDgv_UTA(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr)) + Case "ids" : initDgv_IDS(txtmaxAnz.Text, IIf(cbxAlleoffenen.Checked, -1, kdNr)) Case "alle" : initDgv_gesamt(txtmaxAnz.Text, cbxNichtEroeffneteAntraege.Checked, IIf(cbxAlleoffenen.Checked, -1, kdNr)) End Select End Sub