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

CBAM/VERAG Zollanmeldugnen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:01:59 +01:00
parent 7cd106a413
commit 0ebe4cf198
12 changed files with 849 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -6,6 +6,7 @@ Public Class cKundenVertraege
Property kv_Id As Integer
Property kv_KundenNr As Integer
Property kv_erhalten_Datum As Date
Property kv_gueltigBis_Datum As Date?
Property kv_vertragArtId As Integer
Property kv_Info As Object = Nothing
Property kv_datenarchivId As Object = Nothing
@@ -24,10 +25,11 @@ Public Class cKundenVertraege
LOAD()
End Sub
Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId)
Sub New(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId, Optional kv_gueltigBis_Datum = Nothing)
Me.kv_KundenNr = kv_KundenNr
Me.kv_erhalten_Datum = kv_erhalten_Datum
Me.kv_vertragArtId = kv_vertragArtId
Me.kv_gueltigBis_Datum = kv_gueltigBis_Datum
LOAD(kv_KundenNr, kv_erhalten_Datum, kv_vertragArtId)
End Sub
@@ -40,12 +42,13 @@ Public Class cKundenVertraege
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_Info", kv_Info))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_datenarchivId", kv_datenarchivId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltig", kv_gueltig))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kv_gueltigBis_Datum", kv_gueltigBis_Datum))
Return list
End Function
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig] FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_gueltig],kv_gueltigBis_Datum FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
End Function
Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean