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
2021-10-27 11:19:22 +02:00
parent 13f28aa1d8
commit f4813a04a9
76 changed files with 9922 additions and 2253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -943,6 +943,7 @@ Public Class cAviso
Property ZOLLDigitalEingereicht As Boolean = False
Property Transportmittelart As Object = Nothing
Property WeiterleitungTextTV As String = ""
Public VORPAPIERE As New List(Of cAvisoVorpapier)
@@ -1182,6 +1183,8 @@ Public Class cAvisoDAL
daten.ZOLLDigitalEingereicht = If(dr.Item("ZOLLDigitalEingereicht") Is DBNull.Value, Nothing, dr.Item("ZOLLDigitalEingereicht"))
daten.Transportmittelart = If(dr.Item("Transportmittelart") Is DBNull.Value, Nothing, dr.Item("Transportmittelart"))
daten.WeiterleitungTextTV = VarToStr(dr.Item("WeiterleitungTextTV"))
End If
@@ -1454,17 +1457,17 @@ Public Class cAvisoDAL
hAuswahl = "INSERT INTO Aviso " &
"(Datum, LKW_Nr, Telefonisch, Änderungen, Info, Status, Auftraggeber, Frächter, letzterMitarbeiter, " &
"Vorbereitet,Vorgeschrieben, Ankunft, Freigabe, Dauer, AvisoEingang, Grenzstelle, LKW_fertig,letzterMitarbeiterId,Handling,Sendungen_Gesamtanzahl,Sammelakt,Frächter_KdNr,Auftraggeber_KdNr,AvisoTVHinweis,Buero,Imex,Abgeschlossen,FIRMA, " &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart) VALUES (" &
" Durchgangszollstelle1,Durchgangszollstelle2,Durchgangszollstelle3,Durchgangszollstelle4,Durchgangszollstelle5,Durchgangszollstelle6,Ausgangszollstelle,Zollstelle,TransportTemperatur,Zugmaschine,FahrerHandy,LKW_Nationalitaet,DakosyRef,TeamId,Cluster,Freigabe_Info,KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer,FreigabeFiliale,VoraussichtlichesEintreffen,Warenort,ZOLLDigitalEingereicht,Transportmittelart,WeiterleitungTextTV) VALUES (" &
"@Datum, @LKW_Nr, @Telefonisch, @Änderungen, @Info, @Status, @Auftraggeber, @Frächter, @letzterMitarbeiter, " &
"@Vorbereitet, @Vorgeschrieben, @Ankunft, @Freigabe, @Dauer, @AvisoEingang, @Grenzstelle, @LKW_fertig,@letzterMitarbeiterId,@Handling,@Sendungen_Gesamtanzahl,@Sammelakt,@Frächter_KdNr,@Auftraggeber_KdNr,@AvisoTVHinweis,@Buero,@Imex,@Abgeschlossen,@FIRMA," &
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart); SELECT CAST(scope_identity() AS int);"
"@Durchgangszollstelle1,@Durchgangszollstelle2,@Durchgangszollstelle3,@Durchgangszollstelle4,@Durchgangszollstelle5,@Durchgangszollstelle6,@Ausgangszollstelle,@Zollstelle,@TransportTemperatur,@Zugmaschine,@FahrerHandy,@LKW_Nationalitaet,@DakosyRef,@TeamId,@Cluster,@Freigabe_Info,@KdAuftragsNr_Frachtfuehrer,@KdAuftragsNr_Avisierer,@FreigabeFiliale,@VoraussichtlichesEintreffen,@Warenort,@ZOLLDigitalEingereicht,@Transportmittelart,@WeiterleitungTextTV); SELECT CAST(scope_identity() AS int);"
Else
id = d.AvisoID
'Änderung
hAuswahl = String.Format(
"UPDATE Aviso SET Datum = @Datum, LKW_Nr = @LKW_Nr, Telefonisch=@Telefonisch, Änderungen=@Änderungen, Info=@Info, Status=@Status, Auftraggeber=@Auftraggeber, Frächter=@Frächter, " &
" letzterMitarbeiter = @letzterMitarbeiter, Vorbereitet=@Vorbereitet,Vorgeschrieben=@Vorgeschrieben, Ankunft = @Ankunft, Freigabe = @Freigabe, Dauer = @Dauer, AvisoEingang = @AvisoEingang, Grenzstelle=@Grenzstelle, LKW_fertig=@LKW_fertig, letzterMitarbeiterId=@letzterMitarbeiterId, Handling=@Handling,Sendungen_Gesamtanzahl=@Sendungen_Gesamtanzahl,Sammelakt=@Sammelakt,Frächter_KdNr=@Frächter_KdNr,Auftraggeber_KdNr=@Auftraggeber_KdNr,AvisoTVHinweis=@AvisoTVHinweis,Buero=@Buero,Imex=@Imex,Abgeschlossen=@Abgeschlossen, " &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,FIRMA=@FIRMA" &
" Durchgangszollstelle1=@Durchgangszollstelle1,Durchgangszollstelle2=@Durchgangszollstelle2,Durchgangszollstelle3=@Durchgangszollstelle3,Durchgangszollstelle4=@Durchgangszollstelle4,Durchgangszollstelle5=@Durchgangszollstelle5,Durchgangszollstelle6=@Durchgangszollstelle6,Ausgangszollstelle=@Ausgangszollstelle,Zollstelle=@Zollstelle,TransportTemperatur=@TransportTemperatur,Zugmaschine=@Zugmaschine,FahrerHandy=@FahrerHandy, LKW_Nationalitaet=@LKW_Nationalitaet, DakosyRef=@DakosyRef,TeamId=@TeamId,Cluster=@Cluster,Freigabe_Info=@Freigabe_Info,KdAuftragsNr_Frachtfuehrer =@KdAuftragsNr_Frachtfuehrer,KdAuftragsNr_Avisierer=@KdAuftragsNr_Avisierer , FreigabeFiliale=@FreigabeFiliale,VoraussichtlichesEintreffen=@VoraussichtlichesEintreffen,Warenort=@Warenort,ZOLLDigitalEingereicht=@ZOLLDigitalEingereicht,Transportmittelart=@Transportmittelart,WeiterleitungTextTV=@WeiterleitungTextTV,FIRMA=@FIRMA" &
" WHERE AvisoID = @AvisoID")
End If
@@ -1536,6 +1539,7 @@ Public Class cAvisoDAL
cmd.Parameters.AddWithValue("@Warenort", d.Warenort)
cmd.Parameters.AddWithValue("@ZOLLDigitalEingereicht", d.ZOLLDigitalEingereicht)
cmd.Parameters.AddWithValue("@Transportmittelart", If(d.Transportmittelart, ""))
cmd.Parameters.AddWithValue("@WeiterleitungTextTV", d.WeiterleitungTextTV)
Try

12
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -74,4 +74,16 @@
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</applicationSettings>
<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="BasicHttpBinding_IDSFinVKServer" />
</basicHttpBinding>
</bindings>
<client>
<endpoint address="http://localhost:8733/DSFinVKService" binding="basicHttpBinding"
bindingConfiguration="BasicHttpBinding_IDSFinVKServer" contract="RKSV_DE.IDSFinVKServer"
name="BasicHttpBinding_IDSFinVKServer" />
</client>
</system.serviceModel>
</configuration>

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -76,6 +76,7 @@ Public Class cMitarbeiter
Property mit_foto_DocId As Object = Nothing
Property mit_sprache As String = "DE"
Property mit_fakturierungsgruppe As String = ""
Dim SQL As New SQL
@@ -181,6 +182,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe))
Return list
End Function
@@ -367,6 +369,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")
If Not dr.Item("mit_fakturierungsgruppe") Is DBNull.Value Then Me.mit_fakturierungsgruppe = dr.Item("mit_fakturierungsgruppe")

139
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR_Nachrichten.vb Normal file
View File

@@ -0,0 +1,139 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cNCTS_TR_Nachrichten
Property nctsNr_id As Integer
Property nctsNr_nctsId As Integer
Property nctsNr_typ As String
Property nctsNr_GUID As Object = Nothing
Property nctsNr_MRN As Object = Nothing
Property nctsNr_LRN As Object = Nothing
Property nctsNr_path As String
Property nctsNr_tstmp As Date = Now
Public hasEntry = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(nctsNr_id)
Me.nctsNr_id = nctsNr_id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_id", nctsNr_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_nctsId", nctsNr_nctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_typ", nctsNr_typ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_GUID", nctsNr_GUID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_MRN", nctsNr_MRN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_LRN", nctsNr_LRN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_path", nctsNr_path))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsNr_tstmp", nctsNr_tstmp))
Return list
End Function
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Dim ncts_IdTMP = nctsNr_id
ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
If nctsNr_id <= 0 Then nctsNr_id = ncts_IdTMP
Return nctsNr_id > 0
' Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblNCTS_TR_Nachrichten WHERE nctsNr_id=@nctsNr_id ", conn)
cmd.Parameters.AddWithValue("@nctsNr_id", nctsNr_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Shared Function updatePath(nr_id As Integer, path As String) As String
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
SQL.doSQL(" UPDATE [tblNCTS_TR_Nachrichten] SET nctsNr_path='" & path & "' WHERE nctsNr_id='" & nr_id & "' ", "FMZOLL")
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 ""
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblNCTS_TR_Nachrichten] SET " & str & " WHERE nctsNr_id=@nctsNr_id ")
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 ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblNCTS_TR_Nachrichten (" & str & ") VALUES(" & values & ") ")
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 ""
End Function
End Class

167
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb Normal file
View File

