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-11-19 14:45:28 +01:00
parent f4813a04a9
commit 50df683d3b
85 changed files with 10521 additions and 1508 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -405,6 +405,11 @@ Public Class cADMIN
Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_username] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN")
End Function
Public Function getUstFirma_ByAD(Domain As String, User As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 case when mit_firma='ALL' then mit_FirmaHaupt else mit_firma END mit_firma FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN")
End Function
Public Function getUstId_ByAD(Domain As String, User As String) As Integer
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_id] FROM [tblMitarbeiter] WHERE ([mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "') Or ([mit_AliasAD_Domain2]='" & Domain & "' AND [mit_AliasAD_Username2]='" & User & "' )", "ADMIN",,, "-1")

12
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -41,6 +41,8 @@
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.DISPOConnectionStringTEST"
connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
<add name="VERAG_PROG_ALLGEMEIN.My.MySettings.SYSKAConnectionString"
connectionString="Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=false;User ID=Aviso_User;Password=DMQRNdUCcK;" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
@@ -72,18 +74,22 @@
serializeAs="String">
<value>https://finanzonline.bmf.gv.at:443/fonws/ws/session</value>
</setting>
<setting name="VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"
serializeAs="String">
<value>http://localhost:8733/DSFinVKService</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</applicationSettings>
<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="BasicHttpBinding_IDSFinVKServer" />
<binding name="BasicHttpBinding_IDSFinVKServer1" />
</basicHttpBinding>
</bindings>
<client>
<endpoint address="http://localhost:8733/DSFinVKService" binding="basicHttpBinding"
bindingConfiguration="BasicHttpBinding_IDSFinVKServer" contract="RKSV_DE.IDSFinVKServer"
name="BasicHttpBinding_IDSFinVKServer" />
bindingConfiguration="BasicHttpBinding_IDSFinVKServer1" contract="DSFinVKService.IDSFinVKServer"
name="BasicHttpBinding_IDSFinVKServer1" />
</client>
</system.serviceModel>
</configuration>

18
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -154,6 +154,22 @@ Public Class SQL
Return Nothing
End Function
Public Shared Function GetNewOpenConnectionSYSKA(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
Try
cn.ConnectionString = GetSYSKAConnectionString() & IIf(pooling, "", ";pooling=false")
cn.Open()
Return cn
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Shared Function GetSYSKAConnectionString() As String
Return My.MySettings.Default.SYSKAConnectionString
End Function
Public Shared Function GetNewOpenConnectionUID(Optional pooling As Boolean = True) As SqlConnection
Dim cn As New SqlConnection()
'cn.ConnectionString = My.Resources.connStringSDL_DEV
@@ -410,6 +426,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "FD" : conn = GetNewOpenConnectionFD()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
@@ -640,6 +657,7 @@ Public Class SQL
Case "VERAG" : conn = GetNewOpenConnectionFMZOLL()
Case "DISPO" : conn = GetNewOpenConnectionDISPO()
Case "WEB" : conn = GetNewOpenConnectionWEB()
Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
Case "AVISO_ATILLA"
conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"

3
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -65,8 +65,7 @@ Public Class cAdressen
Public Shared Function getHoechsteKdNr(NrKr_von As Integer, NrKr_bis As Integer) As Integer
Try
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL(False)
Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn)
Using cmd As New SqlCommand("select isnull(min([AdressenNr]) +1," & NrKr_von & ") as AdressenNr from [Adressen] a INNER JOIN Kunden ON Kundennr=adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' AND not exists ( select * from [Adressen] b INNER JOIN Kunden k2 ON k2.Kundennr=b.adressennr where AdressenNr between '" & NrKr_von & "' AND '" & NrKr_bis & "' and a.[AdressenNr] +1 = b.[AdressenNr]) AND KundenNr NOT IN (([AdressenNr]) +1) ", conn)
'Using cmd As New SqlCommand("SELECT isnull(max([AdressenNr])," & NrKr_von & ") as AdressenNr FROM Adressen WHERE AdressenNr BETWEEN '" & NrKr_von & "' AND '" & NrKr_bis & "' ", conn)
Dim dr = cmd.ExecuteReader()
If dr.HasRows Then

4
VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
View File

@@ -5,8 +5,8 @@ Public Class cNCTS_TR
Property ncts_Id As Integer
Property ncts_Partnersystem As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_Status As Object = Nothing ' DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_Status_KEWILL_Equivalent As Object = Nothing 'DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_Status As Object = 0
Property ncts_Status_KEWILL_Equivalent As Object = 0 'DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_dyaArt As String = ""
Property ncts_dyaAnmID As Integer

10
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
View File

@@ -42,7 +42,8 @@ Public Class cOffene_Posten
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("OP_ID", OP_ID, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontonummer", Kontonummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname))
@@ -88,6 +89,13 @@ Public Class cOffene_Posten
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
OP_ID = SQL.doSQLVarListID(OP_ID, getInsertCmd(), "FMZOLL", , list)
Return OP_ID > 0
End Function
Public Sub LOAD()
Try

20
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -110,6 +110,7 @@ Public Class cRechnungsausgang
Property Grenze As Object = Nothing
Property RechnungSprache As Object = Nothing
Property FakturierungsGruppe As String = ""
Property TextZZ As Object = Nothing
' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
@@ -124,7 +125,7 @@ Public Class cRechnungsausgang
Sub New(RK_ID)
Me.RK_ID = RK_ID
LOAD() : LOAD_POSITIONEN()
LOAD() : LOAD_POSITIONEN() : LOAD_ANHAENGE()
End Sub
Sub New(FilialenNr, AbfertigungsNr)
@@ -336,6 +337,7 @@ Public Class cRechnungsausgang
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))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextZZ", TextZZ))
Return list
End Function
@@ -404,7 +406,7 @@ Public Class cRechnungsausgang
Public Function SAVE(Optional saveAll As Boolean = True) As Boolean
doVorzeichen()
doVorzeichen() ' Für GS in Minusbeträge umwandeln
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Rechnungsausgang WHERE RK_ID=@RK_ID) " &
" BEGIN " & getUpdateCmd() & " END " &
@@ -416,12 +418,14 @@ Public Class cRechnungsausgang
If RK_ID > 0 Then
doVorzeichenPOS()
doVorzeichenPOS() ' Für GS in Minusbeträge umwandeln
If saveAll Then SAVE_POSITIONEN(RK_ID) ' positionen speicehrn
doVorzeichenPOS() ' Minusbeträge bei GS zurückumwandeln
If saveAll Then SAVE_ANHAENGE(RK_ID) ' positionen speicehrn
doVorzeichenPOS()
End If
doVorzeichen()
doVorzeichen() ' Minusbeträge bei GS zurückumwandeln
Return RK_ID > 0
End Function
@@ -615,7 +619,8 @@ Public Class cRechnungsausgang
dr.Close()
End Using
End Using
doVorzeichenPOS()
doVorzeichenPOS() ' Minus in Plus umwandeln (DB hat Minus, System hat Plus-Beträge)
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
@@ -644,7 +649,6 @@ Public Class cRechnungsausgang
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
@@ -686,7 +690,7 @@ Public Class cRechnungsausgang
Catch ex As Exception
'Preis null??
End Try
POSITIONEN = POSITIONEN.OrderBy(Function(x) x.LeistungsNr).ToList()
POSITIONEN = POSITIONEN.OrderBy(Function(x) CInt(x.LeistungsNr)).ToList()
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)

