Imports System.Data.OleDb 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")) MyComboBox2.Items.Clear() MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DY")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF")) cboBMDUnispedFirma.Items.Clear() cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Österreich", "21")) cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland", "22")) cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23")) cboBMDUnispedFirma.changeItem("") Dim PARAM = "" Dim parameter() As String = Environment.GetCommandLineArgs().ToArray If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r 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 "NCTSTR_EINARBEITUNG_TEST" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True) Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "NCTSTR_EINARBEITUNG_PROD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmTRNCTS_NachrichtenVerarbeitung(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 "MDM_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmMDMNachrichtenVerarbeitung(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 "UNISPED_BMD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht 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 [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 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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_out_ncts.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, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\nlc\") 'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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 +'%' and LEN(ncts_ObjectName)>=13 ", "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(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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") sql.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & betreff.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! End If 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 +'%' and LEN(eza_ObjectName)>=13", "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(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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") sql.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! End If End If End If 'ABD ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then betreff = betreff.replace("WG: ", "") betreff = betreff.replace("FW: ", "") betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "") 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(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") Else dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") End If ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TEST: " & dy_id, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ABD", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS.da_vorlage = False Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\NOT_IDENTIFIED\" If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ABD\" & 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_ABD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") sql.doSQL("UPDATE Speditionsbuch SET DokumentId_ABD='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_ABD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! End If End If End If 'AVM ElseIf betreff.ToString.Contains("AVM - Ausgangsvermerk (DE), ") Then betreff = betreff.replace("WG: ", "") betreff = betreff.replace("FW: ", "") betreff = betreff.replace("AVM - Ausgangsvermerk (DE), ", "") 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(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where '" & betreff.ToString.Trim & "' LIKE aes_ObjectName +'%' and LEN(aes_ObjectName)>=13", "FMZOLL") Else dy_id = sql.getValueTxtBySql("SELECT isnull(aes_dyaAnmID,-1) FROM [tblDakosy_AES] inner join tblDakosy_Zollanmeldungen on dy_id=aes_dyaAnmID where aes_ObjectName='" & betreff.ToString.Trim & "'", "FMZOLL") End If ' IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\") DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "AVM", dy_id, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) DS.da_vorlage = False Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\NOT_IDENTIFIED\" If IsNumeric(dy_id) AndAlso dy_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\AVM\" & 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_AVM_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") sql.doSQL("UPDATE Speditionsbuch SET DokumentId_AVM='" & DS.da_id & "' where AtlasBezNrEZA='" & betreff.ToString.Trim & "' AND DokumentId_AVM is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! End If 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 Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL SQL.doSQL("IF NOT EXISTS (SELECT * FROM baskur WHERE baskur_code ='" & EZB.ezb_waehrungscode & "' AND baskur_gbdat =cast(getdate() as date) ) BEGIN INSERT INTO [baskur] ([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz]) VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR') END", "ATLAS") Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Next End If VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen 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(-1), 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.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString Body &= "

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 'MsgBox(datum.ToShortDateString & " - " & Now.ToShortDateString) 'If datum.ToShortDateString = Now.ToShortDateString Then 'aktuellen TAG sichern. ' Try ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL ' SQL.doSQL("INSERT INTO [baskur] ' ([baskur_code],[baskur_typ],[baskur_bez],[baskur_faktor],[baskur_kurs],[baskur_gvdat],[baskur_gbdat],[baskur_edat],[baskur_adat],[baskur_sb],[baskur_cdealt],[baskur_wkz]) ' VALUES ('" & EZB.ezb_waehrungscode & "',1,'-',1," & Entry.Attributes("rate").Value & ",cast(getdate() as date),cast(getdate() as date),getdate(),getdate(),'VRG',000,'EUR')", "ATLAS") ' Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' End Try 'End If 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 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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 = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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), If(CheckBox3.Checked, Now.AddMonths(-1), Now))) End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) For Each d In System.IO.Directory.GetDirectories(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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("") And XML_Code.Contains("9153") Then If Not IO.File.Exists(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\TEST\FISKAL\" & fi.Name) Then IO.File.Copy(f, VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "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_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) End Select showPic(ok, PictureBox14) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim ok As Boolean = False Select Case MyComboBox2._value Case "DY" : ok = cVERAG_out_eza.copyFileFTP_VERAGEZA_DY_ByBezugsNr(txtVRGOutEZA_BezugsNr.Text, getISettEZA) 'Case "TC" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) 'Case "DHF" : ok = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) End Select showPic(ok, PictureBox15) 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 Function getISettEZA() As cVERAG_Interface_Settings getISettEZA = New cVERAG_Interface_Settings getISettEZA.acticeInterface_VERAG = cbxISettEZA_VERAG.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 Private Sub LinkLabel30_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel30.LinkClicked Me.Visible = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTRNCTS_NachrichtenVerarbeitung f.ShowDialog() Me.Visible = True End Sub Private Sub LinkLabel31_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False ASFINAG_LKW() End Sub Function ASFINAG_LKW() Try Dim SQl As New VERAG_PROG_ALLGEMEIN.SQL ' CLF-Einträge aus den bestehenden SDL-Datensätzen entfernen, ' damit nach dem Aktualisierungslauf der Istzustand der CLF in der SDL hergestellt wird. If Not SQl.getValueTxtBySql("UPDATE SDL Set OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "Fehler beim Reset SDL-Daten.", System.Reflection.MethodBase.GetCurrentMethod.Name) Return False End If ' Nummer der Speditionsdienstleistung für MautAT einlesen. Dim SDLNr = SQl.getValueTxtBySql("SELECT isnull(SDLNr,'') FROM vwSpeditionsdienstleistungen WHERE (Sicht = 'vwMautAT')", "SDL") If SDLNr = "" Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "SDL-Nr nicht gefunden.", System.Reflection.MethodBase.GetCurrentMethod.Name) Return False End If ' Verbindung zur ASFINAG Datenbank herstellen Dim connectionString = "" If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp" Else connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp" End If Dim con As New OleDbConnection(connectionString) Dim cmd As New OleDbCommand Dim var1 As String Dim adapter As OleDbDataAdapter = New OleDbDataAdapter() Dim reader As OleDbDataReader = Nothing ' Kfz Kennzeichen einlesen. Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody " Using Command As New OleDbCommand(SQLQuery, con) Using oRDR As OleDbDataReader = Command.ExecuteReader While (oRDR.Read) Dim KartenNr = oRDR.GetValue("CardNumber") Dim KfzKennzeichen = fktConvert(oRDR.GetValue("KfzKennzeichen")) ' Kundennummer einlesen Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL",,, -1) If KdNr > 0 Then Call fktKundenSDLVerwalten(KdNr, SDLNr) Call fktKundenLkwVerwalten(KdNr, oRDR.GetValue("KfzKennzeichen"), oRDR.GetValue("Nationalität")) Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr) If Not SDL.hasentry Then SDL.KundenNr = KdNr SDL.KfzKennzeichen = KfzKennzeichen SDL.SDLNr = SDLNr SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr) SDL.Erfassungsdatum = Now Else SDL.Änderungsdatum = Now End If SDL.Sachbearbeiter = "ASFINAG" Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber")) If Validto <> "" Then SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 1, 2), Mid(Validto, 3, 2), 1))) End If SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID")) SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss")) SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie")) SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse")) SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status")) SDL.SAVE() End If End While End Using End Using con.Close() Return True Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) Return False End Try End Function Public Function fktConvert(KfzKennzeichen) As String fktConvert = "" Dim I As Integer If KfzKennzeichen Is Nothing OrElse KfzKennzeichen Is DBNull.Value Then Return Nothing End If For I = 1 To Len(KfzKennzeichen) Select Case Mid(KfzKennzeichen, I, 1) Case "A" To "Z" fktConvert = fktConvert & UCase(Mid(KfzKennzeichen, I, 1)) Case "0" To "9" fktConvert = fktConvert & Mid(KfzKennzeichen, I, 1) End Select Next I End Function Public Function fktKundenLkwVerwalten(ByRef KdNr As Integer, ByRef KfzKennzeichen As String, Nationalitaet As String) Dim SDL_LKW As New VERAG_PROG_ALLGEMEIN.cSDL_LKW(KdNr, KfzKennzeichen) If Not SDL_LKW.hasEntry Then SDL_LKW.Erfassungsdatum = Now Else SDL_LKW.Änderungsdatum = Now End If SDL_LKW.Sachbearbeiter = "ASFINAG" SDL_LKW.Nationalität = Nationalitaet Return SDL_LKW.SAVE End Function Public Function fktKundenSDLVerwalten(ByRef KdNr As Integer, ByRef SDLNr As Integer) As Boolean Dim KUNDEN_SDL As New VERAG_PROG_ALLGEMEIN.cKundenSDL(KdNr, SDLNr) If Not KUNDEN_SDL.hasEntry Then KUNDEN_SDL.Erfassungsdatum = Now Else KUNDEN_SDL.Änderungsdatum = Now End If KUNDEN_SDL.Sachbearbeiter = "ASFINAG" Return KUNDEN_SDL.SAVE End Function Private Sub LinkLabel29_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked Me.Visible = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmTRNCTS_NachrichtenVerarbeitung f.ShowDialog() Me.Visible = True End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False If cboBMDUnispedFirma._value = "" Then VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False) Else VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked) End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False) End Sub End Class