edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
SDL/Administration/frmKasseAbschliessen.Designer.vb generated
View File

@@ -35,6 +35,13 @@ Partial Class frmKasseAbschliessen
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblTESTSYSTEM = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxAlt = New System.Windows.Forms.CheckBox()
Me.cbxNeu = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
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()
Me.SuspendLayout()
@@ -129,6 +136,7 @@ Partial Class frmKasseAbschliessen
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = True
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(200, 71)
Me.MyTextBox1.MaxLineLength = -1
@@ -150,6 +158,7 @@ Partial Class frmKasseAbschliessen
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = True
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(200, 88)
Me.MyTextBox2.MaxLineLength = -1
@@ -180,12 +189,112 @@ Partial Class frmKasseAbschliessen
Me.Label4.TabIndex = 25
Me.Label4.Text = "-"
'
'cbxAlt
'
Me.cbxAlt.AutoSize = True
Me.cbxAlt.Checked = True
Me.cbxAlt.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAlt.Location = New System.Drawing.Point(78, 184)
Me.cbxAlt.Name = "cbxAlt"
Me.cbxAlt.Size = New System.Drawing.Size(68, 17)
Me.cbxAlt.TabIndex = 26
Me.cbxAlt.Text = "Ausgang"
Me.cbxAlt.UseVisualStyleBackColor = True
'
'cbxNeu
'
Me.cbxNeu.AutoSize = True
Me.cbxNeu.Checked = True
Me.cbxNeu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxNeu.Location = New System.Drawing.Point(200, 184)
Me.cbxNeu.Name = "cbxNeu"
Me.cbxNeu.Size = New System.Drawing.Size(65, 17)
Me.cbxNeu.TabIndex = 28
Me.cbxNeu.Text = "Eingang"
Me.cbxNeu.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(78, 168)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(100, 13)
Me.Label5.TabIndex = 29
Me.Label5.Text = "altes Geschäftsjahr:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(197, 168)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(107, 13)
Me.Label6.TabIndex = 30
Me.Label6.Text = "neues Geschäftsjahr:"
'
'txtxAbwBetragALT
'
Me.txtxAbwBetragALT._DateTimeOnly = False
Me.txtxAbwBetragALT._numbersOnly = False
Me.txtxAbwBetragALT._numbersOnlyKommastellen = ""
Me.txtxAbwBetragALT._Prozent = False
Me.txtxAbwBetragALT._ShortDateNew = False
Me.txtxAbwBetragALT._ShortDateOnly = False
Me.txtxAbwBetragALT._TimeOnly = False
Me.txtxAbwBetragALT._value = ""
Me.txtxAbwBetragALT._Waehrung = True
Me.txtxAbwBetragALT._WaehrungZeichen = True
Me.txtxAbwBetragALT.ForeColor = System.Drawing.Color.Black
Me.txtxAbwBetragALT.Location = New System.Drawing.Point(78, 203)
Me.txtxAbwBetragALT.MaxLineLength = -1
Me.txtxAbwBetragALT.MaxLines_Warning = ""
Me.txtxAbwBetragALT.MaxLines_Warning_Label = Nothing
Me.txtxAbwBetragALT.Name = "txtxAbwBetragALT"
Me.txtxAbwBetragALT.Size = New System.Drawing.Size(110, 20)
Me.txtxAbwBetragALT.TabIndex = 31
'
'txtxAbwBetragNEU
'
Me.txtxAbwBetragNEU._DateTimeOnly = False
Me.txtxAbwBetragNEU._numbersOnly = False
Me.txtxAbwBetragNEU._numbersOnlyKommastellen = ""
Me.txtxAbwBetragNEU._Prozent = False
Me.txtxAbwBetragNEU._ShortDateNew = False
Me.txtxAbwBetragNEU._ShortDateOnly = False
Me.txtxAbwBetragNEU._TimeOnly = False
Me.txtxAbwBetragNEU._value = ""
Me.txtxAbwBetragNEU._Waehrung = True
Me.txtxAbwBetragNEU._WaehrungZeichen = True
Me.txtxAbwBetragNEU.ForeColor = System.Drawing.Color.Black
Me.txtxAbwBetragNEU.Location = New System.Drawing.Point(200, 203)
Me.txtxAbwBetragNEU.MaxLineLength = -1
Me.txtxAbwBetragNEU.MaxLines_Warning = ""
Me.txtxAbwBetragNEU.MaxLines_Warning_Label = Nothing
Me.txtxAbwBetragNEU.Name = "txtxAbwBetragNEU"
Me.txtxAbwBetragNEU.Size = New System.Drawing.Size(110, 20)
Me.txtxAbwBetragNEU.TabIndex = 32
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 206)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(64, 13)
Me.Label7.TabIndex = 35
Me.Label7.Text = "abw.Betrag:"
'
'frmKasseAbschliessen
'
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(323, 175)
Me.ClientSize = New System.Drawing.Size(323, 227)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtxAbwBetragNEU)
Me.Controls.Add(Me.txtxAbwBetragALT)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.cbxNeu)
Me.Controls.Add(Me.cbxAlt)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.lblTESTSYSTEM)
Me.Controls.Add(Me.MyTextBox2)
@@ -219,4 +328,11 @@ Partial Class frmKasseAbschliessen
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblTESTSYSTEM As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents cbxAlt As CheckBox
Friend WithEvents cbxNeu As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents txtxAbwBetragALT As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtxAbwBetragNEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
End Class

