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

2025-06-04 10:10:14 +02:00
parent c47adbc7cb d1a13a444a
commit 0b19e15b5e
7 changed files with 69 additions and 31 deletions
--- a/SDL/Creditsafe/usrcntlCreditsafe.vb
+++ b/SDL/Creditsafe/usrcntlCreditsafe.vb
@@ -196,8 +196,8 @@ Public Class usrcntlCreditsafe
        For Each row As DataGridViewRow In dgvCreditsafe.SelectedRows
            comp = New Company(IIf(IsDBNull(row.Cells("name").Value), "", row.Cells("name").Value),
                               IIf(IsDBNull(row.Cells("vatNo").Value), "", row.Cells("vatNo").Value),
-                               IIf(IsDBNull(row.Cells("country").Value), "", row.Cells("country").Value),
-                               IIf(IsDBNull(row.Cells("safeNo").Value), "", row.Cells("safeNo").Value),
+                            (cboLand._value),
+                            IIf(IsDBNull(row.Cells("safeNo").Value), "", row.Cells("safeNo").Value),
                               IIf(IsDBNull(row.Cells("regNo").Value), "", row.Cells("regNo").Value),
                               IIf(IsDBNull(row.Cells("street").Value), "", row.Cells("street").Value),
                               IIf(IsDBNull(row.Cells("city").Value), "", row.Cells("city").Value),
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -420,6 +420,14 @@ Public Class cFakturierung
                            Case "EN" : strText = strText & "The credit amount was offset against the debit order issued." & vbCrLf
                            Case Else : strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf
                        End Select
+                    Else
+                        If RECHNUNG.Firma_ID = 19 Then
+                            Select Case RECHNUNG.RechnungSprache
+                                Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days"
+                                Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage"
+                            End Select
+                        End If
+
                    End If
            End Select

@@ -1415,13 +1423,6 @@ Public Class cFakturierung
                        Case Else : rpt.txtInfo.Text = "*Reverse Charge"
                    End Select

-                    rpt.lblSteuersatz.Visible = False
-                    rpt.lblSteuerbetrag.Visible = False
-                    'rpt.lblSteuerfrei.Visible = False
-                    rpt.lblSteuerfreiGes.Visible = False
-                    rpt.lblZwText.Visible = False
-                    rpt.lblZWSumme.Visible = False
-
                Else

                    Select Case RECHNUNG.RechnungSprache
@@ -1437,6 +1438,8 @@ Public Class cFakturierung



+
+
            rpt.txtAnlagen.Text = ""
            If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1
            If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2
@@ -1536,6 +1539,16 @@ Public Class cFakturierung

            'Dim cnt As Integer = 0

+            If RECHNUNG.Firma_ID = 19 Then
+
+                rpt.lblSteuersatz.Visible = False
+                rpt.lblSteuerbetrag.Visible = False
+                rpt.lblSteuerpflichtigGes.Visible = False
+                rpt.lblSteuerfreiGes.Visible = False
+                rpt.lblZwText.Visible = False
+                rpt.lblZWSumme.Visible = False
+            End If
+
            Dim sumSteuerpflichtig As Double = 0
            Dim sumSteuerfrei As Double = 0

@@ -1568,12 +1581,22 @@ Public Class cFakturierung
                                                              Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month

                                                              If rpt.txtLeistung.Text.Contains("-00") Then
-                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", "-" & MonthStart & MonthEnd)
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & "-" & MonthEnd)
+                                                              ElseIf rpt.txtLeistung.Text.Contains("00-") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & "-" & MonthEnd)
                                                              ElseIf rpt.txtLeistung.Text.Contains("00") Then
-                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & MonthEnd)
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & "-" & MonthEnd)
                                                              End If

-                                                              rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("23", CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              If rpt.txtLeistung.Text.Contains("00/23") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              Else
+                                                                  rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2))
+                                                              End If
+
+
                                                          End If


