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

34
SDL/Administration/Auswertungen/frmZollUserStat.Designer.vb generated
View File

@@ -38,6 +38,7 @@ Partial Class frmZollUserStat
Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button9 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button8 = New System.Windows.Forms.Button()
@@ -45,7 +46,7 @@ Partial Class frmZollUserStat
Me.Label5 = New System.Windows.Forms.Label()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button9 = New System.Windows.Forms.Button()
Me.cbxgekuendigt = New System.Windows.Forms.CheckBox()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -221,6 +222,7 @@ Partial Class frmZollUserStat
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cbxgekuendigt)
Me.Panel1.Controls.Add(Me.Button9)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.MyComboBox1)
@@ -244,6 +246,16 @@ Partial Class frmZollUserStat
Me.Panel1.Size = New System.Drawing.Size(841, 186)
Me.Panel1.TabIndex = 10
'
'Button9
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(427, 132)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(174, 40)
Me.Button9.TabIndex = 13
Me.Button9.Text = "AUSWERTUNG QS"
Me.Button9.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
@@ -319,15 +331,18 @@ Partial Class frmZollUserStat
Me.Panel2.Size = New System.Drawing.Size(234, 716)
Me.Panel2.TabIndex = 11
'
'Button9
'cbxgekuendigt
'
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Location = New System.Drawing.Point(427, 132)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(174, 40)
Me.Button9.TabIndex = 13
Me.Button9.Text = "AUSWERTUNG QS"
Me.Button9.UseVisualStyleBackColor = True
Me.cbxgekuendigt.AutoSize = True
Me.cbxgekuendigt.Checked = True
Me.cbxgekuendigt.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxgekuendigt.Location = New System.Drawing.Point(427, 108)
Me.cbxgekuendigt.Name = "cbxgekuendigt"
Me.cbxgekuendigt.Size = New System.Drawing.Size(73, 17)
Me.cbxgekuendigt.TabIndex = 14
Me.cbxgekuendigt.Text = "gekündigt"
Me.cbxgekuendigt.ThreeState = True
Me.cbxgekuendigt.UseVisualStyleBackColor = True
'
'frmZollUserStat
'
@@ -371,4 +386,5 @@ Partial Class frmZollUserStat
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button9 As Button
Friend WithEvents cbxgekuendigt As CheckBox
End Class

11
SDL/Administration/Auswertungen/frmZollUserStat.vb
View File