34
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -264,6 +264,11 @@ Public Class cSendungen
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Function SET_VGMA() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " UPDATE [tblSendungen] SET tblSnd_VG_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiterId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "', LetzterMitarbeiter='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "' WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
@@ -274,6 +279,35 @@ Public Class cSendungen
End If
End Function
Public Function getKdAtrNr(art As String) As String
Try
' If SND Is Nothing Then Return ""
Dim KdNR = -1
Dim KdAtrNr = Nothing
Select Case art
Case "EMPFAENGER" : KdAtrNr = Me.tblSnd_KdAuftragsNrEmpfaenger : KdNR = Me.tblSnd_EmpfaengerKdNr
Case "AUFTRAGGEBER" : KdAtrNr = Me.tblSnd_KdAuftragsNr : KdNR = Me.tblSnd_AuftraggeberKdNr
Case "FRAECHTER" : KdAtrNr = Me.tblSnd_KdAuftragsNrFrachtfuehrer : KdNR = Me.tblSnd_FrachtfuehrerKdNr
Case "AVISIERER" : KdAtrNr = Me.tblSnd_KdAuftragsNrAvisierer : KdNR = Me.tblSnd_AvisiererKdNr
End Select
If If(KdAtrNr, "").Trim <> String.Empty Then
Return KdAtrNr
Else
If Me.tblSnd_EmpfaengerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrEmpfaenger, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrEmpfaenger
If Me.tblSnd_AuftraggeberKdNr = KdNR And If(Me.tblSnd_KdAuftragsNr, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNr
If Me.tblSnd_FrachtfuehrerKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrFrachtfuehrer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrFrachtfuehrer
If Me.tblSnd_AvisiererKdNr = KdNR And If(Me.tblSnd_KdAuftragsNrAvisierer, "").Trim <> String.Empty Then Return Me.tblSnd_KdAuftragsNrAvisierer
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN ATRNR '", System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Sub LOAD(tblSnd_SendungID As Integer)
Try
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()

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", 2400)
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma), "FMZOLL", 9800)
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"))