@@ -1698,7 +1721,6 @@ Public Class cFakturierung
                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)
                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZ>", Now.AddDays(ZZTage).ToShortDateString)
-
                rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+ZZVL>", Now.AddDays(ZZTageVL).ToShortDateString)


@@ -4162,9 +4184,6 @@ Public Class cFakturierung
        If Row("RechnungsOrt") IsNot DBNull.Value AndAlso Row("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsOrt") & vbNewLine
        If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper

-
-
-
        If isMDMRechnungsdruck Then

            If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
@@ -4180,8 +4199,6 @@ Public Class cFakturierung
                rpt.Label2.Text = ""
            End If

-
-
            If Row("Text") IsNot DBNull.Value AndAlso Row("Text") <> "" Then
                rpt.txtInfo.Text &= vbNewLine & vbNewLine & Row("Text")
                rpt.txtVermerk.Text = (If(Row("Text"), "").ToString.Trim & vbNewLine & vbNewLine & If(Row("Notiz"), "").ToString.Trim).ToString.Trim
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -929,7 +929,7 @@ Public Class frmFaktEmail
                    For Each a In ATTACHMENTS
                        If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then
                            myListLiefereranten.Add(a.Pfad)
-                        ElseIf a.Pfad.ToString.Contains("POS-LISTE") Then
+                        ElseIf a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then
                            myListPOSLIST.Add(a.Pfad)
                        Else
                            myList.Add(a.Pfad)
@@ -952,10 +952,11 @@ Public Class frmFaktEmail



-                    If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) AndAlso list2megered Then
+                    If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
                        ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
                        If myListLiefereranten.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_Lieferantenrechnungen, ""))
                        If zielPfadZusammenfassung_POSListe.Count > 0 Then ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung_POSListe, ""))
+
                    End If


--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -201,6 +201,12 @@ Public Class usrCntlFaktAbrechnung

            cboRechnungAn.changeItem(RECHNUNG.Rechnung_an)

+            kdFirmaAbsender._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False)
+            kdFirmaAuftraggeber._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False)
+            kdFirmaAvisierer._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False)
+            kdFirmaEmpfaenger._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False)
+            kdFirmaRechnungAn._displayWoelflKd = IIf(RECHNUNG.Firma_ID = 19, True, False)
+
            If RECHNUNG.RechnungsKundenNr > 0 Then
                kdFirmaRechnungAn.KdNr = RECHNUNG.RechnungsKundenNr
                kdFirmaRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "")
@@ -2134,7 +2140,7 @@ Public Class usrCntlFaktAbrechnung

        Select Case cboRgGS.SelectedIndex
            Case 0 : RECHNUNG.[BelegartenKz] = "AR" : RECHNUNG.[BelegartenNr] = 70 : RECHNUNG.Vorzeichen = "+" : RECHNUNG.BelegartenBez = "Rechnung" : RECHNUNG.Text = cProgramFunctions.isLeerNothing(txtText.Text) : RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
-            Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = ""
+            Case 1 : RECHNUNG.[BelegartenKz] = "AG" : RECHNUNG.[BelegartenNr] = 71 : RECHNUNG.Vorzeichen = "-" : RECHNUNG.BelegartenBez = "Gutschrift" : RECHNUNG.Text = "" : If RECHNUNG.Firma_ID = 19 Then RECHNUNG.TextZZ = cProgramFunctions.isLeerNothing(txtTextZZ.Text)
        End Select

        RECHNUNG.Sammelrechnung = cProgramFunctions.isLeerNothing(cboSammelrechnung._value)
@@ -2697,9 +2703,17 @@ Public Class usrCntlFaktAbrechnung
                                        If curBearbPreis = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen 
                                            If curBearbPreis <> row.Cells("Preis").Value Then row.Cells("Preis").Value = curBGebBetrag / 2
                                        ElseIf curBearbPreis <> curBGebBetrag * 2 AndAlso summeRMCBearb <> curBearbPreis AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso summeRMCBearb > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
