From 71c53390e1a1fe7d56568390f23920da31856e6b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Jun 2025 16:04:03 +0200 Subject: [PATCH 1/5] creditsave-Kundenanlage --- SDL/Creditsafe/usrcntlCreditsafe.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/Creditsafe/usrcntlCreditsafe.vb b/SDL/Creditsafe/usrcntlCreditsafe.vb index ebe97d72..ff77446d 100644 --- 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), From 0098c3cd34a6fdab3b24a32236645968a45febe5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 2 Jun 2025 16:35:02 +0200 Subject: [PATCH 2/5] Mahnung, rptMahnung --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 2 +- SDL/buchhaltung/rptMahnung.Designer.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index fd897314..eb3e2a0e 100644 --- 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 diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb index 5c641913..0cd53888 100644 --- 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 From b2c4576821f04ab7e6947ce2ab25a1537a69ab5d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 3 Jun 2025 09:28:42 +0200 Subject: [PATCH 3/5] Mahnlauf --- SDL/buchhaltung/frmBU_Mahnlauf.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index eb3e2a0e..342ef7f6 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -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 From 3e2b9bbc51a718d1c8cb6e345f546ccd2f89da7d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Jun 2025 09:53:11 +0200 Subject: [PATCH 4/5] Fakt, Email, Nacherfassung, etc. --- SDL/Fakturierung/cFakturierung.vb | 49 +++++++++++++------ SDL/Fakturierung/frmFaktEmail.vb | 5 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 20 +++++--- .../Nacherfassung/frmNacherfassungNEU.vb | 8 ++- 4 files changed, 57 insertions(+), 25 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b162c047..f25809eb 100644 --- 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 @@ -1381,13 +1389,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 @@ -1403,6 +1404,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 @@ -1502,6 +1505,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 @@ -1534,12 +1547,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 @@ -1664,7 +1687,6 @@ Public Class cFakturierung rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) @@ -4128,9 +4150,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 @@ -4146,8 +4165,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 diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 06314457..cbe82201 100644 --- 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 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 779c0152..4574aa54 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -2134,7 +2134,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 +2697,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 +4861,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 +4876,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 diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 7e4a1bda..7c630d9d 100644 --- 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 From d1a13a444a55d59b1f63eacb5762fe14b3c0b394 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Jun 2025 09:59:14 +0200 Subject: [PATCH 5/5] Fakt. --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 4574aa54..1092a3e0 100644 --- 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, "")