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

SDL/Fakturierung/frmFaktEmail.vb

@@ -325,10 +325,9 @@ Public Class frmFaktEmail
             Dim spracheRechnung As String = "EN" 'Defaultsprache
 
             Select Case RechnungsLandKz
-                Case "TR" : spracheRechnung = RechnungsLandKz
+                Case "TR", "RO", "DE", "SRB" : spracheRechnung = RechnungsLandKz
-                Case "A", "AT", "D", "DE", "CH" : spracheRechnung = "DE"
+                Case "A", "AT", "D", "CH" : spracheRechnung = "DE"
-                Case "RO" : spracheRechnung = "RO"
+                Case "HR", "SLO", "BIH", "MNE", "MK", "MO" : spracheRechnung = "SRB"
-                Case "HR", "SRB", "SLO" : spracheRechnung = "SRB"
             End Select
 
             If listOfTextconserven.LIST.Any(Function(c) c.txt_sprache = spracheRechnung) Then

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2093,16 +2093,16 @@ Public Class frmMDM_USTVAntrag
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        getValue(USTV_ANTRAG)
         USTV_ANTRAG.SAVE()
         If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub
         If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub
 
-        Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr)
+        Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
 
         If spedBuch.hasEntry Then MsgBox("Es existiert bereits ein Speditionsbucheintrag!" & vbNewLine & "Vorgang wird abgebrochen ") : Exit Sub
 
         With spedBuch
-            .UnterNr = 0
             .Abfertigungsdatum = Today()
             .AvisUhrzeit = Now()
             .Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -2111,7 +2111,7 @@ Public Class frmMDM_USTVAntrag
             .Abfertigungsart = 10
             .Abfertigungsanzahl = 1
             .Packstücke = "Mehrwertsteuerrückerstattung " & USTV_ANTRAG.UStVAn_LandKz & " / " & USTV_ANTRAG.UStVAn_ReDatVon & " - " & USTV_ANTRAG.UStVAn_ReDatBis
-            .VermittlerKundenNr = KundenNr
+            .VermittlerKundenNr = USTV_ANTRAG.UStVAn_KuNr
             If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt")
 
         End With

SDL/USTV/ustCntlUSTV_ErstattungPosition .vb

@@ -97,13 +97,13 @@ Public Class ustCntlUSTV_ErstattungPosition
         If txtUSTBetrag.Text <> "" Then
             UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
         Else
-            save = False
+            'save = False
         End If
 
         If txtUSTBetragEUR.Text <> "" Then
             UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
         Else
-            save = False
+            'save = False
         End If
 
         If txtGuDatum.Text <> "" Then
@@ -115,7 +115,7 @@ Public Class ustCntlUSTV_ErstattungPosition
                 UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
             End If
         Else
-            save = False
+            'save = False
         End If
 
         If txtGuDatum.Text <> "" Then

SDL/kunden/usrCntlOfferte.vb

@@ -194,7 +194,7 @@ Public Class usrCntlOfferte
         init(kdNr, isVerag360)
 
         '    sbLeistungAdd.initSearchBox(Me.FindForm, " [Code] ,[LeistungsNr],[LeistungsBez]  FROM [Leistungen]", {"LeistungsNr", "LeistungsBez"}, "  ", "LeistungsNr", "LeistungsNr",  , "FMZOLL", , 400, 200)
-        cboLeistungenAdd.fillWithSQL("SELECT [LeistungsNr],[LeistungsBez]  FROM [Leistungen] ORDER BY LeistungsNr", , "FMZOLL", True)
+        cboLeistungenAdd.fillWithSQL("SELECT [LeistungsNr],Replace([LeistungsBez],'P.P./', '')  FROM [Leistungen] ORDER BY LeistungsNr", , "FMZOLL", True)
 
         checkPermissions()
 
@@ -847,13 +847,15 @@ Public Class usrCntlOfferte
 
                 Dim ExcelBez = "Kostenkalkulation"
 
+                Dim offertenNr As Integer = dtKostenkalk.Rows(0).Item("OffertenNr")
+                If offertenNr = 26 Or offertenNr = 38 Then FIRMA_TMP = "CS"
+
                 Select Case FIRMA_TMP
                     Case "IMEX" : ExcelBez &= "_IMEX "
                     Case "VERAG" : ExcelBez &= "_AG "
                     Case Else : ExcelBez &= " "
                 End Select
 
