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

Fiskaltrust, Kassenbuch, Gestellungen-DAKOSY,

Browse Source
This commit is contained in:
d.breimaier
2026-09-09 14:41:05 +02:00
parent 27dcae6634
commit 1a726d351e
13 changed files with 759 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Classes/cFiskaltrustClient_chilkat.vb
View File

@@ -1,5 +1,6 @@
Imports Chilkat
Imports QRCoder
Imports VERAG_PROG_ALLGEMEIN
Public Class FtReceiptCases
@@ -327,6 +328,7 @@ Public Class cFiskaltrustClient_chilkat
rest.ResponseStatusCode < 500 Then
Throw
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, ERROR_OP.MAIL)
End If
@@ -552,7 +554,7 @@ Public Class cFiskaltrustClient_chilkat
Case "journal"
Select Case _country
Case "DE" : Return "/json/v0/Journal"
Case "DE" : Return "/json/v1/Journal"
Case "AT" : Return "/json/Journal"
End Select

5
SDL/Classes/cRKSV.vb
View File

@@ -1325,6 +1325,11 @@ Public Class cRKSV
rpt.picVERAG.Image = My.Resources.FrontOfficeSUB
rpt.lblFirma_Name.Text = "Front-Office Suben eG"
rpt.lblFirma_Details.Text = "A 4975 Suben | Suben 14" & vbNewLine & "UID: ATU74813856 "
Case "FT DE-KLIPPHAUSEN"
'Default Werte:
rpt.picVERAG.Image = My.Resources.Klipphausen_Logo
rpt.lblFirma_Name.Text = "Front-Office Klipphausen GmbH"
rpt.lblFirma_Details.Text = "D 01665 Klipphausen | Am Bahndamm 3"
End Select
If KASSE.rksv_aktiv Or KASSE.rksvDE_aktiv Then

21
SDL/Classes/cRKSV_Kasse.vb
View File

@@ -30,6 +30,8 @@ Public Class cRKSV_Kasse
Property rksv_FT_RestServiceURL As Object = Nothing
Property rksv_FT_Country As Object = Nothing
Property rksv_FT_ZeroReceiptCreated As Object = Nothing
Dim SQL As New SQL
@@ -184,6 +186,22 @@ Public Class cRKSV_Kasse
Return False
End Function
Public Function SET_NULLBELEG() As Boolean
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(" UPDATE [tblRKSV_Kassen] SET rksv_FT_ZeroReceiptCreated = getDate() WHERE rksv_id=@rksv_id", conn)
cmd.Parameters.AddWithValue("@rksv_id", rksv_id)
Dim dr = cmd.ExecuteReader()
dr.Close()
End Using
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
@@ -208,7 +226,6 @@ Public Class cRKSV_Kasse
Me.rksv_id = cSqlDb.checkNullReturnValue(dr.Item("rksv_id"), Nothing)
Me.rksv_bez = cSqlDb.checkNullReturnValue(dr.Item("rksv_bez"), Nothing)
Me.rksv_CompanyGUID = cSqlDb.checkNullReturnValue(dr.Item("rksv_CompanyGUID"), Nothing)
Me.rksv_firma = cSqlDb.checkNullReturnValue(dr.Item("rksv_firma"), Nothing)
Me.rksv_startdatum = cSqlDb.checkNullReturnValue(dr.Item("rksv_startdatum"), Nothing)
Me.rksv_aktiv = cSqlDb.checkNullReturnValue(dr.Item("rksv_aktiv"), Nothing)
@@ -232,6 +249,7 @@ Public Class cRKSV_Kasse
Me.rksv_FT_AccessToken = cSqlDb.checkNullReturnValue(dr.Item("rksv_FT_AccessToken"), Nothing)
Me.rksv_FT_RestServiceURL = cSqlDb.checkNullReturnValue(dr.Item("rksv_FT_RestServiceURL"), Nothing)
Me.rksv_FT_Country = cSqlDb.checkNullReturnValue(dr.Item("rksv_FT_Country"), Nothing)
Me.rksv_FT_ZeroReceiptCreated = cSqlDb.checkNullReturnValue(dr.Item("rksv_FT_ZeroReceiptCreated"), Nothing)
End If
dr.Close()
@@ -273,6 +291,7 @@ Public Class cRKSV_Kasse
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_FT_AccessToken", rksv_FT_AccessToken))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_FT_RestServiceURL", rksv_FT_RestServiceURL))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_FT_Country", rksv_FT_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("rksv_FT_ZeroReceiptCreated", rksv_FT_ZeroReceiptCreated))
Return list