2
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -14,7 +14,7 @@ Public Class cDATENSERVER
Property da_kategorie As String = ""
Property da_ordner As String = ""
Property da_KundenNr As Integer = 0
Property da_vorlage As Boolean = True
Property da_vorlage As Boolean = False
Property da_uOrdner1 As String = "" 'SDL: LKW
Property da_uOrdner2 As String = "" 'SDL: SDL_Leistung/...
Property da_uOrdner3 As String = "" 'SDL: History

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.0.2.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.0.3.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Public NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -54,17 +54,75 @@ Namespace My
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;")> _
Public Property SCANCANON_PRODConnectionString() As String
Get
Return CType(Me("SCANCANON_PRODConnectionString"),String)
End Get
Set
Me("SCANCANON_PRODConnectionString") = 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=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false"& _
";User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property ATLASConnectionString() As String
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("ATLASConnectionString"),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")> _
Public Property DISPOConnectionString() As String
Get
Return CType(Me("DISPOConnectionString"),String)
End Get
Set
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/")> _
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)
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")> _
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)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property asdadasdasdasdasdasd() As String
Get
Return CType(Me("asdadasdasdasdasdasd"),String)
End Get
Set
Me("asdadasdasdasdasdasd") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
@@ -76,6 +134,28 @@ Namespace My
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=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=f"& _
"alse;User ID=Aviso_User;Password=DMQRNdUCcK;")> _
Public ReadOnly Property SYSKAConnectionString() As String
Get
Return CType(Me("SYSKAConnectionString"),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.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false"& _
";User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property ATLASConnectionString() As String
Get
Return CType(Me("ATLASConnectionString"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
@@ -108,129 +188,60 @@ 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=500")>
Public ReadOnly Property AVISOConnectionString() As String
Get
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")>
Public ReadOnly Property SDLConnectionString() As String
Get
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=500")>
<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")> _
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;")>
Public Property SCANCANON_PRODConnectionString() As String
<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")> _
Public ReadOnly Property AVISOConnectionString() As String
Get
Return CType(Me("SCANCANON_PRODConnectionString"), String)
Return CType(Me("AVISOConnectionString"),String)
End Get
Set
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")>
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService() As String
<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("VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService"), String)
Return CType(Me("SDLConnectionString"),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=500")>
Public Property DISPOConnectionString() As String
Get
Return CType(Me("DISPOConnectionString"), String)
End Get
Set
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/")>
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)
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")>
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)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(),
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
Global.System.Configuration.DefaultSettingValueAttribute("")>
Public Property asdadasdasdasdasdasd() As String
Get
Return CType(Me("asdadasdasdasdasdasd"), String)
End Get
Set
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=500")>
<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")> _
Public ReadOnly Property AVISO_ATILLAConnectionString() As String
Get
Return CType(Me("AVISO_ATILLAConnectionString"),String)
@@ -303,6 +314,16 @@ Namespace My
Return CType(Me("DISPOConnectionStringTEST"),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("http://localhost:8733/DSFinVKService")> _
Public ReadOnly Property VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer() As String
Get
Return CType(Me("VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer"),String)
End Get
End Property
End Class
End Namespace

224
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -2,120 +2,15 @@
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ATLASConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FMZOLL_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="ADMINConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="SDL_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="FMZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="AVISOConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="SDLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False</Value>
</Setting>
<Setting Name="EZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="AVISOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="ATLAS_SBGConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="UID_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="UIDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956</Value>
</Setting>
<Setting Name="SCANCANON_PRODConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FD_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">http://ec.europa.eu/taxation_customs/vies/services/checkVatService</Value>
</Setting>
<Setting Name="DISPOConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="DISPOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/</Value>
</Setting>
@@ -125,12 +20,127 @@
<Setting Name="asdadasdasdasdasdasd" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="AVISO_ATILLAConnectionString" Type="(Connection string)" Scope="Application">
<Setting Name="FMZOLL_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="SYSKAConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=false;User ID=Aviso_User;Password=DMQRNdUCcK;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=FIBU2;Integrated Security=false;User ID=Aviso_User;Password=DMQRNdUCcK;</Value>
</Setting>
<Setting Name="ATLASConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="ADMINConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="SDL_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="FMZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="AVISOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="AVISOConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="SDLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=SDL;Integrated Security=False;Persist Security Info=True;User ID=AppUser;Password=yp/THDd?xM+pZ$;TrustServerCertificate=False</Value>
</Setting>
<Setting Name="EZOLLConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=BUCHHALTUNG.verag.ost.dmn;Initial Catalog=ezoll;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</Value>
</Setting>
<Setting Name="AVISO_ATILLAConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="ATLAS_SBGConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="UIDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=UID;Persist Security Info=True;User ID=sa;Password=BmWr501956</Value>
</Setting>
<Setting Name="UID_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=UID;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FDConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="FD_PRODConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=FD;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
</Setting>
<Setting Name="DISPOConnectionStringTEST" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
&lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">http://localhost:8733/DSFinVKService</Value>
</Setting>
</Settings>
</SettingsFile>

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb
View File

@@ -236,7 +236,7 @@
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", 9800)
End Function

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDVO_Interface.vb
View File

@@ -271,7 +271,7 @@
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 300)
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
End Function
Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer) As String