@@ -26,7 +26,12 @@ Public Class frmZollUserStat
sql &= " FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".ADMIN.dbo.tblMitarbeiter " 'left join " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".ADMIN.dbo.tblDienstMitarb ON [dstma_mitId]=mit_id"
sql &= " WHERE 1=1 "
sql &= " and mit_abteilung IN ('ZOLL','QS') and mit_pseudoUser=0"
sql &= " and mit_gekuendigt = 0"
Select Case cbxgekuendigt.CheckState
Case CheckState.Unchecked : sql &= " and mit_gekuendigt = 0 "
Case CheckState.Checked : sql &= " and mit_gekuendigt = 1 "
End Select
' sql &= " and mit_gekuendigt = 0 "
Dim filter As String = ""
' If MyTextBox1.Text <> "" And MyTextBox3.Text <> "" Then
'filter += " Abfertigungsdatum BETWEEN '" & MyTextBox1.Text & "' AND '" & MyTextBox3.Text & "' "
@@ -35,7 +40,9 @@ Public Class frmZollUserStat
'If MyComboBox1.Text <> "" Then filter += " AND FilialenNr IN (" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ") "
If MyComboBox2.Text <> "" Then filter += " AND mit_niederlassung IN ('" & DirectCast(MyComboBox2.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') "
If MyComboBox1.Text <> "" Then filter += " AND mit_firma IN ('" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') "
If MyComboBox1.Text <> "" Then
filter += " AND (mit_firma IN ('" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') OR (mit_firma='ALL' AND mit_firmaHaupt IN ('" & DirectCast(MyComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "') )) "
End If
' filter += " AND [Personalnummer] is not null "

205
SDL/Classes/cFinanzOnlineWebService.vb
View File

@@ -9,24 +9,39 @@ Public Class cFinanzOnlineWebService
' Private benid As String = My.Resources.benid
' Private pin As String = My.Resources.pin
Shared tid As String = "1000103u3032"
Shared benid As String = "webserv99"
Shared pin As String = "webserv99"
' 'VERAG:
'Shared tid As String = "1000103u3032"
'Shared benid As String = "webserv99"
'Shared pin As String = "webserv99"
'Shared uid As String = "ATU53187000"
''FRONT-Office:
'Shared tid As String = "67493371k039"
'Shared benid As String = "WEBserv99"
'Shared pin As String = "WEBserv99"
'Shared uid As String = "ATU74813856"
Shared SESSION_ID As String = ""
'IMEX:
Shared tid As String = "19435107n654"
Shared benid As String = "WEBserv99"
Shared pin As String = "WEBserv99"
Shared uid As String = "ATU68490714"
Public Shared SESSION_ID As String = ""
Shared Function Call_Web_Service_MethodUID_Login() As Integer
Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
Try
Dim rc = ""
Dim msg = ""
SESSION_ID = CallWebService.login(tid, benid, pin, "ATU53187000", rc, msg)
SESSION_ID = CallWebService.login(tid, benid, pin, uid, rc, msg)
MsgBox("msg " & msg)
MsgBox(SESSION_ID)
Return rc
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
Return -99
End Function
@@ -37,14 +52,14 @@ Public Class cFinanzOnlineWebService
' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
Dim msg As String
Dim name As String
Dim adrz1 As String
Dim adrz2 As String
Dim adrz3 As String
Dim adrz4 As String
Dim adrz5 As String
Dim adrz6 As String
Dim msg As String = ""
Dim name As String = ""
Dim adrz1 As String = ""
Dim adrz2 As String = ""
Dim adrz3 As String = ""
Dim adrz4 As String = ""
Dim adrz5 As String = ""
Dim adrz6 As String = ""
Dim returnInt As Integer = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid, at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
@@ -66,7 +81,7 @@ Public Class cFinanzOnlineWebService
End If
Return returnInt
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
Return "-1"
End Function
@@ -82,4 +97,164 @@ Public Class cFinanzOnlineWebService
Return ""
End Function
Shared Function Call_Web_Service_MethodUID_Login_NEU2020() As Integer
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
Try
Dim rc As Integer = -1
Dim msg = ""
SESSION_ID = CallWebService.login(tid, benid, pin, uid, rc, msg)
Return rc
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return -99
End Function
Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Try
Dim msgErgebnis = ""
Dim tmp_SESSION_ID = ""
Dim Firma = ""
Dim UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
If UID_ERG = 0 Or UID_ERG = 1 Then
Select Case UID_ERG
Case 0 : msgErgebnis = "UID-Nr. GÜLTIG - OK"
Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG"
End Select
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
If PdfTmp <> "" Then
Dim fileName = txtUid & ".pdf"
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UID_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtUid, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
Dim da_id = DS.da_id
Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "PDF", "UID", SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If
Return destPath
End If
Else
MsgBox(msgErgebnis)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "") As String 'SESSION_ID wir nur zurückgegeben
If Call_Web_Service_MethodUID_Login_NEU2020() <> 0 Then
Return -1
End If
tmp_SESSION_ID = SESSION_ID
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
Try
' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
Dim msg As String
Dim name As String
Dim adrz1 As String
Dim adrz2 As String
Dim adrz3 As String
Dim adrz4 As String
Dim adrz5 As String
Dim adrz6 As String
Dim returnInt As Integer = CallWebService.uidAbfrage(tid, benid, SESSION_ID, uid, txtUid, VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
If returnInt = 0 Then
Firma = name & vbNewLine & adrz1
If adrz2 <> "" Then Firma = Firma & vbNewLine & adrz2
If adrz3 <> "" Then Firma = Firma & vbNewLine & adrz3
If adrz4 <> "" Then Firma = Firma & vbNewLine & adrz4
If adrz5 <> "" Then Firma = Firma & vbNewLine & adrz5
If adrz6 <> "" Then Firma = Firma & vbNewLine & adrz6
' frmUIDCheck.firmaUIDFinanzOnline = firma
' frmUIDCheck.firmaUIDProgramm = txtFirma
' frmUIDCheck.uidnr = txtUid
' frmUIDCheck.Show()
Else
MsgBox(GetCodeText(returnInt))
End If
msgErgebnis = msg
Call_Web_Service_MethodUID_Logout_NEU2020()
Return returnInt
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Call_Web_Service_MethodUID_Logout_NEU2020()
End Try
Return "-1"
End Function
Shared Function GetCodeText(rc As Integer)
Select Case rc
Case 0 : Return "Die UID des Erwerbers ist gültig."
Case -1 : Return "Die Session ID ist ungültig oder abgelaufen."
Case -2 : Return "Der Aufruf des Webservices ist derzeit wegen Wartungsarbeiten nicht möglich."
Case -3 : Return "Es ist ein technischer Fehler aufgetreten."
Case -4 : Return "Dieser Teilnehmer ist für diese Funktion nicht berechtigt."
Case 1 : Return "Die UID des Erwerbers ist nicht gültig."
Case 4 : Return "Die UID-Nummer des Erwerbers ist falsch."
Case 5 : Return "Die UID-Nummer des Antragstellers ist ungültig."
Case 10 : Return "Der angegebene Mitgliedstaat verbietet diese Abfrage."
Case 101 : Return "UID beginnt nicht mit ATU."
Case 103 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
Aus technischen Gründen werden aus Tschechien keine Firmendaten angezeigt. Für
eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
http://adisreg.mfcr.cz die Daten der CZ-Umsatzsteuergruppe aufrufen und
kontrollieren, ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe
gehört.Bitte bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als
Beleg gemäß § 132 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das
Bestätigungsverfahren in Stufe 1 im FinanzOnline als auch das Gruppenregister im
anderen Mitgliedsstaat laut o.a. Link zu konsultieren. Im Falle von Fragen wenden
Sie sich bitte an Ihr zuständiges Finanzamt."
Case 104 : Return "Die angefragte UID-Nummer kann im FinanzOnline nur in Stufe 1 bestätigt werden,
da diese UID-Nummer zu einer Unternehmensgruppe (Umsatzsteuergruppe) gehört.
Aus technischen Gründen werden aus der Slowakei keine Firmendaten angezeigt.
Für eine gültige Stufe 2 Abfrage ist es daher erforderlich, dass Sie unter
http://www.drsr.sk die Daten der SK-Umsatzsteuergruppe aufrufen und kontrollieren,
ob das angefragte Unternehmen auch tatsächlich zu dieser Gruppe gehört. Bitte
bewahren Sie den Ausdruck dieser Anfrage in Ihren Unterlagen als Beleg gemäß §Bundesministerium für Finanzen Seite 3 von 3
Stand: 27.10.2016 BAO auf. Für jede Anfrage Stufe 2 ist sowohl das Bestätigungsverfahren In Stufe
1 im FinanzOnline als auch das Gruppenregister im anderen Mitgliedsstaat laut o.a.
Link zu konsultieren. Im Falle von Fragen wenden Sie sich bitte an Ihr zuständiges
Finanzamt."
Case 105 : Return "Die UID-Nummer ist über FinanzOnline einzeln abzufragen."
Case 1511 : Return "Der angegebene Mitgliedstaat ist derzeit nicht erreichbar"
Case Else : Return "Unbekannter Fehler: " & rc
End Select
End Function
Shared Function Call_Web_Service_MethodUID_Logout_NEU2020() As String
Dim CallWebService As New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
Try
Dim msg = ""
Dim sGetValue As String = CallWebService.logout(tid, benid, SESSION_ID, msg)
Return sGetValue
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return ""
End Function
End Class

31
SDL/Fakturierung/cFakturierung.vb
View File

@@ -471,8 +471,9 @@ Public Class cFakturierung
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
rpt.txtBank2.Text = ""
@@ -513,8 +514,9 @@ Public Class cFakturierung
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
rpt.txtBank2.Text = ""
@@ -659,10 +661,14 @@ Public Class cFakturierung
If rpt.txtAvisierer.Text = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], -1) & ";", "FMZOLL")
If IsNumeric(If(RECHNUNG.Wert, "")) Then
rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "")
' rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "")
rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & waehrungCode
Else
rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "")
' rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "")
rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & waehrungCode
End If
rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "")
If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200)
@@ -1290,7 +1296,8 @@ Public Class cFakturierung
If list.Count > 0 Then
' pathPDF = "" 'PAD Pfad zurückgeben!!!!!!
pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
'pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf", False, False)
If Not FormularManagerNEU.MergePdfFiles(list, pathPDF) Then
pathPDF = "" : MsgBox("Fehler PDF")
@@ -1560,9 +1567,11 @@ Public Class cFakturierung
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr")
' Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
' Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf")
Mail.Display()
Catch ex As Exception
@@ -1868,9 +1877,9 @@ Public Class cFakturierung
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr")
Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf")
Mail.Display()
Catch ex As Exception

6
SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb generated
View File

@@ -1045,6 +1045,7 @@ Partial Class usrCntlFaktAbrechnung
Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20)
Me.kdFirmaAvisierer.TabIndex = 3
Me.kdFirmaAvisierer.TabStop = False
Me.kdFirmaAvisierer.TIMER_SEARCH = True
Me.kdFirmaAvisierer.usrcntl = Nothing
'
'FlatButton5
@@ -1423,6 +1424,7 @@ Partial Class usrCntlFaktAbrechnung
Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20)
Me.kdFirmaAuftraggeber.TabIndex = 3
Me.kdFirmaAuftraggeber.TabStop = False
Me.kdFirmaAuftraggeber.TIMER_SEARCH = True
Me.kdFirmaAuftraggeber.usrcntl = Nothing
'
'txtAuftraggeberName2
@@ -1846,6 +1848,7 @@ Partial Class usrCntlFaktAbrechnung
Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20)
Me.kdFirmaRechnungAn.TabIndex = 5
Me.kdFirmaRechnungAn.TabStop = False
Me.kdFirmaRechnungAn.TIMER_SEARCH = True
Me.kdFirmaRechnungAn.usrcntl = Nothing
'
'FlatButton3
@@ -2178,6 +2181,7 @@ Partial Class usrCntlFaktAbrechnung
Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20)
Me.kdFirmaAbsender.TabIndex = 3
Me.kdFirmaAbsender.TabStop = False
Me.kdFirmaAbsender.TIMER_SEARCH = True
Me.kdFirmaAbsender.usrcntl = Nothing
'
'txtAbsenderName2
@@ -2335,6 +2339,7 @@ Partial Class usrCntlFaktAbrechnung
'
Me.sbLeistung._allowFreitext = False
Me.sbLeistung._AllowSetValue = False
Me.sbLeistung._allowSpaceAsSplitter = False
Me.sbLeistung._autoSizeGross = False
Me.sbLeistung._hideIfListEmpty = True
Me.sbLeistung._value = Nothing
@@ -2844,6 +2849,7 @@ Partial Class usrCntlFaktAbrechnung
Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20)
Me.kdFirmaEmpfaenger.TabIndex = 3
Me.kdFirmaEmpfaenger.TabStop = False
Me.kdFirmaEmpfaenger.TIMER_SEARCH = True
Me.kdFirmaEmpfaenger.usrcntl = Nothing
'
'FlatButton2

13
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -2507,7 +2507,9 @@ Public Class usrCntlFaktAbrechnung
' Dim vorzeichen = If(RECHNUNG.Vorzeichen = "-", -1, 1)
' SVSRVSPOS.Preis = cFakturierung.fktSVSRVS(SVSRVS_Berechnungbetrag, "EUR") '= ??????
If SVSRVS_Berechnungbetrag > 150 Then
SVSRVSPOS.Preis = cFakturierung.fktSVSRVS(RECHNUNG.Wert * ur, "EUR") '*vorzeichen
'Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], 900) & ";", "FMZOLL")
'SVSRVSPOS.Preis = cFakturierung.fktSVSRVS(RECHNUNG.Wert * ur, waehrungCode) '*vorzeichen
SVSRVSPOS.Preis = cFakturierung.fktSVSRVS(SVSRVS_Berechnungbetrag) '*vorzeichen
Else
SVSRVSPOS.Preis = 0
End If
@@ -2605,11 +2607,10 @@ Public Class usrCntlFaktAbrechnung
Sub WarenwertUmrechnung()
Try
If cboWaehrung._value = "" Then Exit Sub
If Not IsNumeric(txtWarenwert._value) Then Exit Sub
Dim rg_Umrechnung = 0
Dim rg_Umrechnung As Double = 1
Dim euro As Double = txtWarenwert._value
If cboWaehrung._value <> "900" Then
Dim kurs = (SQL.getValueTxtBySql("SELECT TOP 1 isnull([Eurokurs] ,0) FROM [Währungstabelle] where Währungsschlüssel='" & cboWaehrung._value & "' AND Eurokurs is not null ", "FMZOLL"))
@@ -2626,7 +2627,7 @@ Public Class usrCntlFaktAbrechnung
rg_Umrechnung *= kurs_Umrechnung
End If
RECHNUNG.Umrechnungskurs = If(rg_Umrechnung = 0, Nothing, rg_Umrechnung)
RECHNUNG.Umrechnungskurs = If(rg_Umrechnung = 1, Nothing, rg_Umrechnung)
txtWarenwertUmrechnung._value = umrechnung
If loaded Then przRefreshDGV_Positionen() 'wegen SVS
@@ -3397,7 +3398,7 @@ Nächste_Textzeile_lesen:
For Each r As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If r.Cells("BerechnungsartNr").Value = 10 Then
Dim AnzahlTmp = PosAnzahl - BerechnungsartPosInkludiert
If AnzahlTmp<=0 Then AnzahlTmp=0
If AnzahlTmp <= 0 Then AnzahlTmp = 0
' MsgBox(PosAnzahl - BerechnungsartPosInkludiert)
r.Cells("Anzahl").Value = AnzahlTmp
If r.Cells("Anzahl").Value < 0 Then r.Cells("Anzahl").Value = 0
@@ -3423,6 +3424,4 @@ Nächste_Textzeile_lesen:
Private Sub Label53_Click(sender As Object, e As EventArgs) Handles Label53.Click
Label53.Visible = False
End Sub
End Class

