Fiskaltrust, Kassenbuch, Gestellungen-DAKOSY,
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
10
SDL/My Project/Resources.Designer.vb
generated
10
SDL/My Project/Resources.Designer.vb
generated
@@ -1104,6 +1104,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Klipphausen_Logo() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Klipphausen_Logo", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
|
||||
@@ -997,4 +997,7 @@
|
||||
<data name="Ustveu_Rechnungsanlagen_BE" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Ustveu_Rechnungsanlagen_BE.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Klipphausen_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Klipphausen_Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
BIN
SDL/Resources/Klipphausen_Logo.jpg
Normal file
BIN
SDL/Resources/Klipphausen_Logo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.5 KiB |
@@ -5528,6 +5528,7 @@
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\ico_greenpulse.png" />
|
||||
<None Include="Resources\Klipphausen_Logo.jpg" />
|
||||
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</Content>
|
||||
|
||||
@@ -139,7 +139,7 @@ Public Class usrCntlATLAS_EXGestellung
|
||||
For Each l In rtbMRN.Lines
|
||||
If l.Trim <> "" Then
|
||||
|
||||
If Not sendEXP_MRN(l.Trim.ToUpper, sbAbgangZollstelle._value, cnt, exg_list) Then
|
||||
If Not sendEXP_MRN(l.Trim.ToUpper, sbAbgangZollstelle._value, cnt, exg_list, FIRMA_DY) Then
|
||||
MsgBox("Sendefehler bei " & l)
|
||||
err = True
|
||||
End If
|
||||
@@ -254,7 +254,7 @@ Public Class usrCntlATLAS_EXGestellung
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Function sendEXP_MRN(MRN As String, Zollstelle As String, zeile As String, ByRef exg_list As List(Of Integer)) As Boolean
|
||||
Function sendEXP_MRN(MRN As String, Zollstelle As String, zeile As String, ByRef exg_list As List(Of Integer), Optional FIRMA_DY_TEMP As String = "") As Boolean
|
||||
|
||||
Me.Refresh()
|
||||
|
||||
@@ -284,8 +284,15 @@ Public Class usrCntlATLAS_EXGestellung
|
||||
'EXG.exg_ObjectName = AVISO.AvisoID & "_EXP_" & EXG.exg_MRN.ToString().Substring(0, 4) & EXG.exg_MRN.ToString.Substring(14) & zusatz '---> >>> MRN KÜRZEN!!!!
|
||||
'EXG.exg_ObjectName = AVISO.AvisoID & "_EXP_" & EXG.exg_MRN
|
||||
|
||||
|
||||
|
||||
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm, "EXG")
|
||||
FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm, "EXG") ' -> hier liegt vermutlich der Fehler, die Firma wird hier nochmals gesetzt
|
||||
|
||||
If FIRMA_DY_TEMP <> "" Then
|
||||
FIRMA_DY = FIRMA_DY_TEMP
|
||||
End If
|
||||
|
||||
Dim saveFile = ""
|
||||
|
||||
If EXG.SAVE_ALL Then
|
||||
|
||||
4
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
4
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
@@ -1256,7 +1256,7 @@ Partial Class frmBelegNeu
|
||||
Me.Button4.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
|
||||
Me.Button4.Size = New System.Drawing.Size(70, 21)
|
||||
Me.Button4.TabIndex = 49
|
||||
Me.Button4.Text = "TEST FT"
|
||||
Me.Button4.Text = "Fiskaltrust"
|
||||
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
Me.Button4.Visible = False
|
||||
@@ -1782,7 +1782,7 @@ Partial Class frmBelegNeu
|
||||
'cm_FT
|
||||
'
|
||||
Me.cm_FT.Name = "ContextMenuStrip1"
|
||||
Me.cm_FT.Size = New System.Drawing.Size(181, 26)
|
||||
Me.cm_FT.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'frmBelegNeu
|
||||
'
|
||||
|
||||
@@ -1900,6 +1900,22 @@ Public Class frmBelegNeu
|
||||
|
||||
Private Sub Button4_ClickAsync(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'nur im Testsystem!
|
||||
If Not cm_FT.Items.ContainsKey("bar") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Barverkauf", .Name = "bar", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("storno") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Storno", .Name = "storno", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("null") Then
|
||||
Dim plose = New ToolStripMenuItem() With {.Text = "Nullbeleg", .Name = "null", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
cm_FT.Items.Add(plose)
|
||||
@@ -1924,20 +1940,8 @@ Public Class frmBelegNeu
|
||||
cm_FT.Items.Add(uta)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("bar") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Barverkauf", .Name = "bar", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("storno") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Storno", .Name = "storno", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("test") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Verbindungstest", .Name = "test", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Verbindungstest", .Name = "verbindungstest", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
@@ -1986,26 +1990,27 @@ Public Class frmBelegNeu
|
||||
|
||||
KASSE.LOAD(cboKassen._value)
|
||||
|
||||
'Dim client As New cFiskaltrustClient(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
|
||||
Dim client_chilkat As New cFiskaltrustClient_chilkat(KASSE.rksv_FT_RestServiceURL, KASSE.rksv_FT_CashboxID, KASSE.rksv_FT_AccessToken, KASSE.rksv_FT_Country)
|
||||
|
||||
If item.Name = "null" Then
|
||||
'beide
|
||||
'Dim result As String = Await client.SignNullReceiptAsync(KASSE.rksv_id)
|
||||
|
||||
Dim result As String = client_chilkat.SignNullReceipt(KASSE.rksv_id)
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen 0-Beleg an die TSE schicken?", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.SignNullReceipt(KASSE.rksv_id)
|
||||
|
||||
|
||||
If result <> "" Then
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "test" Then
|
||||
'beide
|
||||
'Dim result As String = Await client.Echo(KASSE.rksv_bez & " " & KASSE.rksv_FT_Country & " - ")
|
||||
|
||||
ElseIf item.Name = "verbindungstest" Then
|
||||
|
||||
Dim result As String = client_chilkat.Echo(KASSE.rksv_bez & " " & KASSE.rksv_FT_Country & " - ")
|
||||
|
||||
If result <> "" Then
|
||||
@@ -2016,53 +2021,75 @@ Public Class frmBelegNeu
|
||||
|
||||
|
||||
ElseIf item.Name = "storno" Then
|
||||
'beide
|
||||
'Dim result As String = Await client.CancelReceiptAsync_test("-1", 100, "Cash", KASSE.rksv_id)
|
||||
Dim result As String = client_chilkat.ChancelReceipt_test("-1", KASSE.rksv_id)
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
If result <> "" Then
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Teststorno durchführen?", vbYesNoCancel) Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
Dim result As String = client_chilkat.ChancelReceipt_test("-1", KASSE.rksv_id)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("ACHTUNG, im Produktivsystem nicht möglich!")
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "bar" Then
|
||||
'beide
|
||||
'Dim result As String = Await client.SignReceiptAsync_test(KASSE.rksv_id)
|
||||
Dim result As String = client_chilkat.SignReceipt_test(KASSE.rksv_id)
|
||||
|
||||
If result <> "" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
If vbYes = MsgBox(result & vbNewLine & vbNewLine & "Testdaten in DB speichern?", vbYesNoCancel) Then
|
||||
Dim QR_CodeString As String = ""
|
||||
client_chilkat.saveRKSV_FT(result, QR_CodeString, Nothing, False)
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Testzahlung durchführen?", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.SignReceipt_test(KASSE.rksv_id)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
If vbYes = MsgBox(result & vbNewLine & vbNewLine & "Testdaten in DB speichern?", vbYesNoCancel) Then
|
||||
Dim QR_CodeString As String = ""
|
||||
client_chilkat.saveRKSV_FT(result, QR_CodeString, Nothing, False)
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
MsgBox("ACHTUNG, im Produktivsystem nicht möglich!")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf item.Name = "monthly" Then
|
||||
'beide
|
||||
'Dim result As String = Await client.SignClosinglReceiptAsync(item.Name, KASSE.rksv_id)
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, KASSE.rksv_id, item.Name)
|
||||
|
||||
If result <> "" Then
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Monatsbeleg an die TSE schicken, anschließend kann dieses Monat kein Beleg mehr signiert werden!", vbYesNoCancel) Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, KASSE.rksv_id, item.Name)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "daily" Then
|
||||
'Nur DE
|
||||
If KASSE.rksv_FT_Country = "DE" Then
|
||||
'Dim result As String = Await client.SignClosinglReceiptAsync(item.Name, KASSE.rksv_id)
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, KASSE.rksv_id, item.Name)
|
||||
|
||||
If result <> "" Then
|
||||
@@ -2077,17 +2104,20 @@ Public Class frmBelegNeu
|
||||
|
||||
ElseIf item.Name = "yearly" Then
|
||||
|
||||
' Dim result As String = Await client.SignClosinglReceiptAsync(item.Name, KASSE.rksv_id)
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, KASSE.rksv_id, item.Name)
|
||||
If result <> "" Then
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Jahresbeleg an die TSE schicken, anschließend kann in diesem Jahr kein Beleg mehr signiert werden!", vbYesNoCancel) Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, KASSE.rksv_id, item.Name)
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ElseIf (item.Name = "version" Or item.Name = "action" Or item.Name = "signatures" Or item.Name = "queueitem" Or item.Name = "exportJournal") Then
|
||||
|
||||
'Dim result As String = Await client.Journal(2)
|
||||
ElseIf (item.Name = "version" Or item.Name = "action" Or item.Name = "signatures" Or item.Name = "queueitem" Or item.Name = "exportJournal") Then
|
||||
|
||||
Dim result As String = ""
|
||||
Select Case item.Name
|
||||
|
||||
262
SDL/kassenbuch/frmKassenbuch.Designer.vb
generated
262
SDL/kassenbuch/frmKassenbuch.Designer.vb
generated
@@ -66,6 +66,20 @@ Partial Class frmKassenbuch
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.pnlMain = New System.Windows.Forms.Panel()
|
||||
Me.picTSEOnline = New System.Windows.Forms.PictureBox()
|
||||
Me.lblTSEOnline = New System.Windows.Forms.Label()
|
||||
Me.picNULLbeleg = New System.Windows.Forms.PictureBox()
|
||||
Me.lblNullBeleg = New System.Windows.Forms.Label()
|
||||
Me.lblJahres = New System.Windows.Forms.Label()
|
||||
Me.lblMonats = New System.Windows.Forms.Label()
|
||||
Me.lblTages = New System.Windows.Forms.Label()
|
||||
Me.picJahres = New System.Windows.Forms.PictureBox()
|
||||
Me.picMonats = New System.Windows.Forms.PictureBox()
|
||||
Me.picTages = New System.Windows.Forms.PictureBox()
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.Button11 = New System.Windows.Forms.Button()
|
||||
Me.Button17 = New System.Windows.Forms.Button()
|
||||
Me.lbldailyCashboxClosing = New System.Windows.Forms.Label()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.btnBelegGSKunde = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
@@ -79,6 +93,8 @@ Partial Class frmKassenbuch
|
||||
Me.btnBelegLeihgeld = New System.Windows.Forms.Button()
|
||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.cm_FT = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.lblFiskaltrustHeader = New System.Windows.Forms.Label()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
@@ -86,6 +102,11 @@ Partial Class frmKassenbuch
|
||||
Me.pnlSuche.SuspendLayout()
|
||||
Me.pnlSearch.SuspendLayout()
|
||||
Me.pnlMain.SuspendLayout()
|
||||
CType(Me.picTSEOnline, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picNULLbeleg, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picJahres, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picMonats, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.picTages, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -130,7 +151,7 @@ Partial Class frmKassenbuch
|
||||
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.ForeColor = System.Drawing.Color.White
|
||||
Me.Label5.Location = New System.Drawing.Point(603, 31)
|
||||
Me.Label5.Location = New System.Drawing.Point(613, 31)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(151, 20)
|
||||
Me.Label5.TabIndex = 1
|
||||
@@ -184,7 +205,7 @@ Partial Class frmKassenbuch
|
||||
Me.DataGridView2.ReadOnly = True
|
||||
Me.DataGridView2.RowHeadersVisible = False
|
||||
Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.DataGridView2.Size = New System.Drawing.Size(766, 145)
|
||||
Me.DataGridView2.Size = New System.Drawing.Size(776, 158)
|
||||
Me.DataGridView2.TabIndex = 5
|
||||
'
|
||||
'datVon
|
||||
@@ -307,7 +328,7 @@ Partial Class frmKassenbuch
|
||||
Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.ForeColor = System.Drawing.Color.White
|
||||
Me.Label9.Location = New System.Drawing.Point(451, 9)
|
||||
Me.Label9.Location = New System.Drawing.Point(461, 9)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(305, 20)
|
||||
Me.Label9.TabIndex = 9
|
||||
@@ -419,7 +440,7 @@ Partial Class frmKassenbuch
|
||||
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button5.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button5.Location = New System.Drawing.Point(458, 36)
|
||||
Me.Button5.Location = New System.Drawing.Point(394, 36)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(184, 42)
|
||||
Me.Button5.TabIndex = 19
|
||||
@@ -477,7 +498,7 @@ Partial Class frmKassenbuch
|
||||
Me.btnStorno.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnStorno.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnStorno.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnStorno.Location = New System.Drawing.Point(458, 84)
|
||||
Me.btnStorno.Location = New System.Drawing.Point(394, 84)
|
||||
Me.btnStorno.Name = "btnStorno"
|
||||
Me.btnStorno.Size = New System.Drawing.Size(184, 42)
|
||||
Me.btnStorno.TabIndex = 420
|
||||
@@ -498,7 +519,7 @@ Partial Class frmKassenbuch
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(768, 60)
|
||||
Me.pnlTop.Size = New System.Drawing.Size(778, 60)
|
||||
Me.pnlTop.TabIndex = 421
|
||||
'
|
||||
'Label15
|
||||
@@ -526,7 +547,7 @@ Partial Class frmKassenbuch
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(455, 20)
|
||||
Me.Label7.Location = New System.Drawing.Point(391, 20)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label7.TabIndex = 422
|
||||
@@ -542,9 +563,9 @@ Partial Class frmKassenbuch
|
||||
Me.pnlSuche.Controls.Add(Me.Label8)
|
||||
Me.pnlSuche.Controls.Add(Me.DataGridView1)
|
||||
Me.pnlSuche.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlSuche.Location = New System.Drawing.Point(0, 470)
|
||||
Me.pnlSuche.Location = New System.Drawing.Point(0, 493)
|
||||
Me.pnlSuche.Name = "pnlSuche"
|
||||
Me.pnlSuche.Size = New System.Drawing.Size(768, 205)
|
||||
Me.pnlSuche.Size = New System.Drawing.Size(778, 218)
|
||||
Me.pnlSuche.TabIndex = 423
|
||||
'
|
||||
'pnlSearch
|
||||
@@ -566,7 +587,7 @@ Partial Class frmKassenbuch
|
||||
Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlSearch.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlSearch.Name = "pnlSearch"
|
||||
Me.pnlSearch.Size = New System.Drawing.Size(766, 58)
|
||||
Me.pnlSearch.Size = New System.Drawing.Size(776, 58)
|
||||
Me.pnlSearch.TabIndex = 420
|
||||
'
|
||||
'btnExcel
|
||||
@@ -602,6 +623,21 @@ Partial Class frmKassenbuch
|
||||
'
|
||||
'pnlMain
|
||||
'
|
||||
Me.pnlMain.Controls.Add(Me.lblFiskaltrustHeader)
|
||||
Me.pnlMain.Controls.Add(Me.picTSEOnline)
|
||||
Me.pnlMain.Controls.Add(Me.lblTSEOnline)
|
||||
Me.pnlMain.Controls.Add(Me.picNULLbeleg)
|
||||
Me.pnlMain.Controls.Add(Me.lblNullBeleg)
|
||||
Me.pnlMain.Controls.Add(Me.lblJahres)
|
||||
Me.pnlMain.Controls.Add(Me.lblMonats)
|
||||
Me.pnlMain.Controls.Add(Me.lblTages)
|
||||
Me.pnlMain.Controls.Add(Me.picJahres)
|
||||
Me.pnlMain.Controls.Add(Me.picMonats)
|
||||
Me.pnlMain.Controls.Add(Me.picTages)
|
||||
Me.pnlMain.Controls.Add(Me.lblWarning)
|
||||
Me.pnlMain.Controls.Add(Me.Button11)
|
||||
Me.pnlMain.Controls.Add(Me.Button17)
|
||||
Me.pnlMain.Controls.Add(Me.lbldailyCashboxClosing)
|
||||
Me.pnlMain.Controls.Add(Me.Button10)
|
||||
Me.pnlMain.Controls.Add(Me.btnBelegGSKunde)
|
||||
Me.pnlMain.Controls.Add(Me.pnl)
|
||||
@@ -624,9 +660,171 @@ Partial Class frmKassenbuch
|
||||
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlMain.Location = New System.Drawing.Point(0, 60)
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
Me.pnlMain.Size = New System.Drawing.Size(768, 410)
|
||||
Me.pnlMain.Size = New System.Drawing.Size(778, 433)
|
||||
Me.pnlMain.TabIndex = 425
|
||||
'
|
||||
'picTSEOnline
|
||||
'
|
||||
Me.picTSEOnline.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.picTSEOnline.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picTSEOnline.Location = New System.Drawing.Point(614, 46)
|
||||
Me.picTSEOnline.Name = "picTSEOnline"
|
||||
Me.picTSEOnline.Size = New System.Drawing.Size(27, 20)
|
||||
Me.picTSEOnline.TabIndex = 449
|
||||
Me.picTSEOnline.TabStop = False
|
||||
Me.picTSEOnline.Visible = False
|
||||
'
|
||||
'lblTSEOnline
|
||||
'
|
||||
Me.lblTSEOnline.AutoSize = True
|
||||
Me.lblTSEOnline.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTSEOnline.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblTSEOnline.Location = New System.Drawing.Point(655, 50)
|
||||
Me.lblTSEOnline.Name = "lblTSEOnline"
|
||||
Me.lblTSEOnline.Size = New System.Drawing.Size(75, 16)
|
||||
Me.lblTSEOnline.TabIndex = 448
|
||||
Me.lblTSEOnline.Text = "TSE Online"
|
||||
Me.lblTSEOnline.Visible = False
|
||||
'
|
||||
'picNULLbeleg
|
||||
'
|
||||
Me.picNULLbeleg.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.picNULLbeleg.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picNULLbeleg.Location = New System.Drawing.Point(614, 72)
|
||||
Me.picNULLbeleg.Name = "picNULLbeleg"
|
||||
Me.picNULLbeleg.Size = New System.Drawing.Size(27, 20)
|
||||
Me.picNULLbeleg.TabIndex = 447
|
||||
Me.picNULLbeleg.TabStop = False
|
||||
Me.picNULLbeleg.Visible = False
|
||||
'
|
||||
'lblNullBeleg
|
||||
'
|
||||
Me.lblNullBeleg.AutoSize = True
|
||||
Me.lblNullBeleg.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblNullBeleg.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblNullBeleg.Location = New System.Drawing.Point(655, 76)
|
||||
Me.lblNullBeleg.Name = "lblNullBeleg"
|
||||
Me.lblNullBeleg.Size = New System.Drawing.Size(81, 16)
|
||||
Me.lblNullBeleg.TabIndex = 446
|
||||
Me.lblNullBeleg.Text = "NULL-Beleg"
|
||||
Me.lblNullBeleg.Visible = False
|
||||
'
|
||||
'lblJahres
|
||||
'
|
||||
Me.lblJahres.AutoSize = True
|
||||
Me.lblJahres.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblJahres.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblJahres.Location = New System.Drawing.Point(655, 154)
|
||||
Me.lblJahres.Name = "lblJahres"
|
||||
Me.lblJahres.Size = New System.Drawing.Size(109, 16)
|
||||
Me.lblJahres.TabIndex = 445
|
||||
Me.lblJahres.Text = "Jahresabschluss"
|
||||
Me.lblJahres.Visible = False
|
||||
'
|
||||
'lblMonats
|
||||
'
|
||||
Me.lblMonats.AutoSize = True
|
||||
Me.lblMonats.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblMonats.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblMonats.Location = New System.Drawing.Point(655, 128)
|
||||
Me.lblMonats.Name = "lblMonats"
|
||||
Me.lblMonats.Size = New System.Drawing.Size(112, 16)
|
||||
Me.lblMonats.TabIndex = 444
|
||||
Me.lblMonats.Text = "Monatsabschluss"
|
||||
Me.lblMonats.Visible = False
|
||||
'
|
||||
'lblTages
|
||||
'
|
||||
Me.lblTages.AutoSize = True
|
||||
Me.lblTages.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTages.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblTages.Location = New System.Drawing.Point(655, 102)
|
||||
Me.lblTages.Name = "lblTages"
|
||||
Me.lblTages.Size = New System.Drawing.Size(108, 16)
|
||||
Me.lblTages.TabIndex = 443
|
||||
Me.lblTages.Text = "Tagesabschluss"
|
||||
Me.lblTages.Visible = False
|
||||
'
|
||||
'picJahres
|
||||
'
|
||||
Me.picJahres.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.picJahres.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picJahres.Location = New System.Drawing.Point(614, 150)
|
||||
Me.picJahres.Name = "picJahres"
|
||||
Me.picJahres.Size = New System.Drawing.Size(27, 20)
|
||||
Me.picJahres.TabIndex = 442
|
||||
Me.picJahres.TabStop = False
|
||||
Me.picJahres.Visible = False
|
||||
'
|
||||
'picMonats
|
||||
'
|
||||
Me.picMonats.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.picMonats.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picMonats.Location = New System.Drawing.Point(614, 124)
|
||||
Me.picMonats.Name = "picMonats"
|
||||
Me.picMonats.Size = New System.Drawing.Size(27, 20)
|
||||
Me.picMonats.TabIndex = 441
|
||||
Me.picMonats.TabStop = False
|
||||
Me.picMonats.Visible = False
|
||||
'
|
||||
'picTages
|
||||
'
|
||||
Me.picTages.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.picTages.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.picTages.Location = New System.Drawing.Point(614, 98)
|
||||
Me.picTages.Name = "picTages"
|
||||
Me.picTages.Size = New System.Drawing.Size(27, 20)
|
||||
Me.picTages.TabIndex = 440
|
||||
Me.picTages.TabStop = False
|
||||
Me.picTages.Visible = False
|
||||
'
|
||||
'lblWarning
|
||||
'
|
||||
Me.lblWarning.AutoSize = True
|
||||
Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWarning.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarning.Location = New System.Drawing.Point(368, 175)
|
||||
Me.lblWarning.Name = "lblWarning"
|
||||
Me.lblWarning.Size = New System.Drawing.Size(0, 16)
|
||||
Me.lblWarning.TabIndex = 439
|
||||
'
|
||||
'Button11
|
||||
'
|
||||
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button11.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button11.Location = New System.Drawing.Point(394, 130)
|
||||
Me.Button11.Name = "Button11"
|
||||
Me.Button11.Size = New System.Drawing.Size(184, 42)
|
||||
Me.Button11.TabIndex = 438
|
||||
Me.Button11.Text = "Fiskaltrust"
|
||||
Me.Button11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button11.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button17
|
||||
'
|
||||
Me.Button17.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
|
||||
Me.Button17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.Button17.FlatAppearance.BorderSize = 0
|
||||
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button17.Location = New System.Drawing.Point(742, 24)
|
||||
Me.Button17.Name = "Button17"
|
||||
Me.Button17.Size = New System.Drawing.Size(25, 20)
|
||||
Me.Button17.TabIndex = 437
|
||||
Me.Button17.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbldailyCashboxClosing
|
||||
'
|
||||
Me.lbldailyCashboxClosing.AutoSize = True
|
||||
Me.lbldailyCashboxClosing.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lbldailyCashboxClosing.ForeColor = System.Drawing.Color.Red
|
||||
Me.lbldailyCashboxClosing.Location = New System.Drawing.Point(361, 5)
|
||||
Me.lbldailyCashboxClosing.Name = "lbldailyCashboxClosing"
|
||||
Me.lbldailyCashboxClosing.Size = New System.Drawing.Size(410, 16)
|
||||
Me.lbldailyCashboxClosing.TabIndex = 436
|
||||
Me.lbldailyCashboxClosing.Text = "Täglicher Kassenabschluss dieser Kasse ist verpflichtend!"
|
||||
'
|
||||
'Button10
|
||||
'
|
||||
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -669,7 +867,7 @@ Partial Class frmKassenbuch
|
||||
Me.pnl.Controls.Add(Me.Button8)
|
||||
Me.pnl.Controls.Add(Me.cboKassen)
|
||||
Me.pnl.Controls.Add(Me.Label18)
|
||||
Me.pnl.Location = New System.Drawing.Point(442, 132)
|
||||
Me.pnl.Location = New System.Drawing.Point(378, 201)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(287, 223)
|
||||
Me.pnl.TabIndex = 430
|
||||
@@ -799,7 +997,7 @@ Partial Class frmKassenbuch
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(458, 197)
|
||||
Me.Button1.Location = New System.Drawing.Point(400, 197)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(260, 42)
|
||||
Me.Button1.TabIndex = 434
|
||||
@@ -807,12 +1005,27 @@ Partial Class frmKassenbuch
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cm_FT
|
||||
'
|
||||
Me.cm_FT.Name = "ContextMenuStrip1"
|
||||
Me.cm_FT.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'lblFiskaltrustHeader
|
||||
'
|
||||
Me.lblFiskaltrustHeader.AutoSize = True
|
||||
Me.lblFiskaltrustHeader.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblFiskaltrustHeader.Location = New System.Drawing.Point(611, 20)
|
||||
Me.lblFiskaltrustHeader.Name = "lblFiskaltrustHeader"
|
||||
Me.lblFiskaltrustHeader.Size = New System.Drawing.Size(65, 13)
|
||||
Me.lblFiskaltrustHeader.TabIndex = 450
|
||||
Me.lblFiskaltrustHeader.Text = "Fiskaltrust"
|
||||
'
|
||||
'frmKassenbuch
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(768, 675)
|
||||
Me.ClientSize = New System.Drawing.Size(778, 711)
|
||||
Me.Controls.Add(Me.pnlSuche)
|
||||
Me.Controls.Add(Me.pnlMain)
|
||||
Me.Controls.Add(Me.pnlTop)
|
||||
@@ -831,6 +1044,11 @@ Partial Class frmKassenbuch
|
||||
Me.pnlSearch.PerformLayout()
|
||||
Me.pnlMain.ResumeLayout(False)
|
||||
Me.pnlMain.PerformLayout()
|
||||
CType(Me.picTSEOnline, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picNULLbeleg, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picJahres, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picMonats, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.picTages, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
@@ -891,4 +1109,20 @@ Partial Class frmKassenbuch
|
||||
Friend WithEvents Button7 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button10 As Button
|
||||
Friend WithEvents btnPosTerminal As Button
|
||||
Friend WithEvents lbldailyCashboxClosing As Label
|
||||
Friend WithEvents Button17 As Button
|
||||
Friend WithEvents Button11 As Button
|
||||
Friend WithEvents cm_FT As ContextMenuStrip
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents lblJahres As Label
|
||||
Friend WithEvents lblMonats As Label
|
||||
Friend WithEvents lblTages As Label
|
||||
Friend WithEvents picJahres As PictureBox
|
||||
Friend WithEvents picMonats As PictureBox
|
||||
Friend WithEvents picTages As PictureBox
|
||||
Friend WithEvents picNULLbeleg As PictureBox
|
||||
Friend WithEvents lblNullBeleg As Label
|
||||
Friend WithEvents picTSEOnline As PictureBox
|
||||
Friend WithEvents lblTSEOnline As Label
|
||||
Friend WithEvents lblFiskaltrustHeader As Label
|
||||
End Class
|
||||
|
||||
@@ -142,6 +142,9 @@
|
||||
SNw4kn9U62ALlUplLU5qtVoaZwrCC9FnbaaC0/EHAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="cm_FT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>25, 8</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports SDL.RKSVServer
|
||||
Imports GrapeCity.DataVisualization.TypeScript
|
||||
Imports SDL.RKSVServer
|
||||
|
||||
Public Class frmKassenbuch
|
||||
Dim SQL As New SQL
|
||||
@@ -13,6 +14,11 @@ Public Class frmKassenbuch
|
||||
Dim loginAfterSeconds = 10
|
||||
Public master_Kasse As Boolean = False
|
||||
Dim FMZOLL_SQL As New FMZOLL_SQL
|
||||
Dim tagesabschlussIsSet As Boolean = False
|
||||
Dim monatsabschlussIsSet As Boolean = False
|
||||
Dim jahresabschlussIsSet As Boolean = False
|
||||
Dim NULLBelegIsCreated As Boolean = True
|
||||
Dim TSEIsOnline As Boolean = False
|
||||
|
||||
Public Sub New(PERSONAL As cPersonal, PERSONAL_LG As cPersonal)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
@@ -87,10 +93,47 @@ Public Class frmKassenbuch
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub InitFiskaltrust(isOnline As Boolean, tagesabschluss As Boolean, Montagsabschluss As Boolean, Jahresabschluss As Boolean, NULLBeleg As Boolean)
|
||||
|
||||
lblTSEOnline.Visible = True
|
||||
lblTages.Visible = True
|
||||
lblMonats.Visible = True
|
||||
lblJahres.Visible = True
|
||||
lblNullBeleg.Visible = True
|
||||
|
||||
picJahres.Visible = True
|
||||
picMonats.Visible = True
|
||||
picTages.Visible = True
|
||||
picNULLbeleg.Visible = True
|
||||
picTSEOnline.Visible = True
|
||||
|
||||
showPic(isOnline, picTSEOnline)
|
||||
showPic(tagesabschluss, picTages)
|
||||
showPic(monatsabschlussIsSet, picMonats)
|
||||
showPic(Jahresabschluss, picJahres)
|
||||
showPic(NULLBeleg, picNULLbeleg)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Sub showPic(ok As Boolean, pic As PictureBox)
|
||||
pic.Visible = True
|
||||
If ok Then
|
||||
pic.BackgroundImage = My.Resources.ok
|
||||
Else
|
||||
pic.BackgroundImage = My.Resources.del
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Sub init()
|
||||
Dim sqlstr = ""
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
If master_Kasse Then
|
||||
Label9.Text = "ADMIN"
|
||||
pnlTop.BackColor = Color.Red
|
||||
@@ -153,6 +196,62 @@ Public Class frmKassenbuch
|
||||
|
||||
End If
|
||||
|
||||
If PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_Country = "DE" AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL IsNot Nothing AndAlso PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken IsNot Nothing Then
|
||||
lbldailyCashboxClosing.Visible = True
|
||||
Button11.Visible = True
|
||||
|
||||
Dim tagesabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Day(ftReceiptMoment) = Day(GETDATE()) and ftEndOfDayReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
|
||||
If tagesabschluss > 0 Then tagesabschlussIsSet = True
|
||||
|
||||
Dim monatsabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Day(ftReceiptMoment) = Month(GETDATE()) and ftEndOfMonthReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
|
||||
If monatsabschluss > 0 Then monatsabschlussIsSet = True
|
||||
|
||||
Dim jahresabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfYearReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL"))
|
||||
If jahresabschluss > 0 Then jahresabschlussIsSet = True
|
||||
If PERSONAL.cRKSV_Kasse.rksv_FT_ZeroReceiptCreated Is Nothing OrElse IsDBNull(PERSONAL.cRKSV_Kasse.rksv_FT_ZeroReceiptCreated) Then
|
||||
NULLBelegIsCreated = False
|
||||
End If
|
||||
|
||||
Dim client_chilkat As New cFiskaltrustClient_chilkat(PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL, PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID, PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken, PERSONAL.cRKSV_Kasse.rksv_FT_Country)
|
||||
Dim result As String = client_chilkat.Echo(PERSONAL.cRKSV_Kasse.rksv_bez & " " & PERSONAL.cRKSV_Kasse.rksv_FT_Country & " - ")
|
||||
|
||||
If result.Contains("VERBINDUNG OK") Then
|
||||
TSEIsOnline = True
|
||||
End If
|
||||
|
||||
InitFiskaltrust(TSEIsOnline, tagesabschlussIsSet, monatsabschlussIsSet, jahresabschlussIsSet, NULLBelegIsCreated)
|
||||
|
||||
If Not NULLBelegIsCreated Then
|
||||
lblWarning.Text = "" '"Es wurde noch kein NULL-Beleg über FT erstellt!"
|
||||
btnBelegKunde.Enabled = False
|
||||
btnBelegAusgang.Enabled = False
|
||||
btnBelegEingang.Enabled = False
|
||||
btnBelegGSKunde.Enabled = False
|
||||
btnBelegLeihgeld.Enabled = False
|
||||
btnStorno.Enabled = False
|
||||
ElseIf tagesabschlussIsSet Then
|
||||
lbldailyCashboxClosing.Text = "Tagesabschluss für heute wurde bereits durchgeführt!"
|
||||
btnBelegKunde.Enabled = False
|
||||
btnBelegAusgang.Enabled = False
|
||||
btnBelegEingang.Enabled = False
|
||||
btnBelegGSKunde.Enabled = False
|
||||
btnBelegLeihgeld.Enabled = False
|
||||
btnStorno.Enabled = False
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", Me) Then
|
||||
btnBelegKunde.Enabled = True
|
||||
btnBelegAusgang.Enabled = True
|
||||
btnBelegEingang.Enabled = True
|
||||
btnBelegGSKunde.Enabled = True
|
||||
btnBelegLeihgeld.Enabled = True
|
||||
btnStorno.Enabled = True
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
lbldailyCashboxClosing.Visible = False
|
||||
Button11.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
' Label9.Text = PERSONAL.Name
|
||||
DataGridView2.ClearSelection()
|
||||
@@ -1391,4 +1490,275 @@ Public Class frmKassenbuch
|
||||
f.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
|
||||
|
||||
Dim webAddress As String = "https://wiki.verag.ag/e/de/software/aviso/howtos/Barverkauf"
|
||||
Process.Start(webAddress)
|
||||
End Sub
|
||||
|
||||
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
'nur im Testsystem!
|
||||
If Not cm_FT.Items.ContainsKey("bar") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Barverkauf", .Name = "bar", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("storno") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Storno", .Name = "storno", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("null") Then
|
||||
Dim plose = New ToolStripMenuItem() With {.Text = "Nullbeleg", .Name = "null", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
cm_FT.Items.Add(plose)
|
||||
AddHandler plose.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("monthly") AndAlso Not monatsabschlussIsSet Then
|
||||
Dim rmc = New ToolStripMenuItem() With {.Text = "Monatabschluss", .Name = "monthly", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(rmc)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("daily") AndAlso Not tagesabschlussIsSet Then
|
||||
Dim rmc = New ToolStripMenuItem() With {.Text = "Tagesabschluss", .Name = "daily", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(rmc)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("yearly") AndAlso Not jahresabschlussIsSet Then
|
||||
Dim uta = New ToolStripMenuItem() With {.Text = "Jahresabschluss", .Name = "yearly", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler uta.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(uta)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("verbindungstest") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Verbindungstest", .Name = "verbindungstest", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("version") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Journal - Version", .Name = "version", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("signatures") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Journal - Signaturen", .Name = "signatures", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("action") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Journal - Action", .Name = "action", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("queueitem") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Journal - Queue", .Name = "queueitem", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
If Not cm_FT.Items.ContainsKey("exportJournal") Then
|
||||
Dim ids = New ToolStripMenuItem() With {.Text = "Journal - EXPORT", .Name = "exportJournal", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
|
||||
cm_FT.Items.Add(ids)
|
||||
End If
|
||||
|
||||
cm_FT.Show(Cursor.Position)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Async Function mnuItemAuftrauege_Clicked(sender As Object, e As EventArgs) As Task(Of Object)
|
||||
|
||||
cm_FT.Hide()
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
|
||||
'PERSONAL.cRKSV_Kasse.LOAD(cboKassen._value)
|
||||
|
||||
Dim client_chilkat As New cFiskaltrustClient_chilkat(PERSONAL.cRKSV_Kasse.rksv_FT_RestServiceURL, PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID, PERSONAL.cRKSV_Kasse.rksv_FT_AccessToken, PERSONAL.cRKSV_Kasse.rksv_FT_Country)
|
||||
|
||||
If item.Name = "null" Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie einen 0-Beleg an die TSE schicken?", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.SignNullReceipt(PERSONAL.cRKSV_Kasse.rksv_id)
|
||||
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
Dim rksv As New cRKSV_Kasse(PERSONAL.cRKSV_Kasse.rksv_id)
|
||||
rksv.SET_NULLBELEG()
|
||||
init()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf item.Name = "verbindungstest" Then
|
||||
|
||||
Dim result As String = client_chilkat.Echo(PERSONAL.cRKSV_Kasse.rksv_bez & " " & PERSONAL.cRKSV_Kasse.rksv_FT_Country & " - ")
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "storno" Then
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Teststorno durchführen?" & vbNewLine & "NIEMALS auf einer produktiven TSE durchführen!", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.ChancelReceipt_test("-1", PERSONAL.cRKSV_Kasse.rksv_id)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("ACHTUNG, im Produktivsystem nicht möglich!")
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "bar" Then
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie wirklich einen Testzahlung durchführen?" & vbNewLine & "NIEMALS auf einer produktiven TSE durchführen!", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.SignReceipt_test(PERSONAL.cRKSV_Kasse.rksv_id)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
If vbYes = MsgBox(result & vbNewLine & vbNewLine & "Testdaten in DB speichern?", vbYesNoCancel) Then
|
||||
Dim QR_CodeString As String = ""
|
||||
client_chilkat.saveRKSV_FT(result, QR_CodeString, Nothing, False)
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
MsgBox("ACHTUNG, im Produktivsystem nicht möglich!")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf item.Name = "monthly" Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie einen Monatsbeleg an die TSE schicken, anschließend kann in diesem Monat kein Beleg mehr signiert werden!", vbYesNoCancel) Then
|
||||
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, PERSONAL.cRKSV_Kasse.rksv_id, item.Name)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
SQL.doSQL("UPDATE [tblRKSV_FT] set ftEndOfMonthReceipt = getDate() where Month(ftReceiptMoment) = Month(GETDATE()) and ftEndOfMonthReceipt is null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "' ", "FMZOLL")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf item.Name = "daily" And Not tagesabschlussIsSet Then
|
||||
'Nur DE
|
||||
If vbYes = MsgBox("Möchten Sie einen Tagesabschluss durchführen, anschließend kann heute kein Beleg mehr signiert werden!", vbYesNoCancel) Then
|
||||
If PERSONAL.cRKSV_Kasse.rksv_FT_Country = "DE" Then
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, PERSONAL.cRKSV_Kasse.rksv_id, item.Name)
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
SQL.doSQL("UPDATE [tblRKSV_FT] set ftEndOfDayReceipt = getDate() where Day(ftReceiptMoment) = Day(GETDATE()) and ftEndOfDayReceipt is null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "' ", "FMZOLL")
|
||||
init()
|
||||
End If
|
||||
Else
|
||||
MsgBox("nicht für AT-Kassen möglich!")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf item.Name = "yearly" Then
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie einen Jahresbeleg an die TSE schicken, anschließend kann in diesem Jahr kein Beleg mehr signiert werden!", vbYesNoCancel) Then
|
||||
|
||||
|
||||
Dim result As String = client_chilkat.SignClosingReceipt(item.Name, PERSONAL.cRKSV_Kasse.rksv_id, item.Name)
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
SQL.doSQL("UPDATE [tblRKSV_FT] set ftEndOfYearReceipt = getDate() where Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfYearReceipt is null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "' ", "FMZOLL")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ElseIf (item.Name = "version" Or item.Name = "action" Or item.Name = "signatures" Or item.Name = "queueitem" Or item.Name = "exportJournal") Then
|
||||
|
||||
Dim result As String = ""
|
||||
Select Case item.Name
|
||||
Case "version" : result = client_chilkat.Journal(FtJournalType.VersionInformation)
|
||||
Case "action" : result = client_chilkat.Journal(FtJournalType.ActionJournal)
|
||||
Case "signatures" : result = client_chilkat.Journal(FtJournalType.ReceiptJournal)
|
||||
Case "queueitem" : result = client_chilkat.Journal(FtJournalType.QueueItemJournal)
|
||||
Case "exportJournal" : result = client_chilkat.Journal(FtJournalType.ReceiptJournal)
|
||||
End Select
|
||||
|
||||
If result <> "" Then
|
||||
|
||||
MsgBox(client_chilkat.PrettyPrintJson(result))
|
||||
|
||||
If item.Name = "exportJournal" Then
|
||||
client_chilkat.exportJournal(result)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user