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

Compare commits

base: edv:06fb64cc6a869ee780a56593237b070ec4471d57
Branches Tags
edv:master edv:newMaster2024 edv:Logikänderung_VM
...
compare: edv:d158dc95f19e21b8ca8cb0dff56a3fcc607bd763
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

4 Commits
06fb64cc6a ... d158dc95f1

Author SHA1 Message Date
d.breimaier
d158dc95f1 Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024 2025-11-14 11:31:46 +01:00
d.breimaier
b53a9957ee rksv 2025-11-14 11:31:40 +01:00
d.breimaier
ea91263bc5 rksi 2025-11-14 11:31:33 +01:00
d.breimaier
ba78e1a073 fix rksc 2025-11-14 10:22:51 +01:00
2 changed files with 57 additions and 36 deletions
Expand all files Collapse all files

64
SDL/Classes/cRKSV.vb
View File

@@ -2373,7 +2373,7 @@ Public Class cRKSV
If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then If BelegSofortInFIBUverbuchten AndAlso BELEG.Beleg_TYP = "L" Then
Dim stapelbuchung As Boolean = False Dim stapelbuchung As Boolean = False
'createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List) createSyskaBuchung(RKSV_id, BELEG, stapelbuchung, KBEntry_List, KBEntryGB_List, KBEntryST_List)
End If End If
BELEG.gebucht = True BELEG.gebucht = True
@@ -2447,8 +2447,8 @@ Public Class cRKSV
'ist immer nur 1 POSITION!!!!! 'ist immer nur 1 POSITION!!!!!
For Each r In KBEntry_list For Each r In beleg.POS
BETRAG = r.Betrag BETRAG = +r.Betrag
Next Next
'Bestandkonto und Erlöskonto immer fix! 'Bestandkonto und Erlöskonto immer fix!
@@ -2519,12 +2519,12 @@ Public Class cRKSV
Dim kkennunghab As Integer = 0 Dim kkennunghab As Integer = 0
Dim kkennunghab2 As Integer = 0 Dim kkennunghab2 As Integer = 0
Dim dt_Sollkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT top(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Sollkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") Dim dt_Sollkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT top(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE') as c_kontoart, isnull([FIBU2].dbo.fibu_konto.i_kennung,0) as i_kennung FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Sollkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU")
If dt_Sollkonto.Rows.Count > 0 Then If dt_Sollkonto.Rows.Count > 0 Then
kkennungsoll = dt_Sollkonto.Rows(0).Item("i_kennung") kkennungsoll = dt_Sollkonto.Rows(0).Item("i_kennung")
ckennsoll = dt_Sollkonto.Rows(0).Item("c_kontoart") ckennsoll = dt_Sollkonto.Rows(0).Item("c_kontoart")
End If End If
Dim dt_Habenkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT TOP(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE'), isnull([FIBU2].dbo.fibu_konto.i_kennung,0) FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU") Dim dt_Habenkonto As DataTable = VERAG_SQL.loadDgvBySql("SELECT TOP(1) isnull([FIBU2].dbo.fibu_konto.c_kontoart,'LE') as c_kontoart , isnull([FIBU2].dbo.fibu_konto.i_kennung,0) as i_kennung FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & Habenkonto & " AND [FIBU2].dbo.fibu_konto.i_firm_refid = " & MANDANT, "FIBU")
If dt_Habenkonto.Rows.Count > 0 Then If dt_Habenkonto.Rows.Count > 0 Then
kkennunghab = dt_Habenkonto.Rows(0).Item("i_kennung") kkennunghab = dt_Habenkonto.Rows(0).Item("i_kennung")
ckennhab = dt_Habenkonto.Rows(0).Item("c_kontoart") ckennhab = dt_Habenkonto.Rows(0).Item("c_kontoart")
@@ -2548,6 +2548,7 @@ Public Class cRKSV
If StapelAZK = "" Then StapelAZK = "0000" If StapelAZK = "" Then StapelAZK = "0000"
Dim dt_creation As String = Now.ToString("dd HH:mm:ss") Dim dt_creation As String = Now.ToString("dd HH:mm:ss")
Dim dt_creationDate As String = Now.ToString
Dim ProtokollID As String = StapelAZK.ToString() & "-" & ZSBuchnrINT.ToString("0000") & "-" & JAHR & "-" & PERIODE.ToString("N2") & "-" & dt_creation Dim ProtokollID As String = StapelAZK.ToString() & "-" & ZSBuchnrINT.ToString("0000") & "-" & JAHR & "-" & PERIODE.ToString("N2") & "-" & dt_creation
Dim pruef As Integer = 0 Dim pruef As Integer = 0
@@ -2771,11 +2772,11 @@ Public Class cRKSV
Dim c_ustidnr As String = "" Dim c_ustidnr As String = ""
Dim c_zahlziel As String = "" Dim c_zahlziel As String = ""
getDEBDaten(MANDANT, Sollkonto2, c_sprache, c_ustidnr, c_zahlziel, si_tage, dec_skonto, si_ntage, SkontoDatum, Nettodatum) getDEBDaten(MANDANT, Personenkonto, c_sprache, c_ustidnr, c_zahlziel, si_tage, dec_skonto, si_ntage, SkontoDatum, Nettodatum)
'7/1 Schritt -> Salden-Fortschreibung! '7/1 Schritt -> Salden-Fortschreibung!
Dim opvorgangsbetrag As Double = 0 Dim opvorgangsbetrag As Double = 0
Saldenaktualisierung(TYP, BETRAG, beleg, dec_sollsumme, dec_habensumme, MANDANT, Sollkonto2, Forderungskonto, Bestandskonto, Sachkonto, Erlöskonto, opvorgangsbetrag) Saldenaktualisierung(VERAG_SQL, TYP, BETRAG, beleg, dec_sollsumme, dec_habensumme, MANDANT, Sollkonto2, Forderungskonto, Bestandskonto, Sachkonto, Erlöskonto, opvorgangsbetrag)
'7/2 Schritt -> Saldenperiodenbuchungen (Salden-Fortschreibung)! '7/2 Schritt -> Saldenperiodenbuchungen (Salden-Fortschreibung)!
@@ -2786,12 +2787,19 @@ Public Class cRKSV
Next Next
'8. Schritt -> Offene Posten anlegen '8. Schritt -> Offene Posten anlegen
createOP(MANDANT, BETRAG, beleg.BelegNr, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Buchungstext, BUCHUNGSBETRAG, "EUR", Personenkonto, Forderungskonto, i_op_refid, Buchungstyp, c_sprache, c_zahlziel, dec_skonto, SkontoDatum, Nettodatum, c_ustidnr) createOP(MANDANT, BETRAG, beleg.BelegNr, beleg.BelegDat.ToShortDateString, beleg.BelegNr, Buchungstext, BUCHUNGSBETRAG, "EUR", Personenkonto, Forderungskonto, i_op_refid, Buchungstyp, c_sprache, c_zahlziel, dec_skonto, SkontoDatum.ToShortDateString, Nettodatum.ToShortDateString, c_ustidnr)
createOPVorgang(MANDANT, TYP, BETRAG, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat.ToShortDateString, Buchungstext, Personenkonto, opvorgangsbetrag, i_op_refid, dt_creation, Sachkonto, "AUTO") createOPVorgang(MANDANT, TYP, BETRAG, JAHR, PERIODE, i_beleg_refid, beleg.BelegDat.ToShortDateString, Buchungstext, Personenkonto, opvorgangsbetrag, i_op_refid, dt_creationDate, Sachkonto, "AUTO")
If checkifgebucht(MANDANT, beleg.BelegNr, Buchungstext) Then
MsgBox("GEBUCHT!")
Else
MsgBox("NICHT GEBUCHT!")
End If
End If End If
End If End If
@@ -2911,17 +2919,17 @@ Public Class cRKSV
End Sub End Sub
Private Shared Sub getDEBDaten(Mandant As String, DebKonto As Integer, c_sprache As String, c_ustidnr As String, c_zahlziel As String, si_tage As Integer, dec_skonto As Integer, si_ntage As Integer, SkontoDatum As Date, Nettodatum As Date) Private Shared Sub getDEBDaten(ByRef Mandant As String, ByRef DebKonto As Integer, ByRef c_sprache As String, ByRef c_ustidnr As String, ByRef c_zahlziel As String, ByRef si_tage As Integer, ByRef dec_skonto As Integer, ByRef si_ntage As Integer, ByRef SkontoDatum As Date, ByRef Nettodatum As Date)
Dim dtKontoinfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT c_sprache,c_ustidnr,c_zahlziel FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & DebKonto & " And [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant, "FIBU") Dim dtKontoinfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT isnull(c_sprache,'DE') as c_sprache ,isnull(c_ustidnr, '') as c_ustidnr , isnull(c_zahlziel, '0') as c_zahlziel FROM [FIBU2].dbo.fibu_konto WHERE [FIBU2].dbo.fibu_konto.i_konto = " & DebKonto & " And [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant, "FIBU")
If dtKontoinfo.Rows.Count = 1 Then If dtKontoinfo.Rows.Count = 1 Then
c_sprache = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("si_tage")), "DE", dtKontoinfo.Rows(0).Item("si_tage")) c_sprache = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_sprache")), "DE", dtKontoinfo.Rows(0).Item("c_sprache"))
c_ustidnr = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_ustidnr")), "", dtKontoinfo.Rows(0).Item("c_ustidnr")) c_ustidnr = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_ustidnr")), "", dtKontoinfo.Rows(0).Item("c_ustidnr"))
c_zahlziel = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_zahlziel")), "", dtKontoinfo.Rows(0).Item("c_zahlziel")) c_zahlziel = IIf(IsDBNull(dtKontoinfo.Rows(0).Item("c_zahlziel")), "", dtKontoinfo.Rows(0).Item("c_zahlziel"))
End If End If
Dim dt_skontoInfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select si_tage, dec_skonto, si_ntage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_zahlziel.c_zahlziel '" & c_zahlziel & "'", "FIBU") Dim dt_skontoInfo As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select isnull(si_tage,0) as si_tage , isnull(dec_skonto, 0) as dec_skonto , isnull(si_ntage, 0) as si_ntage FROM [FIBU2].dbo.fibu_zahlziel WHERE [FIBU2].dbo.fibu_zahlziel.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_zahlziel.c_zahlziel = '" & c_zahlziel & "'", "FIBU")
If dt_skontoInfo.Rows.Count = 1 Then If dt_skontoInfo.Rows.Count = 1 Then
si_tage = IIf(IsDBNull(dt_skontoInfo.Rows(0).Item("si_tage")), 0, CInt(dt_skontoInfo.Rows(0).Item("si_tage"))) si_tage = IIf(IsDBNull(dt_skontoInfo.Rows(0).Item("si_tage")), 0, CInt(dt_skontoInfo.Rows(0).Item("si_tage")))
@@ -2935,14 +2943,14 @@ Public Class cRKSV
End Sub End Sub
Private Shared Sub Saldenaktualisierung(TYP As String, Betrag As Double, Beleg As EABeleg, dec_sollsumme As Double, dec_habensumme As Double, Mandant As String, Sollkonto2 As Integer, Forderungskonto As Integer, Bestandskonto As Integer, Sachkonto As Integer, ErloeskontoBeiAuszahlung As Integer, opvorgangsbetrag As Double) Private Shared Sub Saldenaktualisierung(SQL As VERAG_PROG_ALLGEMEIN.SQL, TYP As String, Betrag As Double, Beleg As EABeleg, dec_sollsumme As Double, dec_habensumme As Double, Mandant As String, Sollkonto2 As Integer, Forderungskonto As Integer, Bestandskonto As Integer, Sachkonto As Integer, ErloeskontoBeiAuszahlung As Integer, opvorgangsbetrag As Double)
Dim dec_aktuellersaldo As Double = 0 Dim dec_aktuellersaldo As Double = 0
Dim eur_aktuellersaldo As Double = 0 Dim eur_aktuellersaldo As Double = 0
'----------FORDERUNGSKONTO------------------- '----------FORDERUNGSKONTO-------------------
Dim dt_SaldoInfo_Forderungskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU") Dim dt_SaldoInfo_Forderungskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU")
If dt_SaldoInfo_Forderungskonto.Rows.Count = 1 Then If dt_SaldoInfo_Forderungskonto.Rows.Count = 1 Then
dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo"))) dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("dec_aktuellersaldo")))
eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo"))) eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Forderungskonto.Rows(0).Item("eur_aktuellersaldo")))
@@ -2975,12 +2983,12 @@ Public Class cRKSV
End If End If
SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU") SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo.ToString.Replace(",", ".") & ", dec_sollsumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", dec_habensumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", eur_aktuellersaldo = " & eur_aktuellersaldo.ToString.Replace(",", ".") & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Forderungskonto, "FIBU")
'----------BESTANDSKONTO------------------- '----------BESTANDSKONTO-------------------
Dim dt_SaldoInfo_Bestandskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") Dim dt_SaldoInfo_Bestandskonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU")
If dt_SaldoInfo_Bestandskonto.Rows.Count = 1 Then If dt_SaldoInfo_Bestandskonto.Rows.Count = 1 Then
dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo"))) dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("dec_aktuellersaldo")))
eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo"))) eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Bestandskonto.Rows(0).Item("eur_aktuellersaldo")))
@@ -3017,12 +3025,12 @@ Public Class cRKSV
End If End If
SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo.ToString.Replace(",", ".") & ", dec_sollsumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", dec_habensumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", eur_aktuellersaldo = " & eur_aktuellersaldo.ToString.Replace(",", ".") & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU")
'----------BESTANDSKONTO------------------- '----------BESTANDSKONTO-------------------
Dim dt_SaldoInfo_Sachkonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") Dim dt_SaldoInfo_Sachkonto As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU")
If dt_SaldoInfo_Sachkonto.Rows.Count = 1 Then If dt_SaldoInfo_Sachkonto.Rows.Count = 1 Then
dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo"))) dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("dec_aktuellersaldo")))
eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo"))) eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Sachkonto.Rows(0).Item("eur_aktuellersaldo")))
@@ -3031,7 +3039,7 @@ Public Class cRKSV
End If End If
SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo.ToString.Replace(",", ".") & ", dec_sollsumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", dec_habensumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", eur_aktuellersaldo = " & eur_aktuellersaldo.ToString.Replace(",", ".") & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU")
@@ -3041,7 +3049,7 @@ Public Class cRKSV
'Erlöskonto bei Auszahlung 'Erlöskonto bei Auszahlung
Dim dt_SaldoInfo_ErloeskontoBeiAuszahlung As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU") Dim dt_SaldoInfo_ErloeskontoBeiAuszahlung As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU")
If dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows.Count = 1 Then If dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows.Count = 1 Then
dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme"))) dec_sollsumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_sollsumme")))
dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme"))) dec_habensumme = IIf(IsDBNull(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme")), 0, CDbl(dt_SaldoInfo_ErloeskontoBeiAuszahlung.Rows(0).Item("dec_habensumme")))
@@ -3050,7 +3058,7 @@ Public Class cRKSV
dec_sollsumme = (dec_sollsumme - Betrag) dec_sollsumme = (dec_sollsumme - Betrag)
dec_habensumme = (dec_habensumme - Betrag) dec_habensumme = (dec_habensumme - Betrag)
SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU") SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_sollsumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", dec_habensumme = " & dec_sollsumme.ToString.Replace(",", ".") & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & ErloeskontoBeiAuszahlung, "FIBU")
End If End If
@@ -3060,7 +3068,7 @@ Public Class cRKSV
'SET @updatekonto = CAST(@Kontonummer AS INTEGER) 'SET @updatekonto = CAST(@Kontonummer AS INTEGER)
Dim dt_SaldoInfo_Kontonummer As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("(SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU") Dim dt_SaldoInfo_Kontonummer As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT dec_aktuellersaldo,dec_sollsumme,dec_habensumme,eur_aktuellersaldo From [FIBU2].dbo.fibu_konto Where [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Sachkonto, "FIBU")
If dt_SaldoInfo_Kontonummer.Rows.Count = 1 Then If dt_SaldoInfo_Kontonummer.Rows.Count = 1 Then
dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo"))) dec_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("dec_aktuellersaldo")))
eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo"))) eur_aktuellersaldo = IIf(IsDBNull(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo")), 0, CDbl(dt_SaldoInfo_Kontonummer.Rows(0).Item("eur_aktuellersaldo")))
@@ -3102,7 +3110,7 @@ Public Class cRKSV
End If End If
SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo & ", dec_sollsumme = " & dec_sollsumme & ", dec_habensumme = " & dec_sollsumme & ", eur_aktuellersaldo = " & eur_aktuellersaldo & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU") SQL.doSQL("UPDATE [FIBU2].dbo.fibu_konto SET d_lebudat ='" & Beleg.BelegDat.ToShortDateString & "', dec_aktuellersaldo = " & dec_aktuellersaldo.ToString.Replace(",", ".") & ", dec_sollsumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", dec_habensumme = " & dec_sollsumme.ToString.Replace(",", ".") & ", eur_aktuellersaldo = " & eur_aktuellersaldo.ToString.Replace(",", ".") & " WHERE [FIBU2].dbo.fibu_konto.i_firm_refid = " & Mandant & " And [FIBU2].dbo.fibu_konto.i_konto =" & Bestandskonto, "FIBU")
End Sub End Sub
@@ -3111,7 +3119,7 @@ Public Class cRKSV
'OPs 'OPs
Dim SQL_Insert_DEBITOR = "INSERT INTO [FIBU2].dbo.op_debitor (i_firm_refid, i_op_refid, c_urbelegid, i_personenkonto, i_forderungskonto, c_rechnungid, d_rechnung, d_valuta, c_typ, c_sprache, c_waehrung, dec_eigenbrutto, dec_fremdbrutto, eur_bruttobetrag, dec_skf_eigen, dec_skf_fremd, eur_skontierfaehig, dec_eigenzahlung, dec_fremdzahlung, eur_zahlung, c_zahlziel, dec_skonto, d_skonto, dec_skonto2, d_netto, si_mahnstufe, i_mahnlauf_refid, si_exportiert, i_stapel_refid, i_stapel_lfdnr, dec_stpl_ew_betrag, dec_stpl_ew_skonto, dec_stpl_fw_betrag, dec_stpl_fw_skonto, eur_stpl_betrag, eur_stpl_skonto, i_clearing, i_eigene_bank, si_bankeinzug, c_bemerkung, lc_anmerkungen, i_zessionstext, i_buchungskreis, c_ustidnr) Dim SQL_Insert_DEBITOR = "INSERT INTO [FIBU2].dbo.op_debitor (i_firm_refid, i_op_refid, c_urbelegid, i_personenkonto, i_forderungskonto, c_rechnungid, d_rechnung, d_valuta, c_typ, c_sprache, c_waehrung, dec_eigenbrutto, dec_fremdbrutto, eur_bruttobetrag, dec_skf_eigen, dec_skf_fremd, eur_skontierfaehig, dec_eigenzahlung, dec_fremdzahlung, eur_zahlung, c_zahlziel, dec_skonto, d_skonto, dec_skonto2, d_netto, si_mahnstufe, i_mahnlauf_refid, si_exportiert, i_stapel_refid, i_stapel_lfdnr, dec_stpl_ew_betrag, dec_stpl_ew_skonto, dec_stpl_fw_betrag, dec_stpl_fw_skonto, eur_stpl_betrag, eur_stpl_skonto, i_clearing, i_eigene_bank, si_bankeinzug, c_bemerkung, lc_anmerkungen, i_zessionstext, i_buchungskreis, c_ustidnr)
VALUES(" & mandant & "," & i_op_refid & ", " & BelegNrText & ", " & Personenkonto & ", " & Forderungskonto & ", " & BelegNrText & ", " & datumKurz & ", " & datumKurz & ", " & c_op_Typ & ", '" & Sprache & "', '" & Waehrung & "', " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), " & Betrag & " * (-1), 0, 0, 0, " & Zahlungsziel & ", '" & Skonto & "', '" & Skontodatum & "', 0,'" & Nettodatum & "', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '" & Buchungstext & "', '" & Buchungstext & "', 0, 1, '" & c_ustidnr & "');" VALUES(" & mandant & "," & i_op_refid & ", " & BelegNrText & ", " & Personenkonto & ", " & Forderungskonto & ", " & BelegNrText & ", '" & datumKurz & "', '" & datumKurz & "', '" & c_op_Typ & "', '" & Sprache & "', '" & Waehrung & "', " & Betrag * (-1) & ", " & Betrag * (-1) & " , " & Betrag * (-1) & " , " & Betrag * (-1) & " , " & Betrag * (-1) & " , " & Betrag * (-1) & " , 0, 0, 0, '" & Zahlungsziel & "', '" & Skonto & "', '" & Skontodatum & "', 0,'" & Nettodatum & "', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, '" & Buchungstext & "', '" & Buchungstext & "', 0, 1, '" & c_ustidnr & "');"
Dim insertedDEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_DEBITOR, "FIBU") Dim insertedDEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_DEBITOR, "FIBU")
@@ -3124,7 +3132,7 @@ Public Class cRKSV
'OP-Vorgänge 'OP-Vorgänge
Dim SQL_Insert_V_DEB = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) Dim SQL_Insert_V_DEB = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr)
VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', " & datumKurz & ", " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 1, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);" VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', '" & datumKurz & "', " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 1, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);"
Dim insertedV_DEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB, "FIBU") Dim insertedV_DEB As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB, "FIBU")
@@ -3136,7 +3144,7 @@ Public Class cRKSV
'if auszahlungsbetrag <> 0 THen 'if auszahlungsbetrag <> 0 THen
Dim SQL_Insert_V_DEB2 = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr) Dim SQL_Insert_V_DEB2 = "INSERT INTO [FIBU2].dbo.op_vorgang_deb (i_firm_refid, i_personenkonto, i_op_refid, i_beleg_refid, c_vorgang, d_beleg, si_rel_periode, si_jahr, i_steuer_refid, dec_steuerproz, i_nne_az_konto, dec_nettobetrag, dec_steuerbetrag, eur_nettobetrag, eur_steuerbetrag, dec_fremdbetrag, si_skontierfaehig, si_zeilen_refid, c_bemerkung, dt_datum, c_benutzer, i_eg_konto, i_auftrag_refid, dec_naf_steuerbetr, eur_naf_steuerbetr)
VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', " & datumKurz & ", " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 5, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);" VALUES (" & mandant & ", " & Personenkonto & ", " & i_op_refid & ", " & beleg_ref_id & ", 'P', '" & datumKurz & "', " & periode & ", " & Jahr & ", 0, 0, " & Sachkonto & ", " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 0, " & opvorgangsbetrag & ", 1, 5, '" & Buchungstext & "', '" & dt_creation & "', '" & Benutzer & "', 0, 0, 0, 0);"
Dim insertedV_DEB2 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB2, "FIBU") Dim insertedV_DEB2 As Boolean = (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(SQL_Insert_V_DEB2, "FIBU")

29
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -2233,7 +2233,7 @@ Public Class usrcntlKundeBearbeitenFull
Private Function initdgvIDSRabatte() As DataTable Private Function initdgvIDSRabatte() As DataTable
Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry,S.OutletCode, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL") left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL")
@@ -2247,10 +2247,17 @@ Public Class usrcntlKundeBearbeitenFull
.Columns(0).HeaderText = "Produkt" .Columns(0).HeaderText = "Produkt"
.Columns(0).Width = 60
.Columns(1).HeaderText = "Land" .Columns(1).HeaderText = "Land"
.Columns(2).HeaderText = "Station" .Columns(1).Width = 80
.Columns(4).HeaderText = "Rabatt/Preis" .Columns(2).HeaderText = "S-Nr"
.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns(2).Width = 50
.Columns(3).HeaderText = "Station"
.Columns(4).HeaderText = "Rab-/Pr."
.Columns(4).Width = 50
.Columns(5).Width = 50
.Columns(6).Width = 50
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With End With
@@ -2264,7 +2271,7 @@ Public Class usrcntlKundeBearbeitenFull
lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "") lblIDS_Rabatte.Text = "IDS-Rabatte/Preise" & IIf(KundeOhneRabatt > 0, " - KUNDE OHNE RABATT", "")
Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry,S.OutletCode, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode is null order by KZ", "FMZOLL") left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode and S.OutletCountryCode = RW.OutletCountryCode where CustomerCode is null order by KZ", "FMZOLL")
@@ -2276,10 +2283,16 @@ Public Class usrcntlKundeBearbeitenFull
.Columns(0).HeaderText = "Produkt" .Columns(0).HeaderText = "Produkt"
.Columns(0).Width = 60
.Columns(1).HeaderText = "Land" .Columns(1).HeaderText = "Land"
.Columns(2).HeaderText = "Station" .Columns(2).Width = 80
.Columns(4).HeaderText = "Rabatt/Preis" .Columns(2).HeaderText = "S-Nr"
.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns(2).Width = 50
.Columns(3).HeaderText = "Station"
.Columns(5).HeaderText = "Rab-/Pr."
.Columns(5).Width = 50
.Columns(6).Width = 50
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With End With