From 4da7d188d1fdbfc012b5834c31ef29e0cf7d0d91 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 8 Jan 2026 17:15:49 +0100 Subject: [PATCH 1/4] fix, --- SDL/Fakturierung/cFakturierung.vb | 29 ++++++------ SDL/Fakturierung/frmAbrechnungsMaske.vb | 16 ++++--- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 18 +++++--- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/mdm/frmMDMDatenverarbetiung.vb | 18 ++++---- .../usrCntlFakturierung.Designer.vb | 15 +++++++ SDL/seriendruck/usrCntlFakturierung.vb | 28 ++++++++++-- .../Classes/cAufschubKonten.vb | 44 ++++++++++++++----- VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb | 5 +++ VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 4 ++ VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb | 4 ++ .../Schnittstellen/MSE/cMSEAPI.vb | 4 ++ 12 files changed, 138 insertions(+), 51 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index b58ca9f6..9d556031 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -5350,19 +5350,22 @@ Public Class cFakturierung Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR") Select Case Row("RechnungSprache") - Case "EN" - Select Case BelegartenKz - Case "AR" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") - rpt.lblSummeUeberschrift.Text = "Invoice Amount:" - rpt.lblRgNrUeberschrift.Text = "Invoice No.:" - rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" - Case "AG" - rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") - rpt.lblSummeUeberschrift.Text = "Credit Amount:" - rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" - rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" - End Select + + 'Mehrsprachigkeit bei Sammelrechnung vorerst deaktivieren!!!! + + 'Case "EN" + ' Select Case BelegartenKz + ' Case "AR" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE") + ' rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + ' Case "AG" + ' rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE") + ' rpt.lblSummeUeberschrift.Text = "Credit Amount:" + ' rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + ' rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + ' End Select Case Else Select Case BelegartenKz Case "AR" diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index ed523ec6..63b989a4 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -1,5 +1,4 @@ Imports System.IO -Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util Imports Microsoft.Office.Interop Public Class frmAbrechnungsMaske @@ -80,8 +79,8 @@ Public Class frmAbrechnungsMaske cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") cboFirma.changeItem("1") cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True) - cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK")) - cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL")) + 'cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK")) + 'cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL")) Else @@ -330,10 +329,15 @@ Public Class frmAbrechnungsMaske If sender Is cboER_SR Then - lblKunde.Visible = cboER_SR._value = "MSR" - KdSearchBox1.Visible = cboER_SR._value = "MSR" + lblKunde.Visible = True 'cboER_SR._value = "MSR" + KdSearchBox1.Visible = True 'cboER_SR._value = "MSR" - If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then + 'If KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" Then 'KdSearchBox1.KdNr_value > 0 AndAlso cboER_SR._value <> "MSR" + ' KdSearchBox1.KdNr_value = -1 + + 'End If + + If KdSearchBox1.KdNr_value > 0 Then KdSearchBox1.KdNr_value = -1 End If diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index db8dd1fa..1247dbb6 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -103,15 +103,21 @@ Else - Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") - For Each rg As DataRow In dtTemp.Rows - dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) - Next + If RECHNUNG.BelegartenKz <> "AG" Then + + Dim dtTemp As DataTable + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and RIGHT('00000' + CAST(id AS VARCHAR(5)), 5) +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") + + For Each rg As DataRow In dtTemp.Rows + dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) + Next + Else + dt.Rows.Add("0", "", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "") + + End If End If - End If diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c79d8453..9b1d6528 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/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index e8ce3c51..52b5930c 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1280,7 +1280,7 @@ Public Class frmMDMDatenverarbetiung Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim verarbOK = IIf(test, False, True) - Dim RECHNUNG As cRechnungsausgang = Nothing + Dim RECHNUNG As New cRechnungsausgang(4823, 25015595) If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA",,,, datPloseAnhang.Value) Then verarbOK = False @@ -3884,10 +3884,10 @@ Public Class frmMDMDatenverarbetiung If dictPloseKunden.TryGetValue(ploseKunde, rowKd) Then r.Cells("VERAGKdNr").Value = rowKd("PLOSEKundenNr") VERAGKdNr = CInt(rowKd("AdressenNr")) - r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream + 'r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream Else pruefData_PLOSE = False - r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip + 'r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip End If 'Produkt lookup @@ -3895,20 +3895,20 @@ Public Class frmMDMDatenverarbetiung If dictProdukt.TryGetValue(produktCode, rowProdukt) Then VERAGLeistungsNr = CInt(rowProdukt("plp_LeistungsNr")) r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr - r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream + 'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream Else pruefData_PLOSE = False - r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip + 'r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip End If 'Offerte 80 lookup Dim offered80 As Object = Nothing If dictOfferte.TryGetValue(VERAGKdNr.ToString(), offered80) Then r.Cells("KundeOffertenNr").Value = offered80 - r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream + 'r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream Else pruefData_PLOSE = False - r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip + 'r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip End If 'Leistung lookup @@ -3917,10 +3917,10 @@ Public Class frmMDMDatenverarbetiung setLeist.Contains(VERAGLeistungsNr.ToString()) Then r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr - r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream + 'r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream Else pruefData_PLOSE = False - r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip + 'r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip End If 'UI update alle 100 Zeilen statt 5 diff --git a/SDL/seriendruck/usrCntlFakturierung.Designer.vb b/SDL/seriendruck/usrCntlFakturierung.Designer.vb index f67d89e3..35d510b3 100644 --- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb +++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb @@ -99,6 +99,7 @@ Partial Class usrcntlFakturierung Me.btnRePos = New System.Windows.Forms.Button() Me.Validation1 = New SDL.EORI.validation() Me.btnWikiStatusmails = New System.Windows.Forms.Button() + Me.btnRE_Text = New System.Windows.Forms.Button() Me.GroupBox1.SuspendLayout() Me.GBMautberichte.SuspendLayout() CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit() @@ -343,6 +344,7 @@ Partial Class usrcntlFakturierung ' 'GBSammelrechnung ' + Me.GBSammelrechnung.Controls.Add(Me.btnRE_Text) Me.GBSammelrechnung.Controls.Add(Me.btnFixeTaxe) Me.GBSammelrechnung.Controls.Add(Me.Label11) Me.GBSammelrechnung.Controls.Add(Me.PictureBox6) @@ -941,6 +943,18 @@ Partial Class usrcntlFakturierung Me.btnWikiStatusmails.TabIndex = 72 Me.btnWikiStatusmails.UseVisualStyleBackColor = True ' + 'btnRE_Text + ' + Me.btnRE_Text.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRE_Text.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnRE_Text.Location = New System.Drawing.Point(744, 223) + Me.btnRE_Text.Name = "btnRE_Text" + Me.btnRE_Text.Size = New System.Drawing.Size(107, 32) + Me.btnRE_Text.TabIndex = 127 + Me.btnRE_Text.Text = "RE-Text setzen" + Me.btnRE_Text.UseVisualStyleBackColor = True + Me.btnRE_Text.Visible = False + ' 'usrcntlFakturierung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1050,4 +1064,5 @@ Partial Class usrcntlFakturierung Friend WithEvents Label11 As Label Friend WithEvents PictureBox6 As PictureBox Friend WithEvents btnFixeTaxe As Button + Friend WithEvents btnRE_Text As Button End Class diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index 57c44e47..b4ccc6be 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -86,6 +86,8 @@ Public Class usrcntlFakturierung If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then Button2.Visible = True Button3.Visible = True + btnRE_Text.Visible = True + End If @@ -179,8 +181,9 @@ Public Class usrcntlFakturierung '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") + Dim vergangAbfertigunsdatuminMontaen As Integer = -12 - ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL") + ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, " & vergangAbfertigunsdatuminMontaen & ", GETDATE())", "FMZOLL") showPic(ok, PictureBox1) @@ -192,7 +195,7 @@ Public Class usrcntlFakturierung 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 automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel) + res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt (nur die letzten " & Math.Abs(vergangAbfertigunsdatuminMontaen) & " Monate ab heute) ?", 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 @@ -681,7 +684,7 @@ Public Class usrcntlFakturierung End Function - Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable) As Boolean + Private Function setRechnungstext(Sachbearbeiter As String, rechnungsdatum As Date, ByRef sammelRechnungen As DataTable, Optional setTextifNull As Boolean = False) As Boolean Dim varText As String = "" Dim varNettozahlungsziel As Integer = 0 @@ -692,7 +695,7 @@ Public Class usrcntlFakturierung Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text] FROM Rechnungsausgang - WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' + WHERE " & IIf(setTextifNull, "[Status] = 4 AND Text is null", "[Status] = 0") & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL") Try @@ -2217,5 +2220,22 @@ Public Class usrcntlFakturierung Process.Start(webAddress) End Sub + Private Sub btnRE_Text_Click(sender As Object, e As EventArgs) Handles btnRE_Text.Click + Dim Sachbearbeiter = cboSachbearbeiter._value + Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text) + Dim dtSammelrechnungen As New DataTable + + Dim setText As Boolean = False + + Dim res As MsgBoxResult + res = MsgBox("Möchten Sie den Rechnungstext für bereits gedruckte Rechnungen setzen (WENN TEXT = NULL)?" & vbNewLine & "JA -> nur bei Text = NULL und STATUS = 4" & vbNewLine & "NEIN -> Text bei STATUS = 0" & vbNewLine & "ABBRUCH ->NICHTS MACHEN", vbYesNoCancel) + Select Case res + Case MsgBoxResult.Yes : setText = True + Case MsgBoxResult.No : setText = False + Case MsgBoxResult.Cancel : Exit Sub + End Select + + showPic(setRechnungstext(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen, setText), PictureBox3) + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb index ae506f4d..da09402f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb @@ -173,7 +173,18 @@ Public Class cAufschubKonten Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN") End Function - Public Function CalcSaldo(Optional dtDate As DataTable = Nothing) As String + Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String + + + Dim StichtagSQLGesamtsicherheit = "" + Dim StichtagSQLGesamtsicherheitsPositionen = "" + If Stichtag.HasValue Then + StichtagSQLGesamtsicherheitsPositionen = " And cast(gsp_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'" + StichtagSQLGesamtsicherheit = " AND cast(gs_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'" + + End If + + Dim SaldoString As String = "select @@ -184,24 +195,35 @@ Public Class cAufschubKonten when gs_art = 'Close' then gs_sicherheitsbetrag end) - as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+ + as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+ (select SUM( case when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1) when gsp_art = 'Close' then gsp_sicherheitsbetrag end) - as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' And ISNULL(gs_ReferenzAenderung,0) = 0 ))" + as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")" Dim dt As New DataTable - Dim mrn As Double = 0 - dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) - If dt.Rows(0).Item(0).ToString.Length > 0 Then - mrn = dt.Rows(0).Item(0) - End If + Dim mrn As Double = 0 + dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True) + If dt.Rows(0).Item(0).ToString.Length > 0 Then + mrn = dt.Rows(0).Item(0) + End If + + If Stichtag.HasValue Then + brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!! + brgakto_gs_aktSaldo += mrn + MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2")) + Else + brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge.... + brgakto_gs_aktSaldo += mrn + updateSaldo() + End If + + + - brgakto_gs_aktSaldo = getReferenzbetrag(Today) + mrn - updateSaldo() Return brgakto_gs_aktSaldo @@ -211,7 +233,7 @@ Public Class cAufschubKonten Try - Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And [brgarefb_gueltig_ab] <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) + Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb index 0bab0efb..24bb9446 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb @@ -3,6 +3,7 @@ Imports System.Data.SqlClient Imports System.IO Imports System.Net Imports System.Reflection +Imports DocumentFormat.OpenXml.Office2016.Drawing.ChartDrawing Public Class cIDS @@ -632,6 +633,10 @@ Public Class cIDS End Function + Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer + Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblIDSInvoicesNewSplittedByCountry] where InvToCustomer Is null ", "FMZOLL",,, -1) + End Function + Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index 5eb450ef..61f06c3a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -278,6 +278,10 @@ Public Class cRMC End Function + Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer + Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblRMCImport] where InvToCustomer Is null ", "FMZOLL",,, -1) + End Function + Public Class Paramter Shared apiSettingsloaded As Boolean = False diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb index 0d469f64..97ab017b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb @@ -41,6 +41,10 @@ Public Class cUTA End Function + Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer + Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblUTAImportNew] where InvToCustomer Is null ", "FMZOLL",,, -1) + End Function + Public Class UTAHeader Property Übertragungsnummer As Integer diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index d357d093..889b36d7 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -67,6 +67,10 @@ Public Class cMSEAPI End Function + Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer + Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblMSEInvoices] where InvToCustomer Is null ", "FMZOLL",,, -1) + End Function + From dc62abfd6428515bb575dfb12dc868b8f6a8d1b3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 9 Jan 2026 17:08:34 +0100 Subject: [PATCH 2/4] Timas, Fakt -> Leihgeldkasse, etc. --- SDL/Classes/cRKSV.vb | 15 ++--- SDL/Fakturierung/frmAbrechnungsMaske.vb | 3 +- .../frmRechnungenSuche.Designer.vb | 55 +++++++++++-------- SDL/Fakturierung/frmRechnungenSuche.vb | 29 ++++++++++ SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/usrCntlBH.Designer.vb | 2 +- SDL/buchhaltung/usrCntlBH.vb | 5 +- SDL/frmMain.vb | 11 +++- SDL/kassenbuch/frmBelegNeu.vb | 2 +- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 16 ++++-- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 3 + .../frmMitarbeitersuche.Designer.vb | 15 +++++ .../frmMitarbeitersuche.vb | 22 +++++++- .../Schnittstellen/TIMAS/cTimasAPI.vb | 4 +- VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb | 19 ++++++- 16 files changed, 154 insertions(+), 53 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 6ee3618d..1b02d6d6 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2517,22 +2517,19 @@ Public Class cRKSV End Function - Public Shared Property DefaultMandant As Integer = 9 + Public Shared Property DefaultMandant As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 9, 7) Public Shared Property DefaultKassenkonto As Integer = 2700 Public Shared Function CreateSyskaBuchung(RKSV_id As Integer, beleg As EABeleg, KBEntry_list As List(Of cKassenbuch), KBEntryGB_list As List(Of cKassenbuch), KBEntryST_list As List(Of cKassenbuch), typ As String) As Boolean - - If beleg Is Nothing Then Throw New ArgumentNullException(NameOf(beleg)) If Not (beleg.Beleg_TYP = "L" Or beleg.Beleg_TYP = "K") Then Return False End If - If DefaultMandant = 9 Then - MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> TESTMANDANT!") + MsgBox("ACHTUNG, Daten werden in Mandant " & DefaultMandant & " eingespielt -> " & IIf(DefaultMandant = 9, "TESTMANDANT!", "PRODUKTIVMANDANT!")) End If Dim sql As New VERAG_PROG_ALLGEMEIN.SQL() @@ -2589,7 +2586,7 @@ Public Class cRKSV Dim FIBU_YEAR = jahr Dim BelegNrUID As String = "BR" - If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1 + 'If periode = 1 Then FIBU_YEAR = FIBU_YEAR - 1 BelegNrUID &= FIBU_YEAR.ToString.Substring(2, 2) BelegNrUID &= i_beleg_refid.ToString("D5") @@ -2858,9 +2855,9 @@ Public Class cRKSV Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext) If gebucht Then ' logging instead of MsgBox in production - ' MsgBox("GEBUCHT!") + MsgBox("GEBUCHT!") Else - ' MsgBox("NICHT GEBUCHT!") + MsgBox("NICHT GEBUCHT!") End If Return gebucht @@ -2915,7 +2912,7 @@ Public Class cRKSV Private Shared Function GetStapelRefId(sql As VERAG_PROG_ALLGEMEIN.SQL, mandant As Integer) As String Dim v = sql.getValueTxtBySqlVarList("SELECT i_stapel_refid FROM [FIBU2].dbo.fibu_stapelart WHERE c_stapelname Like 'Auszahlungskasse 1' AND i_firm_refid = " & SafeIntToSql(mandant), "FIBU",, "") - Return If(String.IsNullOrWhiteSpace(v), "0000", v) + Return If(String.IsNullOrWhiteSpace(v), "0000", v) End Function Private Shared Function GetNextStapelLfdNr(sql As VERAG_PROG_ALLGEMEIN.SQL, stapelRefId As String, mandant As Integer) As Integer diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 63b989a4..3f7d1fca 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -117,13 +117,14 @@ Public Class frmAbrechnungsMaske If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then whereFirma = " AND FIRMENGRUPPE In ('VERAG','IMEX','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') " End If + cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL")) cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : cboFirma.changeItem("1") Case "IMEX" : cboFirma.changeItem("20") End Select cboSachbearbeiter.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") AND mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) - cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK")) + cboSachbearbeiter.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DANIEL", "DANIEL")) End Select diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index 8e50eaa9..9c9f772d 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -108,6 +108,7 @@ Partial Class frmRechnungenSuche Me.Label17 = New System.Windows.Forms.Label() Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlBerichte = New System.Windows.Forms.Panel() + Me.Button8 = New System.Windows.Forms.Button() Me.MenuStrip2 = New System.Windows.Forms.MenuStrip() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() @@ -139,7 +140,7 @@ Partial Class frmRechnungenSuche Me.pnlTop = New System.Windows.Forms.Panel() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Button8 = New System.Windows.Forms.Button() + Me.RechnungenOhnePositionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -1556,6 +1557,21 @@ Partial Class frmRechnungenSuche Me.pnlBerichte.Size = New System.Drawing.Size(921, 68) Me.pnlBerichte.TabIndex = 6 ' + 'Button8 + ' + Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(738, 19) + Me.Button8.Margin = New System.Windows.Forms.Padding(0) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(159, 39) + Me.Button8.TabIndex = 46 + Me.Button8.Text = "Provisionsvergütungen..." + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' 'MenuStrip2 ' Me.MenuStrip2.Dock = System.Windows.Forms.DockStyle.None @@ -1564,14 +1580,14 @@ Partial Class frmRechnungenSuche Me.MenuStrip2.Location = New System.Drawing.Point(3, 27) Me.MenuStrip2.Name = "MenuStrip2" Me.MenuStrip2.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2) - Me.MenuStrip2.Size = New System.Drawing.Size(143, 28) + Me.MenuStrip2.Size = New System.Drawing.Size(263, 28) Me.MenuStrip2.TabIndex = 45 Me.MenuStrip2.Text = "Kundenauswertungen" ' 'ToolStripMenuItem2 ' Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem}) + Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.NachRechnungslandToolStripMenuItem, Me.NachLeistungsnummerToolStripMenuItem, Me.NachZollabfertigungspreisenToolStripMenuItem, Me.RechnungenOhnePositionenToolStripMenuItem}) Me.ToolStripMenuItem2.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.statistik_small @@ -1583,28 +1599,28 @@ Partial Class frmRechnungenSuche ' Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.statistik_small Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(272, 24) + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(276, 26) Me.ToolStripMenuItem3.Text = "Nach Rechnungsanschrift" ' 'NachRechnungslandToolStripMenuItem ' Me.NachRechnungslandToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.NachRechnungslandToolStripMenuItem.Name = "NachRechnungslandToolStripMenuItem" - Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(272, 24) + Me.NachRechnungslandToolStripMenuItem.Size = New System.Drawing.Size(276, 26) Me.NachRechnungslandToolStripMenuItem.Text = "Nach Rechnungsland" ' 'NachLeistungsnummerToolStripMenuItem ' Me.NachLeistungsnummerToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.NachLeistungsnummerToolStripMenuItem.Name = "NachLeistungsnummerToolStripMenuItem" - Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(272, 24) + Me.NachLeistungsnummerToolStripMenuItem.Size = New System.Drawing.Size(276, 26) Me.NachLeistungsnummerToolStripMenuItem.Text = "Nach Leistungsnummer" ' 'NachZollabfertigungspreisenToolStripMenuItem ' Me.NachZollabfertigungspreisenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.NachZollabfertigungspreisenToolStripMenuItem.Name = "NachZollabfertigungspreisenToolStripMenuItem" - Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(272, 24) + Me.NachZollabfertigungspreisenToolStripMenuItem.Size = New System.Drawing.Size(276, 26) Me.NachZollabfertigungspreisenToolStripMenuItem.Text = "Nach Zollabf.-preisen (LNr: 340)" ' 'Button3 @@ -1699,21 +1715,21 @@ Partial Class frmRechnungenSuche ' Me.ToolStripMenuItem1.Image = CType(resources.GetObject("ToolStripMenuItem1.Image"), System.Drawing.Image) Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(376, 26) + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(372, 24) Me.ToolStripMenuItem1.Text = "TRANSFERRY/360 (Sammelrechnung auswählen)" ' 'EVOLOGSammelrechnungAuswählenToolStripMenuItem ' Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem" - Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26) + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)" ' 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem ' Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" - Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(376, 26) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(372, 24) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' @@ -1865,20 +1881,12 @@ Partial Class frmRechnungenSuche Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19) Me.TestToolStripMenuItem.Text = "test" ' - 'Button8 + 'RechnungenOhnePositionenToolStripMenuItem ' - Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(738, 19) - Me.Button8.Margin = New System.Windows.Forms.Padding(0) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(159, 39) - Me.Button8.TabIndex = 46 - Me.Button8.Text = "Provisionsvergütungen..." - Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.UseVisualStyleBackColor = True + Me.RechnungenOhnePositionenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.RechnungenOhnePositionenToolStripMenuItem.Name = "RechnungenOhnePositionenToolStripMenuItem" + Me.RechnungenOhnePositionenToolStripMenuItem.Size = New System.Drawing.Size(276, 26) + Me.RechnungenOhnePositionenToolStripMenuItem.Text = "Rechnungen ohne Positionen" ' 'frmRechnungenSuche ' @@ -2040,4 +2048,5 @@ Partial Class frmRechnungenSuche Friend WithEvents NachRechnungslandToolStripMenuItem As ToolStripMenuItem Friend WithEvents NachLeistungsnummerToolStripMenuItem As ToolStripMenuItem Friend WithEvents Button8 As Button + Friend WithEvents RechnungenOhnePositionenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index c6dd7344..35245d53 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -997,4 +997,33 @@ Public Class frmRechnungenSuche Dim f As New frmProvisionisverguetung f.Show(Me) End Sub + + Private Sub RechnungenOhnePositionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RechnungenOhnePositionenToolStripMenuItem.Click + Try + + Me.Cursor = Cursors.WaitCursor + + Dim sqlstr = "SELECT * From Rechnungsausgang r Where r.RechnungsDatum >= @Datum_von And r.RechnungsDatum <= @Datum_bis + And Not EXISTS( SELECT 1 From RechnungsausgangPositionen p Where p.RK_ID = r.RK_ID) " + If cboFirma._value <> "" Then sqlstr &= " AND r.[Firma_ID] = @Firma_ID " + + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList()) + + If dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt) + Me.Cursor = Cursors.Default + Else + Me.Cursor = Cursors.Default + MsgBox("keine Rechnungen ohne Positionen vorhanden!") + + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + End Sub + End Class \ No newline at end of file diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 82d72cbc..a61ee201 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -525,7 +525,7 @@ Public Class usrCntlFaktAbrechnung GutschriftAnVeragToolStripMenuItem.Visible = False If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802) ORDER BY FilialenNr ", True, "FMZOLL", True) + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr IN(4801,4802, 4806) ORDER BY FilialenNr ", True, "FMZOLL", True) Else cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) End If diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 9b1d6528..9b02a82c 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/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 2cbae264..ebd71923 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -732,7 +732,7 @@ Partial Class usrCntlBH ' Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Label5.Location = New System.Drawing.Point(564, 16) + Me.Label5.Location = New System.Drawing.Point(145, 6) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(197, 24) Me.Label5.TabIndex = 0 diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 9069c535..070bc413 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -905,7 +905,7 @@ Public Class usrCntlBH Else - zins.buchungstext = r.Item("Buchungstext") + zins.buchungstext = r.Item("Buchungstext").ToString.Replace("'", "") zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor") zins.zinssatz = r.Item("Zinssatz_Kunde") zins.belegZahlungsziel = r.Item("ZZinTage") @@ -918,6 +918,7 @@ Public Class usrCntlBH zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage"))) zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString + zins.SAVE() End If @@ -1320,7 +1321,7 @@ Public Class usrCntlBH Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString - Dim vermerk As String = "Zahlungen von " & startDate & " - " & EndDate 'max 50 Zeichen!!! + Dim vermerk As String = "Zahlungen " & startDate & " - " & EndDate 'max 50 Zeichen!!! Dim Fußtext As String = "" 'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & " diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 3469541e..6aee74e8 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -159,7 +159,7 @@ Public Class frmMain timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning) If Not timeEntryExisting AndAlso isEndpointRunning Then - Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) + Dim frm As New frmTimasabfrage(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen) frm.TopMost = True frm.ShowDialog() @@ -168,6 +168,15 @@ Public Class frmMain Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen) f.ShowDialog() f.TopMost = True + + If f.DialogResult = DialogResult.OK AndAlso f.resultCode >= 0 Then + Dim info + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", f.resultCode) + MsgBox(info) + Else + Exit Sub + End If + Else Dim info timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", frm.typ) diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index a7a2efc8..c389370f 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -1604,7 +1604,7 @@ Public Class frmBelegNeu If isLeihgeldeinzahlung Then If BELEG.KundenNr > 0 Then - Dim KundenKontoArchiv As String = SQL.getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = 7", "FIBU") 'ATILLA MANDANT!' + Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySqlVarList("SELECT c_archiv FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!' If KundenKontoArchiv <> "" Then MsgBox("ACHTUNG, die Kundennummer ist in der Syska-FIBU inaktiv, bitte andere KundenNr verwenden!") Exit Sub diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 6ec8ad54..87577af6 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -454,11 +454,17 @@ Public Class frmNacherfassungLeihgeld If Not gen_RECHNUNG_BySPEDBUCH(BELEG.KundenNr, SPEDBUCH, RK_ID, cbxOP_sofort_buchen.Checked, summeBRUTTO, summeNETTO) Then verarbOK = False If RK_ID > 0 Then Dim RECHNUNG As New cRechnungsausgang(RK_ID) - If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 7) Then verarbOK = False 'rechnungsNr vergeben, aber nicht gedruckt! + + 'rechnungsNr vergeben, aber nicht gedruckt! + If Not cFakturierung.doRechnungsDruck(RECHNUNG, Today(),, 4) Then verarbOK = False + If RECHNUNG.[DruckDatumZeit] IsNot Nothing Then + RECHNUNG.[DruckDatumZeit] = Nothing + RECHNUNG.SAVE_DruckDatumZeit() + End If End If If verarbOK Then - + 'MsgBox("Rechnung erstellt!") Else MsgBox("Fehler bei Rechnungserstellung!") @@ -487,8 +493,8 @@ Public Class frmNacherfassungLeihgeld If KdNr = "" Then Return False - Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr) - Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr) + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) + Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KdNr) Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang Dim OffertenNr As Integer @@ -537,7 +543,7 @@ Public Class frmNacherfassungLeihgeld RG.Lastschrift = KD.Lastschrift RG.Kunden_SVS = KD.SVS - RG.Steuerschlüssel = KD.Steuerschlüssel + RG.Steuerschlüssel = 0 'Immer 0 % weil durchlaufposten! RG.Vorkasse = KD.Vorkasse RG.Vorlageprovision_Proz = KD.Vorlageprovision RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 85b38ea7..b803c356 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -501,6 +501,9 @@ Class TrdInvoice_FUNCTIONS If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen") ' Buchungstext &= " / nicht verzinsen" + ElseIf Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen") Then + Buchungstext = Buchungstext.Replace("Zahlungen", "Zinsen") + End If If TRD_INVOICE.SAVE Then diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb index 4893670c..47710036 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb @@ -35,6 +35,7 @@ Partial Class frmMitarbeitersuche Me.lblStatusZE = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.pnlZeiten = New System.Windows.Forms.Panel() + Me.cbxLaengergearbeitet = New System.Windows.Forms.CheckBox() Me.btnAkten = New System.Windows.Forms.Button() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.Button2 = New System.Windows.Forms.Button() @@ -264,6 +265,7 @@ Partial Class frmMitarbeitersuche Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnlZeiten.Controls.Add(Me.cbxLaengergearbeitet) Me.pnlZeiten.Controls.Add(Me.btnAkten) Me.pnlZeiten.Controls.Add(Me.PictureBox5) Me.pnlZeiten.Controls.Add(Me.Button2) @@ -280,6 +282,18 @@ Partial Class frmMitarbeitersuche Me.pnlZeiten.TabIndex = 22 Me.pnlZeiten.Visible = False ' + 'cbxLaengergearbeitet + ' + Me.cbxLaengergearbeitet.AutoSize = True + Me.cbxLaengergearbeitet.ForeColor = System.Drawing.Color.Black + Me.cbxLaengergearbeitet.Location = New System.Drawing.Point(367, -1) + Me.cbxLaengergearbeitet.Name = "cbxLaengergearbeitet" + Me.cbxLaengergearbeitet.Size = New System.Drawing.Size(109, 17) + Me.cbxLaengergearbeitet.TabIndex = 131 + Me.cbxLaengergearbeitet.Text = "Länger gearbeitet" + Me.cbxLaengergearbeitet.UseVisualStyleBackColor = True + Me.cbxLaengergearbeitet.Visible = False + ' 'btnAkten ' Me.btnAkten.BackColor = System.Drawing.Color.White @@ -991,4 +1005,5 @@ Partial Class frmMitarbeitersuche Friend WithEvents Label17 As Windows.Forms.Label Friend WithEvents lblNotfall_Handy As Windows.Forms.Label Friend WithEvents lblNotfall_Name As Windows.Forms.Label + Friend WithEvents cbxLaengergearbeitet As Windows.Forms.CheckBox End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 67131b18..d257bfae 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -107,7 +107,7 @@ Public Class frmMitarbeitersuche lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer lblHandyNr.Text = If(MA.mit_mobiltel, "") - cbxHomeoffice.Checked = MA.mit_homeoffice + cbxHomeoffice.Checked = IIf(MA.mit_homeoffice AndAlso Not MA.mit_timasMehrereFirmen, True, False) Select Case If(MA.mit_abteilung, "") @@ -203,6 +203,15 @@ Public Class frmMitarbeitersuche If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_LÄNGER_ARBEITEN", "SDL") Then cbxLaengergearbeitet.Visible = True + + 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_HOMEOFFICE", "SDL") Then cbxHomeoffice.Visible = True + + If MA.mit_timasMehrereFirmen Then + cbxHomeoffice.Visible = False + End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Überstunden_auszahlen", "SDL") Then If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten Button3.Visible = True @@ -442,9 +451,14 @@ Public Class frmMitarbeitersuche 'normales kommen/gehen - Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo) + Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked AndAlso Not MA.mit_timasMehrereFirmen, "Homeoffice", "Büro") & IIf(cbxLaengergearbeitet.Checked, " (Länger gearbeitet)", "") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo) If a = vbYes Then Dim info As String = "" + + If art = "out" AndAlso cbxLaengergearbeitet.Checked Then + resultCode = 15 'länger arbeiten + End If + timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode) MsgBox(info) Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB @@ -484,12 +498,14 @@ Public Class frmMitarbeitersuche btnZEGehen.Enabled = True btnZEKommen.Enabled = False btnAkten.Enabled = False + cbxLaengergearbeitet.Enabled = True Else lblStatusZE.Text = "OFFLINE" lblStatusZE.BackColor = Color.Firebrick btnZEGehen.Enabled = False btnZEKommen.Enabled = True btnAkten.Enabled = True + cbxLaengergearbeitet.Enabled = False End If Else @@ -503,7 +519,7 @@ Public Class frmMitarbeitersuche btnZEKommen.Enabled = False Button2.Enabled = False btnAkten.Enabled = False - + cbxLaengergearbeitet.Enabled = False End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 4a01cfe5..31d6ec89 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -934,10 +934,10 @@ Public Class cTimasAPI Select Case inout Case "in" - entryType = "KOMMT" & IIf(art = 0, "(Büro)", "") & IIf(art = 3, "(Homeoffice)", "") + entryType = "KOMMT" & IIf(art = 0, " (Büro)", "") & IIf(art = 3, " (Homeoffice)", "") Case "out" - entryType = "GEHT" + entryType = "GEHT" & IIf(art = 15, " (Länger gearbeitet)", "") Case Else entryType = "falscher ErfassgsTyp: " & inout diff --git a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb index e933f231..bce31e71 100644 --- a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb +++ b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb @@ -1,5 +1,6 @@ Public Class frmTimasabfrage Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter + Dim nurBuero As Boolean = False Public Datum As Date = CDate(Now.ToShortDateString) Public typ As Integer = -1 Public Schalter As Integer = -1 @@ -15,11 +16,25 @@ mit = mit_ End Sub + Sub New(mit_ As cMitarbeiter, nurBuero_ As Boolean) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + mit = mit_ + nurBuero = nurBuero_ + End Sub + Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load cboTyp.Items.Clear() cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0")) - cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3")) + If Not nurBuero Then + cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3")) + rbHO.Enabled = True + Else + rbHO.Enabled = False + End If + + cbxSchalterID.Items.Clear() cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) @@ -29,7 +44,7 @@ If mit IsNot Nothing Then Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname - If mit.mit_homeoffice Then + If mit.mit_homeoffice AndAlso Not nurBuero Then rbHO.Checked = True cboTyp.changeItem("Homeoffice") Else From 42bb3568ffba825cd494f6dc2cdb326bda7d08fd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 12 Jan 2026 16:09:05 +0100 Subject: [PATCH 3/4] Leihgeldkasse, etc. --- SDL/Classes/cRKSV.vb | 4 +- SDL/kassenbuch/frmBelegNeu.vb | 1 + .../frmNacherfassungLeihgeld.Designer.vb | 66 ++++++++++++++----- SDL/kassenbuch/frmNacherfassungLeihgeld.vb | 19 +++++- 4 files changed, 67 insertions(+), 23 deletions(-) diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 1b02d6d6..50113ff7 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -2855,9 +2855,9 @@ Public Class cRKSV Dim gebucht = checkifgebucht_new(mandant, SafeString(BelegNrUID), buchungstext) If gebucht Then ' logging instead of MsgBox in production - MsgBox("GEBUCHT!") + MsgBox("FIBU - GEBUCHT!") Else - MsgBox("NICHT GEBUCHT!") + MsgBox("FIBU - NICHT GEBUCHT!") End If Return gebucht diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index c389370f..ebfe935d 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -136,6 +136,7 @@ Public Class frmBelegNeu For Each p In POS_ADD BELEG.POS.Add(p) Next + BELEG.LKW_Beleg = True cboSteuerschlüssel.changeItem(BELEG.Steuerschlüssel) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index 6fab4304..a00ce87e 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -24,6 +24,7 @@ Partial Class frmNacherfassungLeihgeld Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungLeihgeld)) Me.pnl = New System.Windows.Forms.Panel() + Me.btnWiki = New System.Windows.Forms.Button() Me.txtDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnNeueAbfertigungNrVergeben = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() @@ -70,6 +71,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtFahrer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxOP_sofort_buchen = New System.Windows.Forms.CheckBox() Me.lblGesperrt = New System.Windows.Forms.Label() + Me.cbxProvAnMA = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -79,6 +81,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.btnWiki) Me.pnl.Controls.Add(Me.txtDatum) Me.pnl.Controls.Add(Me.btnNeueAbfertigungNrVergeben) Me.pnl.Controls.Add(Me.Label2) @@ -90,9 +93,22 @@ Partial Class frmNacherfassungLeihgeld Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(441, 94) + Me.pnl.Size = New System.Drawing.Size(525, 94) Me.pnl.TabIndex = 0 ' + 'btnWiki + ' + Me.btnWiki.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.btnWiki.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnWiki.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnWiki.FlatAppearance.BorderSize = 0 + Me.btnWiki.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWiki.Location = New System.Drawing.Point(494, 3) + Me.btnWiki.Name = "btnWiki" + Me.btnWiki.Size = New System.Drawing.Size(25, 20) + Me.btnWiki.TabIndex = 215 + Me.btnWiki.UseVisualStyleBackColor = False + ' 'txtDatum ' Me.txtDatum._DateTimeOnly = False @@ -123,7 +139,7 @@ Partial Class frmNacherfassungLeihgeld 'btnNeueAbfertigungNrVergeben ' Me.btnNeueAbfertigungNrVergeben.BackColor = System.Drawing.Color.Gainsboro - Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(281, 57) + Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(365, 57) Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben" Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(145, 24) Me.btnNeueAbfertigungNrVergeben.TabIndex = 6 @@ -134,7 +150,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.Label2.AutoSize = True Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(278, 41) + Me.Label2.Location = New System.Drawing.Point(362, 41) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(103, 13) Me.Label2.TabIndex = 3 @@ -155,7 +171,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAbfertigungsnummer._Waehrung = False Me.txtAbfertigungsnummer._WaehrungZeichen = True Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 57) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(365, 57) Me.txtAbfertigungsnummer.MaxLength = 8 Me.txtAbfertigungsnummer.MaxLineLength = -1 Me.txtAbfertigungsnummer.MaxLines_Warning = "" @@ -173,7 +189,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboFiliale.Enabled = False Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(196, 56) + Me.cboFiliale.Location = New System.Drawing.Point(280, 56) Me.cboFiliale.Name = "cboFiliale" Me.cboFiliale.Size = New System.Drawing.Size(80, 24) Me.cboFiliale.TabIndex = 5 @@ -182,7 +198,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.Label1.AutoSize = True Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(193, 41) + Me.Label1.Location = New System.Drawing.Point(277, 41) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(33, 13) Me.Label1.TabIndex = 2 @@ -272,7 +288,7 @@ Partial Class frmNacherfassungLeihgeld Me.btnPrint.ForeColor = System.Drawing.Color.Black Me.btnPrint.Image = Global.SDL.My.Resources.Resources.printer2 Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnPrint.Location = New System.Drawing.Point(291, 331) + Me.btnPrint.Location = New System.Drawing.Point(375, 331) Me.btnPrint.Name = "btnPrint" Me.btnPrint.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0) Me.btnPrint.Size = New System.Drawing.Size(136, 66) @@ -307,7 +323,7 @@ Partial Class frmNacherfassungLeihgeld Me.cboPrintAktendeckel.AutoSize = True Me.cboPrintAktendeckel.Checked = True Me.cboPrintAktendeckel.CheckState = System.Windows.Forms.CheckState.Checked - Me.cboPrintAktendeckel.Location = New System.Drawing.Point(291, 313) + Me.cboPrintAktendeckel.Location = New System.Drawing.Point(375, 303) Me.cboPrintAktendeckel.Name = "cboPrintAktendeckel" Me.cboPrintAktendeckel.Size = New System.Drawing.Size(128, 17) Me.cboPrintAktendeckel.TabIndex = 17 @@ -366,7 +382,7 @@ Partial Class frmNacherfassungLeihgeld ' Me.cbxProvisionAuftraggeber.AutoSize = True Me.cbxProvisionAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(186, 13) + Me.cbxProvisionAuftraggeber.Location = New System.Drawing.Point(281, 13) Me.cbxProvisionAuftraggeber.Name = "cbxProvisionAuftraggeber" Me.cbxProvisionAuftraggeber.Size = New System.Drawing.Size(173, 17) Me.cbxProvisionAuftraggeber.TabIndex = 1 @@ -376,11 +392,13 @@ Partial Class frmNacherfassungLeihgeld 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel1.Controls.Add(Me.cbxProvAnMA) Me.Panel1.Controls.Add(Me.cbxProvision) Me.Panel1.Controls.Add(Me.txtAuftrProvision) Me.Panel1.Controls.Add(Me.cbxProvisionAuftraggeber) Me.Panel1.Controls.Add(Me.Label8) Me.Panel1.Controls.Add(Me.cboProvisionBetrag) + Me.Panel1.Controls.Add(Me.Panel2) Me.Panel1.Controls.Add(Me.Label10) Me.Panel1.Controls.Add(Me.cboProvisionStaffel) Me.Panel1.Controls.Add(Me.txtProvisionProzent) @@ -388,7 +406,7 @@ Partial Class frmNacherfassungLeihgeld Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel1.Location = New System.Drawing.Point(0, 404) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(441, 122) + Me.Panel1.Size = New System.Drawing.Size(525, 122) Me.Panel1.TabIndex = 20 ' 'txtAuftrProvision @@ -407,7 +425,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAuftrProvision._WaehrungZeichen = True Me.txtAuftrProvision.Enabled = False Me.txtAuftrProvision.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.txtAuftrProvision.Location = New System.Drawing.Point(365, 11) + Me.txtAuftrProvision.Location = New System.Drawing.Point(460, 13) Me.txtAuftrProvision.MaxLineLength = -1 Me.txtAuftrProvision.MaxLines_Warning = "" Me.txtAuftrProvision.MaxLines_Warning_Label = Nothing @@ -493,7 +511,7 @@ Partial Class frmNacherfassungLeihgeld Me.Panel2.Controls.Add(Me.Label7) Me.Panel2.Controls.Add(Me.cboPrinter) Me.Panel2.Controls.Add(Me.cboPrinterProvisionBeleg) - Me.Panel2.Location = New System.Drawing.Point(213, 467) + Me.Panel2.Location = New System.Drawing.Point(297, 60) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(228, 59) Me.Panel2.TabIndex = 21 @@ -636,7 +654,7 @@ Partial Class frmNacherfassungLeihgeld Me.ksFrachtführerKdNr.MaxLines_Warning_Label = Nothing Me.ksFrachtführerKdNr.Name = "ksFrachtführerKdNr" Me.ksFrachtführerKdNr.ReadOnly = True - Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(138, 23) + Me.ksFrachtführerKdNr.Size = New System.Drawing.Size(222, 23) Me.ksFrachtführerKdNr.TabIndex = 3 ' 'txtPassnummer @@ -660,7 +678,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtPassnummer.MaxLines_Warning = "" Me.txtPassnummer.MaxLines_Warning_Label = Nothing Me.txtPassnummer.Name = "txtPassnummer" - Me.txtPassnummer.Size = New System.Drawing.Size(138, 20) + Me.txtPassnummer.Size = New System.Drawing.Size(222, 20) Me.txtPassnummer.TabIndex = 9 ' 'txtAuftraggeber @@ -738,7 +756,7 @@ Partial Class frmNacherfassungLeihgeld Me.txtAuftraggeberKdNr.MaxLines_Warning_Label = Nothing Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr" Me.txtAuftraggeberKdNr.ReadOnly = True - Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(138, 23) + Me.txtAuftraggeberKdNr.Size = New System.Drawing.Size(222, 23) Me.txtAuftraggeberKdNr.TabIndex = 13 ' 'MyTextBoxLKWKz @@ -792,7 +810,7 @@ Partial Class frmNacherfassungLeihgeld 'cbxOP_sofort_buchen ' Me.cbxOP_sofort_buchen.AutoSize = True - Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(291, 290) + Me.cbxOP_sofort_buchen.Location = New System.Drawing.Point(375, 280) Me.cbxOP_sofort_buchen.Name = "cbxOP_sofort_buchen" Me.cbxOP_sofort_buchen.Size = New System.Drawing.Size(145, 17) Me.cbxOP_sofort_buchen.TabIndex = 213 @@ -811,18 +829,28 @@ Partial Class frmNacherfassungLeihgeld Me.lblGesperrt.Text = "gesperrt!" Me.lblGesperrt.Visible = False ' + 'cbxProvAnMA + ' + Me.cbxProvAnMA.AutoSize = True + Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxProvAnMA.Location = New System.Drawing.Point(163, 13) + Me.cbxProvAnMA.Name = "cbxProvAnMA" + Me.cbxProvAnMA.Size = New System.Drawing.Size(110, 17) + Me.cbxProvAnMA.TabIndex = 22 + Me.cbxProvAnMA.Text = "Prov in MA-Kassa" + Me.cbxProvAnMA.UseVisualStyleBackColor = True + ' 'frmNacherfassungLeihgeld ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(441, 526) + Me.ClientSize = New System.Drawing.Size(525, 526) Me.Controls.Add(Me.lblGesperrt) Me.Controls.Add(Me.cbxOP_sofort_buchen) Me.Controls.Add(Me.txtOpLeihgeld) Me.Controls.Add(Me.Label44) Me.Controls.Add(Me.Label11) - Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.txtKdAuftragsnummer) Me.Controls.Add(Me.cboPrintAktendeckel) @@ -906,4 +934,6 @@ Partial Class frmNacherfassungLeihgeld Friend WithEvents Label44 As Label Public WithEvents cbxOP_sofort_buchen As CheckBox Friend WithEvents lblGesperrt As Label + Friend WithEvents btnWiki As Button + Friend WithEvents cbxProvAnMA As CheckBox End Class diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb index 87577af6..01602ade 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.vb @@ -306,7 +306,8 @@ Public Class frmNacherfassungLeihgeld End If If Not validValues() Then Me.Cursor = Cursors.Default : Exit Sub - datatoBeleg() 'Daten werden in "BELEG" geldaen + datatoBeleg() 'Daten werden in "BELEG" geldae + 'n If BELEG.KundenNr > 0 AndAlso cbxOP_sofort_buchen.Checked Then Dim KundenKontoArchiv As String = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT isnull(c_archiv,'A') FROM [FIBU2].dbo.fibu_konto WHERE i_konto = " & BELEG.KundenNr & " AND i_firm_refid = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "9", "7"), "FIBU") 'ATILLA MANDANT!' @@ -405,7 +406,7 @@ Public Class frmNacherfassungLeihgeld Dim barbetrag As Double = 0 Dim BelegNrProvision = 0 If cbxProvision.Checked Then - printProvision(barbetrag, BelegNrProvision) + printProvision(barbetrag, BelegNrProvision, cbxProvAnMA.Checked) End If @@ -653,8 +654,15 @@ Public Class frmNacherfassungLeihgeld Return False End Function - Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer) As Boolean + Function printProvision(ByRef barBetrag As Double, ByRef BelegNrProvision As Integer, Optional ProvisionAufMAKassa As Boolean = False) As Boolean printProvision = False + + If ProvisionAufMAKassa Then + PERSONAL.ID = PERSONAL_LG.ID + End If + + + Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) 'lblRgNr.Text = "12345 / TR" BELEG_Prov.BelegDat = BELEG.BelegDat @@ -1035,4 +1043,9 @@ Public Class frmNacherfassungLeihgeld txtAuftrProvision.Enabled = sender.checked End Sub + Private Sub btnWikis_Click(sender As Object, e As EventArgs) Handles btnWiki.Click + + Dim webAddress As String = "https://wiki.verag.ag/software/aviso/howtos/Leihgeldkassa" + Process.Start(webAddress) + End Sub End Class \ No newline at end of file From df97e245b83aa759d69c9547c98c588c85b79dda Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 12 Jan 2026 16:11:51 +0100 Subject: [PATCH 4/4] Leihgeld --- SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb index a00ce87e..69d74d17 100644 --- a/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb +++ b/SDL/kassenbuch/frmNacherfassungLeihgeld.Designer.vb @@ -833,11 +833,11 @@ Partial Class frmNacherfassungLeihgeld ' Me.cbxProvAnMA.AutoSize = True Me.cbxProvAnMA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxProvAnMA.Location = New System.Drawing.Point(163, 13) + Me.cbxProvAnMA.Location = New System.Drawing.Point(161, 13) Me.cbxProvAnMA.Name = "cbxProvAnMA" - Me.cbxProvAnMA.Size = New System.Drawing.Size(110, 17) + Me.cbxProvAnMA.Size = New System.Drawing.Size(119, 17) Me.cbxProvAnMA.TabIndex = 22 - Me.cbxProvAnMA.Text = "Prov in MA-Kassa" + Me.cbxProvAnMA.Text = "In Mitarbeiter-Kassa" Me.cbxProvAnMA.UseVisualStyleBackColor = True ' 'frmNacherfassungLeihgeld