IMEX MySnd, RKSV DE Storno, Div.Bugfix
This commit is contained in:
@@ -177,7 +177,327 @@ Public Class cRKSV
|
||||
'Return getRKSVLink(kasse.rksv_bez)
|
||||
End Function
|
||||
'Shared Function stornoRKSV_DE(ByVal kasse As cRKSV_Kasse, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, ByRef answer As String) As Boolean
|
||||
Shared Function stornoRKSV_DE(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean
|
||||
Shared Function stornoRKSV_DE_TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal OLD_RKSV_Beleg_Id As Object, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean
|
||||
Try
|
||||
|
||||
' MsgBox("0: ")
|
||||
Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001"
|
||||
|
||||
Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient() 'PROBLEM??
|
||||
m_com.Endpoint.Address = New System.ServiceModel.EndpointAddress("http://ymgk028055.verag.ost.dmn:8733/DSFinVKService?wsdl")
|
||||
m_com.Open()
|
||||
' svcRKSV.DBUserCredentials m_credentials = new svcRKSV.DBUserCredentials();
|
||||
'Dim credentials As New SDL.RKSVServer.DBUserCredentials
|
||||
|
||||
'credentials.Database = "RKSVWcfDB"
|
||||
'credentials.Server = "AVISO\SQLEXPRESS"
|
||||
|
||||
'credentials.Username = "Admin"
|
||||
'credentials.Password = "verag#2"
|
||||
'credentials.CashboxID = kasse.rksv_bez
|
||||
''"VERAG-SUB-KASSE-ZOLL"
|
||||
'credentials.CompanyGUID = CompanyGUID ' "9119d9ae-f549-4a0f-a50f-0500ec7ca059"
|
||||
|
||||
|
||||
|
||||
'Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer() 'PROBLEM??
|
||||
' m_com.Url = "http://ymgk028055.verag.ost.dmn:8733/DSFinVKService"
|
||||
Dim [error] As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode
|
||||
Dim InitializeLibraryResultSpecified As Boolean
|
||||
' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox)
|
||||
[error] = m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox) '[error], InitializeLibraryResultSpecified)
|
||||
|
||||
' MsgBox("1: " & [error])
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
If [error].ToString() <> "CASHBOX_ALREADY_MANAGED" Then '--> CASHBOX_ALREADY_MANAGED --> der Fehler darf auftreten, die Cashbox wird Serverseitig initialisert, hier nur der Versuch, falls das nciht geschehen ist... lt. Jan Mika / AITG
|
||||
MessageBox.Show([error].ToString(), "Error1", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
'BelegNr wird von RKSV übernommen
|
||||
Dim BON_ID As Integer = 0
|
||||
If False Then
|
||||
|
||||
Dim BON_IDSpecified = False
|
||||
Dim GetNextBON_IDResultSpecified = False
|
||||
[error] = m_com.GetNextBON_ID(cashbox, BON_ID)
|
||||
' MsgBox("3: " & [error])
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
MessageBox.Show([error].ToString(), "Error2", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
' MsgBox(RKSV_Beleg_Id)
|
||||
BON_ID = RKSV_Beleg_Id
|
||||
End If
|
||||
|
||||
|
||||
'Dim BON_NR As Integer = 0
|
||||
'[error] = m_com.GetNextBON_NR(cashbox, BON_NR)
|
||||
|
||||
'If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
' MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
' Return False
|
||||
'End If
|
||||
|
||||
|
||||
' MsgBox("4")
|
||||
|
||||
'Rechnung beginnen
|
||||
|
||||
|
||||
Dim stornoVz = -1
|
||||
|
||||
|
||||
Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfBegin
|
||||
' Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.BonKopfBegin()
|
||||
|
||||
bonkopfBegin.Z_KASSE_ID = cashbox
|
||||
|
||||
bonkopfBegin.BEDIENER_ID = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'tbBEDIENER_ID.Text
|
||||
|
||||
bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'tbBEDIENER_NAME.Text
|
||||
|
||||
bonkopfBegin.BON_ID = BON_ID.ToString()
|
||||
bonkopfBegin.REF_BON_ID = If(OLD_RKSV_Beleg_Id, "").ToString
|
||||
|
||||
bonkopfBegin.BON_NAME = "" 'tbBON_NAME.Text
|
||||
|
||||
bonkopfBegin.BON_NOTIZ = "" 'tbBON_NOTIZ.Text
|
||||
|
||||
bonkopfBegin.BON_NR = BON_ID
|
||||
|
||||
bonkopfBegin.BON_STORNO = 1 'If(cbBON_STORNO.Checked, "1", "0")
|
||||
|
||||
bonkopfBegin.BON_TYP = "Beleg" 'cmbBON_TYP.SelectedItem.ToString()
|
||||
|
||||
bonkopfBegin.KUNDE_ID = If(BELEG.KundenNr > 0, BELEG.KundenNr, "") 'tbKUNDE_ID.Text
|
||||
|
||||
bonkopfBegin.KUNDE_LAND = If(BELEG.LandKz, "") 'tbKUNDE_LAND.Text
|
||||
|
||||
bonkopfBegin.KUNDE_NAME = If(BELEG.Frachtführer, "") 'tbKUNDE_NAME.Text
|
||||
|
||||
bonkopfBegin.KUNDE_ORT = If(BELEG.Ort, "") 'tbKUNDE_ORT.Text
|
||||
|
||||
bonkopfBegin.KUNDE_PLZ = If(BELEG.PLZ, "") 'tbKUNDE_PLZ.Text
|
||||
|
||||
bonkopfBegin.KUNDE_STRASSE = If(BELEG.Straße, "") ' tbKUNDE_STRASSE.Text
|
||||
|
||||
bonkopfBegin.KUNDE_TYP = "" ' tbKUNDE_TYP.Text
|
||||
|
||||
bonkopfBegin.KUNDE_USTID = If(BELEG.UstIdKz, "") & If(BELEG.UstIdNr, "") ' tbKUNDE_USTID.Text
|
||||
|
||||
bonkopfBegin.TERMINAL_ID = "" 'tbTERMINAL_ID.Text
|
||||
|
||||
Dim transactionNumber As Integer = 0
|
||||
Dim transactionNumberSpecified As Boolean
|
||||
|
||||
Dim BeginReceiptResultSpecified As Boolean
|
||||
[error] = m_com.BeginReceipt(cashbox, bonkopfBegin, transactionNumber)
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
MessageBox.Show([error].ToString(), "Error3", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
Return False
|
||||
End If
|
||||
|
||||
' MsgBox("5 ANZ: " & BELEG.POS.Count)
|
||||
Dim cntZeile = 1
|
||||
Dim GES_BRUTTO As Double = 0
|
||||
For Each POS In BELEG.POS
|
||||
|
||||
'Bonposition hinzufügen
|
||||
Dim position As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition()
|
||||
|
||||
position.AGENTUR_ID = -1 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["AGENTUR_ID"].Value)
|
||||
|
||||
position.ARTIKELTEXT = POS.LeistungsBez 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ARTIKELTEXT"].Value)
|
||||
|
||||
position.ART_NR = POS.LeistungsNr ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ART_NR"].Value)
|
||||
|
||||
position.BON_ID = Convert.ToString(BON_ID)
|
||||
|
||||
position.EINHEIT = "Stk." ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["EINHEIT"].Value)
|
||||
|
||||
position.FAKTOR = 1 ' Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["FAKTOR"].Value)
|
||||
|
||||
position.GTIN = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GTIN"].Value)
|
||||
|
||||
position.GUTSCHEIN_NR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GUTSCHEIN_NR"].Value)
|
||||
|
||||
position.GV_NAME = "" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_NAME"].Value)
|
||||
|
||||
position.GV_TYP = "Umsatz" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_TYP"].Value)
|
||||
|
||||
position.INHAUS = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["INHAUS"].Value)
|
||||
|
||||
position.MENGE = POS.Anzahl 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["MENGE"].Value)
|
||||
|
||||
position.POS_TERMINAL_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_TERMINAL_ID"].Value)
|
||||
|
||||
position.POS_ZEILE = cntZeile 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_ZEILE"].Value)
|
||||
|
||||
position.P_STORNO = 0 'Hier kein Storno, das wäre nur wenn eine Pos storniert wird...
|
||||
|
||||
position.STK_BR = POS.Preis 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["STK_BR"].Value)
|
||||
|
||||
position.WARENGR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR"].Value)
|
||||
|
||||
position.WARENGR_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR_ID"].Value)
|
||||
|
||||
position.Z_KASSE_ID = cashbox 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["Z_KASSE_ID"].Value)
|
||||
|
||||
' Beträge der Position
|
||||
|
||||
Dim position_vat = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition_Ust()
|
||||
|
||||
position_vat.BON_ID = position.BON_ID
|
||||
|
||||
position_vat.POS_ZEILE = position.POS_ZEILE
|
||||
|
||||
Dim steuersatzID = 1
|
||||
Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT [Steuersatz] FROM [tblSteuersätze] where nr='" & BELEG.Steuerschlüssel & "'", "FMZOLL")
|
||||
Select Case steuersatz
|
||||
Case 0.19 : steuersatzID = 1
|
||||
Case 0.07 : steuersatzID = 2
|
||||
Case 0.00 : steuersatzID = 6
|
||||
End Select
|
||||
' MsgBox(POS.Anzahl)
|
||||
' MsgBox(POS.Betrag)
|
||||
|
||||
position_vat.UST_SCHLUESSEL = steuersatzID 'm_com.GetTaxIds(cashbox,) 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["UST_SCHLUESSEL"].Value)
|
||||
Dim steuerBetrag = POS.Betrag * position_vat.UST_SCHLUESSEL
|
||||
position_vat.POS_BRUTTO = POS.Betrag + steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_BRUTTO"].Value)
|
||||
|
||||
position_vat.POS_NETTO = POS.Betrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_NETTO"].Value)
|
||||
|
||||
position_vat.POS_UST = steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_UST"].Value)
|
||||
|
||||
position_vat.POS_BRUTTO *= stornoVz
|
||||
position_vat.POS_NETTO *= stornoVz
|
||||
position_vat.POS_UST *= stornoVz
|
||||
|
||||
Dim AddPositionToReceiptResultSpecified As Boolean
|
||||
[error] = m_com.AddPositionToReceipt(cashbox, position, position_vat, transactionNumber)
|
||||
cntZeile += 1
|
||||
GES_BRUTTO += position_vat.POS_BRUTTO
|
||||
|
||||
Next
|
||||
' MsgBox("6: " & GES_BRUTTO)
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
MessageBox.Show([error].ToString(), "Error4", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
Return False
|
||||
End If
|
||||
|
||||
'Rechnung abschließen
|
||||
|
||||
Dim bonkopfFinish As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfFinish = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfFinish()
|
||||
|
||||
bonkopfFinish.Z_KASSE_ID = cashbox
|
||||
|
||||
bonkopfFinish.BON_ID = BON_ID
|
||||
|
||||
|
||||
|
||||
If Not Decimal.TryParse(GES_BRUTTO, bonkopfFinish.UMS_BRUTTO) Then
|
||||
bonkopfFinish.UMS_BRUTTO = 0.00
|
||||
End If
|
||||
|
||||
|
||||
bonkopfFinish.PROCESS_TYPE = "Kassenbeleg-V1"
|
||||
|
||||
bonkopfFinish.payment_currencies = {"EUR"}
|
||||
|
||||
bonkopfFinish.payment_types = {"Bar"}
|
||||
|
||||
bonkopfFinish.payment_per_currency = {GES_BRUTTO} '{0.0} 'BETRAG"!!!!!!!!!!!!
|
||||
|
||||
' MsgBox("6,1: ")
|
||||
|
||||
Dim FinishReceiptResult As Boolean = True
|
||||
Dim FinishReceiptResultSpecified As Boolean
|
||||
[error] = m_com.FinishReceipt(cashbox, bonkopfFinish, transactionNumber)
|
||||
' MsgBox("6,2: ")
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
MessageBox.Show([error].ToString(), "Error5", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
Return False
|
||||
End If
|
||||
' Kassenabschluss anlegen über alle noch nicht abgeschlossenen Rechnungen zu dieser Kasse
|
||||
|
||||
' Error = m_com.CreateCashpointClosing(cashbox)
|
||||
|
||||
' ' DSFinV-K-Export
|
||||
|
||||
' Int from = 0
|
||||
|
||||
'Int to = 10
|
||||
|
||||
'Dim ret = m_com.ExportCSVFiles(from, to, tbSelectedFolder.Text, tbZipName.Text, True, True,
|
||||
|
||||
'true, true, true, true, true, true,
|
||||
|
||||
'true, true, true, true,
|
||||
|
||||
'true, true, true, true, true,
|
||||
|
||||
'true, true, true);
|
||||
|
||||
'If (ret == ErrorCode.OK) Then
|
||||
|
||||
'{
|
||||
|
||||
'MessageBox.Show("Die CSV Dateien wurden im Ordner " + tbSelectedFolder.Text + " angelegt und in die Zip-Datei " + tbZipName.Text + " gepackt.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information);
|
||||
|
||||
'}
|
||||
|
||||
'Else
|
||||
|
||||
'{
|
||||
|
||||
'MessageBox.Show("Beim exportieren der CSV-Dateien ging etwas schief:\r\n" + ret.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
|
||||
'}
|
||||
' MsgBox("7")
|
||||
|
||||
Dim transactionNumberRet As String
|
||||
Dim serialNumber As String
|
||||
Dim signature As String
|
||||
Dim transactionStart As Date
|
||||
Dim transactionFinish As Date
|
||||
Dim sigCounter As String
|
||||
Dim transactionStartSpecified As Boolean
|
||||
Dim transactionFinishSpecified As Boolean
|
||||
Dim GetLastReceiptValuesResultSpecified As Boolean
|
||||
'
|
||||
[error] = m_com.GetLastReceiptValues(cashbox, transactionNumberRet, serialNumber, signature, transactionStart, transactionFinish, sigCounter)
|
||||
|
||||
' MsgBox("8")
|
||||
|
||||
Dim qrCode As String = String.Empty
|
||||
Dim mimeType As String = String.Empty
|
||||
Dim GetLastReceiptQrCodeResult As Boolean
|
||||
Dim GetLastReceiptQrCodeResultSpecified As Boolean
|
||||
[error] = m_com.GetLastReceiptQrCode(cashbox, qrCode, mimeType)
|
||||
|
||||
QR_CodeString = qrCode
|
||||
LastJWS = signature
|
||||
|
||||
|
||||
' MsgBox("9")
|
||||
If QR_CodeString.Length > 50 And LastJWS.Length > 50 Then
|
||||
Return True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Es ist ein Fehler bei der Signatur aufgetreten (insertRKSV): " & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function stornoRKSV_DE(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal OLD_RKSV_Beleg_Id As Object, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean
|
||||
Try
|
||||
|
||||
' MsgBox("0: ")
|
||||
@@ -192,6 +512,15 @@ Public Class cRKSV
|
||||
' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox)
|
||||
m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox, [error], InitializeLibraryResultSpecified)
|
||||
|
||||
' Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer() 'PROBLEM??
|
||||
' Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient() 'PROBLEM??
|
||||
|
||||
' m_com.Url = "http://ymgk028055.verag.ost.dmn:8733/DSFinVKService"
|
||||
'Dim [error] As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode
|
||||
'Dim InitializeLibraryResultSpecified As Boolean
|
||||
' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox)
|
||||
m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox, [error], InitializeLibraryResultSpecified)
|
||||
|
||||
' MsgBox("1: " & [error])
|
||||
|
||||
If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then
|
||||
@@ -239,6 +568,7 @@ Public Class cRKSV
|
||||
bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'tbBEDIENER_NAME.Text
|
||||
|
||||
bonkopfBegin.BON_ID = BON_ID.ToString()
|
||||
bonkopfBegin.REF_BON_ID = If(OLD_RKSV_Beleg_Id, "").ToString()
|
||||
|
||||
bonkopfBegin.BON_NAME = "" 'tbBON_NAME.Text
|
||||
|
||||
@@ -472,6 +802,7 @@ Public Class cRKSV
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Shared Function stornoRKSV(ByVal kasse As cRKSV_Kasse, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, ByRef answer As String) As Boolean
|
||||
Try
|
||||
|
||||
@@ -2416,7 +2747,7 @@ Public Class cRKSV_DE
|
||||
Try
|
||||
|
||||
' MsgBox("0: ")
|
||||
Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001"
|
||||
Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001"
|
||||
'Dim endpoint = New System.ServiceModel.EndpointAddress(getRKSVLink(kasse))
|
||||
' Dim m_com As VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient("DSFinVKService", endpoint) '"http://ymgk028055.verag.ost.dmn:8733/DSFinVKService")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user