25
SDL/Administration/frmKasseAbschliessen.vb
View File

@@ -52,7 +52,7 @@
Me.Cursor = Cursors.WaitCursor
If PERSONAL Is Nothing Then MsgBox("Kasse wählen!") : Exit Sub
If SaldoALT = 0 Then MsgBox("Kein Betrag zu übertragen!") : Exit Sub
If cbxAlt.Checked And cbxNeu.Checked And SaldoALT = 0 Then MsgBox("Kein Betrag zu übertragen!") : Exit Sub
JAHRESABSCHLUSS(PERSONAL, SaldoALT)
initSALDO()
@@ -73,8 +73,8 @@
KASSE.LOAD(PERSONAL.cRKSV_KasseID)
End If
insertBELEGALT(KASSE, betrag)
insertBELEGNEU(KASSE, betrag)
If cbxAlt.Checked Then insertBELEGALT(KASSE, betrag)
If cbxNeu.Checked Then insertBELEGNEU(KASSE, betrag)
Return True
End Function
@@ -84,6 +84,7 @@
Dim BELEG_ALT As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID) '!!!!!!!!!!!!!!!!
BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value
BELEG_ALT.Belegart = 2 'AUSGANG
BELEG_ALT.Beleg_TYP = "E"
@@ -109,7 +110,7 @@
If RKSV_Beleg_Id < 0 Then
Me.Cursor = Cursors.Default
BELEG_ALT = cRKSV.STORNO(BELEG_ALT, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.")
BELEG_ALT = cRKSV.STORNO(BELEG_ALT, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.", KASSE.rksv_firma)
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
End If
@@ -126,7 +127,7 @@
If KASSE.rksv_aktiv Then
If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_ALT.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_ALT.rksv_umsatz * -1)
cRKSV.DELETE(BELEG_ALT)
cRKSV.DELETE(BELEG_ALT, KASSE.rksv_firma)
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
End If
@@ -148,6 +149,8 @@
BELEG_NEU.rksv_aktiv = KASSE.rksv_aktiv
BELEG_NEU.Ordnungsbegriff = "* KASSEN-JAHRESANFANGS-SALDO *" 'IIf(Art = 1, "* KASSEN-JAHRESABSCHLUSS *", "* KASSEN-JAHRESANFANGS-SALDO *")
If txtxAbwBetragNEU._value <> "" AndAlso IsNumeric(txtxAbwBetragNEU._value) Then betrag = txtxAbwBetragNEU._value
BELEG_NEU.rksv_umsatz = betrag
BELEG_NEU.Steuerschlüssel = 0
@@ -167,7 +170,7 @@
If RKSV_Beleg_Id < 0 Then
Me.Cursor = Cursors.Default
BELEG_NEU = cRKSV.STORNO(BELEG_NEU, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.")
BELEG_NEU = cRKSV.STORNO(BELEG_NEU, "Programmfehler bei der Erstellung der RKSV-Beleg-Id.", KASSE.rksv_firma)
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
End If
@@ -184,7 +187,7 @@
If KASSE.rksv_aktiv Then
If Not cRKSV.insertRKSV(KASSE, KASSE.rksv_CompanyGUID, KASSE.rksv_Umsatzzaehler, Now, BELEG_NEU.Steuerschlüssel, RKSV_Beleg_Id, summeBRUTTO, QR_CodeString, LastJWS, False, answer) Then 'Digitale Signierung und Erfassung in die RKSV-Datenbank mittels ITG-Service
KASSE.DECREASE_BELEG_UMSATZ(oldBelegZaehler, BELEG_NEU.rksv_umsatz * -1)
cRKSV.DELETE(BELEG_NEU)
cRKSV.DELETE(BELEG_NEU, KASSE.rksv_firma)
MsgBox("Programmfehler bei der digitalen Signatur." & vbNewLine & vbNewLine & answer, MsgBoxStyle.Critical)
Me.Cursor = Cursors.Default : Me.Close() : Exit Sub
End If
@@ -282,4 +285,12 @@
Return True
End Function
Private Sub cbxAlt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlt.CheckedChanged
txtxAbwBetragALT.Enabled = cbxAlt.Checked
End Sub
Private Sub cbxNeu_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNeu.CheckedChanged
txtxAbwBetragNEU.Enabled = cbxNeu.Checked
End Sub
End Class

199
SDL/Administration/frmKasseJournalNeuBerechnen.Designer.vb generated Normal file
View File

@@ -0,0 +1,199 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmKasseJournalNeuBerechnen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKasseJournalNeuBerechnen))
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblKasseWahlen = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.NumericUpDown = 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()
Me.lblTESTSYSTEM = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
Me.MyComboBox2._allowFreiText = False
Me.MyComboBox2._value = ""
Me.MyComboBox2.FormattingEnabled = True
Me.MyComboBox2.Location = New System.Drawing.Point(12, 30)
Me.MyComboBox2.Name = "MyComboBox2"
Me.MyComboBox2.Size = New System.Drawing.Size(298, 21)
Me.MyComboBox2.TabIndex = 14
'
'lblKasseWahlen
'
Me.lblKasseWahlen.AutoSize = True
Me.lblKasseWahlen.Location = New System.Drawing.Point(9, 14)
Me.lblKasseWahlen.Name = "lblKasseWahlen"
Me.lblKasseWahlen.Size = New System.Drawing.Size(76, 13)
Me.lblKasseWahlen.TabIndex = 15
Me.lblKasseWahlen.Text = "Kasse wählen:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 72)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "altes Geschäftsjahr:"
'
'NumericUpDown
'
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})
'
'btnKassensaldoUbertragen
'
Me.btnKassensaldoUbertragen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKassensaldoUbertragen.Location = New System.Drawing.Point(12, 416)
Me.btnKassensaldoUbertragen.Name = "btnKassensaldoUbertragen"
Me.btnKassensaldoUbertragen.Size = New System.Drawing.Size(298, 50)
Me.btnKassensaldoUbertragen.TabIndex = 20
Me.btnKassensaldoUbertragen.Text = "Journal neu berechnen"
Me.btnKassensaldoUbertragen.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(197, 55)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(37, 13)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Saldo:"
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = ""
Me.MyTextBox1._Waehrung = True
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(200, 71)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.ReadOnly = True
Me.MyTextBox1.Size = New System.Drawing.Size(110, 20)
Me.MyTextBox1.TabIndex = 22
'
'lblTESTSYSTEM
'
Me.lblTESTSYSTEM.AutoSize = True
Me.lblTESTSYSTEM.ForeColor = System.Drawing.Color.Red
Me.lblTESTSYSTEM.Location = New System.Drawing.Point(231, 9)
Me.lblTESTSYSTEM.Name = "lblTESTSYSTEM"
Me.lblTESTSYSTEM.Size = New System.Drawing.Size(79, 13)
Me.lblTESTSYSTEM.TabIndex = 24
Me.lblTESTSYSTEM.Text = "TESTSYSTEM"
Me.lblTESTSYSTEM.Visible = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 54)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(10, 13)
Me.Label4.TabIndex = 25
Me.Label4.Text = "-"
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(12, 153)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(298, 257)
Me.MyDatagridview1.TabIndex = 26
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(12, 97)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(298, 50)
Me.Button1.TabIndex = 27
Me.Button1.Text = "Kassenbuch laden"
Me.Button1.UseVisualStyleBackColor = True
'
'frmKasseJournalNeuBerechnen
'
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(323, 478)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.lblTESTSYSTEM)
Me.Controls.Add(Me.MyTextBox1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.btnKassensaldoUbertragen)
Me.Controls.Add(Me.NumericUpDown)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblKasseWahlen)
Me.Controls.Add(Me.MyComboBox2)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKasseJournalNeuBerechnen"
Me.Text = "frmKasseAbschliessen"
CType(Me.NumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblKasseWahlen As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents NumericUpDown 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
Friend WithEvents lblTESTSYSTEM As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Button1 As Button
End Class

1253
SDL/Administration/frmKasseJournalNeuBerechnen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

87
SDL/Administration/frmKasseJournalNeuBerechnen.vb Normal file
View File

@@ -0,0 +1,87 @@
Public Class frmKasseJournalNeuBerechnen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FMZOLL_SQL As New FMZOLL_SQL
Dim SaldoALT As Double = 0.0
Dim SaldoNEU As Double = 0.0
Dim PERSONAL As cPersonal = Nothing
Private Sub frmKasseAbschliessen_Load(sender As Object, e As EventArgs) Handles Me.Load
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
End Sub
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox2.SelectedIndexChanged
PERSONAL = Nothing
MyTextBox1.Text = ""
Label4.Text = ""
If MyComboBox2._value <> "" Then
PERSONAL = FMZOLL_SQL.getPersonalKassenbuch(MyComboBox2._value)
Label4.Text = PERSONAL.ID
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")
MyTextBox1.Text = SaldoALT
End Sub
Private Sub btnKassensaldoUbertragen_Click(sender As Object, e As EventArgs) Handles btnKassensaldoUbertragen.Click
Me.Cursor = Cursors.WaitCursor
If PERSONAL Is Nothing Then MsgBox("Kasse wählen!") : Exit Sub
Dim JournalMinus = SQL.getValueTxtBySql("select COUNT(*) FROM [tblKassenbuch] where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' and JournalNr<0 ", "FMZOLL",,, 0)
If JournalMinus = 0 Then
Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKassenbuch] where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' order by /*BelegDat,*/KB_Zeitstempel", "FMZOLL")
Dim JournalNrNEG = -1
For Each r In dt.Rows
SQL.doSQL("UPDATE [tblKassenbuch] SET JournalNr='" & JournalNrNEG & "' where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' and JournalNr='" & r("JournalNr") & "' ", "FMZOLL")
JournalNrNEG -= 1
Next
MsgBox("JETZT MINUS KORREKTUR")
'Update setzt alle Jounalnunmmern wieder Positiv
SQL.doSQL("UPDATE [tblKassenbuch] SET JournalNr=JournalNr * -1 where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' ", "FMZOLL")
MsgBox("JETZT JOURNAL KORREKTUR")
SQL.doSQL("update [VERAG].[dbo].[tblGeschäftsjahr]
set LfdJournalNr=( select isnull(max(JournalNr),1) from tblKassenbuch where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' )
where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' ", "FMZOLL")
Else
MsgBox("Es sind negative JournalNummern vorhanden - Vorgang wird abgebrochen!")
End If
initSALDO()
Me.Cursor = Cursors.Default
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If PERSONAL Is Nothing Then MsgBox("Kasse wählen!") : Exit Sub
With MyDatagridview1
.DataSource = SQL.loadDgvBySql("SELECT * FROM [tblKassenbuch] where Benutzer='" & PERSONAL.ID & "' and Mandant='" & PERSONAL.Mandant & "' and Niederlassung='" & PERSONAL.Niederlassung & "' and Geschäftsjahr ='" & NumericUpDown.Value & "' order by /*BelegDat,*/KB_Zeitstempel", "FMZOLL")
End With
End Sub
End Class

77
SDL/Administration/usrCntlAdministration.Designer.vb generated
View File

@@ -44,13 +44,14 @@ Partial Class usrCntlAdministration
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtKostenstelleJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.Button11 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.datKostenstelleBis = New System.Windows.Forms.DateTimePicker()
Me.datKostenstelleVon = New System.Windows.Forms.DateTimePicker()
Me.txtKostenstelleJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Button10 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
@@ -165,7 +166,7 @@ Partial Class usrCntlAdministration
Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button6.Image = Global.SDL.My.Resources.Resources.kunden
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.Location = New System.Drawing.Point(21, 512)
Me.Button6.Location = New System.Drawing.Point(21, 542)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(211, 54)
Me.Button6.TabIndex = 10
@@ -309,6 +310,36 @@ Partial Class usrCntlAdministration
Me.GroupBox2.TabIndex = 24
Me.GroupBox2.TabStop = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(223, 51)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(30, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "Jahr:"
'
'txtKostenstelleJahr
'
Me.txtKostenstelleJahr._DateTimeOnly = False
Me.txtKostenstelleJahr._numbersOnly = True
Me.txtKostenstelleJahr._numbersOnlyKommastellen = ""
Me.txtKostenstelleJahr._Prozent = False
Me.txtKostenstelleJahr._ShortDateNew = False
Me.txtKostenstelleJahr._ShortDateOnly = False
Me.txtKostenstelleJahr._TimeOnly = False
Me.txtKostenstelleJahr._value = ""
Me.txtKostenstelleJahr._Waehrung = False
Me.txtKostenstelleJahr._WaehrungZeichen = True
Me.txtKostenstelleJahr.ForeColor = System.Drawing.Color.Black
Me.txtKostenstelleJahr.Location = New System.Drawing.Point(268, 48)
Me.txtKostenstelleJahr.MaxLineLength = -1
Me.txtKostenstelleJahr.MaxLines_Warning = ""
Me.txtKostenstelleJahr.MaxLines_Warning_Label = Nothing
Me.txtKostenstelleJahr.Name = "txtKostenstelleJahr"
Me.txtKostenstelleJahr.Size = New System.Drawing.Size(100, 20)
Me.txtKostenstelleJahr.TabIndex = 21
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
@@ -362,41 +393,24 @@ Partial Class usrCntlAdministration
Me.datKostenstelleVon.TabIndex = 21
Me.datKostenstelleVon.Visible = False
'
'txtKostenstelleJahr
'Button10
'
Me.txtKostenstelleJahr._DateTimeOnly = False
Me.txtKostenstelleJahr._numbersOnly = True
Me.txtKostenstelleJahr._numbersOnlyKommastellen = ""
Me.txtKostenstelleJahr._Prozent = False
Me.txtKostenstelleJahr._ShortDateNew = False
Me.txtKostenstelleJahr._ShortDateOnly = False
Me.txtKostenstelleJahr._TimeOnly = False
Me.txtKostenstelleJahr._value = ""
Me.txtKostenstelleJahr._Waehrung = False
Me.txtKostenstelleJahr._WaehrungZeichen = True
Me.txtKostenstelleJahr.ForeColor = System.Drawing.Color.Black
Me.txtKostenstelleJahr.Location = New System.Drawing.Point(268, 48)
Me.txtKostenstelleJahr.MaxLineLength = -1
Me.txtKostenstelleJahr.MaxLines_Warning = ""
Me.txtKostenstelleJahr.MaxLines_Warning_Label = Nothing
Me.txtKostenstelleJahr.Name = "txtKostenstelleJahr"
Me.txtKostenstelleJahr.Size = New System.Drawing.Size(100, 20)
Me.txtKostenstelleJahr.TabIndex = 21
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(223, 51)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(30, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "Jahr:"
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(241, 493)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(211, 24)
Me.Button10.TabIndex = 25
Me.Button10.Text = "Kasse Journal-Nr neu berechnen"
Me.Button10.UseVisualStyleBackColor = True
'
'usrCntlAdministration
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.datKostenstelleBis)
@@ -459,4 +473,5 @@ Partial Class usrCntlAdministration
Friend WithEvents datKostenstelleBis As DateTimePicker
Friend WithEvents datKostenstelleVon As DateTimePicker
Friend WithEvents Label7 As Label
Friend WithEvents Button10 As Button
End Class

5
SDL/Administration/usrCntlAdministration.vb
View File

@@ -289,5 +289,8 @@
Me.Cursor = Cursors.Default
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Dim frmKasseJournalNeuBerechnen As New frmKasseJournalNeuBerechnen
frmKasseJournalNeuBerechnen.Show(Me)
End Sub
End Class