From e2d88b47e137e5f481d303734571f3c79bd3d7d8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Jan 2025 15:52:10 +0100 Subject: [PATCH] diverse Baustellen --- .../frmKasseAbschliessen.Designer.vb | 64 +++++---- SDL/Administration/frmKasseAbschliessen.vb | 29 ++-- SDL/Classes/cKassenbuch.vb | 2 +- SDL/Classes/cRKSV.vb | 2 +- SDL/Fakturierung/cFakturierung.vb | 6 +- .../usrCntlQualitaetskontrolle.vb | 4 +- .../KassenbuchSuche/frmKassenbuchSuche.vb | 4 +- SDL/kassenbuch/frmBelegNeu.vb | 6 +- SDL/kassenbuch/frmKassenbuch.vb | 10 +- .../usrCntlKundenuebersicht.Designer.vb | 132 +++++++++--------- SDL/kunden/usrCntlKundenuebersicht.vb | 5 +- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 35 +++++ SDL/mdm/frmMDMDatenverarbetiung.vb | 4 +- 13 files changed, 176 insertions(+), 127 deletions(-) diff --git a/SDL/Administration/frmKasseAbschliessen.Designer.vb b/SDL/Administration/frmKasseAbschliessen.Designer.vb index 0befe248..0d71b410 100644 --- a/SDL/Administration/frmKasseAbschliessen.Designer.vb +++ b/SDL/Administration/frmKasseAbschliessen.Designer.vb @@ -27,8 +27,8 @@ Partial Class frmKasseAbschliessen Me.lblKasseWahlen = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() - Me.NumericUpDown = New System.Windows.Forms.NumericUpDown() - Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown() + Me.numAltesGJ = New System.Windows.Forms.NumericUpDown() + Me.numNeuesGJ = New System.Windows.Forms.NumericUpDown() Me.btnKassensaldoUbertragen = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -42,8 +42,8 @@ Partial Class frmKasseAbschliessen Me.txtxAbwBetragALT = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtxAbwBetragNEU = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() - CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.numAltesGJ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.numNeuesGJ, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'MyComboBox2 @@ -84,27 +84,27 @@ Partial Class frmKasseAbschliessen Me.Label2.TabIndex = 17 Me.Label2.Text = "neues Geschäftsjahr:" ' - 'NumericUpDown + 'numAltesGJ ' - Me.NumericUpDown.Location = New System.Drawing.Point(122, 70) - Me.NumericUpDown.Maximum = New Decimal(New Integer() {2100, 0, 0, 0}) - Me.NumericUpDown.Minimum = New Decimal(New Integer() {1990, 0, 0, 0}) - Me.NumericUpDown.Name = "NumericUpDown" - Me.NumericUpDown.Size = New System.Drawing.Size(72, 20) - Me.NumericUpDown.TabIndex = 19 - Me.NumericUpDown.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.NumericUpDown.Value = New Decimal(New Integer() {1990, 0, 0, 0}) + Me.numAltesGJ.Location = New System.Drawing.Point(122, 70) + Me.numAltesGJ.Maximum = New Decimal(New Integer() {2100, 0, 0, 0}) + Me.numAltesGJ.Minimum = New Decimal(New Integer() {1990, 0, 0, 0}) + Me.numAltesGJ.Name = "numAltesGJ" + Me.numAltesGJ.Size = New System.Drawing.Size(72, 20) + Me.numAltesGJ.TabIndex = 19 + Me.numAltesGJ.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.numAltesGJ.Value = New Decimal(New Integer() {1990, 0, 0, 0}) ' - 'NumericUpDown1 + 'numNeuesGJ ' - Me.NumericUpDown1.Location = New System.Drawing.Point(122, 89) - Me.NumericUpDown1.Maximum = New Decimal(New Integer() {2100, 0, 0, 0}) - Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1990, 0, 0, 0}) - Me.NumericUpDown1.Name = "NumericUpDown1" - Me.NumericUpDown1.Size = New System.Drawing.Size(72, 20) - Me.NumericUpDown1.TabIndex = 19 - Me.NumericUpDown1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.NumericUpDown1.Value = New Decimal(New Integer() {1990, 0, 0, 0}) + Me.numNeuesGJ.Location = New System.Drawing.Point(122, 89) + Me.numNeuesGJ.Maximum = New Decimal(New Integer() {2100, 0, 0, 0}) + Me.numNeuesGJ.Minimum = New Decimal(New Integer() {1990, 0, 0, 0}) + Me.numNeuesGJ.Name = "numNeuesGJ" + Me.numNeuesGJ.Size = New System.Drawing.Size(72, 20) + Me.numNeuesGJ.TabIndex = 19 + Me.numNeuesGJ.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.numNeuesGJ.Value = New Decimal(New Integer() {1990, 0, 0, 0}) ' 'btnKassensaldoUbertragen ' @@ -130,10 +130,12 @@ Partial Class frmKasseAbschliessen Me.MyTextBox1._DateTimeOnly = False Me.MyTextBox1._numbersOnly = False Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True Me.MyTextBox1._Prozent = False Me.MyTextBox1._ShortDateNew = False Me.MyTextBox1._ShortDateOnly = False Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False Me.MyTextBox1._value = "" Me.MyTextBox1._Waehrung = True Me.MyTextBox1._WaehrungZeichen = True @@ -152,10 +154,12 @@ Partial Class frmKasseAbschliessen Me.MyTextBox2._DateTimeOnly = False Me.MyTextBox2._numbersOnly = False Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True Me.MyTextBox2._Prozent = False Me.MyTextBox2._ShortDateNew = False Me.MyTextBox2._ShortDateOnly = False Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False Me.MyTextBox2._value = "" Me.MyTextBox2._Waehrung = True Me.MyTextBox2._WaehrungZeichen = True @@ -236,10 +240,12 @@ Partial Class frmKasseAbschliessen Me.txtxAbwBetragALT._DateTimeOnly = False Me.txtxAbwBetragALT._numbersOnly = False Me.txtxAbwBetragALT._numbersOnlyKommastellen = "" + Me.txtxAbwBetragALT._numbersOnlyTrennzeichen = True Me.txtxAbwBetragALT._Prozent = False Me.txtxAbwBetragALT._ShortDateNew = False Me.txtxAbwBetragALT._ShortDateOnly = False Me.txtxAbwBetragALT._TimeOnly = False + Me.txtxAbwBetragALT._TimeOnly_Seconds = False Me.txtxAbwBetragALT._value = "" Me.txtxAbwBetragALT._Waehrung = True Me.txtxAbwBetragALT._WaehrungZeichen = True @@ -257,10 +263,12 @@ Partial Class frmKasseAbschliessen Me.txtxAbwBetragNEU._DateTimeOnly = False Me.txtxAbwBetragNEU._numbersOnly = False Me.txtxAbwBetragNEU._numbersOnlyKommastellen = "" + Me.txtxAbwBetragNEU._numbersOnlyTrennzeichen = True Me.txtxAbwBetragNEU._Prozent = False Me.txtxAbwBetragNEU._ShortDateNew = False Me.txtxAbwBetragNEU._ShortDateOnly = False Me.txtxAbwBetragNEU._TimeOnly = False + Me.txtxAbwBetragNEU._TimeOnly_Seconds = False Me.txtxAbwBetragNEU._value = "" Me.txtxAbwBetragNEU._Waehrung = True Me.txtxAbwBetragNEU._WaehrungZeichen = True @@ -301,8 +309,8 @@ Partial Class frmKasseAbschliessen Me.Controls.Add(Me.MyTextBox1) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.btnKassensaldoUbertragen) - Me.Controls.Add(Me.NumericUpDown1) - Me.Controls.Add(Me.NumericUpDown) + Me.Controls.Add(Me.numNeuesGJ) + Me.Controls.Add(Me.numAltesGJ) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.lblKasseWahlen) @@ -310,8 +318,8 @@ Partial Class frmKasseAbschliessen Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmKasseAbschliessen" Me.Text = "frmKasseAbschliessen" - CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.numAltesGJ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.numNeuesGJ, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -320,8 +328,8 @@ Partial Class frmKasseAbschliessen Friend WithEvents lblKasseWahlen As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents NumericUpDown As System.Windows.Forms.NumericUpDown - Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown + Friend WithEvents numAltesGJ As System.Windows.Forms.NumericUpDown + Friend WithEvents numNeuesGJ As System.Windows.Forms.NumericUpDown Friend WithEvents btnKassensaldoUbertragen As System.Windows.Forms.Button Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox diff --git a/SDL/Administration/frmKasseAbschliessen.vb b/SDL/Administration/frmKasseAbschliessen.vb index acdf7472..560aa56a 100644 --- a/SDL/Administration/frmKasseAbschliessen.vb +++ b/SDL/Administration/frmKasseAbschliessen.vb @@ -9,8 +9,8 @@ lblTESTSYSTEM.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM MyComboBox2.fillWithSQL("SELECT [KassenbuchNr],[Name] FROM [Personal] WHERE ((Status='A' AND KassenbuchNr IS NOT NULL AND BLC='R') OR (BLC='V00')) ORDER BY Name", False, "FMZOLL") - NumericUpDown.Value = Now.Year - 1 - NumericUpDown1.Value = Now.Year + numAltesGJ.Value = Now.Year - 1 + numNeuesGJ.Value = Now.Year End Sub Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox2.SelectedIndexChanged @@ -25,18 +25,18 @@ initSALDO() End If - + End Sub Sub initSALDO() SaldoALT = SQL.getValueTxtBySql("SELECT isnull((Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)),0) AS Saldo " & " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " & " WHERE tblKassenbuch.Mandant='" & PERSONAL.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL.Niederlassung & "' " & - " And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & NumericUpDown.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL") + " And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & numAltesGJ.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL") SaldoNEU = SQL.getValueTxtBySql("SELECT isnull((Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)),0) AS Saldo " & " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " & " WHERE tblKassenbuch.Mandant='" & PERSONAL.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL.Niederlassung & "' " & - " And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & NumericUpDown1.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL") + " And tblKassenbuch.Benutzer=" & PERSONAL.ID & " AND tblKassenbuch.Geschäftsjahr=" & numNeuesGJ.Value & " AND tblKassenbuch.Konto=" & PERSONAL.KassenbuchNr & "", "FMZOLL") @@ -82,7 +82,7 @@ Sub insertBELEGALT(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value) + BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(numAltesGJ.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value) If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value @@ -101,7 +101,7 @@ Dim KBEntryGB As cKassenbuch = Nothing ' Dim JournalNr = 0 - If Not insertKB(BELEG_ALT, 9800, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch + If Not insertKB(BELEG_ALT, 9800, KASSE, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch MsgBox(BELEG_ALT, "Programmfehler bei Eintrag ins Kassenbuch.") Me.Cursor = Cursors.Default : Me.Close() : Exit Sub End If @@ -143,7 +143,7 @@ End Sub Sub insertBELEGNEU(KASSE As cRKSV_Kasse, betrag As Double) Dim BELEG_NEU As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!! - BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.Value, KASSE.rksv_firma).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value) + BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(numNeuesGJ.Value, KASSE.rksv_firma).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value) BELEG_NEU.Beleg_TYP = "E" BELEG_NEU.Belegart = 1 'EINGANG BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv @@ -161,7 +161,7 @@ Dim KBEntryGB As cKassenbuch = Nothing ' Dim JournalNr = 0 - If Not insertKB(BELEG_NEU, 9800, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch + If Not insertKB(BELEG_NEU, 9800, KASSE, KASSE.rksv_id, RKSV_Beleg_Id, KBEntry, KBEntryGB, KASSE.rksv_aktiv) Then ' Eintrag ins Kassenbuch MsgBox(BELEG_NEU, "Programmfehler bei Eintrag ins Kassenbuch.") Me.Cursor = Cursors.Default : Me.Close() : Exit Sub End If @@ -203,8 +203,9 @@ End Sub - Function insertKB(BELEG As EABeleg, Gegenkonto As Integer, RKSV_id As Integer, RKSV_Beleg_Id As Integer, ByRef KBEntry As cKassenbuch, ByRef KBEntryGB As cKassenbuch, RKSV_Aktiv As Boolean) As Boolean - Dim GJBeleg = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + Function insertKB(BELEG As EABeleg, Gegenkonto As Integer, KASSE As cRKSV_Kasse, RKSV_id As Integer, RKSV_Beleg_Id As Integer, ByRef KBEntry As cKassenbuch, ByRef KBEntryGB As cKassenbuch, RKSV_Aktiv As Boolean) As Boolean + + Dim GJBeleg = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma)) BELEG.BelegNr = GJBeleg.INCREASE_BELEG() 'Vergabe der Belegnummer ' BELEG.BelegDat = Now.ToShortDateString @@ -219,8 +220,8 @@ '################ ' EINTRAG: Kassenbuch '################ - Dim GJ As New cGeschaeftsjahr(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat)) - KBEntry = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat), 0) + Dim GJ As New cGeschaeftsjahr(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma)) + KBEntry = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma), 0) KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer ' KBEntry.JournalNr = fktJournalNr(rst1!Mandant, rst1!Niederlassung, rst1!Benutzer, rst1!BelegDat) KBEntry.Konto = PERSONAL.KassenbuchNr @@ -252,7 +253,7 @@ '################ ' EINTRAG: Kassenbuch '################ - KBEntryGB = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ(BELEG.BelegDat), 0) + KBEntryGB = New cKassenbuch(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma), 0) KBEntryGB.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer ' KBEntryGB.JournalNr = fktJournalNr(rst1!Mandant, rst1!Niederlassung, rst1!Benutzer, rst1!BelegDat) KBEntryGB.Konto = Gegenkonto diff --git a/SDL/Classes/cKassenbuch.vb b/SDL/Classes/cKassenbuch.vb index 1d64e105..6845702d 100644 --- a/SDL/Classes/cKassenbuch.vb +++ b/SDL/Classes/cKassenbuch.vb @@ -4,7 +4,7 @@ Public Class cKassenbuch Property Mandant As String = "VERA" Property Niederlassung As String = "SUB" Property Benutzer As Integer = -1 - Property Geschäftsjahr As Integer = cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year) + Property Geschäftsjahr As Integer = cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' cRKSV.getGJ(Now) ' IIf(Now.Month = 1, Now.Year - 1, Now.Year) Property JournalNr As Integer = -1 Property Buchungsdatum As Object = Nothing Property BelegDat As Object = Nothing diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index 4f121c6e..9958fe86 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -1014,7 +1014,7 @@ Public Class cRKSV End Function - Shared Function getGJ(BelegDat As Date, Optional FIRMA_ID As Integer = -1) As Integer + Shared Function getGJ(BelegDat As Date, FIRMA_ID As Integer) As Integer 'If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case FIRMA_ID Case -1, 1, 3, 11, 7, 15 'Abweichendes WJ diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6bdce903..7e5b2175 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -388,8 +388,10 @@ Public Class cFakturierung Else If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then If VK.vk_GeldEingetroffen Then ' Wenn 0 dann Fehler + + Dim diff As Double = CDbl(VK.vk_Betrag) - CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) - If diff = 0 Then + If diff < 0.5 And diff > 0.5 Then ' If diff = 0 Then --> 50ct spielraum ok für diff Select Case RECHNUNG.RechnungSprache Case "EN" : strText = strText & "The invoice amount has already been paid in advance." & vbCrLf Case Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf @@ -407,7 +409,7 @@ Public Class cFakturierung Else 'Nachzahlung Select Case RECHNUNG.RechnungSprache Case "EN" : strText = strText & "An advance payment has already been made for this invoice, please transfer the difference." & vbCrLf - Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie den Differenzbetrag." & vbCrLf + Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf End Select End If End If diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb index 432509dc..dee7373c 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb @@ -618,8 +618,8 @@ Public Class usrCntlQualitaetskontrolle Dim sumNormenSpez As Double = 0 Dim antrag, verzicht, idk As Double - antrag = 40.7 - verzicht = 9.3 + antrag = 45.2 + verzicht = 9.8 idk = 39.4 diff --git a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb index 032dbc94..44a590ba 100644 --- a/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb +++ b/SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb @@ -843,11 +843,11 @@ Public Class frmKassenbuchSuche Dim sqlStr = "" sqlStr &= " SELECT Benutzer,Name, Konto, Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo " sqlStr &= " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " - sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ(Now) & "' and konto=KassenbuchNr " + sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' and konto=KassenbuchNr " If MyComboBox1._value <> "" Then sqlStr &= " AND rksv_id=" & MyComboBox1._value & " " If MyComboBox2._value <> "" Then sqlStr &= " AND tblKassenbuch.Niederlassung ='" & MyComboBox2._value & "'" sqlStr &= " group by Benutzer,Name, Konto order by Name" - + 'cRKSV.getGJ(Now) rpt.DataSource = SQL.loadDgvBySql_Param(sqlStr, "FMZOLL", , getBelegList) If rpt.DataSource Is Nothing Then diff --git a/SDL/kassenbuch/frmBelegNeu.vb b/SDL/kassenbuch/frmBelegNeu.vb index 0f6b39f6..be01df9e 100644 --- a/SDL/kassenbuch/frmBelegNeu.vb +++ b/SDL/kassenbuch/frmBelegNeu.vb @@ -908,11 +908,11 @@ Public Class frmBelegNeu Sub STORNO2(JournalNr, Optional grund = "") If Not BELEG.gebuchtStorno Then - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer'" & BELEG.Benutzer & "' AND Geschäftsjahr='" & cRKSV.getGJ(BELEG.BelegDat) & "' AND JournalNr='" & JournalNr & "'", "FMZOLL") - Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat)) + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer'" & BELEG.Benutzer & "' AND Geschäftsjahr='" & cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma) & "' AND JournalNr='" & JournalNr & "'", "FMZOLL") + Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma)) If dt IsNot Nothing Then For Each r In dt.Rows - Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat), r("JournalNr")) + Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma), r("JournalNr")) KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer KBEntry.Buchungsdatum = Now.ToShortDateString KBEntry.Soll = KBEntry.Soll * -1 diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index 72efa8a3..f10d81ff 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -3,7 +3,7 @@ Imports SDL.RKSVServer Public Class frmKassenbuch Dim SQL As New SQL - Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ(Now) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year) + Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year) Dim PERSONAL As cPersonal Dim RKSV As cRKSV_Kasse Dim PERSONAL_LG As cPersonal = Nothing @@ -913,8 +913,8 @@ Public Class frmKassenbuch End Select If BELEGTmp IsNot Nothing Then - If cRKSV.getGJ(Now) <> cRKSV.getGJ(BELEGTmp.BelegDat) Then - MsgBox("Das Geschäftsjahr im Beleg ist '" & cRKSV.getGJ(BELEGTmp.BelegDat) & "', es können nur Belege im laufenden Geschäftsjahr gebucht werden. Aktion wird abgebrochen!") + If cRKSV.getGJ(Now, PERSONAL.cRKSV_Kasse.rksv_firma) <> cRKSV.getGJ_FIRMA(BELEGTmp.BelegDat, PERSONAL.cRKSV_Kasse.rksv_firma) Then + MsgBox("Das Geschäftsjahr im Beleg ist '" & cRKSV.getGJ_FIRMA(BELEGTmp.BelegDat, PERSONAL.cRKSV_Kasse.rksv_firma) & "', es können nur Belege im laufenden Geschäftsjahr gebucht werden. Aktion wird abgebrochen!") Exit Sub End If @@ -1221,7 +1221,7 @@ Public Class frmKassenbuch Case Else End Select - Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year) + Dim GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(von, PERSONAL.cRKSV_Kasse.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year) Dim sum = 0 rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR @@ -1247,7 +1247,7 @@ Public Class frmKassenbuch Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString rpt.lblBelegDat.Text = BuDat - Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) + Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ_FIRMA(BuDat, PERSONAL.cRKSV_Kasse.rksv_firma) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year) rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value()) rpt.lblBuText.Text = rpt.Fields.Item("Buchungstext").Value() diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index 1acd6430..e11661a6 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -229,6 +229,13 @@ Partial Class usrCntlKundenuebersicht Me.lblEORI = New System.Windows.Forms.TextBox() Me.lblEORINr = New System.Windows.Forms.Label() Me.dgvAufschub = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -256,13 +263,6 @@ Partial Class usrCntlKundenuebersicht Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() - Me.KtoId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.HZA = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.KontoNr = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.EORI = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.NL = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.BIN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.cntxtAddVM.SuspendLayout() Me.tbWeitereKundenDetails.SuspendLayout() Me.tbOfferten.SuspendLayout() @@ -890,10 +890,10 @@ Partial Class usrCntlKundenuebersicht ' Me.Panel9.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel9.Controls.Add(Me.txtVerzolltBei) Me.Panel9.Controls.Add(Me.Label3) Me.Panel9.Controls.Add(Me.Label15) Me.Panel9.Controls.Add(Me.txtVerzolltBeiExport) - Me.Panel9.Controls.Add(Me.txtVerzolltBei) Me.Panel9.Location = New System.Drawing.Point(7, 225) Me.Panel9.Name = "Panel9" Me.Panel9.Size = New System.Drawing.Size(356, 24) @@ -902,7 +902,7 @@ Partial Class usrCntlKundenuebersicht 'Label3 ' Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(197, 4) + Me.Label3.Location = New System.Drawing.Point(216, 4) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(40, 13) Me.Label3.TabIndex = 45 @@ -923,11 +923,12 @@ Partial Class usrCntlKundenuebersicht Me.txtVerzolltBeiExport.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtVerzolltBeiExport.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtVerzolltBeiExport.ForeColor = System.Drawing.Color.Black - Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(243, 4) + Me.txtVerzolltBeiExport.Location = New System.Drawing.Point(250, 4) Me.txtVerzolltBeiExport.Name = "txtVerzolltBeiExport" Me.txtVerzolltBeiExport.ReadOnly = True - Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(106, 13) + Me.txtVerzolltBeiExport.Size = New System.Drawing.Size(102, 13) Me.txtVerzolltBeiExport.TabIndex = 44 + Me.txtVerzolltBeiExport.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'txtVerzolltBei ' @@ -935,11 +936,12 @@ Partial Class usrCntlKundenuebersicht Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black - Me.txtVerzolltBei.Location = New System.Drawing.Point(70, 4) + Me.txtVerzolltBei.Location = New System.Drawing.Point(62, 4) Me.txtVerzolltBei.Name = "txtVerzolltBei" Me.txtVerzolltBei.ReadOnly = True - Me.txtVerzolltBei.Size = New System.Drawing.Size(128, 13) + Me.txtVerzolltBei.Size = New System.Drawing.Size(155, 13) Me.txtVerzolltBei.TabIndex = 16 + Me.txtVerzolltBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Center ' 'rtbInfo ' @@ -3171,6 +3173,58 @@ Partial Class usrCntlKundenuebersicht Me.dgvAufschub.TabIndex = 11 Me.dgvAufschub.TabStop = False ' + 'KtoId + ' + Me.KtoId.HeaderText = "Id" + Me.KtoId.Name = "KtoId" + Me.KtoId.ReadOnly = True + Me.KtoId.Visible = False + ' + 'Art + ' + Me.Art.HeaderText = "Aufschub" + Me.Art.Name = "Art" + Me.Art.ReadOnly = True + Me.Art.Width = 120 + ' + 'HZA + ' + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 + Me.HZA.HeaderText = "HZA" + Me.HZA.Name = "HZA" + Me.HZA.ReadOnly = True + Me.HZA.Width = 35 + ' + 'KontoNr + ' + Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.KontoNr.HeaderText = "Konto Nr." + Me.KontoNr.Name = "KontoNr" + Me.KontoNr.ReadOnly = True + Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + ' + 'EORI + ' + Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.EORI.HeaderText = "EORI" + Me.EORI.Name = "EORI" + Me.EORI.ReadOnly = True + ' + 'NL + ' + Me.NL.HeaderText = "NL" + Me.NL.Name = "NL" + Me.NL.ReadOnly = True + Me.NL.Width = 60 + ' + 'BIN + ' + Me.BIN.HeaderText = "BIN" + Me.BIN.Name = "BIN" + Me.BIN.ReadOnly = True + Me.BIN.Visible = False + ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem}) @@ -3383,58 +3437,6 @@ Partial Class usrCntlKundenuebersicht Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158) Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0 ' - 'KtoId - ' - Me.KtoId.HeaderText = "Id" - Me.KtoId.Name = "KtoId" - Me.KtoId.ReadOnly = True - Me.KtoId.Visible = False - ' - 'Art - ' - Me.Art.HeaderText = "Aufschub" - Me.Art.Name = "Art" - Me.Art.ReadOnly = True - Me.Art.Width = 120 - ' - 'HZA - ' - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - Me.HZA.DefaultCellStyle = DataGridViewCellStyle11 - Me.HZA.HeaderText = "HZA" - Me.HZA.Name = "HZA" - Me.HZA.ReadOnly = True - Me.HZA.Width = 35 - ' - 'KontoNr - ' - Me.KontoNr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.KontoNr.HeaderText = "Konto Nr." - Me.KontoNr.Name = "KontoNr" - Me.KontoNr.ReadOnly = True - Me.KontoNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - ' - 'EORI - ' - Me.EORI.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.EORI.HeaderText = "EORI" - Me.EORI.Name = "EORI" - Me.EORI.ReadOnly = True - ' - 'NL - ' - Me.NL.HeaderText = "NL" - Me.NL.Name = "NL" - Me.NL.ReadOnly = True - Me.NL.Width = 60 - ' - 'BIN - ' - Me.BIN.HeaderText = "BIN" - Me.BIN.Name = "BIN" - Me.BIN.ReadOnly = True - Me.BIN.Visible = False - ' 'usrCntlKundenuebersicht ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index b0eb29c1..0c669c91 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -2,6 +2,7 @@ Imports System.Globalization Imports System.IO Imports System.ServiceModel.Configuration +Imports GrapeCity.DataVisualization.TypeScript Imports SDL.EORI Imports VERAG_PROG_ALLGEMEIN @@ -559,7 +560,7 @@ Public Class usrCntlKundenuebersicht lblNeutralisierung.BackColor = txtNeutralisierung.BackColor If KUNDE_ERW.kde_KundeFremdspedition Then - txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD") + txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD").ToString.ToUpper txtVerzolltBei.BackColor = Color.Yellow Else txtVerzolltBei.Text = "" @@ -567,7 +568,7 @@ Public Class usrCntlKundenuebersicht End If If KUNDE_ERW.kde_KundeFremdspeditionExport Then - txtVerzolltBeiExport.Text = If(KUNDE_ERW.kde_verzolltBeiExport, "FREMD") + txtVerzolltBeiExport.Text = If(KUNDE_ERW.kde_verzolltBeiExport, "FREMD").ToString.ToUpper.Replace("EIGENE ZOLLABTEILUNG", "EIG.ZA") txtVerzolltBeiExport.BackColor = Color.Yellow Else txtVerzolltBeiExport.Text = "" diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index ed2c99ba..3ecef127 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1046,6 +1046,41 @@ Public Class usrcntlKundeBearbeitenFull btnDatevExport.Visible = False End If + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "AMBAR" + cboFremdspedition.Items.Clear() + cboFremdspedition.Items.Add("") + cboFremdspedition.Items.Add("AMBAR") + cboFremdspedition.Items.Add("VERAG") + cboFremdspedition.Items.Add("IMEX") + cboFremdspedition.Items.Add("EIGENE ZOLLABTEILUNG") + cboFremdspedition.Items.Add("T1 DIREKT") + + Case Else + cboFremdspedition.Items.Clear() + cboFremdspedition.Items.Add("") + cboFremdspedition.Items.Add("SEBERT") + cboFremdspedition.Items.Add("SCHENKER") + cboFremdspedition.Items.Add("AS-SPED") + cboFremdspedition.Items.Add("NIETEN") + cboFremdspedition.Items.Add("BUCHAUER") + cboFremdspedition.Items.Add("ZLS") + End Select + cboFremdspeditionExport.Items.AddRange(cboFremdspedition.Items.Cast(Of Object).ToArray()) + + ' SEBERT + ' SCHENKER + 'AS-SPED + 'NIETEN + ' BUCHAUER + + + ' AMBAR + ' VERAG + ' IMEX + ' EIGENE ZOLLABTEILUNG + ' t1 DIREKT End Sub diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index a67da79d..3bf85962 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -3328,7 +3328,7 @@ Public Class frmMDMDatenverarbetiung RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr RG.UnterNr = RG.getMaxRGUnterNr() - RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year) + RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value, RG.Firma_ID) 'If(Now.Month = 1, Now.Year - 1, Now.Year) RG.FilialenNr = SPEDBUCH.FilialenNr RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum RG.Sammelrechnung = 6 'MAUT/DIESEL @@ -3394,7 +3394,7 @@ Public Class frmMDMDatenverarbetiung RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum) + RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum, RG.Firma_ID) Dim sqlstr As String = "" Dim useNettogesamtbetrag As Boolean = False