49
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb generated
View File

@@ -42,6 +42,8 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Label12 = New System.Windows.Forms.Label()
Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtLKWContainer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -143,6 +145,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
'
'txtFirma
'
Me.txtFirma._AlleFirmenCLUSTER = False
Me.txtFirma._AllowSetValue = True
Me.txtFirma._autoSizeGross = False
Me.txtFirma._display_Name1 = True
@@ -151,6 +154,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.txtFirma._displayWoelflKd = False
Me.txtFirma._hideIfListEmpty = True
Me.txtFirma._loadKdData = True
Me.txtFirma._UseFIRMA = ""
Me.txtFirma._ValueKdAndName = False
Me.txtFirma.dgvpos = "LEFT"
Me.txtFirma.KdName = Nothing
@@ -163,6 +167,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.txtFirma.searchActive = True
Me.txtFirma.Size = New System.Drawing.Size(709, 20)
Me.txtFirma.TabIndex = 15
Me.txtFirma.TIMER_SEARCH = True
Me.txtFirma.usrcntl = Nothing
'
'cboFiliale
@@ -247,10 +252,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 109)
Me.Label2.Location = New System.Drawing.Point(170, 135)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(31, 13)
Me.Label2.TabIndex = 17
Me.Label2.TabIndex = 19
Me.Label2.Text = "Text:"
'
'cboTEXT
@@ -259,10 +264,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cboTEXT._allowFreiText = False
Me.cboTEXT._value = ""
Me.cboTEXT.FormattingEnabled = True
Me.cboTEXT.Location = New System.Drawing.Point(254, 106)
Me.cboTEXT.Location = New System.Drawing.Point(254, 132)
Me.cboTEXT.Name = "cboTEXT"
Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
Me.cboTEXT.TabIndex = 18
Me.cboTEXT.TabIndex = 20
'
'Label12
'
@@ -296,12 +301,44 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.cbx.Text = "Anhänge zurücksetzen"
Me.cbx.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(170, 108)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(84, 13)
Me.Label3.TabIndex = 17
Me.Label3.Text = "LKW/Container:"
'
'txtLKWContainer
'
Me.txtLKWContainer._DateTimeOnly = False
Me.txtLKWContainer._numbersOnly = False
Me.txtLKWContainer._numbersOnlyKommastellen = ""
Me.txtLKWContainer._Prozent = False
Me.txtLKWContainer._ShortDateNew = False
Me.txtLKWContainer._ShortDateOnly = False
Me.txtLKWContainer._TimeOnly = False
Me.txtLKWContainer._value = Nothing
Me.txtLKWContainer._Waehrung = False
Me.txtLKWContainer._WaehrungZeichen = True
Me.txtLKWContainer.ForeColor = System.Drawing.Color.Black
Me.txtLKWContainer.Location = New System.Drawing.Point(254, 105)
Me.txtLKWContainer.MaxLineLength = -1
Me.txtLKWContainer.MaxLines_Warning = ""
Me.txtLKWContainer.MaxLines_Warning_Label = Nothing
Me.txtLKWContainer.Name = "txtLKWContainer"
Me.txtLKWContainer.Size = New System.Drawing.Size(709, 20)
Me.txtLKWContainer.TabIndex = 18
'
'usrcntlVerzollungsunterlagen_BAR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtLKWContainer)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboSprache)
Me.Controls.Add(Me.Label2)
@@ -323,7 +360,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.cbx)
Me.Name = "usrcntlVerzollungsunterlagen_BAR"
Me.Size = New System.Drawing.Size(1000, 147)
Me.Size = New System.Drawing.Size(1000, 171)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -349,4 +386,6 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
Friend WithEvents Label12 As Label
Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbx As CheckBox
Friend WithEvents Label3 As Label
Friend WithEvents txtLKWContainer As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