171
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -98,7 +98,7 @@ Public Class cSyska_Interface
getPersonenKto &= If(Lastschrift, row("BLZ"), "") & vbTab
getPersonenKto &= If(Lastschrift, row("KTO"), "") & vbTab
getPersonenKto &= "00" & vbTab 'Skontotage
getPersonenKto &= If(row("ZZiel") <> String.Empty, CDbl(row("ZZiel")).ToString("00"), "") & vbTab
getPersonenKto &= If(row("ZZiel") IsNot DBNull.Value AndAlso 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
@@ -517,7 +517,7 @@ Public Class cSyska_Interface
group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/
ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 2400)
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
End Function
@@ -568,7 +568,7 @@ Public Class cSyska_Interface
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", 2400)
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
End Function
@@ -1282,47 +1282,138 @@ Public Class cSyska_Interface
' End Function
Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
Public Shared Sub OP_Einlesen_ALL(Optional KdNr As Integer = -1)
Dim dt As DataTable = SQL.loadDgvBySql("SELECT Firma_ID FROM tblFirma ORDER BY tblFirma.Firma_ID", "FMZOLL")
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
If dt IsNot Nothing Then
For Each r_firma In dt.Rows
OP_Einlesen(r_firma("Firma_ID"), KdNr)
Next
End If
End Sub
Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
Try
Dim OP_ID_CNT = 0
If OP_ID_CNT < 1000000 Then OP_ID_CNT = 1000000 * Firma_ID
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
Dim KumSaldoEUR As Double = 0
Dim tmpFirma_Id As Integer = -1
Dim tmpKonotnr As Integer = -1
' If OP_DELETE(Firma_ID, KdNr) Then
If OP_DELETE(Firma_ID, KdNr) Then
For Each r_OP In dt_OP.Rows
Try
If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()
OP.OP_ID = OP_ID_CNT
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")
'Erstmals setzen:
If tmpFirma_Id < 0 Then tmpFirma_Id = OP.Firma_ID
If tmpKonotnr < 0 Then tmpKonotnr = OP.Kontonummer
If tmpKonotnr <> OP.Kontonummer Or tmpFirma_Id <> OP.Firma_ID Then
KumSaldoEUR = 0 'Zurücksetzen, wenn anderer Kunde, oder andere Firma
End If
KumSaldoEUR += OP.Gesamtausstand 'um Betrag erhöhen
OP.KumSaldoEUR = KumSaldoEUR 'Kumsalde in DB
' MsgBox(OP.Belegnummer)
OP.INSERT()
OP_ID_CNT += 1
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Next
Else
MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.")
Return False
End If
End If
Return True
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Return False
End Try
End Function
' strSQL = "SELECT [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer, [Offene Posten].Gesamtausstand, [Offene Posten].KumSaldoEUR" & _
' " FROM [Offene Posten]" & _
' " ORDER BY [Offene Posten].Kontonummer, [Offene Posten].Firma_ID, [Offene Posten].Belegdatum, [Offene Posten].Belegnummer;"
'5180 Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
'5190 With rst
'5200 If Not .EOF Then
'5210 lngKontonummer = !Kontonummer
'5220 intFirma_ID = !Firma_ID
'5230 curKumSaldoFirma = 0
'5240 curKumSaldo = 0
'5250 Do Until .EOF
'5260 .Edit
' ' Saldo je Kontonummer und Firma kumulieren.
'5270 If lngKontonummer <> !Kontonummer Then
'5280 strKumSaldo = CStr(curKumSaldo)
'5290 I = InStr(strKumSaldo, ",")
'5300 If I > 0 Then Mid(strKumSaldo, I, 1) = "."
'5310 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));"
'5320 dbs.Execute strSQL, dbFailOnError
'5330 lngKontonummer = !Kontonummer
'5340 intFirma_ID = !Firma_ID
'5350 curKumSaldoFirma = !Gesamtausstand
'5360 curKumSaldo = !Gesamtausstand
'5370 Else
'5380 curKumSaldo = curKumSaldo + !Gesamtausstand
'5390 If intFirma_ID <> !Firma_ID Then
'5400 intFirma_ID = !Firma_ID
'5410 curKumSaldoFirma = !Gesamtausstand
'5420 Else
'5430 curKumSaldoFirma = curKumSaldoFirma + !Gesamtausstand
'5440 End If
'5450 End If
'5460 !KumSaldoEUR = curKumSaldoFirma
'5470 .Update
'5480 .MoveNext
'5490 Loop
'5500 strKumSaldo = CStr(curKumSaldo)
'5510 I = InStr(strKumSaldo, ",")
'5520 If I > 0 Then Mid(strKumSaldo, I, 1) = "."
'5530 strSQL = "UPDATE Kunden SET Kunden.LfdSaldo = " & strKumSaldo & " WHERE (((Kunden.KundenNrZentrale)=" & lngKontonummer & "));"
'5540 dbs.Execute strSQL, dbFailOnError
'5550 End If
'5560 .Close
'5570 End With
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")