-                                            If summeRMCBearb <> row.Cells("Preis").Value Then row.Cells("Preis").Value = summeRMCBearb
+
+                                            If summeRMCBearb <> row.Cells("Preis").Value Then
+                                                If Math.Abs(row.Cells("Preis").Value - summeRMCBearb) > 0.5 Then 'Rundungsdifferenzen ignorieren (weil sonst Deadloop)
+                                                    row.Cells("Preis").Value = summeRMCBearb
+                                                End If
+                                            End If
                                        End If

+
+
+
                                    Else

                                            If minBetragRMCUsed Then
@@ -4853,14 +4867,14 @@ mwst:

                                If isRMCKunde Then
                                    If OFFERT_RMC AndAlso sumRMC <> 0 Then
-                                        r.Cells("Preis").Value = sumRMC * -1
+                                        r.Cells("Preis").Value = sumRMC '* -1
                                    ElseIf OFFERT_FREMD AndAlso sumFremdBeleg <> 0 Then
-                                        r.Cells("Preis").Value = sumFremdBeleg * -1
+                                        r.Cells("Preis").Value = sumFremdBeleg '* -1
                                    End If

                                Else
                                    If sumBelegVZ <> 0 Then
-                                        r.Cells("Preis").Value = sumBelegVZ * -1
+                                        r.Cells("Preis").Value = sumBelegVZ '* -1
                                    Else

                                        Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
@@ -4868,7 +4882,7 @@ mwst:
                                        Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR

                                        If DiffernezbetragEUR <> 0 Then
-                                            r.Cells("Preis").Value = DiffernezbetragEUR * -1
+                                            r.Cells("Preis").Value = DiffernezbetragEUR '* -1
                                        End If

                                    End If
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
@@ -109,8 +109,14 @@ Public Class frmNacherfassungNEU
                cboSachbearbeiter.fillWithSQL("SELECT  ID, Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1  ORDER BY Name ", False, "FMZOLL", True)
            End If

+            Dim enableWoelfl As Boolean = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19, True, False)

-
+            txtEmpfaenger._displayWoelflKd = enableWoelfl
+            txtAuftraggeber._displayWoelflKd = enableWoelfl
+            txtAvisierer._displayWoelflKd = enableWoelfl
+            txtEmpfaenger._displayWoelflKd = enableWoelfl
+            txtEndEmpf._displayWoelflKd = enableWoelfl
+            txtFraechter._displayWoelflKd = enableWoelfl


            If SQL.getValueTxtBySql("SELECT count(*) FROM tblAbfertigungsartenFiliale WHERE Filialennr='" & cboFiliale._value & "'", "FMZOLL") > 0 Then
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -425,7 +425,7 @@ Public Class frmBU_Mahnlauf


            Select Case FIRMA.Firma_ID
-                Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
+                Case 1 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo 'is eh standard
                Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
                Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
                Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
@@ -1332,9 +1332,9 @@ Public Class frmBU_Mahnlauf
                For Each r As DataGridViewRow In MyDatagridview1.SelectedRows


-                    Dim mahnsperre = r.Cells("mahnbar").Value
+                    Dim mahnsperre As Boolean = r.Cells("mahnbar").Value

-                    If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And Not mahnsperre) Then
+                    If Not cbxMahnsperre.Checked Or (cbxMahnsperre.Checked And mahnsperre) Then

                        Dim Konto = r.Cells("Konto").Value
                        Dim FirmaId = cboFirma._value
--- a/SDL/buchhaltung/rptMahnung.Designer.vb
+++ b/SDL/buchhaltung/rptMahnung.Designer.vb
@@ -1251,7 +1251,7 @@ Partial Public Class rptMahnung
        'Picture1
        '
        Me.Picture1.Height = 0.59375!
-        Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
+        'Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
        Me.Picture1.Left = 3.200788!
        Me.Picture1.Name = "Picture1"
        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom