1030 lines
46 KiB
VB.net
1030 lines
46 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Text
|
|
Imports System.Xml
|
|
Imports Renci.SshNet
|
|
|
|
Public Class frmStartOptions
|
|
Dim WithEvents timer As New Timer
|
|
|
|
Private Sub lklAufschubkontenATLASEZOLL_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAufschubkontenATLASEZOLL.LinkClicked, LinkLabel3.LinkClicked
|
|
Dim f As New frmRoutineManager("AUFSCHUB", True, cbxHistory.Checked)
|
|
Me.Visible = False
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
Me.BringToFront()
|
|
' AddHandler f.FormClosed, AddressOf closeMe
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
|
|
Dim f As New frmRoutineManager("BRG", True, cbxHistory.Checked)
|
|
Me.Visible = False
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
Me.BringToFront()
|
|
'AddHandler f.FormClosed, AddressOf closeMe
|
|
End Sub
|
|
|
|
|
|
Sub closeMe()
|
|
Me.Close()
|
|
Application.Exit()
|
|
End Sub
|
|
|
|
Private Sub frmStartOptions_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
timer.Interval = 2500
|
|
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY"))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
|
|
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
|
|
|
|
Dim PARAM = ""
|
|
Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
|
|
If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
|
PARAM = parameter(1)
|
|
'For i = 1 To parameter.Count - 1
|
|
' 'If parameter(i) = "HISTORY" Then PARAM = True
|
|
' Next
|
|
End If
|
|
|
|
'Standart-Errorverhalten ist MAIL
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
|
Select Case PARAM
|
|
Case "BRG_AUFSCHUB"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmRoutineManager("ALL", True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
Case "BRG_AUFSCHUB_HISTORY"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmRoutineManager("ALL", True, True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
|
|
Case "DY_EINARBEITUNG"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
Case "DY_EINARBEITUNG_PROD"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
|
|
Case "DY_EINARBEITUNG_UNISPED"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
|
Dim f As New frmDYNachrichtenVerarbeitung(True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
|
|
|
|
Case "TC_EINARBEITUNG"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
Dim f As New frmTCNachrichtenVerarbeitung(True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
Case "TC_EINARBEITUNG_PROD"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmTCNachrichtenVerarbeitung(True)
|
|
Me.Visible = False
|
|
f.Show()
|
|
AddHandler f.FormClosed, AddressOf closeMe
|
|
|
|
Case "DY_CODELISTEN" ' TEST & PROD
|
|
AddHandler Me.Shown, Sub()
|
|
Me.Refresh()
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", True)
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", False)
|
|
Me.Refresh()
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0017", True)
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0017", False)
|
|
Me.Refresh()
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", True)
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", False)
|
|
Me.Refresh()
|
|
closeMe()
|
|
End Sub
|
|
Case "KD_DATA_DAKOSY"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
DAKOSY_Worker.cDakosyFunftions.sendData()
|
|
closeMe()
|
|
Case "EZT_Bundesanzeiger_Importcodenummern"
|
|
getETZBundesanzeiger_ImportCodenummern()
|
|
closeMe()
|
|
Case "EZB_Waehrungskurse"
|
|
getEZB_Waehrungskurse()
|
|
closeMe()
|
|
Case "EZB_Waehrungskurse90D"
|
|
getEZB_Waehrungskurse90D()
|
|
closeMe()
|
|
Case "UID_Pruefung"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
getUID_Pruefung(MyTextBox1.Text)
|
|
closeMe()
|
|
Case "SDL_GUELTISBIS"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS()
|
|
closeMe()
|
|
|
|
Case "dakosy_mail_attach"
|
|
Dim pfad = ""
|
|
Dim betreff = ""
|
|
|
|
If (parameter.Count - 1) >= 3 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
|
|
|
|
pfad = parameter(2)
|
|
betreff = parameter(3)
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
importFileFromDyMailAnhang(pfad, betreff)
|
|
End If
|
|
closeMe()
|
|
|
|
Case "ezoll_anhaenge"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
|
|
importFileFromEZOLL(Now)
|
|
closeMe()
|
|
'-----------IMEX---------------
|
|
Case "IMEX_DVO_KUNDEN_BU"
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True)
|
|
closeMe()
|
|
|
|
'------------------------------
|
|
|
|
|
|
Case Else
|
|
'Nur bei manuellem Start wird der fehler ausgegeben
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
|
Me.WindowState = FormWindowState.Normal
|
|
End Select
|
|
End Sub
|
|
|
|
Sub importFileFromEZOLL(datum As Date)
|
|
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN FROM [ezoll].[dbo].[zzAktivitaet] INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID
|
|
where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00' and pfad is not null", "EZOLL")
|
|
If dt IsNot Nothing Then
|
|
For Each row In dt.Rows
|
|
Dim cDHF_Anhaenge As New VERAG_PROG_ALLGEMEIN.cDHF_Anhaenge(row("AnmID"), row("MsgTyp"))
|
|
|
|
If Not cDHF_Anhaenge.hasEntry Then
|
|
|
|
cDHF_Anhaenge.AnmID = row("AnmID")
|
|
cDHF_Anhaenge.LizenzNr = row("LizenzNr")
|
|
cDHF_Anhaenge.Operatorid = row("Operatorid")
|
|
cDHF_Anhaenge.AnmID = row("AnmID")
|
|
cDHF_Anhaenge.MsgTyp = row("MsgTyp")
|
|
cDHF_Anhaenge.ErstelltAm = row("ErstelltAm")
|
|
cDHF_Anhaenge.pfad = row("pfad")
|
|
cDHF_Anhaenge.LRN = If(row("LRN") IsNot DBNull.Value, row("LRN"), "")
|
|
cDHF_Anhaenge.CRN = If(row("CRN") IsNot DBNull.Value, row("CRN"), "")
|
|
|
|
Try
|
|
Dim Bezeichnung = ""
|
|
Select Case row("MsgTyp")
|
|
Case "EZ922" : Bezeichnung = "STEUERBESCHEID"
|
|
Case "EZ923" : Bezeichnung = "STEUERBESCHEID_MITT"
|
|
Case "TR109" : Bezeichnung = "VBD"
|
|
End Select
|
|
|
|
If cDHF_Anhaenge.pfad <> "" Then
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", Bezeichnung, cDHF_Anhaenge.AnmID, "", "", "DHF_" & cDHF_Anhaenge.LRN.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
|
DS.da_vorlage = False
|
|
|
|
Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\ZOLARIS\ECHTSYSTEM\ZOLLDATEN\" & Bezeichnung & "\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
|
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
|
|
|
Dim destFull = ""
|
|
copyFile(cDHF_Anhaenge.pfad.Replace("C:\", "\\Ezoll\c$\"), ZIEL_PFAD, destFull)
|
|
|
|
If destFull <> "" Then
|
|
If DS.insertDataToDATENSERVER(destFull) Then
|
|
cDHF_Anhaenge.docID = DS.da_id
|
|
End If
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
End Try
|
|
|
|
cDHF_Anhaenge.SAVE()
|
|
|
|
Select Case row("MsgTyp")
|
|
Case "EZ922" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA")
|
|
Case "TR109" : DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS")
|
|
' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
|
|
cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
|
|
Case "EZ923" 'Ergänzung STB - Mitteilung
|
|
sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
|
|
End Select
|
|
|
|
|
|
|
|
End If
|
|
Next
|
|
End If
|
|
End Sub
|
|
Sub importFileFromDyMailAnhang(pfad, betreff)
|
|
|
|
|
|
Try
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
|
|
|
|
'moveFile(d, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\nlc\")
|
|
|
|
'IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
|
|
|
|
If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then
|
|
betreff = betreff.replace("WG: ", "")
|
|
betreff = betreff.replace("FW: ", "")
|
|
betreff = betreff.replace("VBD - Versandbegleitdokument (DE), ", "")
|
|
|
|
'Dim dy_id As String = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
|
Dim dy_id As String = ""
|
|
If betreff.ToString.Length > 15 Then
|
|
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE ncts_ObjectName +'%' ", "FMZOLL")
|
|
Else
|
|
dy_id = sql.getValueTxtBySql("SELECT isnull(ncts_dyaAnmID,-1) FROM [tblDakosy_NCTSOut] inner join tblDakosy_Zollanmeldungen on dy_id=ncts_dyaAnmID where ncts_ObjectName='" & betreff.ToString.Trim & "' ", "FMZOLL")
|
|
End If
|
|
|
|
|
|
' IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
|
|
|
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
|
DS.da_vorlage = False
|
|
|
|
Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\"
|
|
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
|
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
|
|
|
Dim destFull = ""
|
|
moveFile(pfad, ZIEL_PFAD, destFull)
|
|
|
|
If DS.insertDataToDATENSERVER(destFull) Then
|
|
If IsNumeric(dy_id) AndAlso dy_id > 0 Then sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
|
End If
|
|
|
|
ElseIf betreff.ToString.Contains("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ") Then
|
|
betreff = betreff.replace("WG: ", "")
|
|
betreff = betreff.replace("FW: ", "")
|
|
betreff = betreff.replace("DAKOSY GE - Abgabenbescheid/Befund , Bezugsnr.: ", "")
|
|
If betreff.ToString.Contains(",") Then
|
|
Dim sp = betreff.ToString.Split(",")
|
|
betreff = sp(0).Trim
|
|
|
|
Dim dy_id As String = ""
|
|
If betreff.ToString.Length > 15 Then
|
|
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE eza_ObjectName +'%'", "FMZOLL")
|
|
Else
|
|
dy_id = sql.getValueTxtBySql("SELECT isnull(eza_dyaAnmID,-1) FROM [tblDakosy_EZA] inner join tblDakosy_Zollanmeldungen on dy_id=eza_dyaAnmID where eza_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL")
|
|
End If
|
|
' IO.Directory.CreateDirectory("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\")
|
|
|
|
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False)
|
|
DS.da_vorlage = False
|
|
|
|
Dim ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\"
|
|
If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\"
|
|
If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
|
|
|
|
Dim destFull = ""
|
|
moveFile(pfad, ZIEL_PFAD, destFull)
|
|
|
|
If DS.insertDataToDATENSERVER(destFull) Then
|
|
If IsNumeric(dy_id) AndAlso dy_id > 0 Then sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_STEUERBESCHEID_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL")
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
'""""""""""""
|
|
' If Not alreadyMoved Then
|
|
|
|
' End If
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", False) 'ECHTSYSTEM
|
|
showPic(erg, picC0008)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Sub showPic(ok As Boolean, pic As PictureBox)
|
|
pic.Visible = True
|
|
If ok Then
|
|
pic.BackgroundImage = My.Resources.ok
|
|
Else
|
|
pic.BackgroundImage = My.Resources.del
|
|
End If
|
|
timer.Enabled = True
|
|
End Sub
|
|
Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick
|
|
timer.Enabled = False
|
|
picC0008.Visible = False
|
|
PictureBox1.Visible = False
|
|
PictureBox2.Visible = False
|
|
PictureBox3.Visible = False
|
|
PictureBox4.Visible = False
|
|
PictureBox5.Visible = False
|
|
PictureBox6.Visible = False
|
|
PictureBox7.Visible = False
|
|
PictureBox8.Visible = False
|
|
PictureBox9.Visible = False
|
|
PictureBox10.Visible = False
|
|
PictureBox11.Visible = False
|
|
PictureBox12.Visible = False
|
|
PictureBox13.Visible = False
|
|
PictureBox14.Visible = False
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel5_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
Dim f As New frmDYNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel6_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel6.LinkClicked
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
If DAKOSY_Worker.cDakosyFunftions.sendData() Then ' Application.StartupPath & "\Dakosy_SEND\")
|
|
|
|
End If
|
|
|
|
Exit Sub
|
|
|
|
Dim dt = DAKOSY_Worker.cDakosyFunftions.getKDData()
|
|
|
|
If dt IsNot Nothing Then
|
|
Dim saveFile = ""
|
|
If DAKOSY_Worker.cDakosyFunftions.generateVERAGKdData(dt, Application.StartupPath & "\Dakosy_SEND\", saveFile) Then
|
|
MsgBox(saveFile)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub LinkLabel7_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel7.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0017", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0017", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox1)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub LinkLabel8_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel8.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0014", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox2)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
|
|
|
|
End Sub
|
|
|
|
Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel9_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel9.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmDYNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel10_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel10.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0010", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox3)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub LinkLabel11_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel11.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("A0122", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox4)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub LinkLabel12_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel12.LinkClicked
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel13_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel13.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0400", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox6)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub LinkLabel14_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel14.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0013", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox7)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel15_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel15.LinkClicked
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
If DAKOSY_Worker.cDakosyFunftions.sendData() Then ' Application.StartupPath & "\Dakosy_SEND\")
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel16_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel16.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0200", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox8)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Public Function moveFile(file, toDirectory, Optional ByRef dest = "")
|
|
If Not IO.File.Exists(file) Then Return False
|
|
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
|
dest = toDirectory & cut_file(file)
|
|
If IO.File.Exists(dest) Then
|
|
dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
|
|
End If
|
|
IO.File.Move(file, dest) ' Verschiebt die Datei
|
|
Return True
|
|
End Function
|
|
|
|
Public Function copyFile(file, toDirectory, Optional ByRef dest = "")
|
|
If Not IO.File.Exists(file) Then Return False
|
|
If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory)
|
|
dest = toDirectory & ".tmp_" & cut_file(file)
|
|
If IO.File.Exists(dest) Then
|
|
dest = toDirectory & ".tmp_" & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
|
|
End If
|
|
IO.File.Copy(file, dest) ' Verschiebt die Datei
|
|
IO.File.Move(dest, dest.ToString.Replace(".tmp_", "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird!
|
|
dest = dest.ToString.Replace(".tmp_", "")
|
|
Return True
|
|
|
|
End Function
|
|
Public Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
|
|
While file.Contains("\")
|
|
file = file.Remove(0, 1)
|
|
End While
|
|
Return file
|
|
End Function
|
|
|
|
Private Sub LinkLabel17_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel17.LinkClicked
|
|
getETZBundesanzeiger_ImportCodenummern()
|
|
End Sub
|
|
Sub getETZBundesanzeiger_ImportCodenummern()
|
|
Dim bool = False
|
|
Dim zip = getNachrichtenDatenFromBundesanzeiger()
|
|
If zip <> "" Then
|
|
bool = loadEZTZipToDB(zip)
|
|
|
|
End If
|
|
showPic(bool, PictureBox9)
|
|
End Sub
|
|
|
|
Function getEZB_Waehrungskurse() As Boolean
|
|
Dim MyData As String = ""
|
|
getEZB_Waehrungskurse = False
|
|
Try
|
|
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
|
|
|
Using WC As New System.Net.WebClient()
|
|
' C0008_URL()
|
|
WC.Encoding = ASCIIEncoding.UTF8
|
|
Dim URL = "https://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml" 'cDY_Paramter.GET_PARAM_ByName("C0008_URL", TESTSYSTEM)
|
|
If URL = String.Empty Then Return False
|
|
|
|
MyData = WC.DownloadString(URL)
|
|
Dim doc As New XmlDocument()
|
|
doc.LoadXml(MyData)
|
|
If doc.HasChildNodes Then
|
|
|
|
If doc.GetElementsByTagName("gesmes:Envelope").Count > 0 Then
|
|
If doc.GetElementsByTagName("gesmes:Envelope")(0).HasChildNodes AndAlso doc.GetElementsByTagName("gesmes:Envelope")(0).ChildNodes.Count > 2 Then
|
|
Dim Cube = doc.GetElementsByTagName("gesmes:Envelope")(0).ChildNodes(2)
|
|
If Cube.HasChildNodes AndAlso Cube.ChildNodes(0).Name = "Cube" And Cube.ChildNodes(0).Attributes.Count > 0 Then
|
|
Dim Cube2 = Cube.ChildNodes(0)
|
|
Dim datum As Date = DateTime.ParseExact(Cube2.Attributes(0).Value, "yyyy-MM-dd", Nothing)
|
|
If Cube2.HasChildNodes Then
|
|
For Each Entry As XmlNode In Cube2.ChildNodes
|
|
|
|
Dim EZB As New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse
|
|
|
|
' Dim Code = ""
|
|
'Dim Description = ""
|
|
' Dim StartDate = Nothing
|
|
' Dim EndDate = Nothing
|
|
If Entry.Attributes("currency") IsNot Nothing Then EZB.ezb_waehrungscode = Entry.Attributes("currency").Value
|
|
If Entry.Attributes("rate") IsNot Nothing Then EZB.ezb_kurs = CDbl(Entry.Attributes("rate").Value.Replace(".", ","))
|
|
'If Entry.SelectNodes("Description").Count > 0 Then EZB.ezb_waehrungsschluessel = Entry.SelectNodes("Description")(0).InnerText
|
|
EZB.ezb_datum = datum 'CDate(Entry.SelectNodes("StartDate")(0).InnerText)
|
|
EZB.SAVE()
|
|
' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate))
|
|
' VERAG_PROG_ALLGEMEIN.
|
|
getEZB_Waehrungskurse = True
|
|
Next
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
'If LC.Count > 0 Then
|
|
' Return LC.INSERT_DB(TESTSYSTEM)
|
|
'End If
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Return False
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Function getUID_Pruefung(maxAnz As Integer) As Boolean
|
|
Try
|
|
|
|
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-2), True, False, maxAnz, False)
|
|
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
|
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
|
|
If PDF <> "" Then
|
|
Dim list As New List(Of String)
|
|
list.Add(PDF)
|
|
Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
|
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
|
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
|
Body &= "<br><br>Automatisch generiertes E-Mail."
|
|
|
|
' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("cw@verag.ag;mm@verag.ag", "UID Prüfung", Body,,, False, "al@verag.ag",, list)
|
|
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list)
|
|
End If
|
|
End If
|
|
Return True
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Function getEZB_Waehrungskurse90D() As Boolean
|
|
Dim MyData As String = ""
|
|
getEZB_Waehrungskurse90D = False
|
|
Try
|
|
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
|
|
|
Using WC As New System.Net.WebClient()
|
|
' C0008_URL()
|
|
WC.Encoding = ASCIIEncoding.UTF8
|
|
Dim URL = "https://www.ecb.europa.eu/stats/eurofxref/eurofxref-hist-90d.xml" 'cDY_Paramter.GET_PARAM_ByName("C0008_URL", TESTSYSTEM)
|
|
If URL = String.Empty Then Return False
|
|
|
|
MyData = WC.DownloadString(URL)
|
|
Dim doc As New XmlDocument()
|
|
doc.LoadXml(MyData)
|
|
If doc.HasChildNodes Then
|
|
|
|
If doc.GetElementsByTagName("gesmes:Envelope").Count > 0 Then
|
|
If doc.GetElementsByTagName("gesmes:Envelope")(0).HasChildNodes AndAlso doc.GetElementsByTagName("gesmes:Envelope")(0).ChildNodes.Count > 2 Then
|
|
If doc.GetElementsByTagName("gesmes:Envelope")(0).ChildNodes(2).HasChildNodes Then
|
|
|
|
For Each Entry2 As XmlNode In doc.GetElementsByTagName("gesmes:Envelope")(0).ChildNodes(2).ChildNodes
|
|
|
|
Dim datum As Date = DateTime.ParseExact(Entry2.Attributes(0).Value, "yyyy-MM-dd", Nothing)
|
|
|
|
If True Then
|
|
|
|
If Entry2.Name = "Cube" Then
|
|
Dim Cube = Entry2
|
|
|
|
If Cube.HasChildNodes AndAlso Cube.ChildNodes(0).Name = "Cube" And Cube.ChildNodes(0).Attributes.Count > 0 Then
|
|
|
|
For Each Entry As XmlNode In Cube.ChildNodes
|
|
|
|
Dim EZB As New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse
|
|
|
|
' Dim Code = ""
|
|
'Dim Description = ""
|
|
' Dim StartDate = Nothing
|
|
' Dim EndDate = Nothing
|
|
' MsgBox("as!!!!!o")
|
|
|
|
|
|
If Entry.Attributes("currency") IsNot Nothing Then EZB.ezb_waehrungscode = Entry.Attributes("currency").Value
|
|
If Entry.Attributes("rate") IsNot Nothing Then EZB.ezb_kurs = CDbl(Entry.Attributes("rate").Value.Replace(".", ","))
|
|
'If Entry.SelectNodes("Description").Count > 0 Then EZB.ezb_waehrungsschluessel = Entry.SelectNodes("Description")(0).InnerText
|
|
EZB.ezb_datum = datum 'CDate(Entry.SelectNodes("StartDate")(0).InnerText)
|
|
EZB.SAVE()
|
|
' LC.Add(New VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse(Code, Description, StartDate, EndDate))
|
|
' VERAG_PROG_ALLGEMEIN.
|
|
getEZB_Waehrungskurse90D = True
|
|
Next
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
'If LC.Count > 0 Then
|
|
' Return LC.INSERT_DB(TESTSYSTEM)
|
|
'End If
|
|
End Using
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Return False
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Function getNachrichtenDatenFromBundesanzeiger() As String
|
|
Dim cnt = 0
|
|
Try
|
|
Dim DY_server = "ftp://www.awr-portal.de/" '"217.17.30.74"
|
|
Dim DY_name = "SAPverag"
|
|
Dim DY_pwd = "SAPi64c"
|
|
Dim DY_port = "21"
|
|
Dim DY_PFAD_out = "/ASCII(bis4.6B)/Importcodenummern/Deutschland/Initialload.zip"
|
|
Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\"
|
|
If Not System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
|
|
|
' DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out)
|
|
|
|
|
|
Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
|
|
'Dim ConnectionInfo2 As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd))
|
|
|
|
Dim ftp As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(DY_server & DY_PFAD_out), System.Net.FtpWebRequest)
|
|
|
|
|
|
ftp.Credentials = New System.Net.NetworkCredential(DY_name, DY_pwd)
|
|
|
|
'Turn off KeepAlive (will close connection on completion)
|
|
|
|
ftp.KeepAlive = False
|
|
|
|
'we want a binary
|
|
|
|
ftp.UseBinary = True
|
|
|
|
'Define the action required (in this case, download a file)
|
|
|
|
ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
|
|
|
|
|
|
|
|
'If we were using a method that uploads data e.g. UploadFile
|
|
|
|
'we would open the ftp.GetRequestStream here an send the data
|
|
|
|
|
|
|
|
'Get the response to the Ftp request and the associated stream
|
|
|
|
Dim dwlFileName = VERARBEITUNGS_PFAD & Now.ToString("yyyyMMdd_HHmmss_") & "Initialload.zip"
|
|
Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)
|
|
|
|
Using responseStream As IO.Stream = response.GetResponseStream
|
|
|
|
'loop to read & write to file
|
|
Using fs As New IO.FileStream(dwlFileName, IO.FileMode.Create)
|
|
|
|
Dim buffer(2047) As Byte
|
|
|
|
Dim read As Integer = 0
|
|
|
|
Do
|
|
|
|
read = responseStream.Read(buffer, 0, buffer.Length)
|
|
|
|
fs.Write(buffer, 0, read)
|
|
|
|
Loop Until read = 0 'see Note(1)
|
|
|
|
responseStream.Close()
|
|
|
|
fs.Flush()
|
|
|
|
fs.Close()
|
|
|
|
End Using
|
|
|
|
responseStream.Close()
|
|
|
|
End Using
|
|
|
|
response.Close()
|
|
|
|
End Using
|
|
|
|
Return dwlFileName
|
|
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
End Try
|
|
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
Function loadEZTZipToDB(pfadZIP As String) As Boolean
|
|
Try
|
|
loadEZTZipToDB = False
|
|
Dim VERARBEITUNGS_PFAD = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\EZT\Importcodenummern\" & Now.Year & "\Extrakt\"
|
|
If System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then System.IO.Directory.Delete(VERARBEITUNGS_PFAD, True) 'Zuerst löschen, damit leer ist
|
|
System.IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
|
|
|
|
|
|
System.IO.Compression.ZipFile.ExtractToDirectory(pfadZIP, VERARBEITUNGS_PFAD)
|
|
If System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD).Count > 0 Then
|
|
loadEZTZipToDB = (insertEZTIntoDB(System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)(0), True) And
|
|
insertEZTIntoDB(System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)(0), False))
|
|
End If
|
|
'System.IO.Directory.Delete(VERARBEITUNGS_PFAD,True)
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Function insertEZTIntoDB(pfad As String, TESTSYSTEM As Boolean) As Boolean
|
|
Dim ts = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
|
|
Try
|
|
If Not System.IO.File.Exists(pfad) Then Return False
|
|
|
|
Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(pfad, System.Text.Encoding.Default)
|
|
Dim a As String
|
|
|
|
'If Not VERAG_PROG_ALLGEMEIN.cEZT_ImportCodenummern.delWholeDB() Then Return False ' nicht mehr, da upgedatet wird
|
|
Dim cnt = 0
|
|
Do
|
|
a = reader.ReadLine
|
|
'
|
|
' Code here
|
|
'
|
|
If a IsNot Nothing AndAlso a.Length > 40 Then
|
|
|
|
Dim EZT As New VERAG_PROG_ALLGEMEIN.cEZT_ImportCodenummern
|
|
Dim pos As String = 0
|
|
EZT.ezt_Land = a.Substring(pos, 3) : pos += 3
|
|
EZT.ezt_Codenummer = a.Substring(pos, 11) : pos += 11
|
|
EZT.ezt_BesMasseinheit = a.Substring(pos, 3) : pos += 3
|
|
EZT.ezt_BesMasseinheit2 = a.Substring(pos, 3) : pos += 3
|
|
EZT.ezt_Start = Date.ParseExact(a.Substring(pos, 8), "yyyyMMdd", System.Globalization.DateTimeFormatInfo.CurrentInfo) : pos += 8
|
|
EZT.ezt_Ende = Date.ParseExact(a.Substring(pos, 8), "yyyyMMdd", System.Globalization.DateTimeFormatInfo.CurrentInfo) : pos += 8
|
|
EZT.ezt_Sprache = a.Substring(pos, 3) : pos += 3
|
|
EZT.ezt_Text = a.Substring(pos)
|
|
EZT.SAVE()
|
|
cnt += 1
|
|
' Sub New(ezt_Land, ezt_Codenummer, ezt_BesMasseinheit, ezt_BesMasseinheit2, ezt_Start, ezt_Ende, ezt_Sprache, ezt_Text)
|
|
If cnt Mod 10 = 0 Then Application.DoEvents()
|
|
End If
|
|
Loop Until a Is Nothing
|
|
reader.Close()
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = ts
|
|
Return True
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message & ex.StackTrace)
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = ts
|
|
Return False
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub LinkLabel18_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel18.LinkClicked
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim bool = getEZB_Waehrungskurse()
|
|
showPic(bool, PictureBox10)
|
|
End Sub
|
|
|
|
Private Sub LinkLabel19_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel19.LinkClicked
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim bool = getEZB_Waehrungskurse90D()
|
|
showPic(bool, PictureBox11)
|
|
End Sub
|
|
|
|
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim bool = getUID_Pruefung(MyTextBox1.Text)
|
|
showPic(bool, PictureBox12)
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, cbxKd.Checked, cbxBu.Checked)
|
|
End Sub
|
|
|
|
Private Sub LinkLabel22_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel22.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
Dim f As New frmTCNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel21_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel21.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmTCNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel24_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel24.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
|
Dim f As New frmMDMNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel23_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel23.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
Dim f As New frmMDMNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
|
|
Private Sub LinkLabel25_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked
|
|
importFileFromEZOLL(If(CheckBox2.Checked, Now.AddDays(-7), Now))
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
|
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
|
|
Dim fid As New FileInfo(d)
|
|
If fid.Name >= 20190820 Then
|
|
|
|
|
|
For Each f In System.IO.Directory.GetFiles(d)
|
|
Dim fi As New FileInfo(f)
|
|
If fi.Extension = ".xml" Then
|
|
|
|
Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
|
|
|
|
|
|
If XML_Code.Contains("<FCFCDC>") And XML_Code.Contains("<TaxOffice>9153</TaxOffice>") Then
|
|
If Not IO.File.Exists("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then
|
|
|
|
|
|
IO.File.Copy(f, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
'Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
|
|
|
|
'Dim doc As New XmlDocument()
|
|
|
|
|
|
'Dim XML_Code = System.IO.File.ReadAllText(f, System.Text.UTF8Encoding.Default)
|
|
|
|
'doc.LoadXml(frmDYNachrichtenVerarbeitung.SanitizeXmlString(XML_Code))
|
|
|
|
'If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
|
|
' MsgBox(f)
|
|
'End If
|
|
|
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
|
|
Next
|
|
|
|
|
|
|
|
|
|
|
|
End If
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub LinkLabel26_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel26.LinkClicked
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Try
|
|
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", True) 'TESTSYSTEM
|
|
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I0700", False) 'ECHTSYSTEM
|
|
showPic(erg, PictureBox13)
|
|
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub TabPage2_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim ok As Boolean = False
|
|
Select Case MyComboBox1._value
|
|
Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
|
Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
|
Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett)
|
|
End Select
|
|
|
|
showPic(ok, PictureBox14)
|
|
|
|
End Sub
|
|
|
|
Function getISett ()As cVERAG_Interface_Settings
|
|
getISett = New cVERAG_Interface_Settings
|
|
getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
|
|
getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked
|
|
getISett.acticeInterface_EKOL = cbxISett_EKOL.Checked
|
|
getISett.acticeInterface_TEST = cbxISett_TEST.Checked
|
|
getISett.acticeInterface_VERAG = cbxISett_VERAG.Checked
|
|
getISett.acticeInterface_IMEX = cbxISett_IMEX.Checked
|
|
End Function
|
|
|
|
|
|
Private Sub LinkLabel28_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked
|
|
Me.Visible = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
|
|
Dim f As New frmDYNachrichtenVerarbeitung
|
|
f.ShowDialog()
|
|
Me.Visible = True
|
|
End Sub
|
|
End Class |