Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

SDL/Fakturierung/cFakturierung.vb

@@ -2104,6 +2104,7 @@ Public Class cFakturierung
 
         Select Case landKZISO2
             Case "AT" : cc = CountryCodes.AT : easi = ElectronicAddressSchemeIdentifiers.AustriaVatNumber
+            Case "BE" : cc = CountryCodes.BE : easi = ElectronicAddressSchemeIdentifiers.BelgiumVatNumber
             Case "DE" : cc = CountryCodes.DE : easi = ElectronicAddressSchemeIdentifiers.GermanyVatNumber
             Case "TR" : cc = CountryCodes.TR : easi = ElectronicAddressSchemeIdentifiers.TurkeyVatNumber
             Case "GB" : cc = CountryCodes.GB : easi = ElectronicAddressSchemeIdentifiers.UnitedKingdomVatNumber

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -561,7 +561,7 @@ Public Class frmMDM_USTVAntrag
 
             If GET_Antraege IsNot Nothing Then
 
-                Return True
+                'Return True
 
 
                 For Each ANTRAG In GET_Antraege
@@ -580,7 +580,7 @@ Public Class frmMDM_USTVAntrag
                         USTV_POS.UStVPo_Leistungsbezeichnung = "Maut"
                         USTV_POS.UStVPo_Leistender = ANTRAG.plose_Lieferant
                         If ANTRAG.plose_Lieferant = "PLOSE Sistem Service" Then
-                            USTV_POS.UStVPo_Leistender = USTV_POS.UStVPo_Leistender.ToString.Replace("", "PLOSE Sistem Service")
+                            USTV_POS.UStVPo_Leistender = USTV_POS.UStVPo_Leistender 'USTV_POS.UStVPo_Leistender.ToString.Replace("", "PLOSE Sistem Service")
                         End If
 
                         USTV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -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

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