-
                 With exclApp
                     .Visible = False
 
@@ -863,6 +865,8 @@ Public Class usrCntlOfferte
                             Path = sPath & ExcelBez & kdNr & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
                         End While
 
+
+
                         Select Case FIRMA_TMP
                             Case "IMEX" : My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Kostenkalkulation_IMEX, False)
                             Case "VERAG" : My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Kostenkalkulation_AG, False)
@@ -885,20 +889,32 @@ Public Class usrCntlOfferte
                     Blatt.Range("B8").Value = ADR.Name_1
                     Blatt.Range("B9").Value = ADR.AdressenNr
 
+
                     Blatt.Range("H11").Value = "Tarif für " & Today().Year
 
                     Dim currentRow As Integer = 13
 
-                    Dim dtkeineMdtKostenkalk_mitPreise As DataTable = dtKostenkalk.Select("Preis <> ''", "Preis desc").CopyToDataTable
+                    Dim dtkeineMdtKostenkalk_mitPreise As DataTable = dtKostenkalk.Select("Preis <> ''").CopyToDataTable
+                    dtkeineMdtKostenkalk_mitPreise.Columns.Add("price_new", System.Type.GetType("System.Int32"))
+
+                    Dim DatumDerZollabf As String = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Geändert am")
+
+                    If DatumDerZollabf = "" Then DatumDerZollabf = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Eingegeben am")
+
+                    If IsDate(DatumDerZollabf) Then Blatt.Range("B11").Value = "aktueller Tarif " & CDate(DatumDerZollabf).Year
+
+                    For Each row In dtkeineMdtKostenkalk_mitPreise.Rows
+                        row("price_new") = CDbl(row("Preis"))
+                    Next
+
+                    dtkeineMdtKostenkalk_mitPreise.DefaultView.Sort = "price_new desc"
+                    dtkeineMdtKostenkalk_mitPreise = dtkeineMdtKostenkalk_mitPreise.DefaultView.ToTable
 
                     For Each row In dtkeineMdtKostenkalk_mitPreise.Rows
 
                         Blatt.Range("A" & currentRow).Value = row("LeistungsBez")
                         Blatt.Range("B" & currentRow).Value = CDbl(row("Preis"))
 
-                        Dim DatumDerZollabf As String = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Geändert am")
-
-                        If DatumDerZollabf = "" Then DatumDerZollabf = dtkeineMdtKostenkalk_mitPreise.Rows(0).Item("Eingegeben am")
 
                         If IsDate(DatumDerZollabf) Then
 

SDL/seriendruck/usrCntlFakturierung.vb

@@ -173,6 +173,32 @@ Public Class usrcntlFakturierung
 
         End If
 
+        'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....)
+        'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL")
+
+        ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
+
+        showPic(ok, PictureBox1)
+
+        If Not ok Then Exit Sub
+
+
+        Dim rechnungenMitAbwAbfDat As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
+                        WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL",, 0))
+
+        If rechnungenMitAbwAbfDat > 0 Then
+            Dim res As MsgBoxResult
+            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird autoamtisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
+            Select Case res
+                Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
+                Case MsgBoxResult.No
+                Case MsgBoxResult.Cancel : Exit Sub
+            End Select
+
+
+        End If
+
+
 
         Dim rechnungenMitGesamtmautanhantCSV As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
                         inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID
@@ -200,25 +226,6 @@ Public Class usrcntlFakturierung
         End If
 
 
-
-        'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....)
-        'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL")
-
-        ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
-
-        showPic(ok, PictureBox1)
-
-        If Not ok Then Exit Sub
-
-
-        Dim rechnungenMitAbwAbfDat As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
-                        WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL",, 0))
-
-        If rechnungenMitAbwAbfDat > 0 Then
-            If Not vbYes = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then Exit Sub
-        End If
-
-
         Dim dtREGU As DataTable = SQL.loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, Sum([SteuerpflichtigerGesamtbetrag]+[SteuerfreierGesamtbetrag]) AS Sammelrechnungsbetrag
                                                     FROM Rechnungsausgang
                                                     WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'