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
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
VERAG_PROG_ALLGEMEIN/Classes/cVorauskasse.vb
View File

@@ -64,7 +64,10 @@ Public Class cVorauskasse
Property vk_Berechnung_SonstigeKosten As Object = Nothing
Property vk_Berechnung_SonstigeKostenText As Object = Nothing
Property vk_Berechnung_PP As Object = Nothing
Property vk_Freigegeben As Boolean = False
Property vk_SendungId As Object = Nothing
Property vk_AvisoId As Object = Nothing
Property vk_VermerkId As Object = Nothing
Dim SQL As New SQL
@@ -136,6 +139,10 @@ Public Class cVorauskasse
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SVS", vk_Berechnung_SVS))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_SonstigeKosten", vk_Berechnung_SonstigeKosten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Berechnung_PP", vk_Berechnung_PP))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_Freigegeben", vk_Freigegeben))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_SendungId", vk_SendungId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_AvisoId", vk_AvisoId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vk_VermerkId", vk_VermerkId))
Return list
End Function
@@ -190,6 +197,8 @@ Public Class cVorauskasse
Public Function SET_GELDEINGANG(vk_GeldEingetroffen As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
Me.vk_GeldEingetroffen = vk_GeldEingetroffen
Me.vk_Freigegeben = vk_GeldEingetroffen
If Me.vk_GeldEingetroffen Then
Me.vk_BH_DatumGeldeingang = Now
Me.vk_BH_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
@@ -204,6 +213,12 @@ Public Class cVorauskasse
Return SAVE()
End Function
Public Function SET_FREIGEGEBEN(vk_Freigegeben As Boolean, Optional vk_BH_Bemerkung As Object = Nothing) As Boolean
Me.vk_Freigegeben = vk_Freigegeben
Me.vk_BH_Bemerkung = vk_BH_Bemerkung
Return SAVE()
End Function
Public Function SET_STORNO() As Boolean
Me.vk_storno = Not Me.vk_storno
Return SAVE()