neu
This commit is contained in:
@@ -53,9 +53,8 @@ Public Class frmKassenbuch
|
||||
End If
|
||||
End Function
|
||||
Private Sub frmKassenbuch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
RKSV = New cRKSV_Kasse(PERSONAL.cRKSV_KasseID)
|
||||
GESCHAEFTSJAHR = cRKSV.getGJ(Now, RKSV.rksv_firma)
|
||||
GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(Now, RKSV.rksv_firma)
|
||||
|
||||
|
||||
If PERSONAL.ID = 274 Then master_Kasse = True
|
||||
@@ -130,7 +129,7 @@ Public Class frmKassenbuch
|
||||
initDate()
|
||||
' initDgv()
|
||||
initDgv() 'initDgv, weil sonst Umschaltung zu MASTER Kasse nicht funzt
|
||||
'DataGridView2.RELOAD()
|
||||
'DataGridView2.RELOAD()
|
||||
|
||||
If PERSONAL.cRKSV_Kasse Is Nothing Then
|
||||
Label5.Text = "Keine Standard-Kasse"
|
||||
@@ -400,7 +399,7 @@ Public Class frmKassenbuch
|
||||
Case Else
|
||||
End Select
|
||||
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von, RKSV.rksv_firma) ' iif (von.Month = 1, von.Year - 1, von.Year)
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(von, RKSV.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
|
||||
@@ -424,7 +423,7 @@ Public Class frmKassenbuch
|
||||
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
|
||||
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
|
||||
rpt.lblBelegDat.Text = BuDat
|
||||
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat, RKSV.rksv_firma) ''IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
|
||||
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ_FIRMA(BuDat, RKSV.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.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
|
||||
' rpt.lblKonto.Text = SQL.getValueTxtBySql("SELECT CASE WHEN COUNT(distinct(konto))>1 THEN 'div.' ELSE CONVERT(VARCHAR(4),MAX(konto)) END as Konto, SUM(soll)as Soll, SUM(haben) as Haben FROM [tblKassenbuch] " &
|
||||
@@ -486,7 +485,7 @@ Public Class frmKassenbuch
|
||||
End If
|
||||
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
|
||||
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ(Now, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(Now, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
|
||||
|
||||
' rpt.DataSource = SQL.loadDgvBySql("SELECT MIN(JournalNr)as JournalNr, MAX(BelegDat)as BelegDat,MAX(Buchungsdatum)as Buchungsdatum,MAX(belegNr) as BelegNr, (SELECT top 1 t.Buchungstext FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Buchungstext,(SELECT top 1 t.konto FROM [tblKassenbuch] as t WHERE journalnr=t.journalnr) as Konto, SUM(Soll) as Soll,SUM(haben) as Haben " &
|
||||
' "FROM [tblKassenbuch] WHERE CAST(Buchungsdatum as date) BETWEEN '" & von.ToShortDateString & "' AND '" & bis.ToShortDateString & "' And Benutzer=" & PERSONAL.ID & " group by BelegNr", "FMZOLL") 'cProgramFunctions.dgridViewTods(dgvBelegPos)
|
||||
@@ -555,7 +554,7 @@ Public Class frmKassenbuch
|
||||
rpt.lblJournalNr.Text = rpt.Fields.Item("JournalNr").Value()
|
||||
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
|
||||
rpt.lblBelegDat.Text = BuDat
|
||||
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat, RKSV.rksv_firma) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
|
||||
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ_FIRMA(BuDat, RKSV.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.lblBuchungstext.Text = rpt.Fields.Item("Buchungstext").Value()
|
||||
rpt.lblKonto.Text = rpt.Fields.Item("Konto").Value()
|
||||
@@ -627,7 +626,7 @@ Public Class frmKassenbuch
|
||||
End If
|
||||
Dim von As Date = frmVonBis.datVon.Value.ToShortDateString
|
||||
Dim bis As Date = frmVonBis.datBis.Value.ToShortDateString
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
|
||||
Dim GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(von, RKSV.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
|
||||
|
||||
Dim where = ""
|
||||
Dim benutzerTMP = ""
|
||||
@@ -918,31 +917,38 @@ Public Class frmKassenbuch
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
|
||||
If BELEGTmp.BelegDat < Now.AddMonths(-2) And Not master_Kasse Then
|
||||
MsgBox("Beleg älter als 2 Monate, Aktion wird abgebrochen") 'alte Belege nicht mehr storinieren
|
||||
Exit Sub
|
||||
End If
|
||||
MsgBox("Beleg älter als 2 Monate, Aktion wird abgebrochen") 'alte Belege nicht mehr storinieren
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If f.cbxStornoErzwingenAdmin.Checked Then
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund2, True) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
If f.cbxStornoErzwingenAdmin.Checked Then
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund2, True, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
End If
|
||||
|
||||
If f.cbxStornoRKSV.Checked Then 'nur RKSV!!!!!!!
|
||||
' BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, Fal) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
|
||||
If KASSETmp IsNot Nothing Then
|
||||
KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
|
||||
Dim QRQString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
Dim answer = ""
|
||||
If KASSETmp.rksv_aktiv Then
|
||||
If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
' BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, Fal) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
If KASSETmp IsNot Nothing Then
|
||||
KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
|
||||
Dim QRQString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
Dim answer = ""
|
||||
If KASSETmp.rksv_aktiv Then
|
||||
If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If KASSETmp.rksvDE_aktiv Then
|
||||
Dim PERSONALTmp1 As cPersonal = FMZOLL_SQL.getPersonalById(BELEGTmp.Benutzer)
|
||||
If Not cRKSV.stornoRKSV_DE(PERSONALTmp1, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!!
|
||||
BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund2) 'Beleg storno
|
||||
@@ -973,40 +979,49 @@ Public Class frmKassenbuch
|
||||
If Not BELEGTmp.gebuchtStorno Then 'f.cbxStornoErzwingenAdmin.Checked=stono erzwingen
|
||||
|
||||
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
' BELEGTmp = cRKSV.STORNO(BELEGTmp, "") 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
' BELEGTmp = cRKSV.STORNO(BELEGTmp, "") 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
|
||||
' Dim summe As Double = 0
|
||||
' For Each p In BELEGTmp.POS
|
||||
'summe += p.Betrag
|
||||
' Next
|
||||
' summe = summe * -1
|
||||
' Dim summe As Double = 0
|
||||
' For Each p In BELEGTmp.POS
|
||||
'summe += p.Betrag
|
||||
' Next
|
||||
' summe = summe * -1
|
||||
' Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
|
||||
|
||||
Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
|
||||
|
||||
If KASSETmp IsNot Nothing Then
|
||||
If KASSETmp IsNot Nothing Then
|
||||
KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
|
||||
Dim QRQString As String = ""
|
||||
Dim LastJWS As String = ""
|
||||
Dim answer = ""
|
||||
If KASSETmp.rksv_aktiv Then
|
||||
If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
|
||||
'FEHLER!!
|
||||
BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
'FEHLER!!
|
||||
BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If KASSETmp.rksvDE_aktiv Then
|
||||
If Not cRKSV.stornoRKSV_DE(PERSONALTmp, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then
|
||||
'FEHLER!!
|
||||
BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case BELEGTmp.Beleg_TYP 'dt.Rows(0)("Beleg_TYP")
|
||||
Case "E"
|
||||
Dim KBEntry As cKassenbuch = Nothing
|
||||
Dim KBEntryGB As cKassenbuch = Nothing
|
||||
If cRKSV.getKB(BELEGTmp, PERSONALTmp, KBEntry, KBEntryGB) Then
|
||||
cRKSV.printFremdBeleg(BELEGTmp, KASSETmp, PERSONALTmp, KBEntry, KBEntryGB, "") 'Beleg drucken
|
||||
End If
|
||||
Case "L"
|
||||
If cRKSV.getKB(BELEGTmp, PERSONALTmp, KBEntry, KBEntryGB, KASSETmp.rksv_firma) Then
|
||||
cRKSV.printFremdBeleg(BELEGTmp, KASSETmp, PERSONALTmp, KBEntry, KBEntryGB, "") 'Beleg drucken
|
||||
End If
|
||||
Case "L"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "LG") 'Beleg drucken
|
||||
Case "A"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "A") 'Beleg drucken
|
||||
@@ -1049,7 +1064,7 @@ Public Class frmKassenbuch
|
||||
End If
|
||||
|
||||
Dim KASSE As New cRKSV_Kasse(cboKassen._value) 'Laden der Kasse anhand der Auswahlbox
|
||||
cRKSV.printNULLBeleg(KASSE, PERSONAL, True)
|
||||
cRKSV.printNULLBeleg(KASSE, PERSONAL, True, KASSE.rksv_firma)
|
||||
' End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user