0
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Arrays.xsd → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Arrays.xsd
View File

18
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/DSFinVK.xsd → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/DSFinVK.xsd
View File

@@ -1,7 +1,7 @@
<?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:import schemaLocation="" namespace="http://schemas.microsoft.com/2003/10/Serialization/" />
<xs:import schemaLocation="" namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xs:simpleType name="ErrorCode">
<xs:restriction base="xs:string">
<xs:enumeration value="OK" />
@@ -65,6 +65,20 @@
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="CASHBOX_NOT_MANAGED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">203</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="CASHBOX_ALREADY_MANAGED">
<xs:annotation>
<xs:appinfo>
<EnumerationValue xmlns="http://schemas.microsoft.com/2003/10/Serialization/">204</EnumerationValue>
</xs:appinfo>
</xs:annotation>
</xs:enumeration>
<xs:enumeration value="ROW_HAS_INVALID_DATA">
<xs:annotation>
<xs:appinfo>

0
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/ItgKsV.xsd → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/ItgKsV.xsd
View File

14
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.svcmap → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.svcmap
View File

@@ -1,5 +1,5 @@
<?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">
<ReferenceGroup xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ID="7d142155-8035-44cf-8a4a-81d042184182" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
<ClientOptions>
<GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
<GenerateTaskBasedAsynchronousMethod>true</GenerateTaskBasedAsynchronousMethod>
@@ -22,12 +22,12 @@
<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" />
<MetadataFile FileName="service.wsdl" MetadataType="Wsdl" ID="91d8f218-2666-4cf0-ae8e-6217d6cc329a" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="service.xsd" MetadataType="Schema" ID="a2b04c75-a8fa-40c6-823b-fd08907d5d58" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="service1.xsd" MetadataType="Schema" ID="99680fdb-c41c-4fe7-bf49-3d8edc023ce8" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="DSFinVK.xsd" MetadataType="Schema" ID="fa99eaaa-6a3e-48dd-b83c-0ae99b487c97" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="Arrays.xsd" MetadataType="Schema" ID="599432d5-24d1-4df8-a467-d0a3bd4a198e" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
<MetadataFile FileName="ItgKsV.xsd" MetadataType="Schema" ID="98e07135-98a3-4de8-bc45-13b9d3b81ce4" SourceId="1" SourceUrl="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService/mex" />
</Metadata>
<Extensions>
<ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />

513
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/Reference.vb → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/Reference.vb
View File

File diff suppressed because it is too large Load Diff

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

2
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes.datasource
View File

@@ -6,5 +6,5 @@
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>
<TypeInfo>VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes, Service References.DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

4
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration.svcinfo → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration.svcinfo
View File

@@ -2,9 +2,9 @@
<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" />
<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_IDSFinVKServer1&quot; /&gt;" bindingType="basicHttpBinding" name="BasicHttpBinding_IDSFinVKServer1" />
</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" />
<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_IDSFinVKServer1&quot; contract=&quot;DSFinVKService.IDSFinVKServer&quot; name=&quot;BasicHttpBinding_IDSFinVKServer1&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_IDSFinVKServer1&quot; contract=&quot;DSFinVKService.IDSFinVKServer&quot; name=&quot;BasicHttpBinding_IDSFinVKServer1&quot; /&gt;" contractName="DSFinVKService.IDSFinVKServer" name="BasicHttpBinding_IDSFinVKServer1" />
</endpoints>
</configurationSnapshot>

14
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/configuration91.svcinfo → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/configuration91.svcinfo
View File

@@ -1,10 +1,10 @@
<?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=">
<SavedWcfConfigurationInformation xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" Version="9.1" CheckSum="mliQhbkMKM1aUH4VI7Ky7tvk9X0+dY6+w9Uduzaqf5Q=">
<bindingConfigurations>
<bindingConfiguration bindingType="basicHttpBinding" name="BasicHttpBinding_IDSFinVKServer">
<bindingConfiguration bindingType="basicHttpBinding" name="BasicHttpBinding_IDSFinVKServer1">
<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>
<serializedValue>BasicHttpBinding_IDSFinVKServer1</serializedValue>
</property>
<property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />
@@ -112,7 +112,7 @@
</bindingConfiguration>
</bindingConfigurations>
<endpoints>
<endpoint name="BasicHttpBinding_IDSFinVKServer" contract="RKSV_DE.IDSFinVKServer" bindingType="basicHttpBinding" address="http://localhost:8733/DSFinVKService" bindingConfiguration="BasicHttpBinding_IDSFinVKServer">
<endpoint name="BasicHttpBinding_IDSFinVKServer1" contract="DSFinVKService.IDSFinVKServer" bindingType="basicHttpBinding" address="http://localhost:8733/DSFinVKService" bindingConfiguration="BasicHttpBinding_IDSFinVKServer1">
<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>
@@ -124,10 +124,10 @@
<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>
<serializedValue>BasicHttpBinding_IDSFinVKServer1</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>
<serializedValue>DSFinVKService.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>
@@ -187,7 +187,7 @@
<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>
<serializedValue>BasicHttpBinding_IDSFinVKServer1</serializedValue>
</property>
<property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<serializedValue />