14
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
View File

@@ -125,16 +125,16 @@
Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
If SPEDBUCH IsNot Nothing Then
Select Case cboRechnungAn._value
Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
Case Else : loadAdressen(-1)
Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr, SPEDBUCH.LKW_Kennzeichen)
Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr, SPEDBUCH.LKW_Kennzeichen)
Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr, SPEDBUCH.LKW_Kennzeichen)
Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr, SPEDBUCH.LKW_Kennzeichen)
Case Else : loadAdressen(-1, "")
End Select
End If
End Sub
Sub loadAdressen(KdNr)
Sub loadAdressen(KdNr, Optional LKW_Kz = Nothing)
Me.KdNR = KdNr
If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
@@ -147,7 +147,7 @@
' txtFirma2.Text = ""
txtAdresse1.Text = ""
End If
If LKW_Kz IsNot Nothing Then txtLKWContainer.Text = LKW_Kz.ToString
End Sub

42
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1104,6 +1104,7 @@ Public Class frmFormulare
Case FormularVorlagenGruppe.NeukundeDEFiskal
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Fiskal)
addForm(FormularManagerArten.DE_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
addForm(FormularManagerArten.VUB_AG)
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1130,6 +1131,7 @@ Public Class frmFormulare
Case FormularVorlagenGruppe.NeukundeDEFiskal_IMEX
MyFlowLayoutPanel1.Controls.Clear()
addForm(FormularManagerArten.DE_Fiskal)
addForm(FormularManagerArten.DE_Vollmacht)
addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
addForm(FormularManagerArten.VUB_IMEX)
addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
@@ -1530,6 +1532,7 @@ Public Class FormularManagerNEU
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
' rpt.txtPosNr.Text &= VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, True)
If anmerkung <> "" Then
rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
@@ -1562,6 +1565,7 @@ Public Class FormularManagerNEU
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
End Select
rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
@@ -2438,6 +2442,38 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function UID_PRUEFUNG(ErgebnisTXT, firma, sessionID, uidAntragsteller, uidAbfrage, tid, Optional AvisoId = -1, Optional SendungsId = -1) As String
Try
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAbfrage, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 179, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite)
Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prufung", listTowrite)
Return PdfTmp
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return ""
End Try
End Function
Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -3288,6 +3324,12 @@ Public Class FormularManagerNEU
posNr = " Pos.Nr.: " & posNr
End If
'LKW/Constainer-Nr. im Betreff angebgen:
If usrCntl.txtLKWContainer.Text <> "" Then
posNr &= " | LKW/Container.: " & usrCntl.txtLKWContainer.Text
End If
Dim bool_StbFA = False
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"

11
SDL/My Project/Resources.Designer.vb generated
View File

@@ -728,6 +728,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property hjkgv5tghj() As String
Get
Return ResourceManager.GetString("hjkgv5tghj", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -2072,7 +2081,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.5.4 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.5.7 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
SDL/My Project/Resources.resx
View File

@@ -623,7 +623,7 @@
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.5.4</value>
<value>1.1.5.7</value>
</data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -760,4 +760,7 @@
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hjkgv5tghj" xml:space="preserve">
<value />
</data>
</root>

12
SDL/SDL.vbproj
View File

@@ -141,8 +141,16 @@
<Reference Include="Microsoft.Office.Tools.Outlook, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91" />
<Reference Include="Microsoft.ReportViewer.Common, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91">
<Private>True</Private>
</Reference>
<Reference Include="Microsoft.ReportViewer.ProcessingObjectModel, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Windows\assembly\GAC_MSIL\Microsoft.ReportViewer.ProcessingObjectModel\11.0.0.0__89845dcd8080cc91\Microsoft.ReportViewer.ProcessingObjectModel.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.WinForms, Version=11.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91">
<Private>True</Private>
</Reference>
<Reference Include="Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\Newtonsoft.Json.12.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>

5
SDL/SMS/frmSendSMS.vb
View File

@@ -138,8 +138,9 @@ Public Class frmSendSMS
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select

17
SDL/SMS/usrCntlSMS.vb
View File

@@ -44,6 +44,12 @@
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Spedition", "EX0272082"))
Case "ATILLA"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition", "EX0252746"))
Case "UNISPED"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Spedition", "EX0300174"))
Case "FRONTOFFICE"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONT-OFFICE", "EX0300173"))
Case "AMBAR"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "EX0315223"))
Case Else
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "EX0252513"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360", "EX0252747"))
@@ -51,11 +57,18 @@
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition", "EX0252746"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Spedition", "EX0272082"))
End If
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Spedition", "EX0300174"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONT-OFFICE", "EX0300173"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "EX0315223"))
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : cboAbsedner.changeItem("EX0252746")
Case "IMEX" : cboAbsedner.changeItem("EX0272082")
Case "UNISPED" : cboAbsedner.changeItem("EX0300174")
Case "FRONTOFFICE" : cboAbsedner.changeItem("EX0300173")
Case "AMBAR" : cboAbsedner.changeItem("EX0315223")
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "MDM" : cboAbsedner.changeItem("EX0252747")
@@ -272,10 +285,12 @@
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
Exit Sub
If e.Button = Windows.Forms.MouseButtons.Right Then
MyDatagridview1.ClearSelection()
MyDatagridview1.Rows(e.RowIndex).Selected = True
MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells(0)
' MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells("sms_Handynummer")
MyDatagridview1.Rows(e.RowIndex).Selected = True
cntxtOptionen.Show(System.Windows.Forms.Cursor.Position)
End If
End Sub

16
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -378,11 +378,17 @@ Class DAKOSY_Interface_SEND
If u.ezaAd_AdressCode IsNot Nothing Then ADR.AdressCode = u.ezaAd_AdressCode
If u.ezaAd_TeilnehmerEORI IsNot Nothing Then ADR.TeilnehmerEORI = u.ezaAd_TeilnehmerEORI
If u.ezaAd_TeilnehmerNLNR IsNot Nothing AndAlso IsNumeric(u.ezaAd_TeilnehmerNLNR) Then ADR.TeilnehmerNLNR = u.ezaAd_TeilnehmerNLNR
If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1)
If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2)
If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3)
If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1)
If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2)
If u.ezaAd_NameFirma1 IsNot Nothing Then
ADR.NameFirma = u.ezaAd_NameFirma1 & If(u.ezaAd_NameFirma2, "") & If(u.ezaAd_NameFirma3, "")
End If
'If u.ezaAd_NameFirma1 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma1)
'If u.ezaAd_NameFirma2 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma2)
'If u.ezaAd_NameFirma3 IsNot Nothing Then ADR.NameFirma.Add(u.ezaAd_NameFirma3)
If u.ezaAd_StrasseHausNr1 IsNot Nothing Then
ADR.StrasseHausNr = u.ezaAd_StrasseHausNr1 & If(u.ezaAd_StrasseHausNr2, "")
End If
'If u.ezaAd_StrasseHausNr1 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr1)
'If u.ezaAd_StrasseHausNr2 IsNot Nothing Then ADR.StrasseHausNr.Add(u.ezaAd_StrasseHausNr2)
If u.ezaAd_Ortsteil IsNot Nothing Then ADR.Ortsteil = u.ezaAd_Ortsteil
If u.ezaAd_LandCode IsNot Nothing Then ADR.LandCode = u.ezaAd_LandCode
If u.ezaAd_PLZ IsNot Nothing Then ADR.PLZS = u.ezaAd_PLZ

5
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -327,11 +327,10 @@
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_GELDEINGANG(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14)
End If
End Sub
@@ -455,11 +454,11 @@
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_FREIGEGEBEN(True, txtBemerkung.Text)
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 59,, True, If(VK.vk_VermerkId, -1), If(VK.vk_SendungId, -1))
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 59,, True, If(VK.vk_VermerkId, -1), If(VK.vk_SendungId, -1))
End If
End Sub

3
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -809,6 +809,9 @@ Public Class frmKundenUebersichtZOLL
'Create an object that calls the name for the
'Web service used in the added Web Reference.
sender.BackgroundImage = My.Resources.wait
' Button4.Visible = False
Dim sGetValu2e As New validation

2
SDL/kunden/frmSDLDetails.Designer.vb generated
View File