@@ -0,0 +1,167 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cOffene_Posten
Property OP_ID As Object = Nothing
Property Kontonummer As Object = Nothing
Property Kontoname As Object = Nothing
Property Belegnummer As Object = Nothing
Property Belegdatum As Object = Nothing
Property Fälligkeitsdatum As Object = Nothing
Property Skontodatum As Object = Nothing
Property Skontoprozent As Object = Nothing
Property Bruttobetrag As Object = Nothing
Property Waehrung As Object = Nothing
Property Steuersatz As Object = Nothing
Property Gesamtausstand As Object = Nothing
Property Steuersatz2 As Object = Nothing
Property Ausstand2 As Object = Nothing
Property Buchungstext As Object = Nothing
Property Bemerkung As Object = Nothing
Property Mahnstufe As Object = Nothing
Property Mahndatum As Object = Nothing
Property Gegenkonto As Object = Nothing
Property Status As Object = Nothing
Property KumSaldoEUR As Object = Nothing
Property Firma_ID As Object = Nothing
Dim SQL As New SQL
Sub New()
End Sub
Sub New(OP_ID)
Me.OP_ID = OP_ID
LOAD()
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontonummer", Kontonummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegnummer", Belegnummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Belegdatum", Belegdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fälligkeitsdatum", Fälligkeitsdatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontodatum", Skontodatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Skontoprozent", Skontoprozent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bruttobetrag", Bruttobetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Waehrung", Waehrung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz", (Steuersatz))) '.ToString("N2")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtausstand", Gesamtausstand))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuersatz2", Steuersatz2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ausstand2", Ausstand2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Buchungstext", Buchungstext))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkung", Bemerkung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahnstufe", Mahnstufe))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mahndatum", Mahndatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gegenkonto", Gegenkonto))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status", Status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KumSaldoEUR", KumSaldoEUR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID))
Return list
End Function
Public Shared Function DELETE_ALL() As Boolean
Dim SQL As New SQL
Return SQL.doSQL("DELETE FROM [Offene Posten]", "FMZOLL")
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [Offene Posten] WITH(updlock,serializable) WHERE OP_ID=@OP_ID) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
OP_ID = SQL.doSQLVarListID(OP_ID, sqlstr, "FMZOLL", , list)
Return OP_ID > 0
End Function
Public Sub LOAD()
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM [Offene Posten] WHERE OP_ID=@OP_ID ", conn)
cmd.Parameters.AddWithValue("@OP_ID", OP_ID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [Offene Posten] SET " & str & " WHERE OP_ID=@OP_ID ")
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 ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO [Offene Posten] (" & str & ") VALUES(" & values & ") ")
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 ""
End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [Offene Posten] WITH(updlock,serializable) WHERE OP_ID=" & Me.OP_ID
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
End Class

142
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -109,11 +109,14 @@ Public Class cRechnungsausgang
Property VorschauID As Object = Nothing
Property Grenze As Object = Nothing
Property RechnungSprache As Object = Nothing
Property FakturierungsGruppe As String = ""
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
Public POSITIONEN As New List(Of cRechnungsausgangPositionen)
Public ANHAENGE As New List(Of cRechnungsausgangANHAENGE)
Shared SQL As New SQL
Sub New()
@@ -332,6 +335,7 @@ Public Class cRechnungsausgang
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VorschauID", VorschauID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenze", Grenze))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RechnungSprache", RechnungSprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FakturierungsGruppe", FakturierungsGruppe))
Return list
End Function
@@ -414,6 +418,7 @@ Public Class cRechnungsausgang
If RK_ID > 0 Then
doVorzeichenPOS()
If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
If saveAll Then SAVE_ANHAENGE(RK_ID) ' positionen speicehrn
doVorzeichenPOS()
End If
doVorzeichen()
@@ -450,7 +455,7 @@ Public Class cRechnungsausgang
If FIRMA.Firma_ID = 26 Then
If RechnungsLandKz <> "GB" And RechnungsLandKz <> "UK" Then
errMsg = "ERROR: Es darf nur nach GB abgerechnet werden!" : Return False
errMsg = "WARN: Abrechnung außerhalb GB." ' Return False
End If
If Währungscode <> "GBP" Then
errMsg = "ERROR: Es darf nur mit Währung 'GBP' abgerechnet werden!" : Return False
@@ -479,6 +484,16 @@ Public Class cRechnungsausgang
End If
Return True
End Function
Public Function SAVE_ANHAENGE(RK_ID) As Boolean
If DELETE_ANHAENGE() Then ' zuerst Einträge löschen...
'ORDER_ANHAENGE() ' ... dann ordnen ...
For Each p In ANHAENGE
If Not p.INSERT(RK_ID) Then Return False ' ... dann insert
Next
Else : Return False
End If
Return True
End Function
Public Sub LOAD()
@@ -572,6 +587,11 @@ Public Class cRechnungsausgang
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function DELETE_ANHAENGE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [RechnungsausgangAnhaenge] WHERE RK_ID=" & Me.RK_ID
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Sub LOAD_POSITIONEN()
Try
POSITIONEN.Clear()
@@ -601,6 +621,63 @@ Public Class cRechnungsausgang
End Try
End Sub
Public Sub LOAD_ANHAENGE()
Try
ANHAENGE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM RechnungsausgangAnhaenge WHERE RK_ID=@RK_ID ", conn)
cmd.Parameters.AddWithValue("@RK_ID", Me.RK_ID)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cRechnungsausgangAnhaenge
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ANHAENGE.Add(l)
End While
dr.Close()
End Using
End Using
doVorzeichenPOS()
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Shared Function LOAD_ANHAENGE_LIST(RK_ID) As List(Of cRechnungsausgangAnhaenge)
Dim ANHAENGE As New List(Of cRechnungsausgangAnhaenge)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM RechnungsausgangAnhaenge WHERE RK_ID=@RK_ID ", conn)
cmd.Parameters.AddWithValue("@RK_ID", RK_ID)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cRechnungsausgangAnhaenge
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ANHAENGE.Add(l)
End While
dr.Close()
End Using
End Using
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 ANHAENGE
End Function
Public Sub ORDER_POSITIONEN()
Try
' Dim POSITIONEN_Tmp As New List(Of cRechnungsausgangPositionen)
@@ -669,7 +746,7 @@ Public Class cRechnungsausgangPositionen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerpflichtigerBetrag", SteuerpflichtigerBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SteuerfreierBetrag", SteuerfreierBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AufschubkontoNr", AufschubkontoNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubfälligkeit", Aufschubfälligkeit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Prüfsumme berechnen", Prüfsumme_berechnen, "Prüfsumme_berechnen")) '!!!!
@@ -682,7 +759,7 @@ Public Class cRechnungsausgangPositionen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebProzent", BGebProzent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
Return list
@@ -725,4 +802,63 @@ Public Class cRechnungsausgangPositionen
End Class
Public Class cRechnungsausgangAnhaenge
Property RK_ID As Integer
Property dsId As Integer
Property anhId As Integer
Property Bezeichnung As String = ""
Dim SQL As New SQL
Sub New()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RK_ID", RK_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dsId", dsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anhId", anhId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung))
Return list
End Function
Public Function INSERT(RK_ID) As Boolean
Me.RK_ID = RK_ID
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
End Function
Public Function getInsertCmd() As String
Try
'Me.Eingegeben_am = Now
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO RechnungsausgangAnhaenge (" & str & ") VALUES(" & values & ") ")
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 ""
End Function
End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb
View File

@@ -50,6 +50,9 @@ Public Class cRechnungsnummern
Case 23 ' UNISPED Zollservice
VonRechnungsNr = Now.ToString("yy") & "5000000"
BisRechnungsNr = Now.ToString("yy") & "5999999"
Case 26 ' VERAG-UNISPED
VonRechnungsNr = Now.ToString("yy") & "0000001"
BisRechnungsNr = Now.ToString("yy") & "9999999"
End Select
LfdRechnungsNr = VonRechnungsNr
'-------------------------------------

10
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -102,6 +102,10 @@ Public Class cSendungen
Property tblSnd_Frachtkosten As Object = Nothing
Property tblSnd_AbfertigungTR As Object = Nothing
Property tblSnd_AbfertigungTR_MA As Object = Nothing
Public saveSachbearbeiter As Boolean = False
Property ABRECHNUNG As New List(Of cSendungAbrechnung)
@@ -371,6 +375,8 @@ Public Class cSendungen
Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
Me.tblSnd_AbfertigungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR"), Nothing)
Me.tblSnd_AbfertigungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbfertigungTR_MA"), Nothing)
End If
@@ -586,8 +592,8 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR", tblSnd_AbfertigungTR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTR_MA", tblSnd_AbfertigungTR_MA))
Return list

2
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -332,7 +332,7 @@ Class TrdInvoice_FUNCTIONS
Dim WährungsdifferenzSteuerpflichtigerBetrag As Double
Dim WährungsdifferenzSteuerfreierBetrag As Integer
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL")
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 2400)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each ROW In dt.Rows
Dim TRD_INVOICE As New VERAG_PROG_ALLGEMEIN.cTrdInvoice(ROW("RK_RechnungsDatum"), ROW("RK_RechnungsNr"))

0
VERAG_PROG_ALLGEMEIN/Classes/cRKSV_DE.vb → VERAG_PROG_ALLGEMEIN/Classes/old_cRKSV_DE.vb
View File

154
VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb generated
View File

@@ -108,129 +108,129 @@ Namespace My
Return CType(Me("FMZOLLConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _
"l Size=200")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=500")>
Public ReadOnly Property AVISOConnectionString() As String
Get
Return CType(Me("AVISOConnectionString"),String)
Return CType(Me("AVISOConnectionString"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Per"& _
"sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti"& _
"ficate=False")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Per" &
"sist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCerti" &
"ficate=False")>
Public ReadOnly Property SDLConnectionString() As String
Get
Return CType(Me("SDLConnectionString"),String)
Return CType(Me("SDLConnectionString"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _
"se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool"& _
" Size=200")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal" &
"se;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool" &
" Size=500")>
Public ReadOnly Property AVISOConnectionStringTEST() As String
Get
Return CType(Me("AVISOConnectionStringTEST"),String)
Return CType(Me("AVISOConnectionStringTEST"), String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User"& _
" ID=sa;Password=BmWr501956;")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User" &
" ID=sa;Password=BmWr501956;")>
Public Property SCANCANON_PRODConnectionString() As String
Get
Return CType(Me("SCANCANON_PRODConnectionString"),String)
Return CType(Me("SCANCANON_PRODConnectionString"), String)
End Get
Set
Me("SCANCANON_PRODConnectionString") = value
Me("SCANCANON_PRODConnectionString") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/vies/services/checkVatService")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _
"l Size=200")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=500")>
Public Property DISPOConnectionString() As String
Get
Return CType(Me("DISPOConnectionString"),String)
Return CType(Me("DISPOConnectionString"), String)
End Get
Set
Me("DISPOConnectionString") = value
Me("DISPOConnectionString") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService() As String
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl),
Global.System.Configuration.DefaultSettingValueAttribute("https://finanzonline.bmf.gv.at:443/fonws/ws/session")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService() As String
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"),String)
Return CType(Me("VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"), String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("")>
Public Property asdadasdasdasdasdasd() As String
Get
Return CType(Me("asdadasdasdasdasdasd"),String)
Return CType(Me("asdadasdasdasdasdasd"), String)
End Get
Set
Me("asdadasdasdasdasdasd") = value
Me("asdadasdasdasdasdasd") = Value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f"& _
"alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=f" &
"alse;User ID=AppUser;Password=yp/THDd?xM+pZ$;")>
Public ReadOnly Property EZOLLConnectionString() As String
Get
Return CType(Me("EZOLLConnectionString"),String)
Return CType(Me("EZOLLConnectionString"), String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa"& _
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo"& _
"l Size=200")> _
<Global.System.Configuration.ApplicationScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=fa" &
"lse;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Poo" &
"l Size=500")>
Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get
Return CType(Me("AVISO_ATILLAConnectionString"),String)