10
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.wsdl → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.wsdl
View File

@@ -2,11 +2,11 @@
<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:import schemaLocation="" namespace="http://tempuri.org/" />
<xsd:import schemaLocation="" namespace="http://schemas.microsoft.com/2003/10/Serialization/" />
<xsd:import schemaLocation="" namespace="http://schemas.datacontract.org/2004/07/DSFinVK" />
<xsd:import schemaLocation="" namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xsd:import schemaLocation="" namespace="http://schemas.datacontract.org/2004/07/ItgKsV" />
</xsd:schema>
</wsdl:types>
<wsdl:message name="IDSFinVKServer_GetMachineCode_InputMessage">

19
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service.xsd → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service.xsd
View File

@@ -1,8 +1,8 @@
<?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:import schemaLocation="" namespace="http://schemas.datacontract.org/2004/07/DSFinVK" />
<xs:import schemaLocation="" namespace="http://schemas.microsoft.com/2003/10/Serialization/Arrays" />
<xs:import schemaLocation="" namespace="http://schemas.datacontract.org/2004/07/ItgKsV" />
<xs:element name="GetMachineCode">
<xs:complexType>
<xs:sequence>
@@ -38,7 +38,9 @@
</xs:element>
<xs:element name="CleanupLibrary">
<xs:complexType>
<xs:sequence />
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="CleanupLibraryResponse">
@@ -271,6 +273,7 @@
<xs:element name="GetDsFinVKValues">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" 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" />
@@ -296,6 +299,7 @@
<xs:element name="GetDsFinVKValuesForTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<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>
@@ -312,6 +316,7 @@
<xs:element name="SetupTseForFirstUseTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<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" />
@@ -344,6 +349,7 @@
<xs:element name="GetAvailableClientsTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<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" />
@@ -362,6 +368,7 @@
<xs:element name="IsClientPresentTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<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" />
@@ -409,6 +416,7 @@
<xs:element name="GetLastReceiptValues">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<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" />
@@ -434,6 +442,7 @@
<xs:element name="GetLastReceiptQrCode">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="qrCode" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="mimeType" nillable="true" type="xs:string" />
</xs:sequence>
@@ -450,6 +459,7 @@
<xs:element name="GetLastReceiptQrCodeContent">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="qrCodeContent" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
@@ -465,6 +475,7 @@
<xs:element name="RegisterNewClientTse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="Z_KASSE_ID" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="driveLetter" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="newClientId" nillable="true" type="xs:string" />
</xs:sequence>

0
VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE/service1.xsd → VERAG_PROG_ALLGEMEIN/Service References/DSFinVKService/service1.xsd
View File

