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
2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -298,6 +298,14 @@ Public Class cADMIN
Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_username='" & user & "' COLLATE Latin1_General_CS_AS AND (mit_firma='" & firma & "' OR mit_firma='ALL' ) ", "ADMIN")
End Function
Public Function getPwdFromUsrId(ByVal userId As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN")
End Function
Public Function getUnameFromUsrId(ByVal userId As String) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT mit_username FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN")
End Function
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String) As Boolean
@@ -392,6 +400,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 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")
End Function
Public Function getBezById(id As Integer) As String
Dim sql As String = "SELECT Firma_Bez FROM tblFirma WHERE Firma_ID=@id "
@@ -911,19 +924,22 @@ Public Class cAviso
End Function
Shared Function getAVISO_List(Optional Standort = "SUB", Optional FIRMA = "VERAG") As DataTable
Shared Function getAVISO_List(Optional Standort = "SUB") As DataTable 'Optional FIRMA = "VERAG") As DataTable
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Select Case FIRMA
Case "VERAG" : FIRMA = " AND ( FIRMA='VERAG' OR CLUSTER='FRONTOFFICE' )"
Case Else : FIRMA = " AND ( FIRMA='" & FIRMA & "') "
Dim sqlWhere = ""
Select Case Standort
Case "SUB" : sqlWhere = " AND ( FIRMA='VERAG' OR CLUSTER='FRONTOFFICE' ) AND ImEx IN ('IMPORT','') AND Grenzstelle = '" & Standort & "' "
Case "ATILLA" : sqlWhere = " AND ( FIRMA='ATILLA') "
Case "IMEX" : sqlWhere = " AND ( FIRMA='IMEX') "
Case "UNISPED" : sqlWhere = " AND ( FIRMA='UNISPED') "
Case Else : sqlWhere = " AND FIRMA='VERAG' AND ( Grenzstelle='" & Standort & "') "
End Select
Standort = " AND Grenzstelle = '" & Standort & "' "
' Standort = ""
Dim dt = SQL.loadDgvBySql("SELECT TOP 1000 AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen
FROM Aviso
WHERE 1=1 " & FIRMA & Standort & " AND Status = 3 ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC", "AVISO")
WHERE 1=1 " & sqlWhere & " AND Status = 3 ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC", "AVISO")
Return dt
End Function

13
VERAG_PROG_ALLGEMEIN/App.config
View File

@@ -50,13 +50,10 @@
<setting name="SCANCANON_PRODConnectionString" serializeAs="String">
<value>Data Source=192.168.0.99;Initial Catalog=Therefore;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</setting>
<setting name="d" serializeAs="String">
<value />
</setting>
<setting name="DISPOConnectionString" serializeAs="String">
<value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</value>
</setting>
<setting name="jjjjj8uuuuu" serializeAs="String">
<setting name="asdadasdasdasdasdasd" serializeAs="String">
<value />
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
@@ -67,6 +64,14 @@
serializeAs="String">
<value>http://ec.europa.eu/taxation_customs/vies/services/checkVatService</value>
</setting>
<setting name="VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService"
serializeAs="String">
<value>https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/</value>
</setting>
<setting name="VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService"
serializeAs="String">
<value>https://finanzonline.bmf.gv.at:443/fonws/ws/session</value>
</setting>
</VERAG_PROG_ALLGEMEIN.My.MySettings>
</applicationSettings>
</configuration>

13
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -33,7 +33,7 @@ Public Class SQL
Try
Return My.MySettings.Default.FMZOLLConnectionString
Catch ex As Exception
Return "Data Source=DEVELOPER\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Return "Data Source=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;"
End Try
@@ -711,14 +711,19 @@ Public Class SQL
End Select
Return where
End Function
Public Function getFMZOLLKdNrFromEORI(ByVal eori As String) As String
Public Function getFMZOLLKdNrFromEORI(ByVal eori As String, eoriNL As String) As String
Dim s As String = ""
Dim where = getFirmaWhere()
Try
Dim conn As SqlConnection = GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE [EORITIN] = '" & eori & "' " & where & " ORDER BY AdressenNr DESC", conn)
Dim sqlStr = ""
If eoriNL <> "" Then
sqlStr = "SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE (([EORITIN] = '" & eori & "' AND EORITIN_NL ='" & eoriNL & "') OR ([EORITIN] + '0000' = '" & (eori & eoriNL).Replace(" ", "") & "')) " & where & " ORDER BY AdressenNr DESC"
Else
sqlStr = "SELECT Adressen.AdressenNr FROM Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr WHERE ( ([EORITIN] = '" & eori & "' AND EORITIN_NL ='" & eoriNL & "') OR [EORITIN] = '" & (eori & eoriNL).Replace(" ", "") & "') " & where & " order by EORITIN_NL desc, AdressenNr DESC"
End If
Using cmd As New SqlCommand(sqlStr, conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then

103
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -93,7 +93,7 @@ Public Class cDATENSERVER
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 False
End Function
@@ -126,7 +126,7 @@ Public Class cDATENSERVER
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 False
End Function
@@ -155,7 +155,7 @@ Public Class cDATENSERVER
Next
Return UPDATE()
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 False
End Function
@@ -185,7 +185,7 @@ Public Class cDATENSERVER
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -214,6 +214,7 @@ Public Class cDATENSERVER
Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, replaceInvalidCahr(da_name), endung)
genHEADER_DATA()
If Not da_multifiles Then
If allowMsg AndAlso DATA_LIST.LIST.Count > 0 Then
If Not vbYes = MsgBox("Die Datei existiert bereits. Soll die Datei ersetzt werden?", vbYesNoCancel) Then
@@ -224,6 +225,8 @@ Public Class cDATENSERVER
End If
If DATA_LIST.ADD(srcPath, destpath, bezeichnung, "", coll_archiv) Then
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Return (destpath <> "")
End If
Return False
@@ -253,7 +256,7 @@ Public Class cDATENSERVER
Public Function uploadDataToDATENSERVER_fromBytes(bytes, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
Try
Dim tmpPath = DATENVERVER_OPTIONS.getTMPPath(bezeichnung, endung, , False)
Dim tmpPath = DATENVERVER_OPTIONS.getTMPPath(bezeichnung, endung, , True) ', Now.ToString("TMP_ddMMyyyy_HHmmSS_fff"))
File.WriteAllBytes(tmpPath, bytes)
Return uploadDataToDATENSERVER(tmpPath, bezeichnung, endung, allowMsg, coll_archiv)
Catch ex As Exception
@@ -262,6 +265,15 @@ Public Class cDATENSERVER
End Function
Public Function uploadDataToDATENSERVER_fromBase64String(base64String, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
Try
Dim bytes As Byte() = Convert.FromBase64String(base64String)
Return uploadDataToDATENSERVER_fromBytes(bytes, bezeichnung, endung, allowMsg, coll_archiv)
Catch ex As Exception
Return False
End Try
End Function
Public Function DELETE_LIST_POS(coll_id) As Boolean
Return DATA_LIST.DELETE_ATPOS(coll_id)
End Function
@@ -350,7 +362,7 @@ Public Class cDATENSERVER
" VALUES (@da_KundenNr, @da_vorlage, @da_kategorie, @da_ordner, @da_uOrdner1,@da_uOrdner2,@da_uOrdner3,@da_name,@da_info,@da_multifiles)" &
" End " &
" commit tran "
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand(sqlstr, conn)
@@ -426,6 +438,10 @@ Public Class cDATENSERVER
Return DS.GET_TOP1_PATH(openFile)
End Function
Public Shared Function GET_PDFPath_BY_DocID_onlyPATH(docId As Integer) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP (1) [coll_pfad] FROM [tblDatenarchiv_Collection] where coll_daId=" & docId & " ORDER BY coll_date DESC", "FMZOLL")
End Function
@@ -973,8 +989,8 @@ Public Class cFormularManager
Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
' Copy the source image into the destination bitmap.
gr_dest.DrawImage(bm_source, 0, 0, _
bm_dest.Width + 1, _
gr_dest.DrawImage(bm_source, 0, 0,
bm_dest.Width + 1,
bm_dest.Height + 1)
' Display the result.
@@ -991,8 +1007,8 @@ Public Class cFormularManager
Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
' Copy the source image into the destination bitmap.
gr_dest.DrawImage(bm_source, 0, 0, _
bm_dest.Width + 1, _
gr_dest.DrawImage(bm_source, 0, 0,
bm_dest.Width + 1,
bm_dest.Height + 1)
' Display the result.
@@ -1351,7 +1367,7 @@ Public Class cDatenarchiv_Collection
End If
End If
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 False
End Function
@@ -1399,7 +1415,7 @@ Public Class cDatenarchiv_Collection
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return -1
End Try
End Function
@@ -1423,7 +1439,7 @@ Public Class cDatenarchiv_Collection
End Using
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -1489,11 +1505,11 @@ Public Class cDatenserverIDCollectionList
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getMaxId() As Integer
getMaxId = -1
@@ -1508,7 +1524,7 @@ Public Class cDatenserverIDCollectionList
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Function
@@ -1527,12 +1543,13 @@ Public Class cDatenserverIDCollectionList
' Wenn beim Kopieren ein Fehler aufgetreten ist, wird der DB_Eintrag gelöscht,
' der Eintrag wird nicht in die Liste aufgenommen.
l.DELETE()
MsgBox(errorMsg)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(errorMsg, errorMsg, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End If
End If
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
@@ -1548,7 +1565,7 @@ Public Class cDatenserverIDCollectionList
lastID = l.coll_id
End If
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
Return True
@@ -1586,7 +1603,7 @@ Public Class cDatenserverIDCollectionList
End If
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -1608,7 +1625,7 @@ Public Class cDatenserverIDCollectionList
Next
Return True
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try
End Function
@@ -1621,6 +1638,10 @@ Public Class DATENVERVER_OPTIONS
Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"
Shared Function getTMPPath(name As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True, Optional unterOrdner As String = "") As String
If Environment.GetFolderPath(Environment.SpecialFolder.Personal) = "" Then ' WEB_SERV
TMP_PATH = Path.GetTempPath() & "\VERAG\DatenTMP\"
End If
Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "")
TMP_PATH2 = TMP_PATH2.replace("\\", "\")
If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then
@@ -1728,7 +1749,7 @@ Public Class DATENVERVER_OPTIONS
'MsgBox("Der Ordner existiert nicht!")
' End If
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "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 False
@@ -1741,6 +1762,7 @@ Public Class DATENVERVER_OPTIONS
Shared Function getRootDir(Optional TESTSYSTEM = Nothing) As String
Dim TS = If(TESTSYSTEM IsNot Nothing, TESTSYSTEM, VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
@@ -1764,20 +1786,21 @@ Public Class DATENVERVER_OPTIONS
Shared Function getDescPath(rootDir, kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, bezeichnung, endung, Optional onlyordner = False) As String
If kdnr Is Nothing Then MsgBox("Keine Kundennummer angegeben!") : Return False
If ordner Is Nothing Then MsgBox("Kein Ordner angegeben!") : Return False
Try
If kdnr Is Nothing Then MsgBox("Keine Kundennummer angegeben!") : Return ""
If ordner Is Nothing Then MsgBox("Kein Ordner angegeben!") : Return ""
Dim dateiName = ""
If Not onlyordner Then
If bezeichnung Is Nothing Then MsgBox("Keine Bezeichnung angegeben!") : Return False
If bezeichnung Is Nothing Then MsgBox("Keine Bezeichnung angegeben!") : Return ""
dateiName = Now.ToString("yyyyMMdd_HHmmss_") & bezeichnung
End If
Dim kdnr_path = ""
Dim kdnr_path = ""
If kdnr IsNot Nothing AndAlso IsNumeric(kdnr) AndAlso kdnr > 0 Then
kdnr_path = kdnr
End If
If kategorie <> "" Then
If kategorie <> "" Then
Dim dir = ""
dir &= rootDir
dir &= kategorie & "\"
@@ -1787,23 +1810,31 @@ Public Class DATENVERVER_OPTIONS
dir &= If(da_uOrdner2 IsNot Nothing AndAlso da_uOrdner2 <> "", da_uOrdner2 & "\", "")
dir &= If(da_uOrdner3 IsNot Nothing AndAlso da_uOrdner3 <> "", da_uOrdner3 & "\", "")
If Not onlyordner Then
If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
If Not IO.Directory.Exists(dir) Then
IO.Directory.CreateDirectory(dir)
End If
Dim zusatz = "" : Dim zusatzcnt = 1
While IO.File.Exists(dir & dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung))
zusatz = "_" & zusatzcnt
zusatzcnt += 1
End While
dir &= dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung)
End If
Return dir
Dim zusatz = "" : Dim zusatzcnt = 1
While IO.File.Exists(dir & dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung))
zusatz = "_" & zusatzcnt
zusatzcnt += 1
End While
dir &= dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung)
End If
Return dir
Else
If Not onlyordner Then
If Not IO.Directory.Exists(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\") Then IO.Directory.CreateDirectory(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\")
End If
Return rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\" & dateiName
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return ""
End Try
End Function
Shared Function OPEN_PATH(path As String) As Boolean

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

@@ -132,12 +132,12 @@ Namespace My
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=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=fal" &
"se;User ID=sa;Password=BmWr501956;")>
<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\SQLEXPRESS;Initial Catalog=ezoll;Integrated "& _
"Security=false;User ID=sa;Password=BmWr501956;")> _
Public ReadOnly Property EZOLLConnectionString() As String
Get
Return CType(Me("EZOLLConnectionString"),String)
@@ -236,18 +236,6 @@ Namespace My
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property d() As String
Get
Return CType(Me("d"),String)
End Get
Set
Me("d") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.WebServiceUrl), _
@@ -283,15 +271,35 @@ Namespace My
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/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 jjjjj8uuuuu() As String
Public Property asdadasdasdasdasdasd() As String
Get
Return CType(Me("jjjjj8uuuuu"),String)
Return CType(Me("asdadasdasdasdasdasd"),String)
End Get
Set
Me("jjjjj8uuuuu") = value
Me("asdadasdasdasdasdasd") = value
End Set
End Property
End Class

11
VERAG_PROG_ALLGEMEIN/My Project/Settings.settings
View File

@@ -110,9 +110,6 @@
&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="d" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</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>
@@ -126,7 +123,13 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
</Setting>
<Setting Name="jjjjj8uuuuu" Type="System.String" Scope="User">
<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>
<Setting Name="VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService" Type="(Web Service URL)" Scope="Application">
<Value Profile="(Default)">https://finanzonline.bmf.gv.at:443/fonws/ws/session</Value>
</Setting>
<Setting Name="asdadasdasdasdasdasd" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
</Settings>

39
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb
View File

@@ -42,6 +42,16 @@ Public Class GUAGUA
Public Property GUAREFREF As GUAREFREF
End Class
Public Class TRAPRIPC1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
Public Property PosCodCO123 As String
Public Property CitCO124 As String
Public Property CouCO125 As String
Public Property NADLNGCO As String
Public Property TINCO159 As String
End Class
Public Class TRACONCO1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
@@ -52,6 +62,27 @@ Public Class TRACONCO1
Public Property TINCO159 As String
End Class
Public Class TRACONCE1
Public Property NamCO17 As String
Public Property StrAndNumCO122 As String
Public Property PosCodCO123 As String
Public Property CitCO124 As String
Public Property CouCO125 As String
Public Property NADLNGCO As String
Public Property TINCO159 As String
End Class
Public Class TRACONSEC029
Public Property NameTRACONSEC033 As String
Public Property StrNumTRACONSEC035 As String
Public Property PosCodTRACONSEC034 As String
Public Property CitTRACONSEC030 As String
Public Property CouCodTRACONSEC031 As String
Public Property TRACONSEC029LNG As String
Public Property TINTRACONSEC036 As String
End Class
Public Class CUSOFFDEPEPT
Public Property RefNumEPT1 As String
End Class
@@ -155,16 +186,18 @@ Public Class CC015B
Public Property REPREP As REPREP
Public Property SEAINFSLI As String
Public Property GUAGUA As GUAGUA
Public Property TRAPRIPC1 As TRAPRIPC1
Public Property TRACONCO1 As TRACONCO1
Public Property TRACONCE1 As String
Public Property TRACONCE1 As TRACONCE1
Public Property CUSOFFDEPEPT As CUSOFFDEPEPT
Public Property CUSOFFTRARNS As CUSOFFTRARNS
Public Property CUSOFFTRARNS As CUSOFFTRARNS()
Public Property CUSOFFDESEST As CUSOFFDESEST
Public Property GOOITEGDS As GOOITEGD()
Public Property ITI As ITI()
Public Property CARTRA100 As CARTRA100
Public Property TRACORSEC037 As TRACORSEC037
Public Property TRACONSEC029 As String
Public Property TRACONSEC029 As TRACONSEC029
End Class
Public Class cATEZ_NCTS

385
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_AVISO/cVERAG_in_TRAviso.vb Normal file
View File

@@ -0,0 +1,385 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_TRAviso
Public Property Company As String
Public Property Department As String
Public Property PartnerTID As String
Public Property Reference As String
Public Property TotPackage As Integer = 0
Public Property TotGrossWeight As Object = Nothing
Public Property TransportModeBorder As Object = Nothing
Public Property TransportLicensePlate As String = ""
Public Property TransportCountryCode As String = ""
Public Property TransportBorderType As Object = Nothing
Public Property FreightCompany As Object = Nothing
Public Property FreightCompanyID As Object = Nothing
Public Property Info As String = ""
Public Property POSITIONS As New List(Of cVERAG_in_TRAviso_shipments)
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
End Class
Public Class cVERAG_in_TRAviso_Adressen
Public Property AddressCode As String = "" ' VARCHAR (10) NULL,
Public Property CustomerID As String = "" ' VARCHAR (10) NULL,
Public Property EORI As String = "" ' VARCHAR (17) NULL,
Public Property NLNR As String = "" ' DECIMAL (4) NULL,
Public Property Name1 As String = "" ' VARCHAR (120) NULL,
Public Property Name2 As String = "" ' VARCHAR (120) NULL,
Public Property Name3 As String = "" ' VARCHAR (120) NULL,
Public Property Street1 As String = "" ' VARCHAR (35) NULL,
Public Property Street2 As String = "" ' VARCHAR (35) NULL,
Public Property City As String = "" ' VARCHAR (35) NULL,
Public Property CountryCode As String = "" ' VARCHAR (3) NULL,
Public Property PostalCode As String = "" ' VARCHAR (9) NULL,
Public Property UStID As String = "" ' VARCHAR (14) NULL,
End Class
Public Class cVERAG_in_TRAviso_shipments
Public Property Nr As Integer = 1
Public Property Reference As Object = Nothing
Public Property DeclarationCountry As String = ""
Public Property DeclarationType As String = ""
Public Property CustomsCodeDeparture As String = ""
Public Property CustomsCodeDestination As String = ""
Public Property CountryCodeDeparture As String = ""
Public Property CountryCodeDestination As String = ""
Public Property DEStateCodeDestination As String = ""
Public Property OriginCountryCode As String = ""
Public Property GrossWeight As Object = Nothing
Public Property NetWeight As Object = Nothing
Public Property NumberOfPackages As Integer = 0
Public Property KindOfPackages As String = ""
Public Property Incoterm As String = ""
Public Property PrePaperCode As String = ""
Public Property PrePaperNr As String = ""
Public Property InvoiceAmount As Object = Nothing
Public Property InvoiceCurrency As String = ""
Public Property ContainerNr1 As String = ""
Public Property ContainerNr2 As String = ""
Public Property ContainerNr3 As String = ""
Public Property ContainerNr4 As String = ""
Public Property GoodsDescription As String = ""
Public Property Info As String = ""
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
Public Property ADDRESS As New List(Of cVERAG_in_TRAviso_Adressen)
Sub New()
End Sub
End Class
Public Class cVERAG_in_TRAviso_document
Public Property DocumentType As String = ""
Public Property DocmentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
Public Property base64BinaryStream As String = ""
Public Property FileName As String = ""
'Shared Function SAVE_toDS() As Integer
' Return -1
'End Function
End Class
Public Class cVERAG_in_TRAvisoFULL
Property trAv_Id As Integer
Property trAv_PartnerSystem As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_datetime As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property trAv_Firma As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_Niederlassung As Object = Nothing ' VARCHAR(50) Not NULL,
Property trAv_Reference As Object = Nothing ' VARCHAR(500) Not NULL,
Property trAv_Kennzeichen As Object = Nothing ' VARCHAR(50) NULL,
Property trAv_Nationalitaet As Object = Nothing ' VARCHAR(50) NULL,
Property trAv_Avisierer As Object = Nothing ' VARCHAR(200) NULL,
Property trAv_AvisiererKdNr As Object = Nothing ' INT NULL,
Property trAv_Fraechter As Object = Nothing ' VARCHAR(200) NULL,
Property trAv_FraechterKdNr As Object = Nothing ' INT NULL,
Property trAv_Grenzueberschreitung As Object = Nothing ' INT NULL,
Property trAv_Transportmittel As Object = Nothing ' INT NULL,
Property trAv_colli As Object = Nothing ' FLOAT(53) NULL,
Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL,
Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL,
Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL,
Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge)
'Property SHIPMENTS As New List(Of cVERAG_in_shippment)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Sub New(trAv_Id)
Me.trAv_Id = trAv_Id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Id", trAv_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_PartnerSystem", trAv_PartnerSystem)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_datetime", trAv_datetime)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Firma", trAv_Firma)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Niederlassung", trAv_Niederlassung)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Reference", trAv_Reference)) ' VARCHAR(500) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Kennzeichen", trAv_Kennzeichen)) ' VARCHAR(50) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Nationalitaet", trAv_Nationalitaet)) ' VARCHAR(50) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Avisierer", trAv_Avisierer)) ' VARCHAR(200) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AvisiererKdNr", trAv_AvisiererKdNr)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Fraechter", trAv_Fraechter)) ' VARCHAR(200) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_FraechterKdNr", trAv_FraechterKdNr)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Grenzueberschreitung", trAv_Grenzueberschreitung)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Transportmittel", trAv_Transportmittel)) ' INT NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_colli", trAv_colli)) ' FLOAT(53) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL,
Return list
End Function
Public Function SAVE(Optional saveAll = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Aviso WITH(updlock,serializable) WHERE trAv_Id=@trAv_Id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
trAv_Id = SQL.doSQLVarListID(trAv_Id, sqlstr, "FMZOLL", , list)
If trAv_Id > 0 And saveAll Then
SAVE_Anhaenge()
' SAVE_Sicherheit()
End If
Return trAv_Id > 0
End Function
Public Sub LOAD(Optional loadALL = True)
Try
If loadALL Then
ANHAENGE.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_Aviso WHERE trAv_Id=@trAv_Id ", conn)
cmd.Parameters.AddWithValue("@trAv_Id", trAv_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
If loadALL Then
LOAD_Anhaenge()
End If
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblTR_Aviso] SET " & str & " WHERE trAv_Id=@trAv_Id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_Aviso (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
s = s.Replace("TRY", "TRL") ' Türkische Lira
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
End Function
Public Sub LOAD_Anhaenge()
Try
ANHAENGE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblTR_AvisoAnheange WHERE trAvAh_trAvId=@trAv_Id ", conn)
cmd.Parameters.AddWithValue("@trAv_Id", Me.trAv_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cVERAG_in_TRAvisoAnhaenge
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
'l.LOAD_Packstücke()
ANHAENGE.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Function DELETE_Anhaenge() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_AvisoAnheange] WHERE trAvAh_trAvId =" & Me.trAv_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Anhaenge() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Anhaenge() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
'jetzt die Standartofferten einfügen
For Each p In ANHAENGE
p.trAvAh_trAvId = trAv_Id
If p.INSERT() Then
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
End Class
Public Class cVERAG_in_TRAvisoAnhaenge
Property trAvAh_id As Integer
Property trAvAh_trAvId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property trAvAh_docID As Integer
Sub New()
End Sub
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
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("trAvAh_id", trAvAh_id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DocmentNr)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL,
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
trAvAh_id = SQL.doSQLVarListID(trAvAh_id, getInsertCmd, "FMZOLL", , list)
Return trAvAh_id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblTR_AvisoAnheange (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

116
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb
View File

@@ -23,8 +23,12 @@ Public Class cVERAG_in_eza_FULL
Property shTr_id As Integer
Property shTr_Partnersystem As String = ""
Property trAv_Info As String = ""
Property shTr_Status As String = ""
Public Property shTr_TRAvisoId As Object = Nothing
Sub New(EZA As cVERAG_in_eza)
@@ -45,6 +49,8 @@ Public Class cVERAG_in_eza_FULL
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_TRAvisoId", shTr_TRAvisoId,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Company", EZA.Company))
@@ -122,6 +128,22 @@ Public Class cVERAG_in_eza_FULL
End Function
Function getParameterList_DOC(DOC As cVERAG_in_shipment_Document) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocmentNr", DOC.DocmentNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID))
Return list
End Function
Function getParameterList_ADR(ADR As cVERAG_in_eza_Adressen) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True))
@@ -184,6 +206,7 @@ Public Class cVERAG_in_eza_FULL
If EZA Is Nothing Then Return False
If Not SAVE() Then Return False
If Not SAVE_Warenposition() Then Return False
If Not SAVE_Documents() Then Return False
If Not SAVE_Adressen() Then Return False
Return True
End Function
@@ -455,6 +478,11 @@ Public Class cVERAG_in_eza_FULL
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position] WHERE shTrPos_ShTrId=" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE [shTrDoc_ShTrId]=" & Me.shTr_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position_Document] WHERE shTrPosDoc_ShTrId =" & Me.shTr_id & " "
@@ -510,6 +538,28 @@ Public Class cVERAG_in_eza_FULL
Return True
End Function
Public Function SAVE_Documents() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Documents() Then
If EZA.POSITIONS IsNot Nothing Then
'jetzt die Standartofferten einfügen
For Each p In EZA.DOCUMENTS
Dim posId As Integer
If INSERT_Documents(posId, p) Then
Else
Return False
End If
Next
End If
Else
Return False
End If
Return True
End Function
Public Function SAVE_Warenposition_Documents(POS As cVERAG_in_eza_position, posId As Integer) As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
'jetzt die Standartofferten einfügen
@@ -564,6 +614,29 @@ Public Class cVERAG_in_eza_FULL
Return False
End Function
Public Function INSERT_Documents(ByRef docId As Integer, ByRef DOC As cVERAG_in_shipment_Document) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC)
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return SQL.doSQLVarListID(docId, (" INSERT INTO tblTR_Shipment_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return False
End Function
Public Function INSERT_Position_Document(ByRef posId As Integer, ByRef DOC As cVERAG_in_eza_position_document) As Boolean
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId)
@@ -597,10 +670,8 @@ Public Class cVERAG_in_eza
Public Property Company As String
Public Property Department As String
Public Property Reference As String
Public Property DeclarationCountry As String = ""
Public Property DeclarationType As String = ""
@@ -636,6 +707,7 @@ Public Class cVERAG_in_eza
Public Property POSITIONS As New List(Of cVERAG_in_eza_position)
Public Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
Public Property ADDRESS As New List(Of cVERAG_in_eza_Adressen)
@@ -699,3 +771,43 @@ Public Class cVERAG_in_eza_position_document
Public Property DocmentNr As String = ""
Public Property DocumentDate As Date = CDate("01.01.1800")
End Class
Public Class cVERAG_in_shipment_Document
Property shTrDoc_id As Integer
Property shTrDoc_ShTrId As Integer
Property DocumentType As String = ""
Property DocmentNr As String = ""
Property DocumentDate As Date = CDate("01.01.1800")
Property shTrPosDoc_docID As Object = Nothing
'Public Function INSERT() As Boolean
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
' shTrDoc_id = SQL.doSQLVarListID(shTrDoc_id, getInsertCmd, "FMZOLL", , list)
' Return shTrDoc_id > 0
'End Function
'Public Function getInsertCmd() As String
' Try
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
' Dim str As String = ""
' Dim values As String = ""
' For Each i In list
' If Not i.isPrimaryParam Then
' str &= "[" & i.Text & "],"
' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
' End If
' Next
' str = str.Substring(0, str.Length - 1) 'wg. ','
' values = values.Substring(0, values.Length - 1) 'wg. ','
' Return (" INSERT INTO tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ")
' Catch ex As Exception
' MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
' End Try
' Return ""
'End Function
End Class

58
VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippment.vb → VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_SHIPPMENT/cVERAG_in_shippmentWHAT.vb
View File

@@ -1,7 +1,7 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_shippment
Public Class cVERAG_in_shippmentWHST '????????
Property in_sh_id As Object = Nothing ' INT Not NULL,
Property in_sh_AvisoId As Object = Nothing ' INT NULL,
@@ -9,6 +9,7 @@ Public Class cVERAG_in_shippment
Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL,
Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL,
'Property MsgType As Object = Nothing ' VARCHAR(10) NULL,
'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL,
'Property dec_Anmelde_ID As Object = Nothing ' INT NULL,
@@ -122,6 +123,7 @@ Public Class cVERAG_in_shippment
Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung
Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position)
'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -160,6 +162,7 @@ Public Class cVERAG_in_shippment
in_sh_id = SQL.doSQLVarListID(in_sh_id, sqlstr, "FMZOLL", , list)
If in_sh_id > 0 And saveAll Then
SAVE_Positionsdaten()
SAVE_Documents()
' SAVE_Sicherheit()
End If
Return in_sh_id > 0
@@ -173,6 +176,7 @@ Public Class cVERAG_in_shippment
Try
If loadALL Then
POSITIONSDATEN.Clear()
DOCUMENTS.Clear()
' SICHERHEIT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
@@ -192,6 +196,7 @@ Public Class cVERAG_in_shippment
Next
If loadALL Then
LOAD_Positionsdaten()
LOAD_Documents()
' LOAD_Sicherheit()
End If
End If
@@ -354,6 +359,33 @@ Public Class cVERAG_in_shippment
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Sub LOAD_Documents()
'Try
' DOCUMENTS.Clear()
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Document WHERE shTrDoc_ShTrId=@in_sh_id ", conn)
' cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
' Dim dr = cmd.ExecuteReader()
' While dr.Read
' Dim l As New cVERAG_in_shipment_Document
' For Each i In l.getParameterList()
' Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
' If dr.Item(i.Text) Is DBNull.Value Then
' propInfo.SetValue(l, Nothing)
' Else
' propInfo.SetValue(l, dr.Item(i.Text))
' End If
' Next
' DOCUMENTS.Add(l)
' End While
' dr.Close()
' End Using
' End Using
'Catch ex As Exception
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
'End Try
End Sub
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
@@ -366,6 +398,11 @@ Public Class cVERAG_in_shippment
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE shTrDoc_ShTrId =" & Me.in_sh_id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Positionsdaten() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
@@ -388,11 +425,28 @@ Public Class cVERAG_in_shippment
Return True
End Function
Public Function SAVE_Documents() As Boolean
' 'Zuserst alle OffertenPos von dem Offert löschen
' If DELETE_Documents() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
' 'jetzt die Standartofferten einfügen
' For Each p In DOCUMENTS
' p.shTrDoc_ShTrId = in_sh_id
' If p.INSERT() Then
' Else
' Return False
' End If
' Next
' Else
' Return False
' End If
' Return True
End Function
End Class
Public Class cVERAG_in_shippment_Position
Property in_pos_id As Integer

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cJsonPost.vb
View File

@@ -1,6 +1,6 @@

Imports Newtonsoft.Json
Imports System.Net
Imports System.Net
Imports System.Text

52
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -453,13 +453,24 @@
<Compile Include="Schnittstellen\cSyska_Interface.vb" />
<Compile Include="Schnittstellen\cTherefore.vb" />
<Compile Include="Schnittstellen\VERAG\ATEZ\BeyannameBilgi.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\IN_SHIPPMENT\cVERAG_in_shippment.vb" />
<Compile Include="Schnittstellen\VERAG\IN_AVISO\cVERAG_in_TRAviso.vb" />
<Compile Include="Schnittstellen\VERAG\IN_SHIPPMENT\cVERAG_in_shippmentWHAT.vb" />
<Compile Include="Schnittstellen\VERAG\IN_EZA\cVERAG_in_eza.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_EZA\VERAG_out_eza.Designer.vb" />
<Compile Include="Schnittstellen\VERAG\OUT_NCTS\cVERAG_out_ncts.vb" />
<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="Web References\at.gv.bmf.finanzonline.session\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
<Compile Include="Web References\at.gv.bmf.finanzonline\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>
@@ -560,6 +571,22 @@
<None Include="Schnittstellen\VERAG\OUT_NCTS\VERAG_out_ncts_V2_0_2.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Web References\at.gv.bmf.finanzonline.session\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
<None Include="Web References\at.gv.bmf.finanzonline.session\session.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Web References\at.gv.bmf.finanzonline.session\sessionService.wsdl" />
<None Include="Web References\at.gv.bmf.finanzonline\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
<None Include="Web References\at.gv.bmf.finanzonline\uidAbfrage.xsd">
<SubType>Designer</SubType>
</None>
<None Include="Web References\at.gv.bmf.finanzonline\uidAbfrageService.wsdl" />
<None Include="Web.config">
<SubType>Designer</SubType>
</None>
@@ -572,6 +599,7 @@
<Generator>PublicSettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<SubType>Designer</SubType>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config">
<SubType>Designer</SubType>
@@ -702,6 +730,28 @@
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService</CachedSettingsPropName>
</WebReferenceUrl>
<WebReferenceUrl Include="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\at.gv.bmf.finanzonline\</RelPath>
<UpdateFromURL>https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService</CachedSettingsPropName>
</WebReferenceUrl>
<WebReferenceUrl Include="https://finanzonline.bmf.gv.at/fonws/ws/sessionService.wsdl">
<UrlBehavior>Dynamic</UrlBehavior>
<RelPath>Web References\at.gv.bmf.finanzonline.session\</RelPath>
<UpdateFromURL>https://finanzonline.bmf.gv.at/fonws/ws/sessionService.wsdl</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>MySettings</CachedAppSettingsObjectName>
<CachedSettingsPropName>VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService</CachedSettingsPropName>
</WebReferenceUrl>
</ItemGroup>
<ItemGroup>
<None Include="Resources\aviso.ico" />