419
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -2,11 +2,12 @@
Public Class cSyska_Interface
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared fmt = "#######0.00"
'STAMMDATEN
Shared Function getStammdaten(FiBuSchnittstelleNr) As DataTable
Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] ,Telefax "
sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Anrede,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
@@ -16,6 +17,38 @@ Public Class cSyska_Interface
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function
' Shared Function getStammdatenTEST(FiBuSchnittstelleNr) As DataTable
' Dim sqlStr = " Select KundenNrZentrale As [Konto-Nr],isnull([Name 1],'') as Name,isnull([Name 2],'') as [Name2],(isnull(UstIdKz,'') + isnull(UstIdNr,'')) as [UST-Id-Nummer],isnull(UstIdGeprüft,'') as [UID-Datum],[Strasse],Adressen.landkz ,PLZ,LTRIM([Ort]) as Ort,isnull(BLZ,'') as [BLZ],isnull(KTO,'') as [KTO], CASE WHEN CAST(Zahlungsziel as VARCHAR(3)) ='0' THEN '' ELSE CAST(Zahlungsziel as VARCHAR(3)) END as [ZZiel],/*'' as [SPz],'' as [STg],*/isnull([E-Mail],'') as [mail],'' AS Info1,'' AS Inf2, Zahlungsziel2, Zahlungsziel3,[E-Mail],[Telefon] ,Telefax "
' sqlStr &= " ,Ordnungsbegriff ,Kunden.Währungscode,Anrede,Ansprechpartner,Lastschrift,Kunden.[Eingegeben am] as EingegebenAm"
' sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
' sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
' sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
' sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
' 'sqlStr &= " WHERE FiBuSchnittstelle=1 AND Auswahl='A' AND FiBuSchnittstelleNr='" & FiBuSchnittstelleNr & "' "
' sqlStr &= " WHERE KundenNrZentrale IN (750750,
'765729,
'765730,
'765731,
'765732,
'765733,
'765734,
'765735,
'765736,
'765737,
'765738,
'765739,
'765740,
'765741,
'765742,
'765743,
'765744,
'765745,
'765746
') "
' sqlStr &= " Order by [Konto-Nr] "
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
' End Function
Shared Function updateFibu(FiBuSchnittstelleNr) As DataTable
Dim sqlStr = " UPDATE Kunden "
sqlStr &= " SET FiBuSchnittstelle = '0' "
@@ -47,7 +80,9 @@ Public Class cSyska_Interface
Dim cleanStringName As String = Regex.Replace(row("Name"), "[^A-Za-z0-9\-/]", "").Replace(" ", "").ToUpper
Dim Lastschrift = CBool(row("Lastschrift"))
'If FormatStringSYS(row("Name2"), 50) <> "" Then
' MsgBox(FormatStringSYS(row("Name2"), 50) & vbTab)
'End If
getPersonenKto = ""
getPersonenKto &= row("Konto-Nr") & vbTab
getPersonenKto &= FormatStringSYS(cleanStringName, 2) & row("Konto-Nr") & vbTab
@@ -58,12 +93,12 @@ Public Class cSyska_Interface
getPersonenKto &= FormatStringSYS(row("Ort"), 50) & vbTab
getPersonenKto &= cProgramFunctions.getISO2Land(FormatStringSYS(LandKz, 5)) & vbTab
getPersonenKto &= CDate(row("EingegebenAm")).ToShortDateString & vbTab 'Eröffnungsdatum
getPersonenKto &= vbTab
getPersonenKto &= Gegenkontonummer & vbTab
getPersonenKto &= vbTab 'Bankname
getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab
getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab
getPersonenKto &= "00" & vbTab 'Skontotage
getPersonenKto &= row("ZZiel").ToString("00") & vbTab
getPersonenKto &= If(row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab
getPersonenKto &= "00,00" & vbTab 'Skonto
getPersonenKto &= "01" & vbTab 'Mahnkennung
getPersonenKto &= FormatStringSYS(row("UST-Id-Nummer"), 50) & vbTab
@@ -72,13 +107,13 @@ Public Class cSyska_Interface
getPersonenKto &= vbTab 'Forderungsonto
getPersonenKto &= vbTab
getPersonenKto &= Gegenkontonummer2 & vbTab 'Platzhalter??
getPersonenKto &= FormatStringSYS(row("Ansprechpartner"), 100) & vbTab
getPersonenKto &= FormatStringSYS(row("Anrede") & " " & row("Ansprechpartner"), 100) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= FormatStringSYS(row("Telefon")) & vbTab
getPersonenKto &= FormatStringSYS(row("Telefax")) & vbTab
getPersonenKto &= FormatStringSYS(row("E-Mail")) & vbTab
getPersonenKto &= vbTab
getPersonenKto &= vbTab
' getPersonenKto &= vbTab
End Function
@@ -144,7 +179,7 @@ Public Class cSyska_Interface
End If
'NOCH NICHT!!!
' updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
End If
End If
@@ -152,14 +187,81 @@ Public Class cSyska_Interface
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
Return False
End Function
'Public Shared Function genDatensatz_StammdatenTEST(FiBuSchnittstelleNr As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
' Try
Public Shared Function genDatensatz_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True) As Boolean
' Dim bool_DatenVorhanden As Boolean = False
' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
' Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(FiBuSchnittstelleNr)
' 'DATEIPFAD für Stammdaten
' '-------------------------------------------------------------------------------------------
' Dim pathArchivKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
' Dim pathKD = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
' If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
' If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
' '-------------------------------------------------------------------------------------------
' If True Then 'boolKunden Then
' '----------------- STAMMDATEN -----------------
' Dim dt_Stamm As DataTable = getStammdatenTEST(FiBuSchnittstelleNr)
' If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
' Dim fileKD As System.IO.StreamWriter
' Dim DateinameKD = "AVISO_DEBI_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
' fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' 'fileKD.WriteLine(genStammdatenBeginn())
' initKDNr(dt_Stamm)
' For Each r In dt_Stamm.Rows
' fileKD.WriteLine(getPersonenKto(r))
' Next
' bool_DatenVorhanden = True
' fileKD.Close()
' 'In Archiv sichern
' If pathArchivKD <> "" Then
' If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
' If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
' End If
' If bool_DatenVorhanden Then
' If OpenFile Then Process.Start(pathKD & DateinameKD)
' Else
' IO.File.Delete(pathKD & DateinameKD)
' End If
' 'NOCH NICHT!!!
' ' updateFibu(FiBuSchnittstelleNr) ' UPDATE FiBuSchnittstelle --> 0
' End If
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
' End Try
' Return False
'End Function
Public Shared Function genDatensatz_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional WdhDateiname As String = "") As Boolean
genDatensatz_ALL = True
If boolKunden Then
' If Not genDatensatz_Stammdaten(OpenFile) Then genDatensatz_ALL = False
@@ -170,17 +272,17 @@ Public Class cSyska_Interface
If Not genDatensatz_Stammdaten(19, OpenFile) Then genDatensatz_ALL = False
End If
If boolBuchungen Then
If Not genDatensatz_Buchungen(1, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(7, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(11, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(17, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(19, OpenFile) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(1, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(7, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(11, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(17, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
If Not genDatensatz_Buchungen(19, OpenFile, WdhDateiname) Then genDatensatz_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
' If Not genDatensatzCSV_Buchungen(XX, OpenFile) Then genDatensatzCSV_ALL = False
End If
End Function
Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional WdhDateiname As String = "") As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
@@ -210,9 +312,11 @@ Public Class cSyska_Interface
'----------------- Buchungssätze -----------------
If True Then 'boolBuchungen Then
' TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
If WdhDateiname = "" Then TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID, WdhDateiname)
' MsgBox(WdhDateiname & " - " & dt_Buchungen.Rows.Count)
If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
Try
Dim file As System.IO.StreamWriter
Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
@@ -234,7 +338,7 @@ Public Class cSyska_Interface
If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang
file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
End If
Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"))
Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"), WdhDateiname)
If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
For Each rz In dt_BuchungenZeilen.Rows
file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen...
@@ -250,8 +354,12 @@ Public Class cSyska_Interface
' file.WriteLine(genBuchungenEnd(SummeBuchungen))
bool_DatenVorhanden = True
'Update Filename TrdIn 'NOCH NICHT!!!!
' SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
'Update Filename TrdIn 'NOCH NICHT!!!! -->JETZT DOCH!!!
If WdhDateiname = "" Then
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
Else
SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname ='" & WdhDateiname & "' ", "FMZOLL")
End If
file.Close()
@@ -268,7 +376,7 @@ Public Class cSyska_Interface
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
End If
@@ -278,15 +386,109 @@ Public Class cSyska_Interface
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
End Try
Return False
End Function
'Public Shared Function genDatensatz_BuchungenTEST(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
' Try
' Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
' Dim bool_DatenVorhanden As Boolean = False
' Dim Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
' 'DATEIPFAD für Buchungsdaten
' '-------------------------------------------------------------------------------------------
' Dim pathArchiv = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\Archiv\"
' Dim path = "\\datenarchiv\Datenarchiv\DATENARCHIV_TESTSYSTEM\SYSKA\" & FIRMA.Firma_ID & "\" & Now.Year & "\" & Now.Date.ToShortDateString & "\"
' If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
' '-------------------------------------------------------------------------------------------
' '----------------- Buchungssätze -----------------
' If True Then 'boolBuchungen Then
' ' TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
' Dim dt_Buchungen As DataTable = getBuchungenTEST(FIRMA.Firma_ID)
' If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
' Try
' Dim file As System.IO.StreamWriter
' Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt"
' file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
' ' initKDNr(dt_Buchungen)
' Dim SummeBuchungen As Double = 0
' 'file.WriteLine(genBuchungenBeginn()) 'not needed
' For Each r In dt_Buchungen.Rows
' Dim curDifferenzbetrag As Double = 0
' If r("WährungFremd") Is DBNull.Value Then
' curDifferenzbetrag = Math.Round(If(r("RechnungsbetragLokal") < 0, 0 - r("RechnungsbetragLokal"), r("RechnungsbetragLokal")), 2)
' Else
' curDifferenzbetrag = Math.Round(If(r("RechnungsbetragFremd") < 0, 0 - r("RechnungsbetragFremd"), r("RechnungsbetragFremd")), 2)
' End If
' If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang
' file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
' End If
' Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilenTEST(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"))
' If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then
' For Each rz In dt_BuchungenZeilen.Rows
' file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen...
' Next
' End If
' If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto
' file.WriteLine(genBuchungsZeileDiffBetrag(r, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag))
' End If
' If r("BelegartenNr") = 71 Then 'GUTSCHRIFT ---> Immer am Schluss
' file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA))
' End If
' Next
' ' file.WriteLine(genBuchungenEnd(SummeBuchungen))
' bool_DatenVorhanden = True
' 'Update Filename TrdIn 'NOCH NICHT!!!!
' ' SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL")
' file.Close()
' 'In Archiv sichern
' If pathArchiv <> "" Then
' If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
' If path <> pathArchiv Then IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
' End If
' If bool_DatenVorhanden Then
' If OpenFile Then Process.Start(path & Dateiname)
' Else
' IO.File.Delete(path & Dateiname)
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
' End Try
' End If
' End If
' '----------------------------------
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
' End Try
' Return False
'End Function
Shared Function FormatStringSYS(s As Object, Optional length As Integer = -1, Optional defaultValue As String = "") As String
If s Is Nothing Then Return defaultValue
If s Is DBNull.Value Then Return defaultValue
FormatStringSYS = s.ToString.Replace(";", ",")
FormatStringSYS = s.ToString.Replace(";", ",").Trim
'FormatStringSYS = s.ToString.Replace(",", "")
'FormatStringSYS = s.ToString.Replace("""", "\22")
If length > 0 Then
@@ -300,40 +502,73 @@ Public Class cSyska_Interface
If IsNumeric(s) Then Return CDbl(s).ToString("N" & Nachkommastellen)
Return s.ToString
End Function
Shared Function getBuchungen(Firma_ID As Integer) As DataTable
Shared Function getBuchungen(Firma_ID As Integer, Optional WdhDateiname As String = "") As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig
WHERE Firma_ID ='" & Firma_ID & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & "
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
End Function
Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date) As DataTable
'Shared Function getBuchungenTEST(Firma_ID As Integer) As DataTable
Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer, Speditionsbuch ,FilialenNr,AbfertigungsNr,UnterNr, Abfertigungsdatum, BelegartenNr
, [KundenNrZentrale], RechnungsKundenNr,RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr
, Lastschrift, Steuerschlüssel,[Steuersatz %] as Steuersatz,WährungLokal, SteuerbetragLokal, RechnungsbetragLokal
,WährungFremd,SteuerbetragFremd,RechnungsbetragFremd,TrdinDateiname,Abgleich_op_debitor
, Nettozahlungsziel, Firma_ID, UStVAn_ID,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,PROD.SteuerpflichtigerBetragLokal as SteuerpflichtigerBetragLokal
,PROD.SteuerfreierBetragLokal as SteuerfreierBetragLokal,PROD.SteuerpflichtigerBetragFremd as SteuerpflichtigerBetragFremd,PROD.SteuerfreierBetragFremd as SteuerfreierBetragFremd,Belegdaten
,Sachkonto,Buchungstext, (PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, (PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
' Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr
' ,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr
' ,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal
' ,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor
' ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal
' ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
' ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
' FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
' WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname ='211005010148'
' group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung*/,Steuerpflichtig
' ORDER BY Rechnungsdatum, Rechnungsnummer "
' ' --and IVO.Rechnungsnummer=19400002
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
'Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date) As DataTable
' Dim sqlStr = " SELECT TOP (1000) IVO.Rechnungsdatum,IVO.Rechnungsnummer, Speditionsbuch ,FilialenNr,AbfertigungsNr,UnterNr, Abfertigungsdatum, BelegartenNr
' , [KundenNrZentrale], RechnungsKundenNr,RechnungsLandKz, RechnungsUstIdKz, RechnungsUstIdNr
' , Lastschrift, Steuerschlüssel,[Steuersatz %] as Steuersatz,WährungLokal, SteuerbetragLokal, RechnungsbetragLokal
' ,WährungFremd,SteuerbetragFremd,RechnungsbetragFremd,TrdinDateiname,Abgleich_op_debitor
' , Nettozahlungsziel, Firma_ID, UStVAn_ID,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig,PROD.SteuerpflichtigerBetragLokal as SteuerpflichtigerBetragLokal
' ,PROD.SteuerfreierBetragLokal as SteuerfreierBetragLokal,PROD.SteuerpflichtigerBetragFremd as SteuerpflichtigerBetragFremd,PROD.SteuerfreierBetragFremd as SteuerfreierBetragFremd,Belegdaten
' ,Sachkonto,Buchungstext, (PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, (PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd
' FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
' WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND TrdinDateiname Is Null
' ORDER BY Rechnungsdatum, Rechnungsnummer "
' ' --and IVO.Rechnungsnummer=19400002
' Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
'End Function
Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date, Optional WdhDateiname As String = "") As DataTable
Dim sqlStr = " SELECT Sachkonto,IVO.Rechnungsdatum Rechnungsdatum,IVO.Rechnungsnummer Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] Steuersatz,BelegartenNr,
WährungFremd, WährungLokal,sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal])BetragLokal,
sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd])BetragFremd ,sum(RechnungsbetragLokal) RechnungsbetragLokal,sum(RechnungsbetragFremd) RechnungsbetragFremd
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND TrdinDateiname Is Null
ORDER BY Rechnungsdatum, Rechnungsnummer "
WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & "
GROUP BY Sachkonto,IVO.Rechnungsdatum,IVO.Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] ,BelegartenNr,WährungFremd,WährungLokal
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
End Function
@@ -368,13 +603,13 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeileSum &= CDbl(Bruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
ElseIf row("BelegartenNr") = 71 Then 'GUTSCHRIFT
@@ -402,13 +637,13 @@ Public Class cSyska_Interface
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeileSum &= CDbl(FiBuBruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileSum &= FiBuWährung & vbTab
genBuchungsZeileSum &= CDbl(FiBuEigenbruttobetrag).ToString("N2") & vbTab
genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
End If
@@ -481,13 +716,13 @@ Public Class cSyska_Interface
genBuchungsZeile &= FiBuSollkontonummer & vbTab
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & vbTab
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
genBuchungsZeile &= FiBuBruttobetrag & vbTab
genBuchungsZeile &= FiBuSteuersatz.ToString("N2") & vbTab 'FiBuSteuersatz
genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
genBuchungsZeile &= FiBuWährung & vbTab
genBuchungsZeile &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
genBuchungsZeile &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab
@@ -500,7 +735,7 @@ Public Class cSyska_Interface
Dim FiBuEigenbruttobetrag As Double
Dim FiBuSollkontonummer As Integer
Dim FiBuHabenkontonummer As Integer
Dim Buchungstext = row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & row("UnterNr").ToString("00") & "/Steuerdiff." & vbTab
Dim Buchungstext = row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & "/Steuerdiff." & vbTab
If row("WährungFremd") Is DBNull.Value Then
FiBuEigenbruttobetrag = curDifferenzbetrag 'Bruttobetrag
FiBuWährung = row("WährungLokal")
@@ -510,7 +745,6 @@ Public Class cSyska_Interface
End If
Select Case row("BelegartenNr")
Case 70 'Rechnung
FiBuSollkontonummer = "0"
@@ -529,11 +763,11 @@ Public Class cSyska_Interface
genBuchungsZeileDiffBetrag &= FiBuHabenkontonummer & vbTab
genBuchungsZeileDiffBetrag &= Buchungstext
genBuchungsZeileDiffBetrag &= curDifferenzbetrag.ToString("N2") & vbTab
genBuchungsZeileDiffBetrag &= Format(curDifferenzbetrag, fmt) & vbTab
genBuchungsZeileDiffBetrag &= "00,00" & vbTab 'FiBuSteuersatz
genBuchungsZeileDiffBetrag &= "" & vbTab 'FiBuSteuerbetrag
genBuchungsZeileDiffBetrag &= FiBuWährung & vbTab
genBuchungsZeileDiffBetrag &= FiBuEigenbruttobetrag.ToString("N2") & vbTab
genBuchungsZeileDiffBetrag &= Format(FiBuEigenbruttobetrag, fmt) & vbTab
'curDifferenzbetrag += FiBuEigenbruttobetrag
@@ -587,36 +821,6 @@ Public Class cSyska_Interface
Shared Function getDbl(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o)
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbl2(o As Object) As Double
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o.ToString.Replace(".", ","))
Catch ex As Exception
Return 0
End Try
End Function
Shared Function getDbltr(o As Object) As String
Try
If o Is Nothing Then Return 0
If o Is DBNull.Value Then Return 0
Return CDbl(o).ToString("N2").Replace(".", "") '
Catch ex As Exception
Return 0
End Try
End Function
Shared Function fill0Stellen(i As Object, l As Integer) As String
If i Is DBNull.Value Then i = ""
If i Is Nothing Then i = ""
@@ -1076,4 +1280,51 @@ Public Class cSyska_Interface
'2050 Resume PROC_Exit
' End Function
Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
Dim dt_OP As DataTable = SQL.loadDgvBySql("SELECT * FROM op_debitor WHERE (i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL) " & If(KdNr > 0, " AND i_personenkonto='" & KdNr & "'", "") & " ORDER BY i_personenkonto, d_rechnung, c_urbelegid", "FIBU")
If dt_OP IsNot Nothing Then
If OP_DELETE(Firma_ID, KdNr) Then
For Each r_OP In dt_OP.Rows
Try
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()
OP.Kontonummer = r_OP("i_personenkonto")
OP.Belegnummer = r_OP("c_urbelegid")
OP.Belegdatum = r_OP("d_rechnung")
OP.Fälligkeitsdatum = r_OP("d_netto")
OP.Bruttobetrag = r_OP("eur_bruttobetrag")
OP.Waehrung = "EUR"
OP.Gesamtausstand = r_OP("eur_bruttobetrag") + r_OP("eur_zahlung")
OP.Buchungstext = r_OP("c_bemerkung")
OP.Mahnstufe = r_OP("si_mahnstufe")
OP.Mahndatum = r_OP("d_mahnung")
OP.Firma_ID = r_OP("i_firm_refid")
OP.SAVE()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
Else
MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
End If
End If
End Function
Public Shared Function OP_DELETE(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
Dim SQL As New SQL
Return SQL.doSQL("DELETE FROM [Offene Posten] where Firma_ID='" & Firma_ID & "'" & If(KdNr > 0, " AND Kontonummer='" & KdNr & "'", ""), "FMZOLL")
End Function
End Class

21
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd Normal file
View File

@@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:tns="http://schemas.microsoft.com/2003/10/Serialization/Arrays" elementFormDefault="qualified" targetNamespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:complexType name="ArrayOfstring">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="string" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfstring" nillable="true" type="tns:ArrayOfstring" />
<xs:complexType name="ArrayOfdecimal">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="decimal" type="xs:decimal" />
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfdecimal" nillable="true" type="tns:ArrayOfdecimal" />
<xs:complexType name="ArrayOfint">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="int" type="xs:int" />
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfint" nillable="true" type="tns:ArrayOfint" />
</xs:schema>

210
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd Normal file
View File

@@ -0,0 +1,210 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:tns="http://schemas.datacontract.org/2004/07/DSFinVK" elementFormDefault="qualified" targetNamespace="http://schemas.datacontract.org/2004/07/DSFinVK" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://schemas.microsoft.com/2003/10/Serialization/" />
<xs:import namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xs:simpleType name="ErrorCode">
<xs:restriction base="xs:string">
<xs:enumeration value="OK" />
<xs:enumeration value="FAILED" />
<xs:enumeration value="BAD_USERNAME" />
<xs:enumeration value="BAD_PASSWORD" />
<xs:enumeration value="TSE_NOT_FOUND" />
<xs:enumeration value="TSE_INITIALIZATION_FAILED" />
<xs:enumeration value="TSE_BEGIN_TRANSACTION_FAILED" />
<xs:enumeration value="TSE_FINISH_TRANSACTION_FAILED" />
<xs:enumeration value="ARRAY_LENGTH_NOT_EQUAL" />
<xs:enumeration value="PARAMETER_ERROR" />
<xs:enumeration value="DSFINVKCOM_LICENSE_NOT_VALID" />
<xs:enumeration value="KSVCOM_LICENSE_NOT_VALID" />
<xs:enumeration value="DATABASE_NO_CONNECTION">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">100</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="DATABASE_CONNECTION_NOT_OPENED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">101</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="DATABASE_NOT_SPECIFIED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">102</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="DATABASE_OPERATION_FAILED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">103</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="CASHBOX_NAME_NOT_UNIQUE">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">200</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="CASHBOX_IN_USE">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">201</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="CASHBOX_NOT_FOUND">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">202</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="ROW_HAS_INVALID_DATA">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">10001</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="ROW_BON_ID_NOT_FOUND">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">10100</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="ROW_BON_ID_ALREADY_EXISTS">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">10101</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="ROW_BON_ID_ALREADY_FINISHED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">10102</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
</xs:restriction>
</xs:simpleType>
<xs:element name="ErrorCode" nillable="true" type="tns:ErrorCode" />
<xs:complexType name="Kassendaten">
<xs:sequence>
<xs:element minOccurs="0" name="IVNR" type="xs:int" />
<xs:element minOccurs="0" name="KASSE_BASISWAEH_CODE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KASSE_BRAND" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KASSE_MODELL" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KASSE_SERIENNR" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KASSE_SW_BRAND" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KASSE_SW_VERSION" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KEINE_UST_ZUORDNUNG" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_LAND" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_NAME" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_ORT" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_PLZ" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_STRASSE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="LOC_USTID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_NR" type="xs:long" />
<xs:element minOccurs="0" name="license" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_bezeichnung" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_ivnr" type="xs:int" />
</xs:sequence>
</xs:complexType>
<xs:element name="Kassendaten" nillable="true" type="tns:Kassendaten" />
<xs:complexType name="ArrayOfKassendaten">
<xs:sequence>
<xs:element minOccurs="0" maxOccurs="unbounded" name="Kassendaten" nillable="true" type="tns:Kassendaten" />
</xs:sequence>
</xs:complexType>
<xs:element name="ArrayOfKassendaten" nillable="true" type="tns:ArrayOfKassendaten" />
<xs:complexType name="BonKopfBegin">
<xs:sequence>
<xs:element minOccurs="0" name="BEDIENER_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BEDIENER_NAME" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_NAME" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_NOTIZ" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_NR" type="xs:int" />
<xs:element minOccurs="0" name="BON_START" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_STORNO" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_TYP" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_LAND" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_NAME" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_ORT" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_PLZ" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_STRASSE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_TYP" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="KUNDE_USTID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="TERMINAL_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
<xs:element name="BonKopfBegin" nillable="true" type="tns:BonKopfBegin" />
<xs:complexType name="BonKopfFinish">
<xs:sequence>
<xs:element minOccurs="0" name="BON_ENDE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="PROCESS_TYPE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="UMS_BRUTTO" type="xs:decimal" />
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element xmlns:q1="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="payment_currencies" nillable="true" type="q1:ArrayOfstring" />
<xs:element xmlns:q2="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="payment_per_currency" nillable="true" type="q2:ArrayOfdecimal" />
<xs:element xmlns:q3="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="payment_types" nillable="true" type="q3:ArrayOfstring" />
</xs:sequence>
</xs:complexType>
<xs:element name="BonKopfFinish" nillable="true" type="tns:BonKopfFinish" />
<xs:complexType name="BonPosition">
<xs:sequence>
<xs:element minOccurs="0" name="AGENTUR_ID" type="xs:int" />
<xs:element minOccurs="0" name="ARTIKELTEXT" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="ART_NR" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="EINHEIT" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="FAKTOR" type="xs:decimal" />
<xs:element minOccurs="0" name="GTIN" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="GUTSCHEIN_NR" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="GV_NAME" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="GV_TYP" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="INHAUS" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="MENGE" type="xs:decimal" />
<xs:element minOccurs="0" name="POS_TERMINAL_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="POS_ZEILE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="P_STORNO" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="STK_BR" type="xs:decimal" />
<xs:element minOccurs="0" name="WARENGR" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="WARENGR_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
<xs:element name="BonPosition" nillable="true" type="tns:BonPosition" />
<xs:complexType name="BonPosition_Ust">
<xs:sequence>
<xs:element minOccurs="0" name="BON_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="POS_BRUTTO" type="xs:decimal" />
<xs:element minOccurs="0" name="POS_NETTO" type="xs:decimal" />
<xs:element minOccurs="0" name="POS_UST" type="xs:decimal" />
<xs:element minOccurs="0" name="POS_ZEILE" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="UST_SCHLUESSEL" type="xs:int" />
</xs:sequence>
</xs:complexType>
<xs:element name="BonPosition_Ust" nillable="true" type="tns:BonPosition_Ust" />
<xs:complexType name="Taxes">
<xs:sequence>
<xs:element minOccurs="0" name="Count" type="xs:int" />
<xs:element xmlns:q4="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="UST_BESCHR" nillable="true" type="q4:ArrayOfstring" />
<xs:element xmlns:q5="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="UST_SATZ" nillable="true" type="q5:ArrayOfdecimal" />
<xs:element xmlns:q6="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="UST_SCHLUESSEL" nillable="true" type="q6:ArrayOfint" />
</xs:sequence>
</xs:complexType>
<xs:element name="Taxes" nillable="true" type="tns:Taxes" />
</xs:schema>

14
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd Normal file
View File

@@ -0,0 +1,14 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:tns="http://schemas.datacontract.org/2004/07/ItgKsV" elementFormDefault="qualified" targetNamespace="http://schemas.datacontract.org/2004/07/ItgKsV" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:complexType name="TSEData">
<xs:sequence>
<xs:element minOccurs="0" name="tse_pd_encoding" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_public_key" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_serial" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_sig_algo" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zeitformat" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zertifikat" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
<xs:element name="TSEData" nillable="true" type="tns:TSEData" />
</xs:schema>

36
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap Normal file
View File

@@ -0,0 +1,36 @@
<?xml version="1.0" encoding="utf-8"?>
<ReferenceGroup xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ID="30441d17-0b0b-4525-9bbd-a0df5cde1d14" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
<ClientOptions>
<GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
<GenerateTaskBasedAsynchronousMethod>true</GenerateTaskBasedAsynchronousMethod>
<EnableDataBinding>true</EnableDataBinding>
<ExcludedTypes />
<ImportXmlTypes>false</ImportXmlTypes>
<GenerateInternalTypes>false</GenerateInternalTypes>
<GenerateMessageContracts>false</GenerateMessageContracts>
<NamespaceMappings />
<CollectionMappings />
<GenerateSerializableTypes>true</GenerateSerializableTypes>
<Serializer>Auto</Serializer>
<UseSerializerForFaults>true</UseSerializerForFaults>
<ReferenceAllAssemblies>true</ReferenceAllAssemblies>
<ReferencedAssemblies />
<ReferencedDataContractTypes />
<ServiceContractMappings />
</ClientOptions>
<MetadataSources>
<MetadataSource Address="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" Protocol="mex" SourceId="1" />
</MetadataSources>
<Metadata>
<MetadataFile FileName="service.wsdl" MetadataType="Wsdl" ID="fb2fdabf-8fd9-428e-8927-cc39d35dc9fe" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="service.xsd" MetadataType="Schema" ID="65b3abf7-2115-4d17-a848-51b592f45e56" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="service1.xsd" MetadataType="Schema" ID="8107f1b8-1ea5-475d-acb6-c74a66a1a64d" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="DSFinVK.xsd" MetadataType="Schema" ID="d34bf231-c308-4188-b64c-ce476604a579" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="Arrays.xsd" MetadataType="Schema" ID="31a6eed6-de11-4c7c-b27a-2f4dbd4055d4" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="ItgKsV.xsd" MetadataType="Schema" ID="edb73792-9580-42ab-9725-e3c031ef50d1" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
</Metadata>
<Extensions>
<ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />
<ExtensionFile FileName="configuration.svcinfo" Name="configuration.svcinfo" />
</Extensions>
</ReferenceGroup>

2919
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb Normal file
View File

File diff suppressed because it is too large Load Diff

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="BeginReceiptResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="ErrorCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAvailableClientsTseResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetAvailableTseListResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetCashboxesResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetDsFinVKValuesForTseResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetDsFinVKValuesResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetLastReceiptQrCodeContentResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetLastReceiptQrCodeResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetLastReceiptValuesResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetNextBON_IDResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="GetTaxIdsResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="IsClientPresentTseResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="Kassendaten" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="TSEData" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="Taxes" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes, Service References.RKSV_DE.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration.svcinfo Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<configurationSnapshot xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
<behaviors />
<bindings>
<binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;BasicHttpBinding_IDSFinVKServer&quot; /&gt;" bindingType="basicHttpBinding" name="BasicHttpBinding_IDSFinVKServer" />
</bindings>
<endpoints>
<endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://localhost:8733/DSFinVKService&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;BasicHttpBinding_IDSFinVKServer&quot; contract=&quot;RKSV_DE.IDSFinVKServer&quot; name=&quot;BasicHttpBinding_IDSFinVKServer&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://localhost:8733/DSFinVKService&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;BasicHttpBinding_IDSFinVKServer&quot; contract=&quot;RKSV_DE.IDSFinVKServer&quot; name=&quot;BasicHttpBinding_IDSFinVKServer&quot; /&gt;" contractName="RKSV_DE.IDSFinVKServer" name="BasicHttpBinding_IDSFinVKServer" />
</endpoints>
</configurationSnapshot>

201
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration91.svcinfo Normal file
View File

@@ -0,0 +1,201 @@
<?xml version="1.0" encoding="utf-8"?>
<SavedWcfConfigurationInformation xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Version="9.1" CheckSum="bxAh/JL+ADUo3TxNmCZiEgASibrYnomXzs4dd8Ck8x4=">
<bindingConfigurations>
<bindingConfiguration bindingType="basicHttpBinding" name="BasicHttpBinding_IDSFinVKServer">
<properties>
<property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>BasicHttpBinding_IDSFinVKServer</serializedValue>
</property>
<property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>StrongWildcard</serializedValue>
</property>
<property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>65536</serializedValue>
</property>
<property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
</property>
<property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>0</serializedValue>
</property>
<property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>0</serializedValue>
</property>
<property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>0</serializedValue>
</property>
<property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>0</serializedValue>
</property>
<property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>0</serializedValue>
</property>
<property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.Text.UTF8Encoding</serializedValue>
</property>
<property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>Buffered</serializedValue>
</property>
<property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>Text</serializedValue>
</property>
<property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
</property>
<property path="/security/mode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>None</serializedValue>
</property>
<property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
</property>
<property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>None</serializedValue>
</property>
<property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>None</serializedValue>
</property>
<property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
</property>
<property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>Never</serializedValue>
</property>
<property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>TransportSelected</serializedValue>
</property>
<property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>(Sammlung)</serializedValue>
</property>
<property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
</property>
<property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>UserName</serializedValue>
</property>
<property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>Default</serializedValue>
</property>
</properties>
</bindingConfiguration>
</bindingConfigurations>
<endpoints>
<endpoint name="BasicHttpBinding_IDSFinVKServer" contract="RKSV_DE.IDSFinVKServer" bindingType="basicHttpBinding" address="http://localhost:8733/DSFinVKService" bindingConfiguration="BasicHttpBinding_IDSFinVKServer">
<properties>
<property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>http://localhost:8733/DSFinVKService</serializedValue>
</property>
<property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>basicHttpBinding</serializedValue>
</property>
<property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>BasicHttpBinding_IDSFinVKServer</serializedValue>
</property>
<property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>RKSV_DE.IDSFinVKServer</serializedValue>
</property>
<property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
</property>
<property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>&lt;Header /&gt;</serializedValue>
</property>
<property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
</property>
<property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
</property>
<property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
</property>
<property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
</property>
<property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
</property>
<property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
</property>
<property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
</property>
<property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>My</serializedValue>
</property>
<property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>LocalMachine</serializedValue>
</property>
<property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>FindBySubjectDistinguishedName</serializedValue>
</property>
<property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>False</serializedValue>
</property>
<property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue>BasicHttpBinding_IDSFinVKServer</serializedValue>
</property>
<property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
<property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
</property>
</properties>
</endpoint>
</endpoints>
</SavedWcfConfigurationInformation>

554
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.wsdl Normal file
View File

@@ -0,0 +1,554 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:wsam="http://www.w3.org/2007/05/addressing/metadata" xmlns:wsap="http://schemas.xmlsoap.org/ws/2004/08/addressing/policy" xmlns:msc="http://schemas.microsoft.com/ws/2005/12/wsdl/contract" xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://tempuri.org/" xmlns:wsa10="http://www.w3.org/2005/08/addressing" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" name="DSFinVKServer" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:types>
<xsd:schema targetNamespace="http://tempuri.org/Imports">
<xsd:import namespace="http://tempuri.org/" />
<xsd:import namespace="http://schemas.microsoft.com/2003/10/Serialization/" />
<xsd:import namespace="http://schemas.datacontract.org/2004/07/DSFinVK" />
<xsd:import namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xsd:import namespace="http://schemas.datacontract.org/2004/07/ItgKsV" />
</xsd:schema>
</wsdl:types>
<wsdl:message name="IDSFinVKServer_GetMachineCode_InputMessage">
<wsdl:part name="parameters" element="tns:GetMachineCode" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetMachineCode_OutputMessage">
<wsdl:part name="parameters" element="tns:GetMachineCodeResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_InitializeLibrary_InputMessage">
<wsdl:part name="parameters" element="tns:InitializeLibrary" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_InitializeLibrary_OutputMessage">
<wsdl:part name="parameters" element="tns:InitializeLibraryResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CleanupLibrary_InputMessage">
<wsdl:part name="parameters" element="tns:CleanupLibrary" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CleanupLibrary_OutputMessage">
<wsdl:part name="parameters" element="tns:CleanupLibraryResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateDatabase_InputMessage">
<wsdl:part name="parameters" element="tns:CreateDatabase" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateDatabase_OutputMessage">
<wsdl:part name="parameters" element="tns:CreateDatabaseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateCashbox_InputMessage">
<wsdl:part name="parameters" element="tns:CreateCashbox" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateCashbox_OutputMessage">
<wsdl:part name="parameters" element="tns:CreateCashboxResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetCashboxes_InputMessage">
<wsdl:part name="parameters" element="tns:GetCashboxes" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetCashboxes_OutputMessage">
<wsdl:part name="parameters" element="tns:GetCashboxesResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_BeginReceipt_InputMessage">
<wsdl:part name="parameters" element="tns:BeginReceipt" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_BeginReceipt_OutputMessage">
<wsdl:part name="parameters" element="tns:BeginReceiptResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_UpdateReceipt_InputMessage">
<wsdl:part name="parameters" element="tns:UpdateReceipt" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_UpdateReceipt_OutputMessage">
<wsdl:part name="parameters" element="tns:UpdateReceiptResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_FinishReceipt_InputMessage">
<wsdl:part name="parameters" element="tns:FinishReceipt" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_FinishReceipt_OutputMessage">
<wsdl:part name="parameters" element="tns:FinishReceiptResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_AddPositionToReceipt_InputMessage">
<wsdl:part name="parameters" element="tns:AddPositionToReceipt" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_AddPositionToReceipt_OutputMessage">
<wsdl:part name="parameters" element="tns:AddPositionToReceiptResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportFull_InputMessage">
<wsdl:part name="parameters" element="tns:ExportFull" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportFull_OutputMessage">
<wsdl:part name="parameters" element="tns:ExportFullResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportDateToDate_InputMessage">
<wsdl:part name="parameters" element="tns:ExportDateToDate" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportDateToDate_OutputMessage">
<wsdl:part name="parameters" element="tns:ExportDateToDateResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportNumberToNumber_InputMessage">
<wsdl:part name="parameters" element="tns:ExportNumberToNumber" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportNumberToNumber_OutputMessage">
<wsdl:part name="parameters" element="tns:ExportNumberToNumberResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportCSVFiles_InputMessage">
<wsdl:part name="parameters" element="tns:ExportCSVFiles" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_ExportCSVFiles_OutputMessage">
<wsdl:part name="parameters" element="tns:ExportCSVFilesResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetAvailableTseList_InputMessage">
<wsdl:part name="parameters" element="tns:GetAvailableTseList" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetAvailableTseList_OutputMessage">
<wsdl:part name="parameters" element="tns:GetAvailableTseListResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetDsFinVKValues_InputMessage">
<wsdl:part name="parameters" element="tns:GetDsFinVKValues" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetDsFinVKValues_OutputMessage">
<wsdl:part name="parameters" element="tns:GetDsFinVKValuesResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetDsFinVKValuesForTse_InputMessage">
<wsdl:part name="parameters" element="tns:GetDsFinVKValuesForTse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetDsFinVKValuesForTse_OutputMessage">
<wsdl:part name="parameters" element="tns:GetDsFinVKValuesForTseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_SetupTseForFirstUseTse_InputMessage">
<wsdl:part name="parameters" element="tns:SetupTseForFirstUseTse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_SetupTseForFirstUseTse_OutputMessage">
<wsdl:part name="parameters" element="tns:SetupTseForFirstUseTseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_StringifyTseErrorCode_InputMessage">
<wsdl:part name="parameters" element="tns:StringifyTseErrorCode" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_StringifyTseErrorCode_OutputMessage">
<wsdl:part name="parameters" element="tns:StringifyTseErrorCodeResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetAvailableClientsTse_InputMessage">
<wsdl:part name="parameters" element="tns:GetAvailableClientsTse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetAvailableClientsTse_OutputMessage">
<wsdl:part name="parameters" element="tns:GetAvailableClientsTseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_IsClientPresentTse_InputMessage">
<wsdl:part name="parameters" element="tns:IsClientPresentTse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_IsClientPresentTse_OutputMessage">
<wsdl:part name="parameters" element="tns:IsClientPresentTseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetTaxIds_InputMessage">
<wsdl:part name="parameters" element="tns:GetTaxIds" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetTaxIds_OutputMessage">
<wsdl:part name="parameters" element="tns:GetTaxIdsResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateCashpointClosing_InputMessage">
<wsdl:part name="parameters" element="tns:CreateCashpointClosing" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_CreateCashpointClosing_OutputMessage">
<wsdl:part name="parameters" element="tns:CreateCashpointClosingResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptValues_InputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptValues" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptValues_OutputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptValuesResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptQrCode_InputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptQrCode" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptQrCode_OutputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptQrCodeResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptQrCodeContent_InputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptQrCodeContent" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetLastReceiptQrCodeContent_OutputMessage">
<wsdl:part name="parameters" element="tns:GetLastReceiptQrCodeContentResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_RegisterNewClientTse_InputMessage">
<wsdl:part name="parameters" element="tns:RegisterNewClientTse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_RegisterNewClientTse_OutputMessage">
<wsdl:part name="parameters" element="tns:RegisterNewClientTseResponse" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetNextBON_ID_InputMessage">
<wsdl:part name="parameters" element="tns:GetNextBON_ID" />
</wsdl:message>
<wsdl:message name="IDSFinVKServer_GetNextBON_ID_OutputMessage">
<wsdl:part name="parameters" element="tns:GetNextBON_IDResponse" />
</wsdl:message>
<wsdl:portType name="IDSFinVKServer">
<wsdl:operation name="GetMachineCode">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetMachineCode" message="tns:IDSFinVKServer_GetMachineCode_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetMachineCodeResponse" message="tns:IDSFinVKServer_GetMachineCode_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="InitializeLibrary">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/InitializeLibrary" message="tns:IDSFinVKServer_InitializeLibrary_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/InitializeLibraryResponse" message="tns:IDSFinVKServer_InitializeLibrary_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="CleanupLibrary">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/CleanupLibrary" message="tns:IDSFinVKServer_CleanupLibrary_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/CleanupLibraryResponse" message="tns:IDSFinVKServer_CleanupLibrary_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="CreateDatabase">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateDatabase" message="tns:IDSFinVKServer_CreateDatabase_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateDatabaseResponse" message="tns:IDSFinVKServer_CreateDatabase_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="CreateCashbox">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateCashbox" message="tns:IDSFinVKServer_CreateCashbox_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateCashboxResponse" message="tns:IDSFinVKServer_CreateCashbox_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetCashboxes">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetCashboxes" message="tns:IDSFinVKServer_GetCashboxes_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetCashboxesResponse" message="tns:IDSFinVKServer_GetCashboxes_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="BeginReceipt">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/BeginReceipt" message="tns:IDSFinVKServer_BeginReceipt_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/BeginReceiptResponse" message="tns:IDSFinVKServer_BeginReceipt_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="UpdateReceipt">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/UpdateReceipt" message="tns:IDSFinVKServer_UpdateReceipt_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/UpdateReceiptResponse" message="tns:IDSFinVKServer_UpdateReceipt_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="FinishReceipt">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/FinishReceipt" message="tns:IDSFinVKServer_FinishReceipt_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/FinishReceiptResponse" message="tns:IDSFinVKServer_FinishReceipt_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="AddPositionToReceipt">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/AddPositionToReceipt" message="tns:IDSFinVKServer_AddPositionToReceipt_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/AddPositionToReceiptResponse" message="tns:IDSFinVKServer_AddPositionToReceipt_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="ExportFull">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportFull" message="tns:IDSFinVKServer_ExportFull_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportFullResponse" message="tns:IDSFinVKServer_ExportFull_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="ExportDateToDate">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportDateToDate" message="tns:IDSFinVKServer_ExportDateToDate_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportDateToDateResponse" message="tns:IDSFinVKServer_ExportDateToDate_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="ExportNumberToNumber">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportNumberToNumber" message="tns:IDSFinVKServer_ExportNumberToNumber_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportNumberToNumberResponse" message="tns:IDSFinVKServer_ExportNumberToNumber_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="ExportCSVFiles">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportCSVFiles" message="tns:IDSFinVKServer_ExportCSVFiles_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/ExportCSVFilesResponse" message="tns:IDSFinVKServer_ExportCSVFiles_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetAvailableTseList">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetAvailableTseList" message="tns:IDSFinVKServer_GetAvailableTseList_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetAvailableTseListResponse" message="tns:IDSFinVKServer_GetAvailableTseList_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetDsFinVKValues">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetDsFinVKValues" message="tns:IDSFinVKServer_GetDsFinVKValues_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesResponse" message="tns:IDSFinVKServer_GetDsFinVKValues_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetDsFinVKValuesForTse">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTse" message="tns:IDSFinVKServer_GetDsFinVKValuesForTse_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTseResponse" message="tns:IDSFinVKServer_GetDsFinVKValuesForTse_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="SetupTseForFirstUseTse">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTse" message="tns:IDSFinVKServer_SetupTseForFirstUseTse_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTseResponse" message="tns:IDSFinVKServer_SetupTseForFirstUseTse_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="StringifyTseErrorCode">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCode" message="tns:IDSFinVKServer_StringifyTseErrorCode_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCodeResponse" message="tns:IDSFinVKServer_StringifyTseErrorCode_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetAvailableClientsTse">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTse" message="tns:IDSFinVKServer_GetAvailableClientsTse_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTseResponse" message="tns:IDSFinVKServer_GetAvailableClientsTse_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="IsClientPresentTse">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/IsClientPresentTse" message="tns:IDSFinVKServer_IsClientPresentTse_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/IsClientPresentTseResponse" message="tns:IDSFinVKServer_IsClientPresentTse_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetTaxIds">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetTaxIds" message="tns:IDSFinVKServer_GetTaxIds_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetTaxIdsResponse" message="tns:IDSFinVKServer_GetTaxIds_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="CreateCashpointClosing">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateCashpointClosing" message="tns:IDSFinVKServer_CreateCashpointClosing_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/CreateCashpointClosingResponse" message="tns:IDSFinVKServer_CreateCashpointClosing_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetLastReceiptValues">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptValues" message="tns:IDSFinVKServer_GetLastReceiptValues_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptValuesResponse" message="tns:IDSFinVKServer_GetLastReceiptValues_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetLastReceiptQrCode">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCode" message="tns:IDSFinVKServer_GetLastReceiptQrCode_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeResponse" message="tns:IDSFinVKServer_GetLastReceiptQrCode_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetLastReceiptQrCodeContent">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContent" message="tns:IDSFinVKServer_GetLastReceiptQrCodeContent_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContentResponse" message="tns:IDSFinVKServer_GetLastReceiptQrCodeContent_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="RegisterNewClientTse">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/RegisterNewClientTse" message="tns:IDSFinVKServer_RegisterNewClientTse_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/RegisterNewClientTseResponse" message="tns:IDSFinVKServer_RegisterNewClientTse_OutputMessage" />
</wsdl:operation>
<wsdl:operation name="GetNextBON_ID">
<wsdl:input wsaw:Action="http://tempuri.org/IDSFinVKServer/GetNextBON_ID" message="tns:IDSFinVKServer_GetNextBON_ID_InputMessage" />
<wsdl:output wsaw:Action="http://tempuri.org/IDSFinVKServer/GetNextBON_IDResponse" message="tns:IDSFinVKServer_GetNextBON_ID_OutputMessage" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="BasicHttpBinding_IDSFinVKServer" type="tns:IDSFinVKServer">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="GetMachineCode">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetMachineCode" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="InitializeLibrary">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/InitializeLibrary" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="CleanupLibrary">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/CleanupLibrary" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="CreateDatabase">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/CreateDatabase" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="CreateCashbox">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/CreateCashbox" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetCashboxes">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetCashboxes" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="BeginReceipt">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/BeginReceipt" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="UpdateReceipt">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/UpdateReceipt" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="FinishReceipt">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/FinishReceipt" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="AddPositionToReceipt">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/AddPositionToReceipt" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="ExportFull">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/ExportFull" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="ExportDateToDate">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/ExportDateToDate" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="ExportNumberToNumber">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/ExportNumberToNumber" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="ExportCSVFiles">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/ExportCSVFiles" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetAvailableTseList">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetAvailableTseList" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetDsFinVKValues">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetDsFinVKValues" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetDsFinVKValuesForTse">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTse" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="SetupTseForFirstUseTse">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTse" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="StringifyTseErrorCode">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCode" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetAvailableClientsTse">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTse" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="IsClientPresentTse">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/IsClientPresentTse" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetTaxIds">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetTaxIds" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="CreateCashpointClosing">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/CreateCashpointClosing" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetLastReceiptValues">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetLastReceiptValues" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetLastReceiptQrCode">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCode" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetLastReceiptQrCodeContent">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContent" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="RegisterNewClientTse">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/RegisterNewClientTse" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="GetNextBON_ID">
<soap:operation soapAction="http://tempuri.org/IDSFinVKServer/GetNextBON_ID" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="DSFinVKServer">
<wsdl:port name="BasicHttpBinding_IDSFinVKServer" binding="tns:BasicHttpBinding_IDSFinVKServer">
<soap:address location="http://localhost:8733/DSFinVKService" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

496
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.xsd Normal file
View File

@@ -0,0 +1,496 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:tns="http://tempuri.org/" elementFormDefault="qualified" targetNamespace="http://tempuri.org/" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:import namespace="http://schemas.datacontract.org/2004/07/DSFinVK" />
<xs:import namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xs:import namespace="http://schemas.datacontract.org/2004/07/ItgKsV" />
<xs:element name="GetMachineCode">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="isDemoLicense" type="xs:boolean" />
<xs:element minOccurs="0" name="clientId" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetMachineCodeResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="GetMachineCodeResult" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="InitializeLibrary">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="server" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="database" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="username" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="InitializeLibraryResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q1="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="InitializeLibraryResult" type="q1:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CleanupLibrary">
<xs:complexType>
<xs:sequence />
</xs:complexType>
</xs:element>
<xs:element name="CleanupLibraryResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q2="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="CleanupLibraryResult" type="q2:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateDatabase">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="server" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="database" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="username" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateDatabaseResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q3="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="CreateDatabaseResult" type="q3:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateCashbox">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q4="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="cashbox" nillable="true" type="q4:Kassendaten" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateCashboxResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q5="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="CreateCashboxResult" type="q5:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetCashboxes">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q6="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="cashBoxes" nillable="true" type="q6:ArrayOfKassendaten" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetCashboxesResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q7="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetCashboxesResult" type="q7:ErrorCode" />
<xs:element xmlns:q8="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="cashBoxes" nillable="true" type="q8:ArrayOfKassendaten" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="BeginReceipt">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element xmlns:q9="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="bonkopfBegin" nillable="true" type="q9:BonKopfBegin" />
<xs:element minOccurs="0" name="transactionNumber" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="BeginReceiptResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q10="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="BeginReceiptResult" type="q10:ErrorCode" />
<xs:element minOccurs="0" name="transactionNumber" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="UpdateReceipt">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="transactionNumber" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="UpdateReceiptResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q11="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="UpdateReceiptResult" type="q11:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="FinishReceipt">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element xmlns:q12="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="bonkopfFinish" nillable="true" type="q12:BonKopfFinish" />
<xs:element minOccurs="0" name="transactionNumber" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="FinishReceiptResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q13="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="FinishReceiptResult" type="q13:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="AddPositionToReceipt">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element xmlns:q14="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="position" nillable="true" type="q14:BonPosition" />
<xs:element xmlns:q15="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="position_vat" nillable="true" type="q15:BonPosition_Ust" />
<xs:element minOccurs="0" name="transactionNumber" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="AddPositionToReceiptResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q16="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="AddPositionToReceiptResult" type="q16:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportFull">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_NR_From" type="xs:int" />
<xs:element minOccurs="0" name="Z_NR_To" type="xs:int" />
<xs:element minOccurs="0" name="path" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="zipFileName" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportFullResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q17="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="ExportFullResult" type="q17:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportDateToDate">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="dtFrom" type="xs:dateTime" />
<xs:element minOccurs="0" name="dtTo" type="xs:dateTime" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportDateToDateResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q18="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="ExportDateToDateResult" type="q18:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportNumberToNumber">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="cashboxName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="numberFrom" type="xs:int" />
<xs:element minOccurs="0" name="numberTo" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportNumberToNumberResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q19="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="ExportNumberToNumberResult" type="q19:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportCSVFiles">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="Z_NR_From" type="xs:int" />
<xs:element minOccurs="0" name="Z_NR_To" type="xs:int" />
<xs:element minOccurs="0" name="path" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="zipFileName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="exportCashpointclosing" type="xs:boolean" />
<xs:element minOccurs="0" name="exportLocation" type="xs:boolean" />
<xs:element minOccurs="0" name="exportCashregister" type="xs:boolean" />
<xs:element minOccurs="0" name="exportSlaves" type="xs:boolean" />
<xs:element minOccurs="0" name="exportPa" type="xs:boolean" />
<xs:element minOccurs="0" name="exportVat" type="xs:boolean" />
<xs:element minOccurs="0" name="exportTse" type="xs:boolean" />
<xs:element minOccurs="0" name="exportBusinesscases" type="xs:boolean" />
<xs:element minOccurs="0" name="exportPayment" type="xs:boolean" />
<xs:element minOccurs="0" name="exportCashPerCurrency" type="xs:boolean" />
<xs:element minOccurs="0" name="exportTransactions" type="xs:boolean" />
<xs:element minOccurs="0" name="exportAllocationGroups" type="xs:boolean" />
<xs:element minOccurs="0" name="exportTransactionsVat" type="xs:boolean" />
<xs:element minOccurs="0" name="exportDatapayment" type="xs:boolean" />
<xs:element minOccurs="0" name="exportLines" type="xs:boolean" />
<xs:element minOccurs="0" name="exportLinesVat" type="xs:boolean" />
<xs:element minOccurs="0" name="exportItemamounts" type="xs:boolean" />
<xs:element minOccurs="0" name="exportSubitems" type="xs:boolean" />
<xs:element minOccurs="0" name="exportReferences" type="xs:boolean" />
<xs:element minOccurs="0" name="exportTransactionsTse" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ExportCSVFilesResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q20="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="ExportCSVFilesResult" type="q20:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetAvailableTseList">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="startDriveLetter" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="endDriveLetter" nillable="true" type="xs:string" />
<xs:element xmlns:q21="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="tseDriveLetterList" nillable="true" type="q21:ArrayOfstring" />
<xs:element xmlns:q22="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="tseSerialList" nillable="true" type="q22:ArrayOfstring" />
<xs:element minOccurs="0" name="count" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetAvailableTseListResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="GetAvailableTseListResult" type="xs:int" />
<xs:element xmlns:q23="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="tseDriveLetterList" nillable="true" type="q23:ArrayOfstring" />
<xs:element xmlns:q24="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="tseSerialList" nillable="true" type="q24:ArrayOfstring" />
<xs:element minOccurs="0" name="count" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetDsFinVKValues">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="tse_serial" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_sig_algo" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zeitformat" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_pd_encoding" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_public_key" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zertifikat" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetDsFinVKValuesResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="GetDsFinVKValuesResult" type="xs:int" />
<xs:element minOccurs="0" name="tse_serial" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_sig_algo" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zeitformat" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_pd_encoding" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_public_key" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="tse_zertifikat" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetDsFinVKValuesForTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element xmlns:q25="http://schemas.datacontract.org/2004/07/ItgKsV" minOccurs="0" name="tseData" nillable="true" type="q25:TSEData" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetDsFinVKValuesForTseResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="GetDsFinVKValuesForTseResult" type="xs:int" />
<xs:element xmlns:q26="http://schemas.datacontract.org/2004/07/ItgKsV" minOccurs="0" name="tseData" nillable="true" type="q26:TSEData" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SetupTseForFirstUseTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="admin_puk" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="admin_pin" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="timeadmin_pin" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="clientId" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="SetupTseForFirstUseTseResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="SetupTseForFirstUseTseResult" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="StringifyTseErrorCode">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="tseErrorCode" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="StringifyTseErrorCodeResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="StringifyTseErrorCodeResult" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetAvailableClientsTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element xmlns:q27="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="clientIds" nillable="true" type="q27:ArrayOfstring" />
<xs:element minOccurs="0" name="count" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetAvailableClientsTseResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="GetAvailableClientsTseResult" type="xs:int" />
<xs:element xmlns:q28="http://schemas.microsoft.com/2003/10/Serialization/Arrays" minOccurs="0" name="clientIds" nillable="true" type="q28:ArrayOfstring" />
<xs:element minOccurs="0" name="count" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="IsClientPresentTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="clientId" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="result" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="IsClientPresentTseResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q29="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="IsClientPresentTseResult" type="q29:ErrorCode" />
<xs:element minOccurs="0" name="result" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetTaxIds">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element xmlns:q30="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="taxes" nillable="true" type="q30:Taxes" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetTaxIdsResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q31="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetTaxIdsResult" type="q31:ErrorCode" />
<xs:element xmlns:q32="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="taxes" nillable="true" type="q32:Taxes" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateCashpointClosing">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CreateCashpointClosingResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q33="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="CreateCashpointClosingResult" type="q33:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptValues">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="transactionNumber" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="serialNumber" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="signature" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="transactionStart" type="xs:dateTime" />
<xs:element minOccurs="0" name="transactionFinish" type="xs:dateTime" />
<xs:element minOccurs="0" name="sigCounter" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptValuesResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q34="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetLastReceiptValuesResult" type="q34:ErrorCode" />
<xs:element minOccurs="0" name="transactionNumber" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="serialNumber" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="signature" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="transactionStart" type="xs:dateTime" />
<xs:element minOccurs="0" name="transactionFinish" type="xs:dateTime" />
<xs:element minOccurs="0" name="sigCounter" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptQrCode">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="qrCode" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="mimeType" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptQrCodeResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q35="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetLastReceiptQrCodeResult" type="q35:ErrorCode" />
<xs:element minOccurs="0" name="qrCode" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptQrCodeContent">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="qrCodeContent" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetLastReceiptQrCodeContentResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q36="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetLastReceiptQrCodeContentResult" type="q36:ErrorCode" />
<xs:element minOccurs="0" name="qrCodeContent" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RegisterNewClientTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="newClientId" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="RegisterNewClientTseResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q37="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="RegisterNewClientTseResult" type="q37:ErrorCode" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetNextBON_ID">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="BON_ID" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="GetNextBON_IDResponse">
<xs:complexType>
<xs:sequence>
<xs:element xmlns:q38="http://schemas.datacontract.org/2004/07/DSFinVK" minOccurs="0" name="GetNextBON_IDResult" type="q38:ErrorCode" />
<xs:element minOccurs="0" name="BON_ID" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

42
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service1.xsd Normal file
View File

@@ -0,0 +1,42 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:tns="http://schemas.microsoft.com/2003/10/Serialization/" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://schemas.microsoft.com/2003/10/Serialization/" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="anyType" nillable="true" type="xs:anyType" />
<xs:element name="anyURI" nillable="true" type="xs:anyURI" />
<xs:element name="base64Binary" nillable="true" type="xs:base64Binary" />
<xs:element name="boolean" nillable="true" type="xs:boolean" />
<xs:element name="byte" nillable="true" type="xs:byte" />
<xs:element name="dateTime" nillable="true" type="xs:dateTime" />
<xs:element name="decimal" nillable="true" type="xs:decimal" />
<xs:element name="double" nillable="true" type="xs:double" />
<xs:element name="float" nillable="true" type="xs:float" />
<xs:element name="int" nillable="true" type="xs:int" />
<xs:element name="long" nillable="true" type="xs:long" />
<xs:element name="QName" nillable="true" type="xs:QName" />
<xs:element name="short" nillable="true" type="xs:short" />
<xs:element name="string" nillable="true" type="xs:string" />
<xs:element name="unsignedByte" nillable="true" type="xs:unsignedByte" />
<xs:element name="unsignedInt" nillable="true" type="xs:unsignedInt" />
<xs:element name="unsignedLong" nillable="true" type="xs:unsignedLong" />
<xs:element name="unsignedShort" nillable="true" type="xs:unsignedShort" />
<xs:element name="char" nillable="true" type="tns:char" />
<xs:simpleType name="char">
<xs:restriction base="xs:int" />
</xs:simpleType>
<xs:element name="duration" nillable="true" type="tns:duration" />
<xs:simpleType name="duration">
<xs:restriction base="xs:duration">
<xs:pattern value="\-?P(\d*D)?(T(\d*H)?(\d*M)?(\d*(\.\d*)?S)?)?" />
<xs:minInclusive value="-P10675199DT2H48M5.4775808S" />
<xs:maxInclusive value="P10675199DT2H48M5.4775807S" />
</xs:restriction>
</xs:simpleType>
<xs:element name="guid" nillable="true" type="tns:guid" />
<xs:simpleType name="guid">
<xs:restriction base="xs:string">
<xs:pattern value="[\da-fA-F]{8}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{12}" />
</xs:restriction>
</xs:simpleType>
<xs:attribute name="FactoryType" type="xs:QName" />
<xs:attribute name="Id" type="xs:ID" />
<xs:attribute name="Ref" type="xs:IDREF" />
</xs:schema>

108
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -47,6 +47,25 @@
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>VERAG_PROG_ALLGEMEIN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Release\</OutputPath>
<DocumentationFile>VERAG_PROG_ALLGEMEIN.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<ItemGroup>
<Reference Include="ClosedXML">
<HintPath>..\..\..\dll\ClosedXML.dll</HintPath>
@@ -322,13 +341,15 @@
<Compile Include="Classes\cMessenger.vb" />
<Compile Include="Classes\cNCTSGestellungsadressen.vb" />
<Compile Include="Classes\cNCTS_TR.vb" />
<Compile Include="Classes\cNCTS_TR_Nachrichten.vb" />
<Compile Include="Classes\cOffene_Posten.vb" />
<Compile Include="Classes\cOffene_Posten_DVO.vb" />
<Compile Include="Classes\cParameter.vb" />
<Compile Include="Classes\cProgrammeUpdate.vb" />
<Compile Include="Classes\cQSTeam.vb" />
<Compile Include="Classes\cRechnungsausgang.vb" />
<Compile Include="Classes\cRechnungsnummern.vb" />
<Compile Include="Classes\cRKSV_DE.vb" />
<Compile Include="Classes\old_cRKSV_DE.vb" />
<Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDL_LKW.vb" />
<Compile Include="Classes\cSendMailAttach.vb" />
@@ -500,6 +521,11 @@
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_1.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_2.Designer.vb" />
<Compile Include="Service References\RKSV_DE\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.svcmap</DependentUpon>
</Compile>
<Compile Include="Web References\at.gv.bmf.finanzonline.session\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -655,6 +681,70 @@
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_2.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\Arrays.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\DSFinVK.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\ItgKsV.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\service.wsdl" />
<None Include="Service References\RKSV_DE\service.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\service1.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Web References\at.gv.bmf.finanzonline.session\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
@@ -922,7 +1012,21 @@
<ItemGroup>
<EmbeddedResource Include="My Project\license.elic.xml" />
</ItemGroup>
<ItemGroup />
<ItemGroup>
<WCFMetadataStorage Include="Service References\RKSV_DE\" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\configuration91.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\configuration.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\Reference.svcmap">
<Generator>WCF Proxy Generator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<ProjectExtensions />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -260,6 +260,7 @@ Public Class cAllgemein
Dim FirmaTMP = ""
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then
' FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' ", "FMZOLL")
If FILIALEN Is Nothing Then LOAD_FILIALEN()
Dim FILIALE = FILIALEN.Find(Function(x) x.FilialenNr = FilialenNr)
If FILIALE IsNot Nothing Then FirmaTMP = If(FILIALE.Firma, "")
End If
@@ -272,6 +273,7 @@ Public Class cAllgemein
Dim FirmaTMP = ""
If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then
' FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE FilialenNr='" & FilialenNr & "' AND ( Firma='" & FIRMA & "' OR Cluster='" & CLUSTER & "')", "FMZOLL")
If FILIALEN Is Nothing Then LOAD_FILIALEN()
Dim FILIALE = FILIALEN.Find(Function(x) x.FilialenNr = FilialenNr And (x.Firma = FIRMA Or x.Cluster = CLUSTER))
If FILIALE IsNot Nothing Then FirmaTMP = If(FILIALE.Firma, "")
End If

2
VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
View File

@@ -58,7 +58,7 @@ Public Class cErrorHandler
mySmtpsvr.Send(Msg)
Catch ex2 As Exception
MsgBox(ex.Message & ex.StackTrace)
' MsgBox(ex.Message & ex.StackTrace)
End Try