87
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -521,7 +521,7 @@
<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">
<Compile Include="Service References\DSFinVKService\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.svcmap</DependentUpon>
@@ -536,6 +536,11 @@
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
<Compile Include="Web References\RKSV_DE_DSFinVKService\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
<Compile Include="Web References\UIDPruefung\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
@@ -681,68 +686,68 @@
<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">
<None Include="Service References\DSFinVKService\Arrays.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\DSFinVK.xsd">
<None Include="Service References\DSFinVKService\DSFinVK.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\ItgKsV.xsd">
<None Include="Service References\DSFinVKService\ItgKsV.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\service.wsdl" />
<None Include="Service References\RKSV_DE\service.xsd">
<None Include="Service References\DSFinVKService\service.wsdl" />
<None Include="Service References\DSFinVKService\service.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\service1.xsd">
<None Include="Service References\DSFinVKService\service1.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.BeginReceiptResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.BeginReceiptResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.ErrorCode.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableClientsTseResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableClientsTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetAvailableTseListResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetAvailableTseListResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetCashboxesResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetCashboxesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesForTseResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesForTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetDsFinVKValuesResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetDsFinVKValuesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeContentResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeContentResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptQrCodeResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptQrCodeResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetLastReceiptValuesResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetLastReceiptValuesResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetNextBON_IDResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetNextBON_IDResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.GetTaxIdsResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.GetTaxIdsResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.IsClientPresentTseResponse.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.IsClientPresentTseResponse.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.Kassendaten.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.Kassendaten.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.Taxes.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.Taxes.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Service References\RKSV_DE\VERAG_PROG_ALLGEMEIN.RKSV_DE.TSEData.datasource">
<None Include="Service References\DSFinVKService\VERAG_PROG_ALLGEMEIN.DSFinVKService.TSEData.datasource">
<DependentUpon>Reference.svcmap</DependentUpon>
</None>
<None Include="Web References\at.gv.bmf.finanzonline.session\Reference.map">
@@ -761,6 +766,23 @@
<SubType>Designer</SubType>
</None>
<None Include="Web References\at.gv.bmf.finanzonline\uidAbfrageService.wsdl" />
<None Include="Web References\RKSV_DE_DSFinVKService\DSFinVKServer.wsdl" />
<None Include="Web References\RKSV_DE_DSFinVKService\ErrorCode.datasource">
<DependentUpon>Reference.map</DependentUpon>
</None>
<None Include="Web References\RKSV_DE_DSFinVKService\Kassendaten.datasource">
<DependentUpon>Reference.map</DependentUpon>
</None>
<None Include="Web References\RKSV_DE_DSFinVKService\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
<None Include="Web References\RKSV_DE_DSFinVKService\Taxes.datasource">
<DependentUpon>Reference.map</DependentUpon>
</None>
<None Include="Web References\RKSV_DE_DSFinVKService\TSEData.datasource">
<DependentUpon>Reference.map</DependentUpon>
</None>
<None Include="Web.config">
<SubType>Designer</SubType>
</None>
@@ -904,6 +926,17 @@
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService</CachedSettingsPropName>
</WebReferenceUrl>
<WebReferenceUrl Include="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService%3fsingleWsdl">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\RKSV_DE_DSFinVKService\</RelPath>
<UpdateFromURL>http://ymgk028055.verag.ost.dmn:8733/DSFinVKService%3fsingleWsdl</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer</CachedSettingsPropName>
</WebReferenceUrl>
<WebReferenceUrl Include="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\at.gv.bmf.finanzonline\</RelPath>
@@ -1013,16 +1046,16 @@
<EmbeddedResource Include="My Project\license.elic.xml" />
</ItemGroup>
<ItemGroup>
<WCFMetadataStorage Include="Service References\RKSV_DE\" />
<WCFMetadataStorage Include="Service References\DSFinVKService\" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\configuration91.svcinfo" />
<None Include="Service References\DSFinVKService\configuration91.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\configuration.svcinfo" />
<None Include="Service References\DSFinVKService\configuration.svcinfo" />
</ItemGroup>
<ItemGroup>
<None Include="Service References\RKSV_DE\Reference.svcmap">
<None Include="Service References\DSFinVKService\Reference.svcmap">
<Generator>WCF Proxy Generator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>

1350
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/DSFinVKServer.wsdl Normal file
View File

File diff suppressed because it is too large Load Diff

10
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/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_DSFinVKService.ErrorCode, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/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_DSFinVKService.Kassendaten, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

6
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.map Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService?singleWsdl" filename="DSFinVKServer.wsdl" />
</Results>
</DiscoveryClientResultsFile>

3780
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/Reference.vb Normal file
View File

File diff suppressed because it is too large Load Diff

10
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/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_DSFinVKService.TSEData, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

10
VERAG_PROG_ALLGEMEIN/Web References/RKSV_DE_DSFinVKService/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_DSFinVKService.Taxes, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

8
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -252,6 +252,13 @@ Public Class cProgramFunctions
mySmtpsvr.Send(Msg)
Catch ex As Exception
Try 'Falls Fehler nicht beim Senden, sonder was anderes.
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Catch ex3 As Exception
End Try
Try
mySmtpsvr.Port = 25
mySmtpsvr.Send(Msg)
@@ -271,7 +278,6 @@ Public Class cProgramFunctions
End Try
End Try
End Try
Return True
End Function