neu
This commit is contained in:
@@ -893,122 +893,129 @@ Public Class frmKassenbuch
|
||||
Dim PERSONALTmp As cPersonal = FMZOLL_SQL.getPersonalById(f.cboBenutzer._value)
|
||||
BELEGTmp = New EABeleg("LOAD", PERSONALTmp.Mandant, PERSONALTmp.Niederlassung, PERSONALTmp.ID, f.txtBelegNrAlt.Text, f.dat.Value)
|
||||
End Select
|
||||
If BELEGTmp IsNot Nothing Then
|
||||
|
||||
'NUR KB
|
||||
If f.cbxStornoRKSV.Checked Or f.cbxStornoBELEG.Checked Or f.cbxStornoErzwingenAdmin.Checked Then
|
||||
Dim grund = InputBox("ADMIN-Storno (" & If(f.cbxStornoRKSV.Checked, " -RKSV-Tabelle- ", "") & If(f.cbxStornoBELEG.Checked, " -BELEG-Tabelle- ", "") & If(f.cbxStornoErzwingenAdmin.Checked, " -KASSENBUCH-Tabelle- ", "") & "):" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
|
||||
If grund = "" Then
|
||||
MsgBox("Kein Stornotext, Aktion wird abgebrochen")
|
||||
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!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
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
|
||||
|
||||
If f.cbxStornoErzwingenAdmin.Checked Then
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, True) 'Beleg storno und Kassenbuch Gegenbuchung
|
||||
End If
|
||||
'NUR KB
|
||||
If f.cbxStornoRKSV.Checked Or f.cbxStornoBELEG.Checked Or f.cbxStornoErzwingenAdmin.Checked Then
|
||||
Dim grund2 = InputBox("ADMIN-Storno (" & If(f.cbxStornoRKSV.Checked, " -RKSV-Tabelle- ", "") & If(f.cbxStornoBELEG.Checked, " -BELEG-Tabelle- ", "") & If(f.cbxStornoErzwingenAdmin.Checked, " -KASSENBUCH-Tabelle- ", "") & "):" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
|
||||
If grund2 = "" Then
|
||||
MsgBox("Kein Stornotext, Aktion wird abgebrochen")
|
||||
Exit Sub
|
||||
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
|
||||
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
|
||||
|
||||
If f.cbxStornoErzwingenAdmin.Checked Then
|
||||
BELEGTmp = cRKSV.STORNO(BELEGTmp, grund2, True) '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
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!!
|
||||
BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund2) 'Beleg storno
|
||||
End If
|
||||
End If
|
||||
|
||||
If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!!
|
||||
BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund) 'Beleg storno
|
||||
End If
|
||||
|
||||
init()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If BELEGTmp IsNot Nothing Then
|
||||
init()
|
||||
Exit Sub
|
||||
End If
|
||||
'End If
|
||||
'If BELEGTmp IsNot Nothing Then
|
||||
|
||||
' BELEGTmp = New EABeleg("LOAD", PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
|
||||
|
||||
Dim PERSONALTmp As cPersonal = FMZOLL_SQL.getPersonalById(BELEGTmp.Benutzer)
|
||||
If master_Kasse = False Then
|
||||
If BELEGTmp.Benutzer <> PERSONAL.ID Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
|
||||
End If
|
||||
Dim grund = InputBox("Möchten Sie den Beleg wirklich storinieren?" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
|
||||
If grund = "" Then
|
||||
MsgBox("Kein Stornotext, Aktion wird abgebrochen")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If BELEGTmp.BelegNr <= 0 Then MsgBox("Fehler beim Laden der Belegdaten") : Exit Sub
|
||||
|
||||
|
||||
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 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)
|
||||
|
||||
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)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
If master_Kasse = False Then
|
||||
If BELEGTmp.Benutzer <> PERSONAL.ID Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
|
||||
End If
|
||||
Dim grund = InputBox("Möchten Sie den Beleg wirklich storinieren?" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
|
||||
If grund = "" Then
|
||||
MsgBox("Kein Stornotext, Aktion wird abgebrochen")
|
||||
Exit Sub
|
||||
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"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "LG") 'Beleg drucken
|
||||
Case "A"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "A") 'Beleg drucken
|
||||
Case Else
|
||||
cRKSV.printKundenBeleg(BELEGTmp, KASSETmp, PERSONALTmp, "", False) 'Beleg drucken
|
||||
End Select
|
||||
|
||||
MsgBox("Beleg storniert!")
|
||||
'Dim frmBeleg As New frmBelegNeu(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
|
||||
' frmBeleg.ShowDialog(Me)
|
||||
' init() If Not BELEGTmp.gebuchtStorno Then
|
||||
If BELEGTmp.BelegNr <= 0 Then MsgBox("Fehler beim Laden der Belegdaten") : Exit Sub
|
||||
|
||||
|
||||
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 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)
|
||||
|
||||
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)
|
||||
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"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "LG") 'Beleg drucken
|
||||
Case "A"
|
||||
cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "A") 'Beleg drucken
|
||||
Case Else
|
||||
cRKSV.printKundenBeleg(BELEGTmp, KASSETmp, PERSONALTmp, "", False) 'Beleg drucken
|
||||
End Select
|
||||
|
||||
MsgBox("Beleg storniert!")
|
||||
'Dim frmBeleg As New frmBelegNeu(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
|
||||
' frmBeleg.ShowDialog(Me)
|
||||
' init() If Not BELEGTmp.gebuchtStorno Then
|
||||
Else
|
||||
MsgBox("Beleg wurde bereits storniert!")
|
||||
End If
|
||||
init()
|
||||
Else
|
||||
MsgBox("Beleg wurde bereits storniert!")
|
||||
MsgBox("Keine Daten gefunden!")
|
||||
End If
|
||||
init()
|
||||
Else
|
||||
MsgBox("Keine Daten gefunden!")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user