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

CBAM

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-02-26 12:42:52 +01:00
parent 6e023041f9
commit 39dd8a0501
36 changed files with 11903 additions and 629 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Administration/frmKasseAbschliessen.vb
View File

@@ -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).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
BELEG_ALT.BelegDat = cRKSV.getGJ_EndOfYear(NumericUpDown.Value, KASSE.rksv_firma).ToShortDateString 'CDate("31.01." & NumericUpDown1.Value)
If txtxAbwBetragALT._value <> "" AndAlso IsNumeric(txtxAbwBetragALT._value) Then betrag = txtxAbwBetragALT._value
@@ -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).ToShortDateString '' CDate("01.02." & NumericUpDown1.Value)
BELEG_NEU.BelegDat = cRKSV.getGJ_BeginOfYear(NumericUpDown1.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