7
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.map Normal file
View File

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.SchemaReference" url="https://finanzonline.bmf.gv.at/fonws/ws/session.xsd" filename="session.xsd" />
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="https://finanzonline.bmf.gv.at/fonws/ws/sessionService.wsdl" filename="sessionService.wsdl" />
</Results>
</DiscoveryClientResultsFile>

235
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.vb Normal file
View File

@@ -0,0 +1,235 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000.
'
Namespace at.gv.bmf.finanzonline.session
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="sessionServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/session")> _
Partial Public Class sessionService
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private loginOperationCompleted As System.Threading.SendOrPostCallback
Private logoutOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Shadows Property Url() As String
Get
Return MyBase.Url
End Get
Set
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
MyBase.UseDefaultCredentials = false
End If
MyBase.Url = value
End Set
End Property
Public Shadows Property UseDefaultCredentials() As Boolean
Get
Return MyBase.UseDefaultCredentials
End Get
Set
MyBase.UseDefaultCredentials = value
Me.useDefaultCredentialsSetExplicitly = true
End Set
End Property
'''<remarks/>
Public Event loginCompleted As loginCompletedEventHandler
'''<remarks/>
Public Event logoutCompleted As logoutCompletedEventHandler
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("login", RequestElementName:="loginRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function login(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByRef rc As Integer, ByRef msg As String) As <System.Xml.Serialization.XmlElementAttribute("id")> String
Dim results() As Object = Me.Invoke("login", New Object() {tid, benid, pin, herstellerid})
rc = CType(results(1),Integer)
msg = CType(results(2),String)
Return CType(results(0),String)
End Function
'''<remarks/>
Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String)
Me.loginAsync(tid, benid, pin, herstellerid, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByVal userState As Object)
If (Me.loginOperationCompleted Is Nothing) Then
Me.loginOperationCompleted = AddressOf Me.OnloginOperationCompleted
End If
Me.InvokeAsync("login", New Object() {tid, benid, pin, herstellerid}, Me.loginOperationCompleted, userState)
End Sub
Private Sub OnloginOperationCompleted(ByVal arg As Object)
If (Not (Me.loginCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent loginCompleted(Me, New loginCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("logout", RequestElementName:="logoutRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function logout(ByVal tid As String, ByVal benid As String, ByVal id As String, ByRef msg As String) As <System.Xml.Serialization.XmlElementAttribute("rc")> Integer
Dim results() As Object = Me.Invoke("logout", New Object() {tid, benid, id})
msg = CType(results(1),String)
Return CType(results(0),Integer)
End Function
'''<remarks/>
Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String)
Me.logoutAsync(tid, benid, id, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal userState As Object)
If (Me.logoutOperationCompleted Is Nothing) Then
Me.logoutOperationCompleted = AddressOf Me.OnlogoutOperationCompleted
End If
Me.InvokeAsync("logout", New Object() {tid, benid, id}, Me.logoutOperationCompleted, userState)
End Sub
Private Sub OnlogoutOperationCompleted(ByVal arg As Object)
If (Not (Me.logoutCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent logoutCompleted(Me, New logoutCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
Public Shadows Sub CancelAsync(ByVal userState As Object)
MyBase.CancelAsync(userState)
End Sub
Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
If ((url Is Nothing) _
OrElse (url Is String.Empty)) Then
Return false
End If
Dim wsUri As System.Uri = New System.Uri(url)
If ((wsUri.Port >= 1024) _
AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
Return true
End If
Return false
End Function
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class loginCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property rc() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),Integer)
End Get
End Property
'''<remarks/>
Public ReadOnly Property msg() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class logoutCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''<remarks/>
Public ReadOnly Property msg() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
End Class
End Namespace

83
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/session.xsd Normal file
View File

@@ -0,0 +1,83 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema elementFormDefault="qualified" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/session" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="loginRequest">
<xs:complexType>
<xs:sequence>
<xs:element name="tid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{8,12}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="benid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="12" />
<xs:minLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="pin">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="128" />
<xs:minLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="herstellerid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{10,24}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="loginResponse">
<xs:complexType>
<xs:sequence>
<xs:element name="id" type="xs:string" />
<xs:element name="rc" type="xs:int" />
<xs:element minOccurs="0" name="msg" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="logoutRequest">
<xs:complexType>
<xs:sequence>
<xs:element name="tid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{8,12}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="benid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{5,12}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="id">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{10,24}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="logoutResponse">
<xs:complexType>
<xs:sequence>
<xs:element name="rc" type="xs:int" />
<xs:element minOccurs="0" name="msg" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

56
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/sessionService.wsdl Normal file
View File

@@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<definitions xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="https://finanzonline.bmf.gv.at/fon/ws/session" name="sessionService" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/session" xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<xsd:schema>
<xsd:import schemaLocation="session.xsd" namespace="https://finanzonline.bmf.gv.at/fon/ws/session" />
</xsd:schema>
</types>
<message name="logoutRequest">
<part name="parameters" element="tns:logoutRequest" />
</message>
<message name="loginRequest">
<part name="parameters" element="tns:loginRequest" />
</message>
<message name="loginResponse">
<part name="parameters" element="tns:loginResponse" />
</message>
<message name="logoutResponse">
<part name="parameters" element="tns:logoutResponse" />
</message>
<portType name="sessionServicePort">
<operation name="login">
<input name="loginRequest" message="tns:loginRequest" />
<output name="loginResponse" message="tns:loginResponse" />
</operation>
<operation name="logout">
<input name="logoutRequest" message="tns:logoutRequest" />
<output name="logoutResponse" message="tns:logoutResponse" />
</operation>
</portType>
<binding name="sessionServiceBinding" type="tns:sessionServicePort">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<operation name="login">
<soap:operation soapAction="login" />
<input name="loginRequest">
<soap:body use="literal" />
</input>
<output name="loginResponse">
<soap:body use="literal" />
</output>
</operation>
<operation name="logout">
<soap:operation soapAction="logout" />
<input name="logoutRequest">
<soap:body use="literal" />
</input>
<output name="logoutResponse">
<soap:body use="literal" />
</output>
</operation>
</binding>
<service name="sessionService">
<port name="session" binding="tns:sessionServiceBinding">
<soap:address location="https://finanzonline.bmf.gv.at:443/fonws/ws/session" />
</port>
</service>
</definitions>

7
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.map Normal file
View File

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.SchemaReference" url="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.xsd" filename="uidAbfrage.xsd" />
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl" filename="uidAbfrageService.wsdl" />
</Results>
</DiscoveryClientResultsFile>

236
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.vb Normal file
View File

@@ -0,0 +1,236 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000.
'
Namespace at.gv.bmf.finanzonline
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="uidAbfrageServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
Partial Public Class uidAbfrageService
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Private uidAbfrageOperationCompleted As System.Threading.SendOrPostCallback
Private useDefaultCredentialsSetExplicitly As Boolean
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
Me.UseDefaultCredentials = true
Me.useDefaultCredentialsSetExplicitly = false
Else
Me.useDefaultCredentialsSetExplicitly = true
End If
End Sub
Public Shadows Property Url() As String
Get
Return MyBase.Url
End Get
Set
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
MyBase.UseDefaultCredentials = false
End If
MyBase.Url = value
End Set
End Property
Public Shadows Property UseDefaultCredentials() As Boolean
Get
Return MyBase.UseDefaultCredentials
End Get
Set
MyBase.UseDefaultCredentials = value
Me.useDefaultCredentialsSetExplicitly = true
End Set
End Property
'''<remarks/>
Public Event uidAbfrageCompleted As uidAbfrageCompletedEventHandler
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("uidAbfrage", RequestElementName:="uidAbfrageServiceRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage", ResponseElementName:="uidAbfrageServiceResponse", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function uidAbfrage(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByRef msg As String, ByRef name As String, ByRef adrz1 As String, ByRef adrz2 As String, ByRef adrz3 As String, ByRef adrz4 As String, ByRef adrz5 As String, ByRef adrz6 As String) As <System.Xml.Serialization.XmlElementAttribute("rc")> Integer
Dim results() As Object = Me.Invoke("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe})
msg = CType(results(1),String)
name = CType(results(2),String)
adrz1 = CType(results(3),String)
adrz2 = CType(results(4),String)
adrz3 = CType(results(5),String)
adrz4 = CType(results(6),String)
adrz5 = CType(results(7),String)
adrz6 = CType(results(8),String)
Return CType(results(0),Integer)
End Function
'''<remarks/>
Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe)
Me.uidAbfrageAsync(tid, benid, id, uid_tn, uid, stufe, Nothing)
End Sub
'''<remarks/>
Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByVal userState As Object)
If (Me.uidAbfrageOperationCompleted Is Nothing) Then
Me.uidAbfrageOperationCompleted = AddressOf Me.OnuidAbfrageOperationCompleted
End If
Me.InvokeAsync("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe}, Me.uidAbfrageOperationCompleted, userState)
End Sub
Private Sub OnuidAbfrageOperationCompleted(ByVal arg As Object)
If (Not (Me.uidAbfrageCompletedEvent) Is Nothing) Then
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
RaiseEvent uidAbfrageCompleted(Me, New uidAbfrageCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
End If
End Sub
'''<remarks/>
Public Shadows Sub CancelAsync(ByVal userState As Object)
MyBase.CancelAsync(userState)
End Sub
Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
If ((url Is Nothing) _
OrElse (url Is String.Empty)) Then
Return false
End If
Dim wsUri As System.Uri = New System.Uri(url)
If ((wsUri.Port >= 1024) _
AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
Return true
End If
Return false
End Function
End Class
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.7.3056.0"), _
System.SerializableAttribute(), _
System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true, [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
Public Enum uidAbfrageServiceRequestStufe
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("1")> _
Item1
'''<remarks/>
<System.Xml.Serialization.XmlEnumAttribute("2")> _
Item2
End Enum
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0")> _
Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.0"), _
System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code")> _
Partial Public Class uidAbfrageCompletedEventArgs
Inherits System.ComponentModel.AsyncCompletedEventArgs
Private results() As Object
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
MyBase.New(exception, cancelled, userState)
Me.results = results
End Sub
'''<remarks/>
Public ReadOnly Property Result() As Integer
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(0),Integer)
End Get
End Property
'''<remarks/>
Public ReadOnly Property msg() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(1),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property name() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(2),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz1() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(3),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz2() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(4),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz3() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(5),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz4() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(6),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz5() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(7),String)
End Get
End Property
'''<remarks/>
Public ReadOnly Property adrz6() As String
Get
Me.RaiseExceptionIfNecessary
Return CType(Me.results(8),String)
End Get
End Property
End Class
End Namespace

69
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrage.xsd Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8"?>
<xs:schema xmlns:uid="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" elementFormDefault="qualified" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" xmlns:xs="http://www.w3.org/2001/XMLSchema">
<xs:element name="uidAbfrageServiceRequest">
<xs:complexType>
<xs:sequence>
<xs:element name="tid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{8,12}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="benid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="12" />
<xs:minLength value="5" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="id">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]{10,24}" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="uid_tn">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]+" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="uid">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:pattern value="[0-9A-Za-z]+" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="stufe">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:length value="1" />
<xs:enumeration value="1" />
<xs:enumeration value="2" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="uidAbfrageServiceResponse">
<xs:complexType>
<xs:sequence>
<xs:element name="rc" type="xs:int" />
<xs:element minOccurs="0" name="msg" type="xs:string" />
<xs:element minOccurs="0" name="name" type="xs:string" />
<xs:element minOccurs="0" name="adrz1" type="xs:string" />
<xs:element minOccurs="0" name="adrz2" type="xs:string" />
<xs:element minOccurs="0" name="adrz3" type="xs:string" />
<xs:element minOccurs="0" name="adrz4" type="xs:string" />
<xs:element minOccurs="0" name="adrz5" type="xs:string" />
<xs:element minOccurs="0" name="adrz6" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>

37
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrageService.wsdl Normal file
View File

@@ -0,0 +1,37 @@
<?xml version="1.0" encoding="utf-8"?>
<definitions xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" name="uidAbfrageService" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" xmlns="http://schemas.xmlsoap.org/wsdl/">
<types>
<xsd:schema>
<xsd:import schemaLocation="uidAbfrage.xsd" namespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" />
</xsd:schema>
</types>
<message name="uidAbfrageServiceRequest">
<part name="parameters" element="tns:uidAbfrageServiceRequest" />
</message>
<message name="uidAbfrageServiceResponse">
<part name="parameters" element="tns:uidAbfrageServiceResponse" />
</message>
<portType name="uidAbfragePort">
<operation name="uidAbfrage">
<input name="uidAbfrageServiceRequest" message="tns:uidAbfrageServiceRequest" />
<output name="uidAbfrageServiceResponse" message="tns:uidAbfrageServiceResponse" />
</operation>
</portType>
<binding name="uidAbfrageServiceBinding" type="tns:uidAbfragePort">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<operation name="uidAbfrage">
<soap:operation soapAction="uidAbfrage" />
<input name="uidAbfrageServiceRequest">
<soap:body use="literal" />
</input>
<output name="uidAbfrageServiceResponse">
<soap:body use="literal" />
</output>
</operation>
</binding>
<service name="uidAbfrageService">
<port name="uidAbfrage" binding="tns:uidAbfrageServiceBinding">
<soap:address location="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" />
</port>
</service>
</definitions>

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -15,6 +15,8 @@ Public Class cAllgemein
'Public Shared AVISO_SERVER As String = "[SQL01.verag.ost.dmn\VERAG]"
'Public Shared AVISO_SERVER As String = "[SQLGUIDE.verag.ost.dmn\VERAG]"
Public Shared AVISO_SERVER As String = "[SQLGUIDE01.verag.ost.dmn\SQLEXPRESS]"
'Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\192.168.0.91\f\FMZoll\Datensicherung\atlas\atlas\fssouzb"
Public Shared FMZOLL_ATLAS_Datensicherung As String = "\\share01\F\FMZoll\Datensicherung\atlas\atlas\fssouzb"
Public Shared BÜRO As String