@@ -46,7 +46,7 @@ Partial Class frmSDLDetails
Me.TextBox1.Location = New System.Drawing.Point(217, 34)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.ReadOnly = True
Me.TextBox1.Size = New System.Drawing.Size(85, 20)
Me.TextBox1.Size = New System.Drawing.Size(118, 20)
Me.TextBox1.TabIndex = 4
'
'ComboBox1

3
SDL/kunden/frmSDLDetails.vb
View File

@@ -37,7 +37,8 @@
' Me.KundenSDLTableAdapter.Fill(bindingSDL.bindingdataTable, KdNr, sdlNr)
setCbo(bindingSDL.bindingdataTable.Rows(0).Item("Sperre").ToString)
DS_sperreOLD = DirectCast(ComboBox1.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value
If IsDate(TextBox1.Text) Then DS_sperreDatOLD = CDate(TextBox1.Text)
TextBox1.Text = bindingSDL.bindingdataTable.Rows(0).Item("Sperrdatum").ToString
If IsDate(TextBox1.Text) Then DS_sperreDatOLD = CDate(TextBox1.Text) ' : MsgBox("sperre: " & DS_sperreDatOLD)
DateTimePicker1.Checked = bindingSDL.bindingdataTable.Rows(0).Item("Antragsdatum").ToString <> ""
If DateTimePicker1.Checked Then

96
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
@@ -2247,8 +2247,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -2345,8 +2345,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -2502,41 +2502,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -2674,8 +2674,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'dgvUstv_LaenderUndSteuernummern
'
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
@@ -2888,8 +2888,8 @@ Partial Class usrcntlKundeBearbeitenFull
'dgvSonst_IDSKunden
'
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251)
@@ -3092,8 +3092,8 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1
'
Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Enabled = False

10
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -160,9 +160,11 @@ Public Class usrcntlKundeBearbeitenFull
Label28.Text = If(KUNDE.DakosyExport, "-")
cbxFiBu.Checked = KUNDE.FiBuSchnittstelle
cbxFiBuLG.Checked = KUNDE_ERW.FiBuSchnittstelleLG
cboFirma.changeItem(If(KUNDE.FiBuSchnittstelleNr, ""))
If KUNDE.KundenNr > 0 Then
cbxFiBu.Checked = KUNDE.FiBuSchnittstelle
cbxFiBuLG.Checked = KUNDE_ERW.FiBuSchnittstelleLG
cboFirma.changeItem(If(KUNDE.FiBuSchnittstelleNr, ""))
End If
' ----- Abfertigung -----
rtbAbf_Besonderheiten.Text = loadValue(KUNDE.Besonderheiten, "")
rtbLKWFreigabeSenden.Text = loadValue(KUNDE.DokumenteLKWFreigabe, "")
@@ -1160,4 +1162,6 @@ Public Class usrcntlKundeBearbeitenFull
txtInkassoUebergebenAm._value = ""
End If
End Sub
End Class

41
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -382,47 +382,6 @@ Public Class frmMDMDatenverarbetiung
Dim reader As OleDbDataReader = Nothing
'Dim sqlstrACCDB As String = "SELECT count(*) FROM tblMaut WHERE 1=1"
'Try
' con.Open()
' cmd = New OleDbCommand(sqlstrACCDB, con)
' 'reader = cmd.ExecuteReader()
' 'MsgBox("da issa ")
' Using oRDR As OleDbDataReader = cmd.ExecuteReader
' While (oRDR.Read)
' MsgBox(oRDR.GetValue(0)) 'gets the first returned column
' End While
' End Using
' 'While reader.Read
' ' MsgBox("da issa2 ")
' ' MessageBox.Show(reader.GetString(0).ToString & vbTab & vbTab & reader.GetString(1).ToString)
' 'End While
' 'MsgBox("da issa3 ")
'Catch ex2 As System.Exception
' MsgBox("err: " & ex2.Message & ex2.StackTrace)
'Finally
' If reader IsNot Nothing Then reader.Close()
'End Try
'reader.Close()
'cmd.Connection = con
'cmd.CommandText = "SELECT * FROM tblMaut"
'cmd.ExecuteReader()
'cmd.CommandText = "INSERT INTO table1(Neyms) VALUES('" + var1 + "')"
'cmd.ExecuteNonQuery()
If dt IsNot Nothing Then
con.Open()

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

99
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
@@ -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,7 +1505,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 Sub
@@ -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

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

@@ -133,11 +133,11 @@ 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=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