diverse Baustellen

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

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

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

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

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

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
 
 

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

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

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()
 

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!)

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 = ""

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
 
 

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