From 98378dd496088ff83f1acbfa09073bc8df0e2523 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 18 Nov 2021 14:59:04 +0100 Subject: [PATCH] neu --- ADMIN.sln | 8 +- DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb | 6 + .../DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb | 2 +- DAKOSY_Worker/cIMPORT_Codelisten.vb | 2 +- DAKOSY_Worker/cZOLL_IMPORT.vb | 1 + MailSender/MAILSender.vb | 45 +- MailSender/MailSender.vbproj | 2 +- TELOTEK_Worker_lib/cTC_Paramter.vb | 2 +- TELOTEK_Worker_lib/cTelokec.vb | 34 +- UID/ADMIN.vbproj | 8 + UID/Dienstplan/cFeiertage.vb | 2 +- UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 75 +- UID/Mitarbeiter/frmMitarbDetails.resx | 2 +- UID/Mitarbeiter/frmMitarbDetails.vb | 9 +- UID/My Project/AssemblyInfo.vb | 4 +- UID/My Project/Resources.Designer.vb | 4 +- UID/My Project/Resources.resx | 2 +- UID/cSqlDb.vb | 8 +- UID/usrctlProcedures.Designer.vb | 13 + UID/usrctlProcedures.resx | 6 - UID/usrctlProcedures.vb | 9 +- .../My Project/Resources.Designer.vb | 13 +- VERAGMonitoring/My Project/Resources.resx | 5 +- VERAGMonitoring/cSqlDb.vb | 49 +- VERAGMonitoring/frmEinzahlung.Designer.vb | 38 +- VERAGMonitoring/frmEinzahlung.vb | 6 +- VERAGMonitoring/frmMain.Designer.vb | 74 +- VERAGMonitoring/frmMain.vb | 333 ++++-- cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb | 10 +- .../AtlasAufschubDatenEinlesen.vb | 12 +- .../My Project/AssemblyInfo.vb | 6 +- initATLASAufschubkonten/RoutineManager.vbproj | 49 +- .../VERAG_Interface/cVERAG_out_ncts.vb | 4 +- initATLASAufschubkonten/cBuergschaften.vb | 2 +- initATLASAufschubkonten/cGetMsgType.vb | 12 +- initATLASAufschubkonten/cMAVIWorker.vb | 108 +- initATLASAufschubkonten/cOREGONWorker.vb | 884 ++++++++++++++++ .../frmDYNachrichtenVerarbeitung.vb | 20 +- .../frmMDMNachrichtenVerarbeitung.vb | 167 +-- .../frmRoutineManager.Designer.vb | 14 +- initATLASAufschubkonten/frmRoutineManager.vb | 17 +- .../frmStartOptions.Designer.vb | 723 ++++++++----- initATLASAufschubkonten/frmStartOptions.resx | 27 + initATLASAufschubkonten/frmStartOptions.vb | 533 ++++++++-- .../frmTCNachrichtenVerarbeitung.vb | 106 +- ..._NachrichtenVerarbeitung_MAVI.Designer.vb} | 0 ...mTRNCTS_NachrichtenVerarbeitung_MAVI.resx} | 0 .../frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb | 569 ++++++++++ ...NachrichtenVerarbeitung_OREGON.Designer.vb | 260 +++++ ...TRNCTS_NachrichtenVerarbeitung_OREGON.resx | 986 ++++++++++++++++++ ...mTRNCTS_NachrichtenVerarbeitung_OREGON.vb} | 139 ++- 51 files changed, 4647 insertions(+), 763 deletions(-) create mode 100644 initATLASAufschubkonten/cOREGONWorker.vb rename initATLASAufschubkonten/{frmTRNCTS_NachrichtenVerarbeitung.Designer.vb => frmTRNCTS_NachrichtenVerarbeitung_MAVI.Designer.vb} (100%) rename initATLASAufschubkonten/{frmTRNCTS_NachrichtenVerarbeitung.resx => frmTRNCTS_NachrichtenVerarbeitung_MAVI.resx} (100%) create mode 100644 initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb create mode 100644 initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb create mode 100644 initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx rename initATLASAufschubkonten/{frmTRNCTS_NachrichtenVerarbeitung.vb => frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb} (81%) diff --git a/ADMIN.sln b/ADMIN.sln index 20ac960..108cb47 100644 --- a/ADMIN.sln +++ b/ADMIN.sln @@ -45,8 +45,8 @@ Global GlobalSection(ProjectConfigurationPlatforms) = postSolution {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU - {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.ActiveCfg = Debug|Any CPU - {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.Build.0 = Debug|Any CPU + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.ActiveCfg = Debug|x64 + {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.Build.0 = Debug|x64 {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU {6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x64.ActiveCfg = Release|Any CPU @@ -69,8 +69,8 @@ Global {6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|x64.Build.0 = Release|x64 {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|Any CPU.Build.0 = Debug|Any CPU - {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|x64.ActiveCfg = Debug|Any CPU - {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|x64.Build.0 = Debug|Any CPU + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|x64.ActiveCfg = Debug|x64 + {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Debug|x64.Build.0 = Debug|x64 {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Release|Any CPU.ActiveCfg = Release|Any CPU {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Release|Any CPU.Build.0 = Release|Any CPU {BF2E4BDD-58D6-4ABF-B695-2B20835C0DE8}.Release|x64.ActiveCfg = Release|Any CPU diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index d849ddb..5d1b580 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1059,10 +1059,16 @@ Public Class cDakosyEZA SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId Catch ex As Exception + MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try + 'Falls DocId nicht gefunden wird.. warum auch immer.. + If SPEDITIONSBUCH.DokumentId_Steuerbeleg Is Nothing Then + SPEDITIONSBUCH.DokumentId_Steuerbeleg = SQL.getValueTxtBySql("SELECT [da_id] FROM tblDatenarchiv where da_kategorie='ZOLLDATEN' and [da_ordner]='STEUERBESCHEID' and da_name='" & SPEDITIONSBUCH.AtlasBezNrEZA.Replace("/", "-") & "' ", "FMZOLL",,, Nothing) + End If + SPEDITIONSBUCH.Versendungsland = DY.eza_VersendungsLandCode SPEDITIONSBUCH.Bestimmungsland = DY.eza_Bestimmungsland diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index ce83184..c4bf603 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -921,7 +921,7 @@ Public Class cDakosyNCTSOut SPEDITIONSBUCH.Abfertigungsart = 6 For Each s In DY.ncts_SICHERHEITSANGABEN Select Case If(s.nctsSA_GRN, "") - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157" : SPEDITIONSBUCH.Abfertigungsart = 34 + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34 Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33 Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37 End Select diff --git a/DAKOSY_Worker/cIMPORT_Codelisten.vb b/DAKOSY_Worker/cIMPORT_Codelisten.vb index e9f0beb..9345ea5 100644 --- a/DAKOSY_Worker/cIMPORT_Codelisten.vb +++ b/DAKOSY_Worker/cIMPORT_Codelisten.vb @@ -989,7 +989,7 @@ Public Class cDY_Paramter Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM, Optional FIRMA_DY = "") As String If FIRMA_DY = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "' AND dyParam_firma='" & FIRMA_DY & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "' AND dyParam_firma='" & FIRMA_DY & "'", "FMZOLL", , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) End Function End Class diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 33e8b8b..cdf72df 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -1180,6 +1180,7 @@ Public Class cZOLL_IMPORT + Private Sub AtlasNCTSDatenbereitstellung(NCTS_Nr) 'Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 24148c9..e464a9f 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -73,7 +73,7 @@ Module Mail ' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB" '------------------------------------------------------------------------------------ - + ' PARAM = "MDM_Zollbuero_Verguetung" 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True) @@ -144,7 +144,7 @@ Module Mail System.Console.WriteLine("OPTION erkannt: NCTSLIST_TOBB _ Erstellt eine Liste der Versandscheine mit TOBB Bürgschaft.") sendTOBB("VERAG/ATILLA", Now.AddDays(-1), Now.AddDays(-1)) - sendTOBB("IMEX", Now.AddDays(-1), Now.AddDays(-1)) + 'sendTOBB("IMEX", Now.AddDays(-1), Now.AddDays(-1)) sendTOBB("UNISPED", Now.AddDays(-1), Now.AddDays(-1)) Case "BRG_AUSWERTUNG_STANDARD" @@ -256,27 +256,30 @@ Module Mail End Sub Sub sendTOBB(FirmaTmp, datVon, datBis) - Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157'", datVon, datBis, True) + Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350 / 20TR0004000069756 / 21TR0004000090364", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350', '20TR0004000069756', '21TR0004000090364'", datVon, datBis, True) + Dim _list As New List(Of String) + Dim addbetreff = "" Select Case _erg Case "NO_RESULT" System.Console.WriteLine("Keine Einträge gefunden.") + addbetreff = " - NO DATA" Case "" Case Else - Dim _list As New List(Of String) : _list.Add(_erg) - - Dim bool_sent = False - Select Case FirmaTmp - Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list) - Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list) - Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr", "TOBB " & FirmaTmp, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) - End Select - - If bool_sent Then - System.Console.WriteLine("Vorgang erfolgreich abgeschlossen (" & FirmaTmp & ") ...") - Else - System.Console.WriteLine("Fehler beim Senden der Mail (" & FirmaTmp & ") ...") - End If + _list.Add(_erg) End Select + + Dim bool_sent = False + Select Case FirmaTmp + Case "VERAG/ATILLA" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "atilla@verag.ag", "al@verag.ag", _list) + Case "IMEX" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "info@imex-group.at;Mario.Hoefer@imex-group.at", "al@verag.ag", _list) + Case "UNISPED" : bool_sent = VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("eysan.sans@tobbund.com.tr;pinar.dogan@tobbund.com.tr;kerem.gozutok@tobbund.com.tr;amine.akan@tobbund.com.tr", "TOBB " & FirmaTmp & addbetreff, "*Automatic generated e-mail*",,,, "Katharina.Haas@unisped.at;Sabine.Muehlboeck@unisped.at;Ernst.Stolzlechner@unisped.at", "al@verag.ag", _list) + End Select + + If bool_sent Then + System.Console.WriteLine("Vorgang erfolgreich abgeschlossen (" & FirmaTmp & ") ...") + Else + System.Console.WriteLine("Fehler beim Senden der Mail (" & FirmaTmp & ") ...") + End If End Sub Function getOption() As String @@ -694,7 +697,8 @@ Module Mail Msg.From = New MailAddress("al@verag.ag") - Msg.To.Add("Viktoria.Leirich@imex-group.at") + ' Msg.To.Add("Viktoria.Leirich@imex-group.at") + Msg.To.Add("as@verag.ag") Msg.To.Add("sales@verag.ag") ' Msg.To.Add("jl@verag.ag") ' Msg.Bcc.Add("al@verag.ag") @@ -1218,7 +1222,8 @@ Module Mail sqlstr &= " SELECT count(*)" sqlstr &= " FROM tblEABelegnummer as EAB inner join tblEABelegposition as POS on EAB.Mandant=POS.Mandant and EAB.[Niederlassung]=POS.[Niederlassung] and EAB.[Benutzer]=POS.[Benutzer] and EAB.[BelegDat]=POS.[BelegDat] and EAB.[BelegNr]=POS.[BelegNr]" - sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='IMEX' " + sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='VERA' AND EAB.Niederlassung='SUA' " + ' sqlstr &= " where LeistungsNr=480 and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 and EAB.Mandant='IMEX' " Dim anzahl = 0 @@ -1230,7 +1235,7 @@ Module Mail - sqlstr = " SELECT COUNT(*) FROM [tblSDLAbholung] where sdlAb_Storniert=0 and sdlAb_FahrerAbholAuftrag=1 and sdlAb_Abholung between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " + sqlstr = " SELECT COUNT(*) FROM [tblSDLAbholung] where sdlAb_Storniert=0 and sdlAb_FahrerAbholAuftrag=1 and sdlAb_Abholung between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'AND sdlAb_Abholung>='01.09.2021 00:00:00' " anzahl = 0 Dim dt2 = loadDgvBySqlSDL(sqlstr) diff --git a/MailSender/MailSender.vbproj b/MailSender/MailSender.vbproj index 9887acc..54dfd97 100644 --- a/MailSender/MailSender.vbproj +++ b/MailSender/MailSender.vbproj @@ -16,7 +16,7 @@ - x86 + x64 true full true diff --git a/TELOTEK_Worker_lib/cTC_Paramter.vb b/TELOTEK_Worker_lib/cTC_Paramter.vb index 57d5a78..84b842e 100644 --- a/TELOTEK_Worker_lib/cTC_Paramter.vb +++ b/TELOTEK_Worker_lib/cTC_Paramter.vb @@ -3,6 +3,6 @@ Public Class cTC_Paramter Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String - Return SQL.getValueTxtBySql("SELECT TOP 1 [tcParam_value] FROM [tblTelotec_Paramter] WHERE [tcParam_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + Return SQL.getValueTxtBySql("SELECT TOP 1 [tcParam_value] FROM [tblTelotec_Paramter] WHERE [tcParam_name]='" & tcParam_name & "'", "FMZOLL", , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) End Function End Class diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index 085fd09..eb5a810 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -721,7 +721,6 @@ Public Class cTelotec_Anmeldung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False - Select Case art Case "EZA", "EUA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl) Case "NCTS" : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl) @@ -782,7 +781,7 @@ Public Class cTelotec_Anmeldung 'Empfänger - If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") Then + If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr @@ -817,6 +816,10 @@ Public Class cTelotec_Anmeldung ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross + 'Anhang + If If(DY.Refs_CRN, "") <> String.Empty Then + getStbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_Steuerbeleg, SPEDITIONSBUCH.DokumentId_Mitteilung) + End If 'Personal Abfertigung: Try @@ -864,6 +867,28 @@ Public Class cTelotec_Anmeldung End Sub + Shared Function getStbFromAnmId(LRN, ByRef StbId, ByRef MittId) As Boolean + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If StbId Is Nothing OrElse StbId.ToString = String.Empty Then StbId = SQL.getValueTxtBySql("SELECT telanm_Steuerbescheid_dsId FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) + If MittId Is Nothing OrElse MittId.ToString = String.Empty Then MittId = SQL.getValueTxtBySql("SELECT [telanm_Mitteilung_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) + + Return True + Catch : End Try + Return False + End Function + + + Shared Function getVdbFromAnmId(LRN, ByRef VdbId) As Boolean + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If VdbId Is Nothing OrElse VdbId.ToString = String.Empty Then VdbId = SQL.getValueTxtBySql("SELECT [telanm_VBD_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) + Return True + Catch : End Try + Return False + End Function + Public Shared Sub TELOTECDatenbereitstellung_NCTS(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -991,6 +1016,11 @@ Public Class cTelotec_Anmeldung If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp) + 'Anhang + If If(DY.Refs_CRN, "") <> String.Empty Then + getVdbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_VBD) + End If + Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index f00729c..c6c10f1 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -70,6 +70,14 @@ My Project\app.manifest + + x64 + bin\Debug\ + + + x64 + bin\x64\Release\ + diff --git a/UID/Dienstplan/cFeiertage.vb b/UID/Dienstplan/cFeiertage.vb index 3ad0384..c6f1984 100644 --- a/UID/Dienstplan/cFeiertage.vb +++ b/UID/Dienstplan/cFeiertage.vb @@ -201,7 +201,7 @@ If datum = CDate("01.05." & _Year) Then Return True 'Staatsfeiertag Case "DE" 'BAYERN If datum = CDate("03.10." & _Year) Then Return True ' Tag der Deutschen Einheit - If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND + ' If datum = BussUndBettag Then Return True ' Buß- und Bettag '!!!!ABEWEICHEND --> kein Feiertag in BAYERN If datum = CDate("08.08." & _Year) Then Return True ' Augsburger Friedensfest If datum = CDate("01.05." & _Year) Then Return True ' Maifeiertag If datum = Karfreitag Then Return True diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index ac2d396..327a5ca 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -128,6 +128,8 @@ Partial Class frmMitarbDetails Me.Label2 = New System.Windows.Forms.Label() Me.txtInfo = New System.Windows.Forms.RichTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label55 = New System.Windows.Forms.Label() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() @@ -169,8 +171,8 @@ Partial Class frmMitarbDetails Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() - Me.Label55 = New System.Windows.Forms.Label() - Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label56 = New System.Windows.Forms.Label() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -208,7 +210,7 @@ Partial Class frmMitarbDetails Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Location = New System.Drawing.Point(216, 19) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(82, 16) + Me.Label1.Size = New System.Drawing.Size(81, 16) Me.Label1.TabIndex = 18 Me.Label1.Text = "Mitarbeiter" ' @@ -630,6 +632,8 @@ Partial Class frmMitarbDetails ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.cboFaktGrp) + Me.GroupBox2.Controls.Add(Me.Label56) Me.GroupBox2.Controls.Add(Me.cboALIASDomain2) Me.GroupBox2.Controls.Add(Me.txtALIASUser2) Me.GroupBox2.Controls.Add(Me.Label54) @@ -1408,6 +1412,30 @@ Partial Class frmMitarbDetails Me.TabPage3.Text = "Programme" Me.TabPage3.UseVisualStyleBackColor = True ' + 'cboProgSprache + ' + Me.cboProgSprache._allowedValuesFreiText = Nothing + Me.cboProgSprache._allowFreiText = False + Me.cboProgSprache._value = "" + Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboProgSprache.FormattingEnabled = True + Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) + Me.cboProgSprache.Name = "cboProgSprache" + Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) + Me.cboProgSprache.TabIndex = 120 + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label55.Location = New System.Drawing.Point(13, 510) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(50, 13) + Me.Label55.TabIndex = 119 + Me.Label55.Text = "Sprache:" + Me.Label55.Visible = False + ' 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1838,29 +1866,28 @@ Partial Class frmMitarbDetails Me.Label7.TabIndex = 78 Me.Label7.Text = "Berechtigung:" ' - 'Label55 + 'cboFaktGrp ' - Me.Label55.AutoSize = True - Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label55.Location = New System.Drawing.Point(13, 510) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(50, 13) - Me.Label55.TabIndex = 119 - Me.Label55.Text = "Sprache:" - Me.Label55.Visible = False + Me.cboFaktGrp._allowedValuesFreiText = Nothing + Me.cboFaktGrp._allowFreiText = False + Me.cboFaktGrp._value = "" + Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFaktGrp.FormattingEnabled = True + Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboFaktGrp.Location = New System.Drawing.Point(215, 155) + Me.cboFaktGrp.Name = "cboFaktGrp" + Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21) + Me.cboFaktGrp.TabIndex = 107 ' - 'cboProgSprache + 'Label56 ' - Me.cboProgSprache._allowedValuesFreiText = Nothing - Me.cboProgSprache._allowFreiText = False - Me.cboProgSprache._value = "" - Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboProgSprache.FormattingEnabled = True - Me.cboProgSprache.Location = New System.Drawing.Point(16, 526) - Me.cboProgSprache.Name = "cboProgSprache" - Me.cboProgSprache.Size = New System.Drawing.Size(178, 21) - Me.cboProgSprache.TabIndex = 120 + Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label56.Location = New System.Drawing.Point(212, 139) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(128, 13) + Me.Label56.TabIndex = 108 + Me.Label56.Text = "Fakturierungs-Gruppe:" ' 'frmMitarbDetails ' @@ -2052,4 +2079,6 @@ Partial Class frmMitarbDetails Friend WithEvents txtALIASUser2 As TextBox Friend WithEvents cboProgSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label55 As Label + Friend WithEvents cboFaktGrp As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label56 As Label End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.resx b/UID/Mitarbeiter/frmMitarbDetails.resx index cd65d4f..b9b6fbc 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.resx +++ b/UID/Mitarbeiter/frmMitarbDetails.resx @@ -121,7 +121,7 @@ iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC + wgAADsIBFShKgAAAAhBJREFUWEftlbFKA1EQRQP5FyG1fyBp/ANT2KYxWNkm+AExtYipLASDlYVpRBSC RRoDQbBYEItAFLQwksJi9Qy5j8ljG5vdZgdmd959M3fuzEaspAVbKaAUUApYE/CzWJjH9h/cn+M46y4I eBuN0ptq1XzcaKzQ1GLhD/V6OhsODectnFoI72u1UM85jpWrWvAgYNrphCSIMBXS+LnXMxwHT/r9kP86 GKyd4dJAPtaZXA1pApbzuV1Crolp8pUkFj+2WpaMCM4QkocwzhKnM4LwOOZePRCCmQCp50ICPieTsCru diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index a5b6205..2dc69b5 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -116,6 +116,11 @@ cboFirmaHaupt.Items.Add("VERIMEX") + cboFaktGrp.Items.Clear() + cboFaktGrp.fillWithSQL("SELECT [Code],[Bezeichnung] FROM tblFakturierungsgruppe", False, "ADMIN", False) + cboFaktGrp.changeItem("") + + ZOLLDATENBEARB = False txtPwd.Visible = False @@ -234,6 +239,7 @@ txtPlz.Text = mitarbeiter.mit_plz txtOrt.Text = mitarbeiter.mit_ort cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung) + cboFaktGrp.changeItem(mitarbeiter.mit_fakturierungsgruppe) cboAbteilung.changeItem(mitarbeiter.mit_abteilung) cboPosition.Text = mitarbeiter.mit_position txtDurchwahl.Text = mitarbeiter.mit_durchwahl @@ -499,6 +505,7 @@ mitarbeiter.mit_plz = txtPlz.Text mitarbeiter.mit_ort = txtOrt.Text mitarbeiter.mit_niederlassung = cboNiederlassung._value + mitarbeiter.mit_fakturierungsgruppe = cboFaktGrp._value mitarbeiter.mit_abteilung = cboAbteilung._value mitarbeiter.mit_position = cboPosition.Text mitarbeiter.mit_durchwahl = txtDurchwahl.Text @@ -786,7 +793,7 @@ End Try Try - cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID] FROM [zzPersonal] ORDER BY UserID ", False, "EZOLL", True) + cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID] FROM [zzPersonal] where lizenznr='S01122' ORDER BY UserID ", False, "EZOLL", True) Catch ex As Exception MsgBox("EZOLL Problem") tbcntr.SelectedIndex = 0 diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 3311ae4..080c9b1 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb index 6313155..89a012c 100644 --- a/UID/My Project/Resources.Designer.vb +++ b/UID/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -646,7 +646,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 2.0.2 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 2.0.4 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx index 699e7d1..57a442f 100644 --- a/UID/My Project/Resources.resx +++ b/UID/My Project/Resources.resx @@ -188,7 +188,7 @@ Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; - 2.0.2 + 2.0.4 ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index dd99aa3..3619f3e 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1546,8 +1546,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache ) VALUES " & - "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache )" + "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_AliasAD_Domain2,mit_AliasAD_Username2,mit_teamId,mit_ChatBenutzer,mit_FirmaHaupt,mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname,mit_foto_DocId,mit_MAVerzeichnis_Motto,mit_sprache,mit_fakturierungsgruppe ) VALUES " & + "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_AliasAD_Domain2,@mit_AliasAD_Username2,@mit_teamId,@mit_ChatBenutzer,@mit_FirmaHaupt,@mit_ChatEasteregg,@mit_MAVerzeichnis_SettingsTstmp,@mit_MAVerzeichnis_allowGebDat,@mit_MAVerzeichnis_allowWohnadresse,@mit_MAVerzeichnis_allowGebDatOhneJahr,@mit_MAVerzeichnis_Spitzname,@mit_foto_DocId,@mit_MAVerzeichnis_Motto ,@mit_sprache,@mit_fakturierungsgruppe )" @@ -1615,6 +1615,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_foto_DocId", If(m.mit_foto_DocId, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_MAVerzeichnis_Motto", If(m.mit_MAVerzeichnis_Motto, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_sprache", m.mit_sprache) + cmd.Parameters.AddWithValue("@mit_fakturierungsgruppe", m.mit_fakturierungsgruppe) Try @@ -1634,7 +1635,7 @@ Public Class cMitarbeiter Dim sql = "UPDATE tblMitarbeiter " & "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_AliasAD_Domain2=@mit_AliasAD_Domain2,mit_AliasAD_Username2=@mit_AliasAD_Username2,mit_teamId=@mit_teamId,mit_ChatBenutzer=@mit_ChatBenutzer,mit_FirmaHaupt=@mit_FirmaHaupt " & - " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache " & + " ,mit_ChatEasteregg=@mit_ChatEasteregg,mit_MAVerzeichnis_SettingsTstmp=@mit_MAVerzeichnis_SettingsTstmp,mit_MAVerzeichnis_allowGebDat=@mit_MAVerzeichnis_allowGebDat,mit_MAVerzeichnis_allowWohnadresse=@mit_MAVerzeichnis_allowWohnadresse,mit_MAVerzeichnis_allowGebDatOhneJahr=@mit_MAVerzeichnis_allowGebDatOhneJahr,mit_MAVerzeichnis_Spitzname=@mit_MAVerzeichnis_Spitzname,mit_foto_DocId=@mit_foto_DocId,mit_MAVerzeichnis_Motto=@mit_MAVerzeichnis_Motto,mit_sprache=@mit_sprache,mit_fakturierungsgruppe=@mit_fakturierungsgruppe " & " WHERE mit_id=@mit_id " @@ -1704,6 +1705,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_foto_DocId", If(m.mit_foto_DocId, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_MAVerzeichnis_Motto", If(m.mit_MAVerzeichnis_Motto, DBNull.Value)) cmd.Parameters.AddWithValue("@mit_sprache", m.mit_sprache) + cmd.Parameters.AddWithValue("@mit_fakturierungsgruppe", m.mit_fakturierungsgruppe) diff --git a/UID/usrctlProcedures.Designer.vb b/UID/usrctlProcedures.Designer.vb index 2a5ec2d..a102c1e 100644 --- a/UID/usrctlProcedures.Designer.vb +++ b/UID/usrctlProcedures.Designer.vb @@ -107,6 +107,7 @@ Partial Class usrctlProcedures Me.Label15 = New System.Windows.Forms.Label() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button29 = New System.Windows.Forms.Button() + Me.Button28 = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -445,6 +446,7 @@ Partial Class usrctlProcedures ' 'ListView1 ' + Me.ListView1.HideSelection = False Me.ListView1.Location = New System.Drawing.Point(38, 138) Me.ListView1.Name = "ListView1" Me.ListView1.Size = New System.Drawing.Size(174, 228) @@ -902,10 +904,20 @@ Partial Class usrctlProcedures Me.Button29.Text = "AMBAR EXCEL Importieren" Me.Button29.UseVisualStyleBackColor = True ' + 'Button28 + ' + Me.Button28.Location = New System.Drawing.Point(598, 258) + Me.Button28.Name = "Button28" + Me.Button28.Size = New System.Drawing.Size(145, 49) + Me.Button28.TabIndex = 59 + Me.Button28.Text = "SYSKA OP" + Me.Button28.UseVisualStyleBackColor = True + ' 'usrctlProcedures ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Button28) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.CheckBox5) Me.Controls.Add(Me.Button29) @@ -1051,4 +1063,5 @@ Partial Class usrctlProcedures Friend WithEvents Label15 As Label Friend WithEvents CheckBox5 As CheckBox Friend WithEvents Button29 As Button + Friend WithEvents Button28 As Button End Class diff --git a/UID/usrctlProcedures.resx b/UID/usrctlProcedures.resx index c9977e7..508fc32 100644 --- a/UID/usrctlProcedures.resx +++ b/UID/usrctlProcedures.resx @@ -123,10 +123,4 @@ True - - True - - - True - \ No newline at end of file diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index ba36fd1..550263b 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -2801,7 +2801,8 @@ Public Class usrctlProcedures - Dim kdnr As Integer = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(2400000, 2499999) '+ 1 + Dim kdnr As Integer = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr( + 0, 2499999) '+ 1 Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(kdnr) If True Then 'Not KD.hasEntry Then @@ -3248,6 +3249,12 @@ Public Class usrctlProcedures KD_BESONSERHEITEN.SAVE() End Sub + Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(717858) + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + End Sub + 'Private Sub Button26_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 fi As New FileInfo(d) diff --git a/VERAGMonitoring/My Project/Resources.Designer.vb b/VERAGMonitoring/My Project/Resources.Designer.vb index 4f705eb..1ee9547 100644 --- a/VERAGMonitoring/My Project/Resources.Designer.vb +++ b/VERAGMonitoring/My Project/Resources.Designer.vb @@ -22,7 +22,7 @@ Namespace My.Resources ''' ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ @@ -60,15 +60,6 @@ Namespace My.Resources End Set End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property dfsdfe333() As String - Get - Return ResourceManager.GetString("dfsdfe333", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -80,7 +71,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.3.8 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.3.9 ähnelt. ''' Friend ReadOnly Property version() As String Get diff --git a/VERAGMonitoring/My Project/Resources.resx b/VERAGMonitoring/My Project/Resources.resx index 62d5285..b7b5d49 100644 --- a/VERAGMonitoring/My Project/Resources.resx +++ b/VERAGMonitoring/My Project/Resources.resx @@ -118,13 +118,10 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 1.3.8 + 1.3.9 ..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - \ No newline at end of file diff --git a/VERAGMonitoring/cSqlDb.vb b/VERAGMonitoring/cSqlDb.vb index f70c13a..1d93809 100644 --- a/VERAGMonitoring/cSqlDb.vb +++ b/VERAGMonitoring/cSqlDb.vb @@ -414,8 +414,11 @@ Public Class cBrgDb If dr.Item("brgusr_allowBelaustungAufheben") = True Then frmMain.brgusr_allowBelaustungAufheben = True End If + If dr.Item("brgusr_AdminUser") = True Then + frmMain.brgusr_AdminUser = True + End If - frmMain.firma = dr.Item("brgusr_firma").ToString + frmMain.firma = dr.Item("brgusr_firma").ToString 'FIRMA GESETZT! Return True End If @@ -429,17 +432,18 @@ Public Class cBrgDb - Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean + Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_faelligkeitsdatum) As Boolean Try Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN() Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " & - " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" & - " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung') ", conn) + " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art,brgak_faelligkeitsdatum) VALUES" & + " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung',@brgak_faelligkeitsdatum) ", conn) cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum) cmd.Parameters.AddWithValue("@brgak_betrag", brgak_betrag) cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId) cmd.Parameters.AddWithValue("@brgak_filename", brgak_filename) cmd.Parameters.AddWithValue("@brgak_atc", brgak_atc) + cmd.Parameters.AddWithValue("@brgak_faelligkeitsdatum", brgak_faelligkeitsdatum) Try cmd.ExecuteNonQuery() @@ -535,8 +539,8 @@ Public Class cBrgDb Public Function getBrgSumFromFMZOLL_Zabis(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String - Dim tmp_sub As String = getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where) - Dim tmp_sbg As String = getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where) + Dim tmp_sub As String = 0 'getBrgSumFromFMZOLL_Zabis_SUBEN(datumVon, datumBis, statusVon, statusBis, buergschaft, where) + Dim tmp_sbg As String = 0 ' getBrgSumFromFMZOLL_Zabis_SALZBURG(datumVon, datumBis, statusVon, statusBis, buergschaft, where) Dim tmp_DY As String = getBrgSumFrom_DAKOSY(datumVon, datumBis, statusVon, statusBis, buergschaft, where) 'Dim tmp_nctsTR As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where) Return CDbl(tmp_sub) + CDbl(tmp_sbg) + CDbl(tmp_DY) ' + CDbl(tmp_nctsTR) @@ -768,6 +772,39 @@ Public Class cBrgDb Return Nothing End Function + Public Function getBrgFromBrgKto(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal brgKto As String, Optional where As String = "", Optional EinzahlungsbetraegeMitrechnen As Boolean = True, Optional faelligkeitsTAG As String = "", Optional faelligkeit As Object = Nothing) As DataTable + Dim einzahlung = "" + If Not EinzahlungsbetraegeMitrechnen Then + einzahlung = " AND [brgak_art] NOT IN ('einzahlung') " + End If + + Dim sql As String = "" + If faelligkeit Is Nothing Then + + Dim faelligkeitWhere As String = "" + + If faelligkeitsTAG <> "" Then + If faelligkeitsTAG = "16" Then + faelligkeitWhere = " And (DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " Or [brgak_faelligkeitsdatum] Is null) " + Else + faelligkeitWhere = " And DATEPART(day,[brgak_faelligkeitsdatum] )=" & faelligkeitsTAG & " " + End If + End If + + sql = "SELECT * " & + " FROM tblBrgAufschub WHERE ( brgak_datum BETWEEN '" & datumVon & " 00:00:00' AND '" & datumBis & " 23:59:59') AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung & faelligkeitWhere + + Else + sql = "SELECT * " & + " FROM tblBrgAufschub WHERE brgak_faelligkeitsdatum='" & CDate(faelligkeit).ToShortDateString & "' AND brgak_brgaktoId = '" & brgKto & "' " & where & einzahlung + End If + + Dim ADMINSQL As New VERAG_PROG_ALLGEMEIN.SQL + Return ADMINSQL.loadDgvBySql(sql, "ADMIN") + + End Function + + Public Function getBrgSumFromZolaris(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal kto As String, ByVal aufgehobenAbziehen As Boolean, Optional where As String = "") As String Try Dim sql As String = diff --git a/VERAGMonitoring/frmEinzahlung.Designer.vb b/VERAGMonitoring/frmEinzahlung.Designer.vb index 0c0087f..f4b2b2d 100644 --- a/VERAGMonitoring/frmEinzahlung.Designer.vb +++ b/VERAGMonitoring/frmEinzahlung.Designer.vb @@ -34,6 +34,8 @@ Partial Class frmEinzahlung Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.lblSaved = New System.Windows.Forms.Label() + Me.txtFealligkeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label5 = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() CType(Me.dgvEinzahlungen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -114,7 +116,7 @@ Partial Class frmEinzahlung ' Me.cbotxtBetrag.Location = New System.Drawing.Point(19, 154) Me.cbotxtBetrag.Name = "cbotxtBetrag" - Me.cbotxtBetrag.Size = New System.Drawing.Size(285, 20) + Me.cbotxtBetrag.Size = New System.Drawing.Size(179, 20) Me.cbotxtBetrag.TabIndex = 13 ' 'Label3 @@ -146,11 +148,43 @@ Partial Class frmEinzahlung Me.lblSaved.Text = "gespeichert..." Me.lblSaved.Visible = False ' + 'txtFealligkeit + ' + Me.txtFealligkeit._DateTimeOnly = False + Me.txtFealligkeit._numbersOnly = False + Me.txtFealligkeit._numbersOnlyKommastellen = "" + Me.txtFealligkeit._Prozent = False + Me.txtFealligkeit._ShortDateNew = True + Me.txtFealligkeit._ShortDateOnly = False + Me.txtFealligkeit._TimeOnly = False + Me.txtFealligkeit._value = "" + Me.txtFealligkeit._Waehrung = False + Me.txtFealligkeit._WaehrungZeichen = True + Me.txtFealligkeit.ForeColor = System.Drawing.Color.Black + Me.txtFealligkeit.Location = New System.Drawing.Point(204, 154) + Me.txtFealligkeit.MaxLineLength = -1 + Me.txtFealligkeit.MaxLines_Warning = "" + Me.txtFealligkeit.MaxLines_Warning_Label = Nothing + Me.txtFealligkeit.Name = "txtFealligkeit" + Me.txtFealligkeit.Size = New System.Drawing.Size(100, 20) + Me.txtFealligkeit.TabIndex = 16 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(201, 138) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(34, 9) + Me.Label5.TabIndex = 17 + Me.Label5.Text = "Fälligkeit:" + ' 'frmEinzahlung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(909, 264) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtFealligkeit) Me.Controls.Add(Me.lblSaved) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) @@ -181,4 +215,6 @@ Partial Class frmEinzahlung Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents lblSaved As System.Windows.Forms.Label Friend WithEvents btnClose As System.Windows.Forms.Button + Friend WithEvents txtFealligkeit As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As Label End Class diff --git a/VERAGMonitoring/frmEinzahlung.vb b/VERAGMonitoring/frmEinzahlung.vb index 28defb7..fbed009 100644 --- a/VERAGMonitoring/frmEinzahlung.vb +++ b/VERAGMonitoring/frmEinzahlung.vb @@ -17,13 +17,15 @@ dgvEinzahlungen.Columns(0).Visible = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click - If isDouble(cbotxtBetrag.Text) Then + If isDouble(cbotxtBetrag.Text) And IsDate(txtFealligkeit._value) Then Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem) - If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "") Then + If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "", CDate(txtFealligkeit._value)) Then cbotxtBetrag.Text = "" lblSaved.Visible = True initDgv() End If + Else + MsgBox("Bitte alle Felder angeben!") End If End Sub diff --git a/VERAGMonitoring/frmMain.Designer.vb b/VERAGMonitoring/frmMain.Designer.vb index 9002689..e0d3b65 100644 --- a/VERAGMonitoring/frmMain.Designer.vb +++ b/VERAGMonitoring/frmMain.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmMain Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.Panel2 = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() Me.lblAufschubBrgEUST_de_UNISPEDDE_oE = New System.Windows.Forms.Label() Me.cbxAufschubEUST_de_UnispedDE = New System.Windows.Forms.CheckBox() Me.lblAufschubEUST_de_UNISPEDDE = New System.Windows.Forms.Label() @@ -164,6 +165,7 @@ Partial Class frmMain 'Panel2 ' Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.Button3) Me.Panel2.Controls.Add(Me.lblAufschubBrgEUST_de_UNISPEDDE_oE) Me.Panel2.Controls.Add(Me.cbxAufschubEUST_de_UnispedDE) Me.Panel2.Controls.Add(Me.lblAufschubEUST_de_UNISPEDDE) @@ -285,6 +287,23 @@ Partial Class frmMain Me.Panel2.Size = New System.Drawing.Size(671, 608) Me.Panel2.TabIndex = 8 ' + 'Button3 + ' + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button3.BackColor = System.Drawing.Color.Gray + Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.White + Me.Button3.FlatAppearance.BorderSize = 0 + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button3.ForeColor = System.Drawing.Color.White + Me.Button3.Location = New System.Drawing.Point(501, 574) + Me.Button3.Name = "Button3" + Me.Button3.RightToLeft = System.Windows.Forms.RightToLeft.Yes + Me.Button3.Size = New System.Drawing.Size(45, 24) + Me.Button3.TabIndex = 86 + Me.Button3.Text = "< >" + Me.Button3.UseVisualStyleBackColor = False + ' 'lblAufschubBrgEUST_de_UNISPEDDE_oE ' Me.lblAufschubBrgEUST_de_UNISPEDDE_oE.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -300,8 +319,7 @@ Partial Class frmMain 'cbxAufschubEUST_de_UnispedDE ' Me.cbxAufschubEUST_de_UnispedDE.AutoSize = True - Me.cbxAufschubEUST_de_UnispedDE.Checked = True - Me.cbxAufschubEUST_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_UnispedDE.Enabled = False Me.cbxAufschubEUST_de_UnispedDE.Location = New System.Drawing.Point(9, 437) Me.cbxAufschubEUST_de_UnispedDE.Name = "cbxAufschubEUST_de_UnispedDE" Me.cbxAufschubEUST_de_UnispedDE.Size = New System.Drawing.Size(15, 14) @@ -360,8 +378,7 @@ Partial Class frmMain 'cbxAufschub_de_UnispedDE ' Me.cbxAufschub_de_UnispedDE.AutoSize = True - Me.cbxAufschub_de_UnispedDE.Checked = True - Me.cbxAufschub_de_UnispedDE.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_UnispedDE.Enabled = False Me.cbxAufschub_de_UnispedDE.Location = New System.Drawing.Point(9, 419) Me.cbxAufschub_de_UnispedDE.Name = "cbxAufschub_de_UnispedDE" Me.cbxAufschub_de_UnispedDE.Size = New System.Drawing.Size(15, 14) @@ -420,8 +437,7 @@ Partial Class frmMain 'cbxAufschubEUST_de_Global ' Me.cbxAufschubEUST_de_Global.AutoSize = True - Me.cbxAufschubEUST_de_Global.Checked = True - Me.cbxAufschubEUST_de_Global.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Global.Enabled = False Me.cbxAufschubEUST_de_Global.Location = New System.Drawing.Point(9, 351) Me.cbxAufschubEUST_de_Global.Name = "cbxAufschubEUST_de_Global" Me.cbxAufschubEUST_de_Global.Size = New System.Drawing.Size(15, 14) @@ -468,8 +484,7 @@ Partial Class frmMain 'cbxAufschub_at_IMEX ' Me.cbxAufschub_at_IMEX.AutoSize = True - Me.cbxAufschub_at_IMEX.Checked = True - Me.cbxAufschub_at_IMEX.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_at_IMEX.Enabled = False Me.cbxAufschub_at_IMEX.Location = New System.Drawing.Point(9, 546) Me.cbxAufschub_at_IMEX.Name = "cbxAufschub_at_IMEX" Me.cbxAufschub_at_IMEX.Size = New System.Drawing.Size(15, 14) @@ -516,8 +531,7 @@ Partial Class frmMain 'cbxBrg_at_UNISPED ' Me.cbxBrg_at_UNISPED.AutoSize = True - Me.cbxBrg_at_UNISPED.Checked = True - Me.cbxBrg_at_UNISPED.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_at_UNISPED.Enabled = False Me.cbxBrg_at_UNISPED.Location = New System.Drawing.Point(9, 210) Me.cbxBrg_at_UNISPED.Name = "cbxBrg_at_UNISPED" Me.cbxBrg_at_UNISPED.Size = New System.Drawing.Size(15, 14) @@ -603,8 +617,7 @@ Partial Class frmMain 'cbxAufschubEUST_de_Unisped ' Me.cbxAufschubEUST_de_Unisped.AutoSize = True - Me.cbxAufschubEUST_de_Unisped.Checked = True - Me.cbxAufschubEUST_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Unisped.Enabled = False Me.cbxAufschubEUST_de_Unisped.Location = New System.Drawing.Point(9, 399) Me.cbxAufschubEUST_de_Unisped.Name = "cbxAufschubEUST_de_Unisped" Me.cbxAufschubEUST_de_Unisped.Size = New System.Drawing.Size(15, 14) @@ -663,8 +676,7 @@ Partial Class frmMain 'cbxAufschub_de_Unisped ' Me.cbxAufschub_de_Unisped.AutoSize = True - Me.cbxAufschub_de_Unisped.Checked = True - Me.cbxAufschub_de_Unisped.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_Unisped.Enabled = False Me.cbxAufschub_de_Unisped.Location = New System.Drawing.Point(9, 381) Me.cbxAufschub_de_Unisped.Name = "cbxAufschub_de_Unisped" Me.cbxAufschub_de_Unisped.Size = New System.Drawing.Size(15, 14) @@ -723,8 +735,7 @@ Partial Class frmMain 'cbxAufschubEUST_de_VeragAG ' Me.cbxAufschubEUST_de_VeragAG.AutoSize = True - Me.cbxAufschubEUST_de_VeragAG.Checked = True - Me.cbxAufschubEUST_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_VeragAG.Enabled = False Me.cbxAufschubEUST_de_VeragAG.Location = New System.Drawing.Point(9, 287) Me.cbxAufschubEUST_de_VeragAG.Name = "cbxAufschubEUST_de_VeragAG" Me.cbxAufschubEUST_de_VeragAG.Size = New System.Drawing.Size(15, 14) @@ -783,8 +794,7 @@ Partial Class frmMain 'cbxAufschubEUST_de_Imex ' Me.cbxAufschubEUST_de_Imex.AutoSize = True - Me.cbxAufschubEUST_de_Imex.Checked = True - Me.cbxAufschubEUST_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschubEUST_de_Imex.Enabled = False Me.cbxAufschubEUST_de_Imex.Location = New System.Drawing.Point(9, 332) Me.cbxAufschubEUST_de_Imex.Name = "cbxAufschubEUST_de_Imex" Me.cbxAufschubEUST_de_Imex.Size = New System.Drawing.Size(15, 14) @@ -831,8 +841,7 @@ Partial Class frmMain 'cbxBrg_at_Atilla ' Me.cbxBrg_at_Atilla.AutoSize = True - Me.cbxBrg_at_Atilla.Checked = True - Me.cbxBrg_at_Atilla.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_at_Atilla.Enabled = False Me.cbxBrg_at_Atilla.Location = New System.Drawing.Point(9, 188) Me.cbxBrg_at_Atilla.Name = "cbxBrg_at_Atilla" Me.cbxBrg_at_Atilla.Size = New System.Drawing.Size(15, 14) @@ -906,8 +915,7 @@ Partial Class frmMain 'cbxBrg_at_Imex ' Me.cbxBrg_at_Imex.AutoSize = True - Me.cbxBrg_at_Imex.Checked = True - Me.cbxBrg_at_Imex.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_at_Imex.Enabled = False Me.cbxBrg_at_Imex.Location = New System.Drawing.Point(9, 165) Me.cbxBrg_at_Imex.Name = "cbxBrg_at_Imex" Me.cbxBrg_at_Imex.Size = New System.Drawing.Size(15, 14) @@ -1055,8 +1063,7 @@ Partial Class frmMain 'cbxAufschub_de_Imex ' Me.cbxAufschub_de_Imex.AutoSize = True - Me.cbxAufschub_de_Imex.Checked = True - Me.cbxAufschub_de_Imex.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_Imex.Enabled = False Me.cbxAufschub_de_Imex.Location = New System.Drawing.Point(9, 314) Me.cbxAufschub_de_Imex.Name = "cbxAufschub_de_Imex" Me.cbxAufschub_de_Imex.Size = New System.Drawing.Size(15, 14) @@ -1116,8 +1123,7 @@ Partial Class frmMain 'cbxBrg_de2_VeragAG ' Me.cbxBrg_de2_VeragAG.AutoSize = True - Me.cbxBrg_de2_VeragAG.Checked = True - Me.cbxBrg_de2_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_de2_VeragAG.Enabled = False Me.cbxBrg_de2_VeragAG.Location = New System.Drawing.Point(9, 122) Me.cbxBrg_de2_VeragAG.Name = "cbxBrg_de2_VeragAG" Me.cbxBrg_de2_VeragAG.Size = New System.Drawing.Size(15, 14) @@ -1224,8 +1230,7 @@ Partial Class frmMain 'cbxAufschub_at_VeragZS ' Me.cbxAufschub_at_VeragZS.AutoSize = True - Me.cbxAufschub_at_VeragZS.Checked = True - Me.cbxAufschub_at_VeragZS.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_at_VeragZS.Enabled = False Me.cbxAufschub_at_VeragZS.Location = New System.Drawing.Point(9, 526) Me.cbxAufschub_at_VeragZS.Name = "cbxAufschub_at_VeragZS" Me.cbxAufschub_at_VeragZS.Size = New System.Drawing.Size(15, 14) @@ -1338,8 +1343,7 @@ Partial Class frmMain 'cbxAufschub_at_VeragCS ' Me.cbxAufschub_at_VeragCS.AutoSize = True - Me.cbxAufschub_at_VeragCS.Checked = True - Me.cbxAufschub_at_VeragCS.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_at_VeragCS.Enabled = False Me.cbxAufschub_at_VeragCS.Location = New System.Drawing.Point(9, 506) Me.cbxAufschub_at_VeragCS.Name = "cbxAufschub_at_VeragCS" Me.cbxAufschub_at_VeragCS.Size = New System.Drawing.Size(15, 14) @@ -1359,8 +1363,7 @@ Partial Class frmMain 'cbxAufschub_at_VeragAG ' Me.cbxAufschub_at_VeragAG.AutoSize = True - Me.cbxAufschub_at_VeragAG.Checked = True - Me.cbxAufschub_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_at_VeragAG.Enabled = False Me.cbxAufschub_at_VeragAG.Location = New System.Drawing.Point(9, 486) Me.cbxAufschub_at_VeragAG.Name = "cbxAufschub_at_VeragAG" Me.cbxAufschub_at_VeragAG.Size = New System.Drawing.Size(15, 14) @@ -1370,8 +1373,7 @@ Partial Class frmMain 'cbxAufschub_de_VeragAG ' Me.cbxAufschub_de_VeragAG.AutoSize = True - Me.cbxAufschub_de_VeragAG.Checked = True - Me.cbxAufschub_de_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAufschub_de_VeragAG.Enabled = False Me.cbxAufschub_de_VeragAG.Location = New System.Drawing.Point(9, 269) Me.cbxAufschub_de_VeragAG.Name = "cbxAufschub_de_VeragAG" Me.cbxAufschub_de_VeragAG.Size = New System.Drawing.Size(15, 14) @@ -1392,8 +1394,7 @@ Partial Class frmMain 'cbxBrg_at_VeragAG ' Me.cbxBrg_at_VeragAG.AutoSize = True - Me.cbxBrg_at_VeragAG.Checked = True - Me.cbxBrg_at_VeragAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxBrg_at_VeragAG.Enabled = False Me.cbxBrg_at_VeragAG.Location = New System.Drawing.Point(9, 143) Me.cbxBrg_at_VeragAG.Name = "cbxBrg_at_VeragAG" Me.cbxBrg_at_VeragAG.Size = New System.Drawing.Size(15, 14) @@ -1954,4 +1955,5 @@ Partial Class frmMain Friend WithEvents lblAufschub_de_UNISPEDDE As Label Friend WithEvents lblAufschubBrg_de_UNISPEDDE As Label Friend WithEvents lblAufschubStatus_de_UNISPEDDE As Label + Friend WithEvents Button3 As Button End Class diff --git a/VERAGMonitoring/frmMain.vb b/VERAGMonitoring/frmMain.vb index a77084f..5fd9199 100644 --- a/VERAGMonitoring/frmMain.vb +++ b/VERAGMonitoring/frmMain.vb @@ -3,6 +3,7 @@ Imports VERAGMonitoring.cUserSettings Public Class frmMain Public allowEinzahlung As Boolean = False + Public brgusr_AdminUser = False Public brgusr_allowBelaustungAufheben As Boolean = False Public firma As String = "VERAG" Dim cClient As New cClient @@ -12,6 +13,7 @@ Public Class frmMain Dim ico As NotifyIcon Dim threads As New List(Of Object) Dim loaded = False + Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing Try : ico.Visible = Not Visible : Catch : End Try End Sub @@ -36,6 +38,11 @@ Public Class frmMain AddHandler ico.BalloonTipClicked, AddressOf showMe If Not (BRG.checkUser(System.Environment.MachineName, Environment.UserName) Or BRG.checkUser("SERVER", Environment.UserName)) Then MsgBox("Sie sind für das Monitoring-Programm nicht freigeschaltet!") : Application.Exit() + + + ' Me.firma = "VERIMEX" + + ' If allowEinzahlung Then btnEinzahlung.Visible = True If allowEinzahlung Then btnZusBel.Visible = True If brgusr_allowBelaustungAufheben Then btnBelastungAufheben.Visible = True @@ -65,84 +72,179 @@ Public Class frmMain ' initAufschub() ' initWarnstufen() - Select Case Me.firma - Case "ATILLA" - cbxAufschub_de_VeragAG.Checked = False - cbxAufschub_at_VeragAG.Checked = False - cbxAufschub_at_VeragCS.Checked = False - cbxAufschub_at_VeragZS.Checked = False - cbxAufschub_de_VeragAG.Enabled = False - cbxAufschub_at_VeragAG.Enabled = False - cbxAufschub_at_VeragCS.Enabled = False - cbxAufschub_at_VeragZS.Enabled = False + allowCBX(cbxAufschub_at_VeragZS, False) + allowCBX(cbxAufschub_at_VeragCS, False) + allowCBX(cbxAufschub_at_VeragAG, False) + allowCBX(cbxAufschub_de_VeragAG, False) + allowCBX(cbxBrg_at_VeragAG, False) + allowCBX(cbxBrg_de2_VeragAG, False) + allowCBX(cbxAufschub_de_Imex, False) + allowCBX(cbxBrg_at_Imex, False) + allowCBX(cbxBrg_at_Atilla, False) + allowCBX(cbxAufschubEUST_de_Unisped, False) + allowCBX(cbxAufschub_de_Unisped, False) + allowCBX(cbxAufschubEUST_de_VeragAG, False) + allowCBX(cbxAufschubEUST_de_Imex, False) + allowCBX(cbxBrg_at_UNISPED, False) + allowCBX(cbxAufschub_at_IMEX, False) + allowCBX(cbxAufschubEUST_de_Global, False) + allowCBX(cbxAufschubEUST_de_UnispedDE, False) + allowCBX(cbxAufschub_de_UnispedDE, False) - cbxAufschub_de_Imex.Checked = False - cbxAufschub_de_Imex.Enabled = False - cbxBrg_at_Imex.Enabled = False - Button2.Visible = False - Button4.Enabled = False - Case "IMEX" - cbxBrg_at_VeragAG.Enabled = False - cbxBrg_de2_VeragAG.Enabled = False - cbxBrg_at_VeragAG.Checked = False - cbxBrg_de2_VeragAG.Checked = False - cbxBrg_at_Atilla.Enabled = False - cbxAufschub_de_VeragAG.Checked = False - cbxAufschub_at_VeragAG.Checked = False - cbxAufschub_at_VeragCS.Checked = False - cbxAufschub_at_VeragZS.Checked = False - cbxAufschub_de_VeragAG.Enabled = False - cbxAufschub_at_VeragAG.Enabled = False - cbxAufschub_at_VeragCS.Enabled = False - cbxAufschub_at_VeragZS.Enabled = False - Button2.Visible = False - Button4.Enabled = False - cbxAufschub_de_Imex.Checked = True - cbxAufschub_de_Imex.Enabled = True + If Environment.UserName.ToString.ToLower = "developer1" Or Environment.UserName.ToString.ToLower = "al" Then + allowCBX(cbxAufschubEUST_de_Unisped, True) + allowCBX(cbxAufschub_de_Unisped, True) + allowCBX(cbxBrg_at_UNISPED, True) + allowCBX(cbxAufschubEUST_de_UnispedDE, True) + allowCBX(cbxAufschub_de_UnispedDE, True) + End If - Case "UNISPED" - cbxBrg_at_VeragAG.Enabled = False - cbxBrg_de2_VeragAG.Enabled = False - cbxBrg_at_VeragAG.Checked = False - cbxBrg_de2_VeragAG.Checked = False - cbxBrg_at_Atilla.Enabled = False - cbxAufschub_de_VeragAG.Checked = False - cbxAufschub_at_VeragAG.Checked = False - cbxAufschub_at_VeragCS.Checked = False - cbxAufschub_at_VeragZS.Checked = False - cbxAufschub_de_VeragAG.Enabled = False - cbxAufschub_at_VeragAG.Enabled = False - cbxAufschub_at_VeragCS.Enabled = False - cbxAufschub_at_VeragZS.Enabled = False - Button2.Visible = False - Button4.Enabled = False - cbxAufschub_de_Imex.Checked = False - cbxAufschub_de_Imex.Enabled = False + If brgusr_AdminUser Then + allowCBX(cbxAufschub_at_VeragZS, True) + allowCBX(cbxAufschub_at_VeragCS, True) + allowCBX(cbxAufschub_at_VeragAG, True) + allowCBX(cbxAufschub_de_VeragAG, True) + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxAufschub_de_Imex, True) + allowCBX(cbxBrg_at_Imex, True) + allowCBX(cbxBrg_at_Atilla, True) + allowCBX(cbxAufschubEUST_de_VeragAG, True) + allowCBX(cbxAufschubEUST_de_Imex, True) + allowCBX(cbxAufschub_at_IMEX, True) + allowCBX(cbxAufschubEUST_de_Global, True) - cbxAufschub_de_Unisped.Checked = True - cbxAufschub_de_Unisped.Enabled = True + Else - cbxAufschub_de_Unisped.Checked = True - cbxAufschub_de_Unisped.Enabled = True - cbxAufschubEUST_de_Unisped.Checked = True - cbxAufschubEUST_de_Unisped.Enabled = True + Select Case Me.firma + Case "ATILLA" + 'cbxAufschub_de_VeragAG.Checked = False + 'cbxAufschub_at_VeragAG.Checked = False + 'cbxAufschub_at_VeragCS.Checked = False + 'cbxAufschub_at_VeragZS.Checked = False + 'cbxAufschub_de_VeragAG.Enabled = False + 'cbxAufschub_at_VeragAG.Enabled = False + 'cbxAufschub_at_VeragCS.Enabled = False + 'cbxAufschub_at_VeragZS.Enabled = False - Case "VERIMEX" - 'cbxBrg_at_VeragAG.Enabled = False - 'cbxBrg_de2_VeragAG.Enabled = False - 'cbxBrg_at_VeragAG.Checked = False - 'cbxBrg_de2_VeragAG.Checked = False - cbxAufschub_de_VeragAG.Checked = False - cbxAufschub_at_VeragAG.Checked = False - cbxAufschub_at_VeragCS.Checked = False - cbxAufschub_at_VeragZS.Checked = False - cbxAufschub_de_VeragAG.Enabled = False - cbxAufschub_at_VeragAG.Enabled = False - cbxAufschub_at_VeragCS.Enabled = False - cbxAufschub_at_VeragZS.Enabled = False - Button2.Visible = False - Button4.Enabled = False - End Select + 'cbxAufschub_de_Imex.Checked = False + 'cbxAufschub_de_Imex.Enabled = False + 'cbxBrg_at_Imex.Enabled = False + Button2.Visible = False + Button4.Enabled = False + + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxBrg_at_Atilla, True) + + Case "IMEX" + 'cbxBrg_at_VeragAG.Enabled = False + 'cbxBrg_de2_VeragAG.Enabled = False + 'cbxBrg_at_VeragAG.Checked = False + 'cbxBrg_de2_VeragAG.Checked = False + 'cbxBrg_at_Atilla.Enabled = False + 'cbxAufschub_de_VeragAG.Checked = False + 'cbxAufschub_at_VeragAG.Checked = False + 'cbxAufschub_at_VeragCS.Checked = False + 'cbxAufschub_at_VeragZS.Checked = False + 'cbxAufschub_de_VeragAG.Enabled = False + 'cbxAufschub_at_VeragAG.Enabled = False + 'cbxAufschub_at_VeragCS.Enabled = False + 'cbxAufschub_at_VeragZS.Enabled = False + Button2.Visible = False + Button4.Enabled = False + 'cbxAufschub_de_Imex.Checked = True + 'cbxAufschub_de_Imex.Enabled = True + + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxAufschub_de_Imex, True) + allowCBX(cbxBrg_at_Imex, True) + allowCBX(cbxAufschubEUST_de_Imex, True) + allowCBX(cbxAufschubEUST_de_Global, True) + allowCBX(cbxAufschub_at_IMEX, True) + Case "UNISPED" + 'cbxBrg_at_VeragAG.Enabled = False + 'cbxBrg_de2_VeragAG.Enabled = False + 'cbxBrg_at_VeragAG.Checked = False + 'cbxBrg_de2_VeragAG.Checked = False + 'cbxBrg_at_Atilla.Enabled = False + 'cbxAufschub_de_VeragAG.Checked = False + 'cbxAufschub_at_VeragAG.Checked = False + 'cbxAufschub_at_VeragCS.Checked = False + 'cbxAufschub_at_VeragZS.Checked = False + 'cbxAufschub_de_VeragAG.Enabled = False + 'cbxAufschub_at_VeragAG.Enabled = False + 'cbxAufschub_at_VeragCS.Enabled = False + 'cbxAufschub_at_VeragZS.Enabled = False + Button2.Visible = False + Button4.Enabled = False + 'cbxAufschub_de_Imex.Checked = False + 'cbxAufschub_de_Imex.Enabled = False + + 'cbxAufschub_de_Unisped.Checked = True + 'cbxAufschub_de_Unisped.Enabled = True + + 'cbxAufschub_de_Unisped.Checked = True + 'cbxAufschub_de_Unisped.Enabled = True + 'cbxAufschubEUST_de_Unisped.Checked = True + 'cbxAufschubEUST_de_Unisped.Enabled = True + + allowCBX(cbxAufschubEUST_de_Unisped, True) + allowCBX(cbxAufschub_de_Unisped, True) + allowCBX(cbxBrg_at_UNISPED, True) + allowCBX(cbxAufschubEUST_de_UnispedDE, True) + allowCBX(cbxAufschub_de_UnispedDE, True) + + Case "VERIMEX" + 'cbxBrg_at_VeragAG.Enabled = False + 'cbxBrg_de2_VeragAG.Enabled = False + 'cbxBrg_at_VeragAG.Checked = False + 'cbxBrg_de2_VeragAG.Checked = False + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxBrg_at_Imex, True) + allowCBX(cbxBrg_at_Atilla, True) + + 'cbxAufschub_de_VeragAG.Checked = False + 'cbxAufschub_at_VeragAG.Checked = False + 'cbxAufschub_at_VeragCS.Checked = False + 'cbxAufschub_at_VeragZS.Checked = False + 'cbxAufschub_de_VeragAG.Enabled = False + 'cbxAufschub_at_VeragAG.Enabled = False + 'cbxAufschub_at_VeragCS.Enabled = False + 'cbxAufschub_at_VeragZS.Enabled = False + Button2.Visible = False + Button4.Enabled = False + Case Else 'VERAG' + + allowCBX(cbxAufschub_at_VeragZS, True) + allowCBX(cbxAufschub_at_VeragCS, True) + allowCBX(cbxAufschub_at_VeragAG, True) + allowCBX(cbxAufschub_de_VeragAG, True) + allowCBX(cbxBrg_at_VeragAG, True) + allowCBX(cbxBrg_de2_VeragAG, True) + allowCBX(cbxAufschub_de_Imex, True) + allowCBX(cbxBrg_at_Imex, True) + allowCBX(cbxBrg_at_Atilla, True) + allowCBX(cbxAufschubEUST_de_Unisped, True) + allowCBX(cbxAufschub_de_Unisped, True) + allowCBX(cbxAufschubEUST_de_VeragAG, True) + allowCBX(cbxAufschubEUST_de_Imex, True) + allowCBX(cbxBrg_at_UNISPED, True) + allowCBX(cbxAufschub_at_IMEX, True) + allowCBX(cbxAufschubEUST_de_Global, True) + allowCBX(cbxAufschubEUST_de_UnispedDE, True) + allowCBX(cbxAufschub_de_UnispedDE, True) + + End Select + End If @@ -150,6 +252,10 @@ Public Class frmMain loaded = True End Sub + Sub allowCBX(cbx As CheckBox, allow As Boolean) + cbx.Enabled = allow + cbx.Checked = allow + End Sub Private Sub hideme() 'Me.Visible = False Me.Hide() @@ -250,10 +356,12 @@ Public Class frmMain Dim AtWoche_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'ZOLARIS AT WOCHE Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) + 'MsgBox(AtWoche_zolaris) 'TELOTEC AT WOCHE Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) 'TELOTEC AT WOCHE Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT) + 'AT WOCHE Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC + AtWoche_nctsTR setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at))) @@ -577,15 +685,15 @@ Public Class frmMain doAufschubCalc("ZOLL", 1, cbxAufschub_de_VeragAG, lblAufschubBrg_de_VeragAG, lblAufschubBrg_de_VeragAG_oE, lblAufschub_de_VeragAG, lblAufschubStatus_de_VeragAG) 'VERAG AG DE - ZOLL doAufschubCalc("ZOLL", 8, cbxAufschub_de_Imex, lblAufschubBrg_de_Imex, lblAufschubBrg_de_Imex_oE, lblAufschub_de_Imex, lblAufschubStatus_de_Imex) 'IMEX DE - ZOLL - doAufschubCalc("ZOLL", 14, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL - doAufschubCalc("EUST", 15, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST + doAufschubCalc("ZOLL", 16, cbxAufschub_de_Unisped, lblAufschubBrg_de_UNISPED, lblAufschubBrg_de_UNISPED_oE, lblAufschub_de_UNISPED, lblAufschubStatus_de_UNISPED) 'UNISPED DE - ZOLL + doAufschubCalc("EUST", 17, cbxAufschubEUST_de_Unisped, lblAufschubBrgEUST_de_UNISPED, lblAufschubBrgEUST_de_UNISPED_oE, lblAufschubEUST_de_UNISPED, lblAufschubStatusEUST_de_UNISPED) 'UNISPED DE - EUST doAufschubCalc("EUST", 12, cbxAufschubEUST_de_Imex, lblAufschubBrgEUST_de_Imex, lblAufschubBrgEUST_de_Imex_oE, lblAufschubEUST_de_Imex, lblAufschubStatusEUST_de_Imex) 'imex DE - EUST doAufschubCalc("EUST", 10, cbxAufschubEUST_de_Global, lblAufschubBrgEUST_de_global, lblAufschubBrgEUST_de_global_oE, lblAufschubEUST_de_Global, lblAufschubStatusEUST_de_global) 'GLOBAL DE - EUST doAufschubCalc("EUST", 11, cbxAufschubEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG, lblAufschubBrgEUST_de_VeragAG_oE, lblAufschubEUST_de_VeragAG, lblAufschubStatusEUST_de_VeragAG) 'VERAG DE - EUST - doAufschubCalc("ZOLL", 16, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL - doAufschubCalc("EUST", 17, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST + doAufschubCalc("ZOLL", 14, cbxAufschub_de_UnispedDE, lblAufschubBrg_de_UNISPEDDE, lblAufschubBrg_de_UNISPEDDE_oE, lblAufschub_de_UNISPEDDE, lblAufschubStatus_de_UNISPEDDE) 'UNISPED(DE) DE - ZOLL + doAufschubCalc("EUST", 15, cbxAufschubEUST_de_UnispedDE, lblAufschubBrgEUST_de_UNISPEDDE, lblAufschubBrgEUST_de_UNISPEDDE_oE, lblAufschubEUST_de_UNISPEDDE, lblAufschubStatusEUST_de_UNISPEDDE) 'UNISPED(DE) DE - EUST doAufschubCalc_AT("GESAMT", 13, cbxAufschub_at_IMEX, lblAufschubBrg_at_IMEX, Nothing, lblAufschub_at_IMEX, lblAufschubStatus_at_IMEX) 'IMEX AT - GESAMT @@ -660,7 +768,43 @@ Public Class frmMain End Sub + Function getAufschubDT(ART As String, BRG_ID As Integer) As DataTable 'NICHT FERTIG!!!! + Dim von As Date = DateSerial(Now.Year, Now.Month, 1) + Dim vonbrg As Date = von + Dim vonFaell As Date = von + + If Now.Day <= 15 Then vonbrg = von.AddMonths(-1) + If Now.Day > 16 Then vonFaell = von.AddMonths(1) + + Dim cAufschubKonten As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(BRG_ID) + + Try + Dim dt As DataTable + + If ART = "ZOLL" Then + Dim dt_betragBrg_16 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,,, , CDate("16" & vonFaell.ToString(".MM.yyyy"))) + Dim dt_betragBrg_26 As New DataTable + If Now.Day <= 26 Then dt_betragBrg_26 = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.ToString(".MM.yyyy"))) '9 + Dim dt_betragBrg_26_2 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy"))) '9 + Dim dt_betragBrg_26_3 As DataTable = BRG.getBrgFromBrgKto(Nothing, Nothing, BRG_ID,, , , CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy"))) '10 + + dt = dt_betragBrg_16 + If dt_betragBrg_26 IsNot Nothing Then dt.Merge(dt_betragBrg_26) + If dt_betragBrg_26_2 IsNot Nothing Then dt.Merge(dt_betragBrg_26_2) + If dt_betragBrg_26_3 IsNot Nothing Then dt.Merge(dt_betragBrg_26_3) + + Else + dt = BRG.getBrgFromBrgKto(vonbrg.ToShortDateString, Now.ToShortDateString, BRG_ID) + End If + + Return dt + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return Nothing + End Function Sub doAufschubCalc_AT(ART As String, BRG_ID As Integer, cbx As CheckBox, lblBRG As Label, lblBRG_oE As Label, lblAufschub As Label, lblAStatus As Label) @@ -1068,7 +1212,7 @@ Public Class frmMain faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(1).ToString(".MM.yyyy")).ToShortDateString & "'" faelligkeitWhere &= ",'" & CDate("26" & Now.AddMonths(2).ToString(".MM.yyyy")).ToShortDateString & "'" faelligkeitWhere &= ") " - MsgBox(faelligkeitWhere) + frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto_Faelligkeit(faelligkeitWhere, brg_DE_VeragAG) ' frmShowData.dgv.DataSource = BRG.loadDgvBySqlFromAufschubKto(vonbrg.ToShortDateString, Now.ToShortDateString, brg_DE_VeragAG) @@ -1253,6 +1397,39 @@ Public Class frmMain frmShowData.Show() End Sub + Dim secondmonitorSelected = False + Private Sub Button3_Click_4(sender As Object, e As EventArgs) Handles Button3.Click + Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary) + If secondmonitorSelected Then + secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm + End If + If secondaryMonitor IsNot Nothing Then + Me.WindowState = FormWindowState.Normal + Dim newLocation = secondaryMonitor.Bounds.Location + 'newLocation.Offset(0, 0) ' adjust as needed + Me.Location = newLocation + + ' Me.WindowState = FormWindowState.Normal + ' Me.Visible = True + ' MsgBox(secondaryMonitor.Bounds.Location.Y & " - " & MsgBox(secondaryMonitor.Bounds.Location.X)) + Me.Top = secondaryMonitor.Bounds.Location.Y + secondaryMonitor.WorkingArea.Height - Me.Height + Me.Left = secondaryMonitor.Bounds.Location.X + secondaryMonitor.WorkingArea.Width - Me.Width + + + Me.Refresh() + 'Me.WindowState = FormWindowState.Maximized + ' Also see Me.Size and Me.Bounds + End If + secondmonitorSelected = Not secondmonitorSelected + End Sub + + Private Sub lblAufschubBrgEUST_de_UNISPEDDE_Click(sender As Object, e As EventArgs) Handles lblAufschubBrgEUST_de_UNISPEDDE.Click + Dim frmShowData As New frmShowData + frmShowData.dgv.DataSource = getAufschubDT("EUST", 17) + + frmShowData.Label2.Text = "Anzahl: " & frmShowData.dgv.RowCount + frmShowData.Show() + End Sub End Class diff --git a/cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb b/cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb index e01c703..fbd4608 100644 --- a/cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb +++ b/cNCTSPartnerWorker/MAVI/cMavi_Paramter.vb @@ -3,6 +3,14 @@ Public Class cMavi_Paramter Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String - Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblMAVI_Paramter] WHERE [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='MAVI' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + End Function +End Class + +Public Class cOregon_Paramter + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String + Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='OREGON' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) End Function End Class diff --git a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb index b3300aa..a7a09f8 100644 --- a/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb +++ b/initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb @@ -146,12 +146,12 @@ Module AtlasAufschubDatenEinlesen Try cmd.ExecuteNonQuery() - 'Lösche File: - Try - If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) - Catch ex As Exception - writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) - End Try + ''Lösche File: --> vom ALTEN ATLAS + 'Try + ' If brgak_filename <> "DY" Then System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) + 'Catch ex As Exception + ' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) + 'End Try Return True Catch ex As SqlException writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message) diff --git a/initATLASAufschubkonten/My Project/AssemblyInfo.vb b/initATLASAufschubkonten/My Project/AssemblyInfo.vb index ede708f..52ec6f3 100644 --- a/initATLASAufschubkonten/My Project/AssemblyInfo.vb +++ b/initATLASAufschubkonten/My Project/AssemblyInfo.vb @@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices ' Die Werte der Assemblyattribute überprüfen - + - - + + diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj index 0bc9efc..044ab5c 100644 --- a/initATLASAufschubkonten/RoutineManager.vbproj +++ b/initATLASAufschubkonten/RoutineManager.vbproj @@ -51,6 +51,25 @@ admin_monitoring.ico + + true + true + true + bin\Debug\ + RoutineManager.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + full + x64 + + + true + bin\x64\Release\ + RoutineManager.xml + true + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + pdbonly + x64 + False @@ -81,6 +100,16 @@ False ..\..\..\dll\itextsharp.dll + + False + True + C:\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll + + + False + True + C:\Windows\assembly\GAC_MSIL\office\15.0.0.0__71e9bce111e9429c\OFFICE.DLL + ..\..\..\dll\Renci.SshNet.dll @@ -116,11 +145,18 @@ + - - frmTRNCTS_NachrichtenVerarbeitung.vb + + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb - + + Form + + + frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb + + Form @@ -176,8 +212,11 @@ - - frmTRNCTS_NachrichtenVerarbeitung.vb + + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb + + + frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb frmMDMNachrichtenVerarbeitung.vb diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index a9d8636..12470b2 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb @@ -484,9 +484,9 @@ Try Select Case GRN - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157" + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB")) - Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153" + Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716" If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON")) Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG")) diff --git a/initATLASAufschubkonten/cBuergschaften.vb b/initATLASAufschubkonten/cBuergschaften.vb index 4e1ab6b..0b218c2 100644 --- a/initATLASAufschubkonten/cBuergschaften.vb +++ b/initATLASAufschubkonten/cBuergschaften.vb @@ -153,7 +153,7 @@ Public Class cBuergschaften Dim cnt As Integer = 0 Dim dr As SqlDataReader Dim sql As String = "SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme" - If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE())" 'letzten 10 Tage + If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE()) AND CRN is not null " 'letzten 10 Tage Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL ' setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...") diff --git a/initATLASAufschubkonten/cGetMsgType.vb b/initATLASAufschubkonten/cGetMsgType.vb index ed0a89a..38974bd 100644 --- a/initATLASAufschubkonten/cGetMsgType.vb +++ b/initATLASAufschubkonten/cGetMsgType.vb @@ -500,15 +500,19 @@ Public Class cGetMsgType Shared Function isPLOSE_Detail(doc As String) As Boolean Dim lines() As String = IO.File.ReadAllLines(doc) - If lines(0).ToString.StartsWith("TR5") Then - Return True + If lines.Count > 0 Then + If lines(0).ToString.StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.StartsWith("TR1") And lines(1).ToString.StartsWith("TR5"))) Then + Return True + End If End If Return False End Function Shared Function isPLOSE_Header(doc As String) As Boolean Dim lines() As String = IO.File.ReadAllLines(doc) - If lines(0).ToString.StartsWith("TR6") Then - Return True + If lines.Count > 0 Then + If lines(0).ToString.StartsWith("TR6") Then + Return True + End If End If Return False End Function diff --git a/initATLASAufschubkonten/cMAVIWorker.vb b/initATLASAufschubkonten/cMAVIWorker.vb index 2514170..c037a43 100644 --- a/initATLASAufschubkonten/cMAVIWorker.vb +++ b/initATLASAufschubkonten/cMAVIWorker.vb @@ -9,7 +9,7 @@ Public Class cMAVIWorker Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem - Public Shared Function readNCTS_VersandanmeldungXML_CC015B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_VersandanmeldungXML_CC015B = "" Dim sw = New StringWriter() @@ -39,7 +39,7 @@ Public Class cMAVIWorker If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_ObjectName = LRN - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then @@ -63,6 +63,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC015B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_VersandanmeldungXML_CC015B = "" End If @@ -90,7 +98,7 @@ Public Class cMAVIWorker - Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_VersandanmeldungXML_CC015B_RES = "" Dim sw = New StringWriter() @@ -121,7 +129,7 @@ Public Class cMAVIWorker NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem @@ -132,6 +140,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC15B_RES" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_VersandanmeldungXML_CC015B_RES = "" End If @@ -157,7 +173,7 @@ Public Class cMAVIWorker End Function - Public Shared Function readNCTS_BestaetigungZollXML_CC029B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_BestaetigungZollXML_CC029B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_BestaetigungZollXML_CC029B = "" Dim sw = New StringWriter() @@ -225,7 +241,7 @@ Public Class cMAVIWorker If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR NCTS.ncts_ObjectName = LRN - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem NCTS.ncts_MRN = MRN NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung) NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum @@ -250,6 +266,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC029B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_BestaetigungZollXML_CC029B = "" End If @@ -277,7 +301,7 @@ Public Class cMAVIWorker - Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_ErledigungsmitteilungXML_CC045A = "" Dim sw = New StringWriter() @@ -313,7 +337,7 @@ Public Class cMAVIWorker NCTS.ncts_Erledigung = TMSTMP.ToShortDateString readNCTS_ErledigungsmitteilungXML_CC045A = MRN - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60 @@ -321,6 +345,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC045A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_ErledigungsmitteilungXML_CC045A = "" End If @@ -346,7 +378,7 @@ Public Class cMAVIWorker End Try End Function - Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_BestaetigungZollXML_ARR_INF = "" Dim sw = New StringWriter() @@ -377,7 +409,7 @@ Public Class cMAVIWorker 'NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem NCTS.ncts_Ankunft = TMSTMP.ToShortDateString readNCTS_BestaetigungZollXML_ARR_INF = GUID @@ -386,6 +418,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "ARR_INF" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_BestaetigungZollXML_ARR_INF = "" End If @@ -412,7 +452,7 @@ Public Class cMAVIWorker End Function - Public Shared Function readNCTS_AbbruchXML_CC009A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_AbbruchXML_CC009A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_AbbruchXML_CC009A = "" Dim sw = New StringWriter() @@ -446,7 +486,7 @@ Public Class cMAVIWorker Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem NCTS.ncts_MRN = MRN @@ -457,6 +497,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC009A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_AbbruchXML_CC009A = "" End If @@ -481,7 +529,7 @@ Public Class cMAVIWorker - Public Shared Function readNCTS_RueckweisungXML_CC016A(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_RueckweisungXML_CC016A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_RueckweisungXML_CC016A = "" Dim sw = New StringWriter() @@ -514,7 +562,7 @@ Public Class cMAVIWorker Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem) If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem NCTS.ncts_ObjectName = LRN @@ -524,6 +572,14 @@ Public Class cMAVIWorker readNCTS_RueckweisungXML_CC016A = LRN If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC016A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_RueckweisungXML_CC016A = "" End If @@ -547,7 +603,7 @@ Public Class cMAVIWorker End Function - Public Shared Function readNCTS_KeineFreigabeXML_CC051B(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_KeineFreigabeXML_CC051B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_KeineFreigabeXML_CC051B = "" Dim sw = New StringWriter() @@ -580,7 +636,7 @@ Public Class cMAVIWorker Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem NCTS.ncts_MRN = MRN @@ -591,6 +647,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC051B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_KeineFreigabeXML_CC051B = "" End If @@ -613,7 +677,7 @@ Public Class cMAVIWorker End Try End Function - Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String + Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String Try readNCTS_BestaetigungZollXML_GUA_INF = "" Dim sw = New StringWriter() @@ -644,7 +708,7 @@ Public Class cMAVIWorker 'NCTS.ncts_ObjectName = LRN NCTS.ncts_GUID = GUID - NCTS.ncts_Partnersystem = "MAVI" + NCTS.ncts_Partnersystem = ncts_Partnersystem readNCTS_BestaetigungZollXML_GUA_INF = GUID 'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53 @@ -673,6 +737,14 @@ Public Class cMAVIWorker If NCTS.SAVE_ALL() Then ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "GUA_INF" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id Else readNCTS_BestaetigungZollXML_GUA_INF = "" End If diff --git a/initATLASAufschubkonten/cOREGONWorker.vb b/initATLASAufschubkonten/cOREGONWorker.vb new file mode 100644 index 0000000..8bbffed --- /dev/null +++ b/initATLASAufschubkonten/cOREGONWorker.vb @@ -0,0 +1,884 @@ +Imports System.Globalization +Imports System.IO +Imports System.Xml + +Public Class cOREGONWorker + Public Shared Dateiname = "" + + Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem + + Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_VersandanmeldungXML_CC015B = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + Dim LRN = "" + If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then + LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText + End If + + readNCTS_VersandanmeldungXML_CC015B = LRN + + + 'Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + ' outputFile.Write(xmlCC015B) + ' outputFile.Close() + + + Dim AnsprechpTMP_Email = "" + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(LRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + NCTS.ncts_ObjectName = LRN + + NCTS.ncts_Partnersystem = ncts_Partnersystem + + + If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 Then ' AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then + Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText + Dim Betrag = 0.0 + If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText + + If IsNumeric(Betrag) Then + BRG.nctsSA_AbgabenBetrag = CDbl(Betrag) + End If + + NCTS.ncts_SICHERHEITSANGABEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) + End If + + + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC015B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_VersandanmeldungXML_CC015B = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Versandanmeldung", readNCTS_VersandanmeldungXML_CC015B) + + ' End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_VersandanmeldungXML_CC015B = "" + End Try + End Function + + + + + Public Shared Function readNCTS_VersandanmeldungXML_CC015B_RES(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_VersandanmeldungXML_CC015B_RES = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + Dim LRN = "" + Dim GUID = "" + If doc.GetElementsByTagName("LRN").Count > 0 Then + LRN = doc.GetElementsByTagName("LRN")(0).InnerText + End If + + readNCTS_VersandanmeldungXML_CC015B_RES = LRN + + If doc.GetElementsByTagName("GUID").Count > 0 Then + GUID = doc.GetElementsByTagName("GUID")(0).InnerText + End If + + + Dim AnsprechpTMP_Email = "" + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, GUID, "", True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + NCTS.ncts_ObjectName = LRN + NCTS.ncts_GUID = GUID + + NCTS.ncts_Partnersystem = ncts_Partnersystem + + + + + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC15B_RES" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_VersandanmeldungXML_CC015B_RES = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Versandanmeldung - Ergänzung GUID", readNCTS_VersandanmeldungXML_CC015B_RES) + + ' End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_VersandanmeldungXML_CC015B_RES = "" + End Try + End Function + + + Public Shared Function readNCTS_BestaetigungZollXML_CC029B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_BestaetigungZollXML_CC029B = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlCC029B = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC029B) + Dim p = Path.GetTempFileName + + Dim LRN = "" + If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then + LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText + End If + + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + + + + Dim Eroeffnung = Nothing + If doc.GetElementsByTagName("AccDatHEA158").Count > 0 Then + Try + Eroeffnung = Date.ParseExact(doc.GetElementsByTagName("AccDatHEA158")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + End If + + + + Dim ncts_Befoerderungsmittel_KennzeichenAbgang = Nothing + If doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78").Count > 0 Then + ncts_Befoerderungsmittel_KennzeichenAbgang = doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78")(0).InnerText + End If + Dim ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = Nothing + If doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85").Count > 0 Then + ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85")(0).InnerText + End If + + + Dim Wiedergestellungsdatum = Nothing + If doc.GetElementsByTagName("DatLimERS69").Count > 0 Then + Try + Wiedergestellungsdatum = Date.ParseExact(doc.GetElementsByTagName("DatLimERS69")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + End If + + + + readNCTS_BestaetigungZollXML_CC029B = LRN + + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlCC029B) + outputFile.Close() + + + Dim AnsprechpTMP_Email = "" + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + NCTS.ncts_ObjectName = LRN + + NCTS.ncts_Partnersystem = ncts_Partnersystem + NCTS.ncts_MRN = MRN + NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung) + NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum + NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = ncts_Befoerderungsmittel_KennzeichenAbgang + NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend + 'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then + ' Dim BRG As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + ' BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText + ' Dim Betrag = doc.GetElementsByTagName("AmoConREF7")(0).InnerText + ' If IsNumeric(Betrag) Then + ' BRG.nctsSA_AbgabenBetrag = CDbl(Betrag) + ' End If + + ' NCTS.ncts_SICHERHEITSANGABEN = New List(Of VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben) + ' NCTS.ncts_SICHERHEITSANGABEN.Add(BRG) + 'End If + + + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_50 + ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC029B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_BestaetigungZollXML_CC029B = "" + End If + + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + FORM.addDGVEinarbeitung("NCTS: BestätigungZoll", readNCTS_BestaetigungZollXML_CC029B) + + End Using + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_BestaetigungZollXML_CC029B = "" + End Try + End Function + + + + + Public Shared Function readNCTS_ErledigungsmitteilungXML_CC045A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_ErledigungsmitteilungXML_CC045A = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + Dim TMSTMP As Date + If doc.GetElementsByTagName("WriOffDatHEA619").Count > 0 Then + 'If IsDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) Then + ' TMSTMP = CDate(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText) + 'End If + Try + TMSTMP = Date.ParseExact(doc.GetElementsByTagName("WriOffDatHEA619")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + 'NCTS.ncts_ObjectName = LRN + ' NCTS.ncts_GUID = Guid + NCTS.ncts_MRN = MRN + NCTS.ncts_Erledigung = TMSTMP.ToShortDateString + readNCTS_ErledigungsmitteilungXML_CC045A = MRN + + NCTS.ncts_Partnersystem = ncts_Partnersystem + + + If If(NCTS.ncts_Status, 0) <= 60 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_60 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC045A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_ErledigungsmitteilungXML_CC045A = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Erledigungsmitteilung", readNCTS_ErledigungsmitteilungXML_CC045A) + + ' End Using + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_ErledigungsmitteilungXML_CC045A = "" + End Try + End Function + + Public Shared Function readNCTS_BestaetigungZollXML_ARR_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_BestaetigungZollXML_ARR_INF = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + + Dim GUID = "" + If doc.GetElementsByTagName("GUID").Count > 0 Then + GUID = doc.GetElementsByTagName("GUID")(0).InnerText + End If + + Dim TMSTMP As Date + If doc.GetElementsByTagName("TMSTMP").Count > 0 Then + If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then + TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) + End If + + Dim AnsprechpTMP_Email = "" + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + 'NCTS.ncts_ObjectName = LRN + NCTS.ncts_GUID = GUID + + NCTS.ncts_Partnersystem = ncts_Partnersystem + NCTS.ncts_Ankunft = TMSTMP.ToShortDateString + readNCTS_BestaetigungZollXML_ARR_INF = GUID + + If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "ARR_INF" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_BestaetigungZollXML_ARR_INF = "" + End If + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Ankunftsanzeige", readNCTS_BestaetigungZollXML_ARR_INF) + + ' End Using + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_BestaetigungZollXML_ARR_INF = "" + End Try + End Function + + + Public Shared Function readNCTS_AbbruchXML_CC009A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_AbbruchXML_CC009A = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlCC009A = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC029B) + Dim p = Path.GetTempFileName + + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + + Dim Abbruchdatum = Nothing + If doc.GetElementsByTagName("DatOfCanDecHEA146").Count > 0 Then + Try + Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DatOfCanDecHEA146")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + End If + + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlCC009A) + outputFile.Close() + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + + NCTS.ncts_Partnersystem = ncts_Partnersystem + NCTS.ncts_MRN = MRN + + + NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_80 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + readNCTS_AbbruchXML_CC009A = NCTS.ncts_ObjectName + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC009A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_AbbruchXML_CC009A = "" + End If + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + FORM.addDGVEinarbeitung("NCTS: Abbruch", readNCTS_AbbruchXML_CC009A) + + End Using + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_AbbruchXML_CC009A = "" + End Try + End Function + + + + Public Shared Function readNCTS_RueckweisungXML_CC016A(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_RueckweisungXML_CC016A = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlCC016A = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC029B) + Dim p = Path.GetTempFileName + + Dim LRN = "" + If doc.GetElementsByTagName("RefNumHEA4").Count > 0 Then + LRN = doc.GetElementsByTagName("RefNumHEA4")(0).InnerText + End If + + Dim Abbruchdatum = Nothing + If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then + Try + Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + End If + + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlCC016A) + outputFile.Close() + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN(LRN, "", "", True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + + NCTS.ncts_Partnersystem = ncts_Partnersystem + NCTS.ncts_ObjectName = LRN + + + NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + readNCTS_RueckweisungXML_CC016A = LRN + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC016A" + NR.nctsNr_path = "" + NR.nctsNr_LRN = LRN + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_RueckweisungXML_CC016A = "" + End If + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + FORM.addDGVEinarbeitung("NCTS: Rückweisung", readNCTS_RueckweisungXML_CC016A) + + End Using + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_RueckweisungXML_CC016A = "" + End Try + End Function + + + Public Shared Function readNCTS_KeineFreigabeXML_CC051B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_KeineFreigabeXML_CC051B = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains("") Then + Dim xmlCC051B = XmlString.Substring(XmlString.IndexOf(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC029B) + Dim p = Path.GetTempFileName + + Dim MRN = "" + If doc.GetElementsByTagName("DocNumHEA5").Count > 0 Then + MRN = doc.GetElementsByTagName("DocNumHEA5")(0).InnerText + End If + + Dim Abbruchdatum = Nothing + If doc.GetElementsByTagName("DecRejDatHEA159").Count > 0 Then + Try + Abbruchdatum = Date.ParseExact(doc.GetElementsByTagName("DecRejDatHEA159")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo) + Catch ex As Exception + End Try + End If + + + Using outputFile As New StreamWriter(p, False, System.Text.Encoding.Default) + outputFile.Write(xmlCC051B) + outputFile.Close() + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr_or_GUID_or_MRN("", "", MRN, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + + NCTS.ncts_Partnersystem = ncts_Partnersystem + NCTS.ncts_MRN = MRN + + + NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_65 + NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + readNCTS_KeineFreigabeXML_CC051B = NCTS.ncts_ObjectName + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "CC051B" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = MRN + NR.nctsNr_GUID = Nothing + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_KeineFreigabeXML_CC051B = "" + End If + + + Try + System.IO.File.Delete(p) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + FORM.addDGVEinarbeitung("NCTS: KeineFreigabe", readNCTS_KeineFreigabeXML_CC051B) + + End Using + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_KeineFreigabeXML_CC051B = "" + End Try + End Function + + Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung_OREGON, doc As XmlDocument, ByRef NS_id As Integer) As String + Try + readNCTS_BestaetigungZollXML_GUA_INF = "" + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + If XmlString.Contains(""), XmlString.IndexOf("") + 9 - XmlString.IndexOf("")) + ' MsgBox(xmlCC015B) + ' Dim p = Path.GetTempFileName + + Dim GUID = "" + If doc.GetElementsByTagName("GUID").Count > 0 Then + GUID = doc.GetElementsByTagName("GUID")(0).InnerText + End If + + Dim TMSTMP As Date + If doc.GetElementsByTagName("TMSTMP").Count > 0 Then + If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then + TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) + End If + + Dim AnsprechpTMP_Email = "" + + Dim NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByGUID(GUID, True,, Partnersystem) + If NCTS Is Nothing Then NCTS = New VERAG_PROG_ALLGEMEIN.cNCTS_TR : NCTS.ncts_Status = 0 : NCTS.ncts_Status_KEWILL_Equivalent = 0 + 'NCTS.ncts_ObjectName = LRN + NCTS.ncts_GUID = GUID + + NCTS.ncts_Partnersystem = ncts_Partnersystem + readNCTS_BestaetigungZollXML_GUA_INF = GUID + + 'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53 + 'NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status + + + Dim GRN = "" + ' Dim CurREF8 = "" + Dim AmoConREF7 = "" + + If doc.GetElementsByTagName("GRN").Count > 0 Then + GRN = doc.GetElementsByTagName("GRN")(0).InnerText + End If + If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then + AmoConREF7 = doc.GetElementsByTagName("AmoConREF7")(0).InnerText + End If + + For Each GUA In NCTS.ncts_SICHERHEITSANGABEN + If GUA.nctsSA_GRN = GRN Then + GUA.nctsSA_AbgabenBetrag = AmoConREF7 + End If + Next + + + + If NCTS.SAVE_ALL() Then + ' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP) + Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten() + NR.nctsNr_nctsId = NCTS.ncts_Id + NR.nctsNr_typ = "GUA_INF" + NR.nctsNr_path = "" + NR.nctsNr_LRN = Nothing + NR.nctsNr_MRN = Nothing + NR.nctsNr_GUID = GUID + If NR.SAVE() Then NS_id = NR.nctsNr_id + Else + readNCTS_BestaetigungZollXML_GUA_INF = "" + End If + + + + + 'Try + ' System.IO.File.Delete(p) + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + FORM.addDGVEinarbeitung("NCTS: Garantie_Info", readNCTS_BestaetigungZollXML_GUA_INF) + + ' End Using + + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + readNCTS_BestaetigungZollXML_GUA_INF = "" + End Try + End Function + + + + + Shared Function getDatumXMLNothing(dateTmp) As Object + If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then + Dim datum As Date = CDate(dateTmp).ToShortDateString() + If datum > CDate("01.01.2000") Then + Return datum + End If + End If + Return Nothing + End Function + + + Shared Function cutLength(s, length) + If s.length > 35 Then s = s.Substring(0, length) + Return s + End Function + + + + 'Shared Function saveDY_NCTS(STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, transID As String, transDate As Date, Optional ANR As String = "", Optional MRN As String = "") As DAKOSY_Worker.cDakosyNCTSOut + ' 'EINTRAG IN tblDakosyNCTSOut + ' Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = Nothing + ' NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(STATUS.dySt_BezugsNr.ToString, False) + ' If NCTS_TMP Is Nothing Then + ' NCTS_TMP = New DAKOSY_Worker.cDakosyNCTSOut + ' NCTS_TMP.ncts_ObjectName = STATUS.dySt_BezugsNr + ' If NCTS_TMP IsNot Nothing Then NCTS_TMP.ncts_dyaAnmID = DY_TMP.dy_Id + + ' If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then + ' NCTS_TMP.ncts_Status = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + ' NCTS_TMP.ncts_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + ' End If + ' 'NCTS_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status + ' If ANR <> "" Or MRN <> "" Then + ' If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR + ' If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN + ' End If + ' NCTS_TMP.SAVE() + ' 'Eintragen + ' Else + ' 'Update + ' NCTS_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID + ' If ANR <> "" Or MRN <> "" Then + ' If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE() + ' If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE() + ' End If + ' End If + ' saveDY_NCTS = NCTS_TMP + 'End Function + + 'Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String) + + ' If division <> "" Then + ' If (NCTS_TMP.ncts_firma Is Nothing OrElse NCTS_TMP.ncts_firma = "") Or (NCTS_TMP.ncts_niederlassung Is Nothing OrElse NCTS_TMP.ncts_niederlassung = "") Then + ' Select Case division + ' Case "SUW" + ' NCTS_TMP.ncts_firma = "ATILLA" + ' NCTS_TMP.ncts_niederlassung = "SUB" + ' Case "SUB" + ' NCTS_TMP.ncts_firma = "VERAG" + ' NCTS_TMP.ncts_niederlassung = "SUB" + ' Case "DUR" + ' NCTS_TMP.ncts_firma = "ATILLA" + ' NCTS_TMP.ncts_niederlassung = "SBG" + ' Case "NKD" + ' NCTS_TMP.ncts_firma = "VERAG" + ' NCTS_TMP.ncts_niederlassung = "NKD" + ' Case "WAI" + ' NCTS_TMP.ncts_firma = "VERAG" + ' NCTS_TMP.ncts_niederlassung = "WAI" + ' Case "SBG" + ' NCTS_TMP.ncts_firma = "VERAG" + ' NCTS_TMP.ncts_niederlassung = "SBG" + ' Case "IME" + ' NCTS_TMP.ncts_firma = "IMEX" + ' NCTS_TMP.ncts_niederlassung = "SUB" + ' Case "GLO" + ' NCTS_TMP.ncts_firma = "IMEX" + ' NCTS_TMP.ncts_niederlassung = "GLO" + ' Case "AMB" + ' NCTS_TMP.ncts_firma = "AMBAR" + ' NCTS_TMP.ncts_niederlassung = "AMBAR" + ' Case "NEU" + ' NCTS_TMP.ncts_firma = "VERAG" + ' NCTS_TMP.ncts_niederlassung = "NEU" + ' Case "ATSP", "ATSPED" + ' NCTS_TMP.ncts_firma = "UNISPED" + ' NCTS_TMP.ncts_niederlassung = "ATSP" + ' End Select + ' NCTS_TMP.SAVE() + ' End If + + ' End If + ' If DY_TMP.dy_AvisoId Is Nothing Then + ' DY_TMP.tryFindAviso() + ' DY_TMP.SAVE() + ' End If + 'End Sub + + + Shared Sub SaveNCTS_WGDAT(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, WGDAT As Object) + + If WGDAT IsNot Nothing AndAlso IsDate(WGDAT) Then + NCTS_TMP.ncts_Wiedergestellungsdatum = CDate(WGDAT) + NCTS_TMP.SAVE() + End If + End Sub + + + +End Class diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 2258e7d..54231ed 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -5612,10 +5612,10 @@ Public Class frmDYNachrichtenVerarbeitung Case 1994 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 10, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Global Case 6136 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 11, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'VERAG EUST Case 2719 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 12, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'IMEX EUST - Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL - Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST - Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL - Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST + Case 6145 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 14, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) ZOLL + Case 6146 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 15, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED(DE) EUST + Case 6078 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 16, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED ZOLL + Case 6077 : tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag, 17, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'UNISPED EUST 'UNISPED Case XXX: tryToInsertProgramm(ABGABEN.Eingabedatum, ABGABEN.Betrag,XXX, EDIFACTNachrichtenNr, ABGABEN.Registriernummer, 0, ABGABEN.Fälligkeitsdatum) 'Case 2718 : VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMailTEST("al@verag.ag", "AUFSCHUB IMEX: " & ABGABEN.Betrag, "AUFSCHUB IMEX: " & ABGABEN.Betrag & vbNewLine & ABGABEN.Bezugsnummer) @@ -5674,12 +5674,12 @@ Public Class frmDYNachrichtenVerarbeitung Try cmd.ExecuteNonQuery() - 'Lösche File: - Try - System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) - Catch ex As Exception - writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) - End Try + ''Lösche File: --> vom ALTEN ATLAS + 'Try + ' System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) + 'Catch ex As Exception + ' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) + 'End Try Return True Catch ex As System.Data.SqlClient.SqlException writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message) diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb index 2c23308..255d7b4 100644 --- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb @@ -475,6 +475,36 @@ Public Class frmMDMNachrichtenVerarbeitung readPLOSE_Detail = "" Dim KdnR = "" + Dim plose_RechnungsJahr = "" + Dim plose_RechnungsLieferantCode = "" + Dim plose_RechnungsNr = "" + + Dim plose_RechnungsDat = Nothing + Dim plose_Lieferant = Nothing + + Dim fi As FileInfo = New FileInfo(d) + If fi.Name.Length > 8 Then + 'Dim plose_RechnungsNr = fi.Name.Substring(0, 8) + + plose_RechnungsJahr = fi.Name.Substring(0, 2) + plose_RechnungsLieferantCode = fi.Name.Substring(2, 1) + plose_RechnungsNr = fi.Name.Substring(3, 5) + + Select Case plose_RechnungsLieferantCode + Case "0" : plose_Lieferant = "PLOSE Sistem Service" + Case "7" : plose_Lieferant = "Consortio PLOSE" + End Select + + 'FALSCHE WERTE!!! + 'If fi.FullName.Contains("_RGDAT_") Then + ' Try + ' plose_RechnungsDat = CDate(fi.FullName.Substring(fi.FullName.IndexOf("_RGDAT_") + 7, 10)) + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE RG DATUM, FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + 'End If + End If + Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8) MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters(";") @@ -483,85 +513,82 @@ Public Class frmMDMNachrichtenVerarbeitung Dim cnt = 0 If True Then + + While Not MyReader.EndOfData Try + + currentRow = MyReader.ReadFields() - Dim fi As FileInfo = New FileInfo(d) - If fi.Name.Length > 8 Then - 'Dim plose_RechnungsNr = fi.Name.Substring(0, 8) - Dim plose_RechnungsJahr = fi.Name.Substring(0, 2) - Dim plose_RechnungsLieferantCode = fi.Name.Substring(2, 1) - Dim plose_RechnungsNr = fi.Name.Substring(3, 5) + If True Then 'fi.Name.Length > 8 Then - Dim plose_RechnungsDat = Nothing - Dim plose_Lieferant = Nothing - Select Case plose_RechnungsLieferantCode - Case "0" : plose_Lieferant = "PLOSE Sistem Service" - Case "7" : plose_Lieferant = "Consortio PLOSE" + + Select Case currentRow(0) + Case "TR1" + 'RECHNUGNSDATUM + If currentRow.Length > 1 AndAlso currentRow(1).ToString.Length = 8 Then + Dim datumParse = DateTime.ParseExact(currentRow(1), "yyyyMMdd", Nothing) + plose_RechnungsDat = datumParse 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung + End If + + Case "TR5" + If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns + Dim PLOSE As New MDM_Worker.cPLOSE + + PLOSE.plose_Dateiname = fi.Name + PLOSE.plose_RechnungsNr = plose_RechnungsNr + PLOSE.plose_Lieferant = plose_Lieferant + PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode + PLOSE.plose_RechnungsJahr = plose_RechnungsJahr + If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat + PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0)) + PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1)) + PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2)) + PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3)) + PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4)) + PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5)) + PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6)) + PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7)) + PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8)) + PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9)) + PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10)) + PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11)) + PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12)) + PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13)) + PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14)) + PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15)) + PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16)) + PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17)) + PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18)) + PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19)) + PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20)) + PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21)) + PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22)) + PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23)) + PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24)) + PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25)) + PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26)) + PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) + PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28)) + PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29)) + PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30)) + PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31)) + PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32)) + PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) + PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) + PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) + + '''''''''''' + If PLOSE.SAVE() Then + + End If + + End If End Select - If fi.FullName.Contains("_RGDAT_") Then - Try - plose_RechnungsDat = CDate(fi.FullName.Substring(fi.FullName.IndexOf("_RGDAT_") + 7, 10)) - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "PLOSE RG DATUM, FILE: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try - End If - If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns - Dim PLOSE As New MDM_Worker.cPLOSE - - PLOSE.plose_Dateiname = fi.Name - PLOSE.plose_RechnungsNr = plose_RechnungsNr - PLOSE.plose_Lieferant = plose_Lieferant - PLOSE.plose_LieferantCode = plose_RechnungsLieferantCode - PLOSE.plose_RechnungsJahr = plose_RechnungsJahr - If plose_RechnungsDat IsNot Nothing Then PLOSE.plose_RechnungsDatum = plose_RechnungsDat - PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0)) - PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1)) - PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2)) - PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3)) - PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4)) - PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5)) - PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6)) - PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7)) - PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8)) - PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9)) - PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10)) - PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11)) - PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12)) - PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13)) - PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14)) - PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15)) - PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16)) - PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17)) - PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18)) - PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19)) - PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20)) - PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21)) - PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22)) - PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23)) - PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24)) - PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25)) - PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26)) - PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) - PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28)) - PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29)) - PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30)) - PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31)) - PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32)) - PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) - PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) - PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) - - '''''''''''' - If PLOSE.SAVE() Then - - End If - - End If cnt += 1 End If diff --git a/initATLASAufschubkonten/frmRoutineManager.Designer.vb b/initATLASAufschubkonten/frmRoutineManager.Designer.vb index c3011e8..41c56c0 100644 --- a/initATLASAufschubkonten/frmRoutineManager.Designer.vb +++ b/initATLASAufschubkonten/frmRoutineManager.Designer.vb @@ -57,6 +57,7 @@ Partial Class frmRoutineManager Me.lblASBG_Ds = New System.Windows.Forms.Label() Me.lblASUB_Ds = New System.Windows.Forms.Label() Me.TimerClose = New System.Windows.Forms.Timer(Me.components) + Me.Button3 = New System.Windows.Forms.Button() Me.mneNotifyIcon.SuspendLayout() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -68,6 +69,7 @@ Partial Class frmRoutineManager ' 'mneNotifyIcon ' + Me.mneNotifyIcon.ImageScalingSize = New System.Drawing.Size(24, 24) Me.mneNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem}) Me.mneNotifyIcon.Name = "mneNotifyIcon" Me.mneNotifyIcon.Size = New System.Drawing.Size(121, 26) @@ -333,6 +335,7 @@ Partial Class frmRoutineManager ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.Button3) Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.lblEZOLL_Ds) Me.Panel1.Controls.Add(Me.lblASBG_Ds) @@ -403,6 +406,15 @@ Partial Class frmRoutineManager ' Me.TimerClose.Interval = 60000 ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(47, 194) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 23 + Me.Button3.Text = "Button3" + Me.Button3.UseVisualStyleBackColor = True + ' 'frmRoutineManager ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -459,5 +471,5 @@ Partial Class frmRoutineManager Public WithEvents lblEZOLL_Ds As System.Windows.Forms.Label Public WithEvents lblASBG_Ds As System.Windows.Forms.Label Public WithEvents lblASUB_Ds As System.Windows.Forms.Label - + Friend WithEvents Button3 As Button End Class diff --git a/initATLASAufschubkonten/frmRoutineManager.vb b/initATLASAufschubkonten/frmRoutineManager.vb index faacb18..d6e086f 100644 --- a/initATLASAufschubkonten/frmRoutineManager.vb +++ b/initATLASAufschubkonten/frmRoutineManager.vb @@ -27,7 +27,7 @@ Public Class frmRoutineManager ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung '"G:\atlas\atlas\fssouzb" + Public Shared PathATLAS As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_ATLAS_Datensicherung_OLD '"G:\atlas\atlas\fssouzb" ' Dim ico As New NotifyIcon ' Private Sub frmMain_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' icoAufschub.Visible = False @@ -53,8 +53,10 @@ Public Class frmRoutineManager _ Private Shared Sub Run() - ' Create a new FileSystemWatcher and set its properties. - Dim watcher As New FileSystemWatcher() + If False Then ' altes ATLAS + + ' Create a new FileSystemWatcher and set its properties. + Dim watcher As New FileSystemWatcher() watcher.Path = PathATLAS ' Watch for changes in LastAccess and LastWrite times, and ' the renaming of files or directories. @@ -72,7 +74,8 @@ Public Class frmRoutineManager frmRoutineManager.threads.Add(thread) End If End Sub - watcher.EnableRaisingEvents = True + watcher.EnableRaisingEvents = True + End If End Sub Public Sub doWork() @@ -322,6 +325,7 @@ Public Class frmRoutineManager Sub startBRG_EZOLL() If alreadyRunning("thread_EZOLL") Then Exit Sub + Dim thread_EZOLL As _ New System.Threading.Thread(Sub() Run() @@ -471,4 +475,9 @@ Public Class frmRoutineManager Me.Close() End If End Sub + + Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click + Dim cBuergschaften As New cBuergschaften + cBuergschaften.doStuff_EZOLL(HISTORY) + End Sub End Class diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 3378fe3..3856fa4 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -22,19 +22,34 @@ Partial Class frmStartOptions 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button10 = New System.Windows.Forms.Button() + Me.piceZollAnh = New System.Windows.Forms.PictureBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() + Me.Button6 = New System.Windows.Forms.Button() + Me.CheckBox6 = New System.Windows.Forms.CheckBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.CheckBox7 = New System.Windows.Forms.CheckBox() + Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() Me.Button5 = New System.Windows.Forms.Button() Me.LinkLabel32 = New System.Windows.Forms.LinkLabel() Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Button8 = New System.Windows.Forms.Button() Me.LinkLabel28 = New System.Windows.Forms.LinkLabel() Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.PictureBox13 = New System.Windows.Forms.PictureBox() @@ -69,6 +84,8 @@ Partial Class frmStartOptions Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label15 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.cbxOUT_NCTS_TESTORDNER = New System.Windows.Forms.CheckBox() @@ -89,7 +106,17 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.LinkLabel34 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel35 = New System.Windows.Forms.LinkLabel() + Me.Label17 = New System.Windows.Forms.Label() Me.LinkLabel31 = New System.Windows.Forms.LinkLabel() Me.Label12 = New System.Windows.Forms.Label() Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() @@ -102,6 +129,7 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -117,22 +145,9 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.Button6 = New System.Windows.Forms.Button() - Me.CheckBox6 = New System.Windows.Forms.CheckBox() - Me.Button7 = New System.Windows.Forms.Button() - Me.CheckBox7 = New System.Windows.Forms.CheckBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button11 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() + CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() @@ -146,6 +161,7 @@ Partial Class frmStartOptions CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() @@ -159,6 +175,12 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.cbxSyskaWdh) + Me.pnl.Controls.Add(Me.txtSyskaWdhDateiname) + Me.pnl.Controls.Add(Me.Button10) + Me.pnl.Controls.Add(Me.piceZollAnh) + Me.pnl.Controls.Add(Me.txtEZOLLAnhDat) + Me.pnl.Controls.Add(Me.lblEZOLLDat) Me.pnl.Controls.Add(Me.Button6) Me.pnl.Controls.Add(Me.CheckBox6) Me.pnl.Controls.Add(Me.Button7) @@ -202,9 +224,168 @@ Partial Class frmStartOptions Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(861, 720) + Me.pnl.Size = New System.Drawing.Size(861, 827) Me.pnl.TabIndex = 0 ' + 'cbxSyskaWdh + ' + Me.cbxSyskaWdh.AutoSize = True + Me.cbxSyskaWdh.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxSyskaWdh.Location = New System.Drawing.Point(559, 297) + Me.cbxSyskaWdh.Name = "cbxSyskaWdh" + Me.cbxSyskaWdh.Size = New System.Drawing.Size(124, 17) + Me.cbxSyskaWdh.TabIndex = 59 + Me.cbxSyskaWdh.Text = "Buchungen wiederh." + Me.cbxSyskaWdh.UseVisualStyleBackColor = True + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' + 'Button10 + ' + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button10.Location = New System.Drawing.Point(559, 320) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(197, 24) + Me.Button10.TabIndex = 57 + Me.Button10.Text = "TESTBuchungen --> Syska" + Me.Button10.UseVisualStyleBackColor = True + Me.Button10.Visible = False + ' + 'piceZollAnh + ' + Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image) + Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.piceZollAnh.Location = New System.Drawing.Point(500, 190) + Me.piceZollAnh.Name = "piceZollAnh" + Me.piceZollAnh.Size = New System.Drawing.Size(18, 18) + Me.piceZollAnh.TabIndex = 56 + Me.piceZollAnh.TabStop = False + Me.piceZollAnh.Visible = False + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' + 'lblEZOLLDat + ' + Me.lblEZOLLDat.AutoSize = True + Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 193) + Me.lblEZOLLDat.Name = "lblEZOLLDat" + Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13) + Me.lblEZOLLDat.TabIndex = 54 + Me.lblEZOLLDat.TabStop = True + Me.lblEZOLLDat.Text = "EZOLL Anhänge ab:" + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(687, 253) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(136, 24) + Me.Button6.TabIndex = 53 + Me.Button6.Text = "Stammdaten --> Syska" + Me.Button6.UseVisualStyleBackColor = True + ' + 'CheckBox6 + ' + Me.CheckBox6.AutoSize = True + Me.CheckBox6.Checked = True + Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox6.Location = New System.Drawing.Point(745, 280) + Me.CheckBox6.Name = "CheckBox6" + Me.CheckBox6.Size = New System.Drawing.Size(79, 17) + Me.CheckBox6.TabIndex = 52 + Me.CheckBox6.Text = "Testsystem" + Me.CheckBox6.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(559, 253) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(129, 24) + Me.Button7.TabIndex = 49 + Me.Button7.Text = "Buchungen --> Syska" + Me.Button7.UseVisualStyleBackColor = True + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' + 'CheckBox7 + ' + Me.CheckBox7.AutoSize = True + Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox7.Location = New System.Drawing.Point(690, 280) + Me.CheckBox7.Name = "CheckBox7" + Me.CheckBox7.Size = New System.Drawing.Size(56, 17) + Me.CheckBox7.TabIndex = 50 + Me.CheckBox7.Text = "öffnen" + Me.CheckBox7.UseVisualStyleBackColor = True + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(556, 237) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(150, 13) + Me.Label16.TabIndex = 48 + Me.Label16.Text = "Routine Manager VERAG" + ' 'LinkLabel33 ' Me.LinkLabel33.AutoSize = True @@ -221,7 +402,7 @@ Partial Class frmStartOptions Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(482, 141) + Me.Button5.Location = New System.Drawing.Point(15, 340) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(211, 24) Me.Button5.TabIndex = 46 @@ -244,7 +425,7 @@ Partial Class frmStartOptions Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(391, 228) + Me.Button4.Location = New System.Drawing.Point(391, 253) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(136, 24) Me.Button4.TabIndex = 44 @@ -257,7 +438,7 @@ Partial Class frmStartOptions Me.CheckBox5.Checked = True Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox5.Location = New System.Drawing.Point(449, 255) + Me.CheckBox5.Location = New System.Drawing.Point(449, 280) Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Size = New System.Drawing.Size(79, 17) Me.CheckBox5.TabIndex = 43 @@ -269,18 +450,29 @@ Partial Class frmStartOptions Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(268, 228) + Me.Button3.Location = New System.Drawing.Point(268, 253) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(124, 24) Me.Button3.TabIndex = 40 Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox4.Location = New System.Drawing.Point(394, 255) + Me.CheckBox4.Location = New System.Drawing.Point(394, 280) Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Size = New System.Drawing.Size(56, 17) Me.CheckBox4.TabIndex = 41 @@ -291,7 +483,7 @@ Partial Class frmStartOptions ' Me.Label13.AutoSize = True Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(265, 212) + Me.Label13.Location = New System.Drawing.Point(265, 237) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(163, 13) Me.Label13.TabIndex = 39 @@ -313,7 +505,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntr.Location = New System.Drawing.Point(0, 297) + Me.tbcntr.Location = New System.Drawing.Point(0, 404) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 Me.tbcntr.Size = New System.Drawing.Size(859, 421) @@ -321,6 +513,7 @@ Partial Class frmStartOptions ' 'TabPage1 ' + Me.TabPage1.Controls.Add(Me.Button8) Me.TabPage1.Controls.Add(Me.LinkLabel28) Me.TabPage1.Controls.Add(Me.LinkLabel4) Me.TabPage1.Controls.Add(Me.PictureBox13) @@ -362,6 +555,18 @@ Partial Class frmStartOptions Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.UseVisualStyleBackColor = True ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(581, 313) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(211, 24) + Me.Button8.TabIndex = 54 + Me.Button8.Text = "test" + Me.Button8.UseVisualStyleBackColor = True + ' 'LinkLabel28 ' Me.LinkLabel28.AutoSize = True @@ -723,6 +928,8 @@ Partial Class frmStartOptions ' 'TabPage2 ' + Me.TabPage2.Controls.Add(Me.Button11) + Me.TabPage2.Controls.Add(Me.dgvMRN) Me.TabPage2.Controls.Add(Me.Label15) Me.TabPage2.Controls.Add(Me.Label14) Me.TabPage2.Controls.Add(Me.cbxOUT_NCTS_TESTORDNER) @@ -758,6 +965,23 @@ Partial Class frmStartOptions Me.TabPage2.Text = "VERAG Interface" Me.TabPage2.UseVisualStyleBackColor = True ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.Name = "clmnMRN" + ' 'Label15 ' Me.Label15.AutoSize = True @@ -981,8 +1205,141 @@ Partial Class frmStartOptions Me.Label6.TabIndex = 0 Me.Label6.Text = "VERAG IN" ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.LinkLabel34) + Me.TabPage3.Controls.Add(Me.LinkLabel35) + Me.TabPage3.Controls.Add(Me.Label17) Me.TabPage3.Controls.Add(Me.LinkLabel31) Me.TabPage3.Controls.Add(Me.Label12) Me.TabPage3.Controls.Add(Me.LinkLabel29) @@ -995,6 +1352,37 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' + 'LinkLabel34 + ' + Me.LinkLabel34.AutoSize = True + Me.LinkLabel34.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel34.Location = New System.Drawing.Point(11, 177) + Me.LinkLabel34.Name = "LinkLabel34" + Me.LinkLabel34.Size = New System.Drawing.Size(180, 13) + Me.LinkLabel34.TabIndex = 29 + Me.LinkLabel34.TabStop = True + Me.LinkLabel34.Text = "Eingangsnachrichten abrufen PROD" + ' + 'LinkLabel35 + ' + Me.LinkLabel35.AutoSize = True + Me.LinkLabel35.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel35.Location = New System.Drawing.Point(11, 152) + Me.LinkLabel35.Name = "LinkLabel35" + Me.LinkLabel35.Size = New System.Drawing.Size(177, 13) + Me.LinkLabel35.TabIndex = 28 + Me.LinkLabel35.TabStop = True + Me.LinkLabel35.Text = "Eingangsnachrichten abrufen TEST" + ' + 'Label17 + ' + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(11, 125) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(296, 16) + Me.Label17.TabIndex = 27 + Me.Label17.Text = "OREGON Nachrichtenverarbeitung (NCTS TR):" + ' 'LinkLabel31 ' Me.LinkLabel31.AutoSize = True @@ -1073,7 +1461,7 @@ Partial Class frmStartOptions ' Me.CheckBox1.AutoSize = True Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox1.Location = New System.Drawing.Point(173, 255) + Me.CheckBox1.Location = New System.Drawing.Point(173, 280) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(56, 17) Me.CheckBox1.TabIndex = 18 @@ -1085,7 +1473,7 @@ Partial Class frmStartOptions Me.cbxBu.AutoSize = True Me.cbxBu.Checked = True Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxBu.Location = New System.Drawing.Point(87, 255) + Me.cbxBu.Location = New System.Drawing.Point(87, 280) Me.cbxBu.Name = "cbxBu" Me.cbxBu.Size = New System.Drawing.Size(81, 17) Me.cbxBu.TabIndex = 17 @@ -1097,7 +1485,7 @@ Partial Class frmStartOptions Me.cbxKd.AutoSize = True Me.cbxKd.Checked = True Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxKd.Location = New System.Drawing.Point(18, 255) + Me.cbxKd.Location = New System.Drawing.Point(18, 280) Me.cbxKd.Name = "cbxKd" Me.cbxKd.Size = New System.Drawing.Size(63, 17) Me.cbxKd.TabIndex = 16 @@ -1109,7 +1497,7 @@ Partial Class frmStartOptions Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(18, 228) + Me.Button9.Location = New System.Drawing.Point(18, 253) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(211, 24) Me.Button9.TabIndex = 15 @@ -1120,12 +1508,34 @@ Partial Class frmStartOptions ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(15, 212) + Me.Label3.Location = New System.Drawing.Point(15, 237) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(138, 13) Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -1294,244 +1704,24 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - 'Button6 + 'Button11 ' - Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button6.Location = New System.Drawing.Point(687, 228) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(136, 24) - Me.Button6.TabIndex = 53 - Me.Button6.Text = "Stammdaten --> Syska" - Me.Button6.UseVisualStyleBackColor = True - ' - 'CheckBox6 - ' - Me.CheckBox6.AutoSize = True - Me.CheckBox6.Checked = True - Me.CheckBox6.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox6.Location = New System.Drawing.Point(745, 255) - Me.CheckBox6.Name = "CheckBox6" - Me.CheckBox6.Size = New System.Drawing.Size(79, 17) - Me.CheckBox6.TabIndex = 52 - Me.CheckBox6.Text = "Testsystem" - Me.CheckBox6.UseVisualStyleBackColor = True - ' - 'Button7 - ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.Location = New System.Drawing.Point(559, 228) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(129, 24) - Me.Button7.TabIndex = 49 - Me.Button7.Text = "Buchungen --> Syska" - Me.Button7.UseVisualStyleBackColor = True - ' - 'CheckBox7 - ' - Me.CheckBox7.AutoSize = True - Me.CheckBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox7.Location = New System.Drawing.Point(690, 255) - Me.CheckBox7.Name = "CheckBox7" - Me.CheckBox7.Size = New System.Drawing.Size(56, 17) - Me.CheckBox7.TabIndex = 50 - Me.CheckBox7.Text = "öffnen" - Me.CheckBox7.UseVisualStyleBackColor = True - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label16.Location = New System.Drawing.Point(556, 212) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(150, 13) - Me.Label16.TabIndex = 48 - Me.Label16.Text = "Routine Manager VERAG" - ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 251) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 251) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = "10000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "10000" + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(637, 197) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(208, 26) + Me.Button11.TabIndex = 76 + Me.Button11.Text = "Aus Zwischenablage" + Me.Button11.UseVisualStyleBackColor = True ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(861, 720) + Me.ClientSize = New System.Drawing.Size(861, 827) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -1541,6 +1731,7 @@ Partial Class frmStartOptions Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).EndInit() Me.tbcntr.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() @@ -1556,6 +1747,7 @@ Partial Class frmStartOptions CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) @@ -1676,4 +1868,17 @@ Partial Class frmStartOptions Friend WithEvents cboSYSKAFirma As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents CheckBox7 As CheckBox Friend WithEvents Label16 As Label + Friend WithEvents Button8 As Button + Friend WithEvents piceZollAnh As PictureBox + Friend WithEvents txtEZOLLAnhDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblEZOLLDat As LinkLabel + Friend WithEvents LinkLabel34 As LinkLabel + Friend WithEvents LinkLabel35 As LinkLabel + Friend WithEvents Label17 As Label + Friend WithEvents Button10 As Button + Friend WithEvents cbxSyskaWdh As CheckBox + Friend WithEvents txtSyskaWdhDateiname As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents dgvMRN As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents clmnMRN As DataGridViewTextBoxColumn + Friend WithEvents Button11 As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 4fe3046..6879850 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -118,6 +118,30 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj @@ -358,6 +382,9 @@ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + True + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 062ce5b..626e6b8 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -67,6 +67,8 @@ Public Class frmStartOptions cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19")) cboSYSKAFirma.changeItem("") + txtEZOLLAnhDat._value = Now.ToShortDateString + 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 @@ -76,6 +78,7 @@ Public Class frmStartOptions ' Next End If + 'Standart-Errorverhalten ist MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL Select Case PARAM @@ -118,6 +121,19 @@ Public Class frmStartOptions f.Show() AddHandler f.FormClosed, AddressOf closeMe + Case "NCTSTR_EINARBEITUNG_OREGON_TEST" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True) + Me.Visible = False + f.Show() + AddHandler f.FormClosed, AddressOf closeMe + Case "NCTSTR_EINARBEITUNG_OREGON_PROD" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True) + Me.Visible = False + f.Show() + AddHandler f.FormClosed, AddressOf closeMe + Case "UPDATE_SMS" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False @@ -199,7 +215,7 @@ Public Class frmStartOptions If (parameter.Count - 1) >= 5 Then von = parameter(5) VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Then + If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then importFileFromMICMailAnhang(pfad, betreff) Else importFileFromDyMailAnhang(pfad, betreff) @@ -218,6 +234,25 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True) closeMe() + Case "SYSKA_DATEN_BU" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(1, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(1, False) + + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(7, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(7, False) + + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(11, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(11, False) + + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(17, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(17, False) + + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(19, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(19, False) + + closeMe() + Case "UNISPED_BMD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht @@ -230,86 +265,108 @@ Public Class frmStartOptions End Select End Sub - Sub importFileFromEZOLL(datum As Date) + Function importFileFromEZOLL(datum As Date) As Boolean + Try - 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", 20) - 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")) + 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", 200) + 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 + 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"), "") + 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 + 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 + 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 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) + 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 + If destFull <> "" Then + If DS.insertDataToDATENSERVER(destFull) Then + cDHF_Anhaenge.docID = DS.da_id + End If End If End If - End If - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try - cDHF_Anhaenge.SAVE() + 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 + 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 + End If + Next + End If + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Return False + + End Try + End Function + Sub doMailZollbeleg(pfad, art, dy_id) Try Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dy_id) If DY.dy_SendungsId IsNot Nothing AndAlso CInt(DY.dy_SendungsId) > 0 Then - Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId) - Dim list As New List(Of Integer) + doMailZollbeleg(pfad, art, DY.dy_SendungsId, DY.dy_BezugsNr) - sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, DY, SND) - sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, DY, SND) - sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, DY, SND) - sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, DY, SND) - sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, DY, SND) + 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 + + Sub doMailZollbeleg(pfad, art, dy_SendungsId, BezugsNr) + Try + + If dy_SendungsId IsNot Nothing AndAlso CInt(dy_SendungsId) > 0 Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) + Dim list As New List(Of Integer) + sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, BezugsNr, SND) + sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND) + sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, BezugsNr, SND) + sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, BezugsNr, SND) + sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, BezugsNr, SND) End If Catch ex As Exception @@ -317,25 +374,44 @@ Public Class frmStartOptions End Try End Sub + 'Sub doMailZollbelegTC(pfad, art, tc_id) + ' Try - Sub sendMailZollbeleg(pfad As String, KundenNr As Integer, art As String, ByRef list As List(Of Integer), DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, SND As VERAG_PROG_ALLGEMEIN.cSendungen) + ' Dim DY As New TELOTEC_Worker.cTelotec_Anmeldung(tc_id) + ' If DY.telanm_SendungsId IsNot Nothing AndAlso CInt(DY.telanm_SendungsId) > 0 Then + ' Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.telanm_SendungsId) + ' Dim list As New List(Of Integer) + + ' sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, DY, SND) + ' sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, DY, SND) + ' sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, DY, SND) + ' sendMailZollbeleg(pfad, SND.tblSnd_AvisiererKdNr, art, list, DY, SND) + ' sendMailZollbeleg(pfad, SND.tblSnd_AuftraggeberKdNr, art, list, DY, SND) + ' 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 + + Sub sendMailZollbeleg(pfad As String, KundenNr As Integer, art As String, ByRef list As List(Of Integer), BezugsNr As String, SND As VERAG_PROG_ALLGEMEIN.cSendungen) Try If KundenNr > 0 Then - If Not list.Find(Function(x) x = KundenNr) Then 'nicht bereits verarbeitet + If Not list.Exists(Function(x) x = KundenNr) Then 'nicht bereits verarbeitet list.Add(KundenNr) Dim pfadList As New List(Of String) pfadList.Add(pfad) Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing AndAlso KD.EmailFreigabe Then - If KD_ERW.EmailFreigabe_Art = "BLG" Then - + If KD_ERW.EmailFreigabe_Art = "BLG" Or art = "AVM" Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV Dim Standort = "SUB" Select Case SND.FilialenNr Case "5501" : Standort = "IMX" Case "5601" : Standort = "UNI" - Case "5701" : Standort = "FO" - Case "5801" : Standort = "AMB" + Case "5701" : Standort = "AMB" + Case "5801" : Standort = "FO" Case "4801" : Standort = "ATL" Case "5003" : Standort = "SBG" Case "5103" : Standort = "WAI" @@ -355,6 +431,11 @@ Public Class frmStartOptions Dim cStandort = cStandorteDAL.LesenStandort(-1, "", "SELECT * FROM Standorte WHERE Standort = '" & Standort & "'") Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SND.FilialenNr) + '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & Standort & vbNewLine & cStandort.eMail_Zollbeleg_Betreff & vbNewLine & cStandort.eMail_Zollbeleg_Text, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg" betreff = betreff.Replace("%LKW%", "") betreff = betreff.Replace("%Standort%", "") @@ -372,29 +453,49 @@ Public Class frmStartOptions ' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC) body = body.Replace("%Platzhalter%", "") - EMails = "al@verag.ag" - EMails_CC = "" - EMails_BCC = "" + + + ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + 'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + ''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + '!!!!!!!!!!!!!!!!!!!!!!!!!! + 'EMails = "luxbauer@gmail.com" + 'EMails_CC = "" + 'EMails_BCC = "" + '!!!!!!!!!!!!!!!!!!!!!!!!!! + + If EMails_BCC = "" Then + EMails_BCC = "al@verag.ag" + Else + EMails_BCC &= ";al@verag.ag" + End If + Select Case art Case "STB" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & DY.dy_BezugsNr) + betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) End If Case "VBD" If KD_ERW.EmailFreigabe_VBDPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & DY.dy_BezugsNr) + betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) End If Case "ABD" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & DY.dy_BezugsNr) + betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) End If Case "AVM" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & DY.dy_BezugsNr) + betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) + End If + Case "ZNV" + If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then + betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) End If End Select @@ -420,7 +521,6 @@ Public Class frmStartOptions End Function Sub importFileFromMICMailAnhang(pfad, betreff) - Try Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing @@ -573,6 +673,17 @@ Public Class frmStartOptions End If End If + ElseIf betreff = "Report nctsTransDeclGuarantees generated successfully" Then + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\NCTS_XLS\" & Now.Year & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + moveFile(pfad, ZIEL_PFAD, destFull) + + doExcelImportNCTS_FREMD(destFull) + + End If ' GENERELLES NOT IDENTIFIED!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! @@ -590,8 +701,124 @@ Public Class frmStartOptions End Try End Sub + Public Function FileInUse(ByVal sFile As String) As Boolean + If System.IO.File.Exists(sFile) Then + Try + Dim F As Short = FreeFile() + FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite) + FileClose(F) + Catch + Return True + End Try + End If + End Function + + Function doExcelImportNCTS_FREMD(destFull As String) As Boolean + 'Excel2.Workbooks.Open(destFull,, True) + Dim Excel1 As Object 'New Microsoft.Office.Interop.Excel.Application + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + Excel1 = CreateObject("Excel.Application") + Dim txt As String + Dim Datei As Object 'as WorkBook + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(destFull, "00", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Try + With Excel1 + + Datei = .Workbooks.Open(destFull,, True) 'Anpassen + 'Try + ' Datei = .Workbooks.Open(destFull,, True) 'Anpassen + 'Catch ex As Exception + ' System.Threading.Thread.Sleep(5000) ' 5 Sek. warten --> noch Zugriff vom Erstellen? + ' Datei = .Workbooks.Open(destFull,, True) + 'End Try + + Blatt = Datei.Worksheets(1) 'Anpassen + + 'Excel1.Workbooks.Open(destFull) + 'Excel1.Visible = True ....wers braucht ? + + Dim zeile = 2 + 'txt ="" + While zeile <= 10000 AndAlso Blatt.Range("A" & zeile) IsNot Nothing AndAlso Blatt.Range("F" & zeile) IsNot Nothing AndAlso Blatt.Range("A" & zeile).Value = "GB" + ' If zeile < 5 Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MIC", "AA", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + 'asd + Dim MRN = Blatt.Range("F" & zeile).Value + If MRN <> "" Then + 'If zeile < 5 Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MIC", "OO", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True) + If NCTS_FREMD Is Nothing Then NCTS_FREMD = New VERAG_PROG_ALLGEMEIN.cNCTS_TR() + + Dim StatusTxt = Blatt.Range("G" & zeile).Value + + NCTS_FREMD.ncts_ObjectName = Blatt.Range("H" & zeile).Value + NCTS_FREMD.ncts_MRN = MRN + NCTS_FREMD.ncts_Partnersystem = "MIC" + NCTS_FREMD.ncts_ArtAnmeldung = Blatt.Range("D" & zeile).Value + + NCTS_FREMD.ncts_Trans_DatumZeit = Blatt.Range("E" & zeile).Value + NCTS_FREMD.ncts_Erstellung = Blatt.Range("E" & zeile).Value + NCTS_FREMD.ncts_Eroeffnung = Blatt.Range("E" & zeile).Value + NCTS_FREMD.ncts_Ankunft = Blatt.Range("U" & zeile).Value + NCTS_FREMD.ncts_Erledigung = Blatt.Range("U" & zeile).Value 'WriteOff ->nicht sicher + + NCTS_FREMD.ncts_AbgangsDienststellennummer = Blatt.Range("M" & zeile).Value + NCTS_FREMD.ncts_BestimmungsstelleDienststellennummer = Blatt.Range("N" & zeile).Value + NCTS_FREMD.ncts_VersendungsLandCode = Blatt.Range("K" & zeile).Value + NCTS_FREMD.ncts_BestimmungslandCode = Blatt.Range("L" & zeile).Value + NCTS_FREMD.ncts_Wiedergestellungsdatum = Blatt.Range("T" & zeile).Value 'Frist + If StatusTxt.ToString.Contains("Write-off notification") Then + NCTS_FREMD.ncts_Status = 60 + ElseIf StatusTxt.ToString.Contains("Release for transit") Then + NCTS_FREMD.ncts_Status = 50 + Else + NCTS_FREMD.ncts_Status = 5 + End If + NCTS_FREMD.ncts_Status_KEWILL_Equivalent = NCTS_FREMD.ncts_Status + + NCTS_FREMD.ncts_SICHERHEITSANGABEN.Clear() + Dim GRN As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Sicherheitsangaben + GRN.nctsSA_GRN = Blatt.Range("P" & zeile).Value + GRN.nctsSA_AbgabenBetrag = Blatt.Range("R" & zeile).Value 'GBP????? + NCTS_FREMD.ncts_SICHERHEITSANGABEN.Add(GRN) + NCTS_FREMD.SAVE_ALL() + + End If + zeile += 1 + + End While + + End With + + Excel1.Workbooks.Close + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1) + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt) + Excel1 = Nothing + Blatt = Nothing + GC.Collect() + + 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) + + Try + Excel1.Workbooks.Close + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1) + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt) + Excel1 = Nothing + Blatt = Nothing + GC.Collect() + + Catch ex2 As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + End Try + End Try + Return False + End Function Function insertIntoSpedBuch_MIC(FilialenNr As Integer, AbfertigungsNr As Integer, AtlasBezNrNCTS As String, AtlasBezNrEZA As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, MRN As String) As Boolean 'Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch @@ -699,9 +926,35 @@ Public Class frmStartOptions 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.contains("Registriernr.: ATD") Then ' ZNV!!!! + betreff = sp(0).Trim + Dim SND_ID = sql.getValueTxtBySql("SELECT TOP (1) [tblSnd_SendungID] FROM [tblSendungen] where '" & betreff.ToString.Trim & "' LIKE (cast(FilialenNr as varchar(4))+ '/' + cast(AbfertigungsNr as varchar(8))+'%')", "AVISO") + If IsNumeric(SND_ID) AndAlso SND_ID > 0 Then + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "ZNV", "SND_ID_" & SND_ID, "", "", betreff.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + Dim destFull = "" + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\ZNV\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + moveFile(pfad, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) 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! + doMailZollbeleg(DS.GET_TOP1_PATH, "ZNV", SND_ID, betreff) + End If + + End If + + + Else ' STB !!!! + + + 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 @@ -727,6 +980,7 @@ Public Class frmStartOptions End If End If + End If End If 'ABD @@ -1016,12 +1270,14 @@ Public Class frmStartOptions 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) + Dim tmpExt = "" While IO.File.Exists(dest) Or IO.File.Exists(dest).ToString.Replace(".tmp_", "") 'wenn mit oder ohen .tmp_ existiert... - dest = toDirectory & ".tmp_" & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file) + tmpExt = Now.ToString("yyMMdd_HHmmss.fff_") + dest = toDirectory & ".tmp_" & tmpExt & cut_file(file) End While 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_", "") + IO.File.Move(dest, dest.ToString.Replace(".tmp_" & tmpExt, "")) ' Umbenennen der Datei --> der "." am Anfang dient dazu, dass die Datei nicht abgegriffen wird, während sie kopiert wird! + dest = dest.ToString.Replace( ".tmp_" & tmpExt, "") Return True End Function @@ -1124,9 +1380,9 @@ Public Class frmStartOptions Function getUID_Pruefung(maxAnz As Integer) As Boolean - getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag") - getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;la@verag.ag", "al@verag.ag") - getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "la@verag.ag", "al@verag.ag") + getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag", "al@verag.ag") + getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag", "al@verag.ag") + getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag") getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag") 'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag") @@ -1175,7 +1431,7 @@ Public Class frmStartOptions Body &= "

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

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("mm@verag.ag;la@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list) ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) End If End If @@ -1203,7 +1459,7 @@ Public Class frmStartOptions Body &= "

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

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;la@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list) ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) End If End If @@ -1231,7 +1487,7 @@ Public Class frmStartOptions Body &= "

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

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("la@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list) ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) End If End If @@ -1569,7 +1825,6 @@ Public Class frmStartOptions 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) @@ -1611,11 +1866,71 @@ Public Class frmStartOptions Private Sub TabPage2_Click(sender As Object, e As EventArgs) End Sub + Private Sub form1_KeyUp(ByVal sender As Object, ByVal e As EventArgs) Handles Button11.Click + + + Dim rowSplitter As Char() = {vbCr, vbLf} + Dim columnSplitter As Char() = {vbTab} + Dim dataInClipboard As IDataObject = Clipboard.GetDataObject() + Dim stringInClipboard As String = CStr(dataInClipboard.GetData(DataFormats.Text)) + Dim rowsInClipboard As String() = stringInClipboard.Split(rowSplitter, StringSplitOptions.RemoveEmptyEntries) + Dim r As Integer = 0 'dgvMRN.SelectedRows(0).Index + Dim c As Integer = 0 'dgvMRN.SelectedRows(0).Cells(0).ColumnIndex + + MsgBox(rowsInClipboard.Length) + If dgvMRN.Rows.Count < (r + rowsInClipboard.Length) Then + dgvMRN.Rows.Add(r + rowsInClipboard.Length - dgvMRN.Rows.Count) + End If + + For iRow As Integer = 0 To rowsInClipboard.Length - 1 + Dim valuesInRow As String() = rowsInClipboard(iRow).Split(columnSplitter) + + For iCol As Integer = 0 To valuesInRow.Length - 1 + + If dgvMRN.ColumnCount - 1 >= c + iCol Then + dgvMRN.Rows(r + iRow).Cells(c + iCol).Value = valuesInRow(iCol) + End If + Next + Next + End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Dim ftmp As Object = If(IsNumeric(txtVRGOut_FilialenNr.Text.Trim), txtVRGOut_FilialenNr.Text, Nothing) Dim atmp As Object = If(IsNumeric(txtVRGOut_AbfertigungsNr.Text.Trim), txtVRGOut_AbfertigungsNr.Text, Nothing) + + 'DGV------------------------------------ + If dgvMRN.Rows.Count - 1 > 0 Then + For Each r As DataGridViewRow In dgvMRN.Rows + If r.Cells(0) IsNot Nothing Then + Dim BezugsNrDgv = "" + Dim okDGV = False + Dim mrn = r.Cells(0).Value + If If(mrn, "") <> String.Empty Then + Select Case MyComboBox1._value + Case "DY" + BezugsNrDgv = cVERAG_out_ncts.getBezugnNr_ByMRN(mrn) + okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp) + Case "TC" + BezugsNrDgv = TELOTEC_Worker.cTelotec_Anmeldung.getBezugnNr_ByMRN(mrn) + okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp) + Case "DHF" + BezugsNrDgv = cVERAG_out_ncts.getLRN_ByCRN(mrn) + okDGV = cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(BezugsNrDgv, getISett, ftmp, atmp) + End Select + End If + If okDGV Then + r.DefaultCellStyle.BackColor = Color.LightGreen + Else + r.DefaultCellStyle.BackColor = Color.IndianRed + End If + End If + Me.Refresh() + Next + Exit Sub + End If + '------------------------------------ + Dim BezugsNr = txtVRGOut_BezugsNr.Text If txtVRGOut_BezugsNr.Text.Trim = "" And txtVRGOut_MRN.Text <> "" Then @@ -1888,11 +2203,15 @@ Public Class frmStartOptions End Function Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click + If cbxSyskaWdh.Checked And txtSyskaWdhDateiname.Text = "" Then + MsgBox("Dateiname angeben!") : Exit Sub + End If + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox6.Checked 'False If cboSYSKAFirma._value = "" Then - VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_ALL(CheckBox7.Checked, False, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "")) Else - VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked) + VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(cboSYSKAFirma._value, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "")) End If End Sub @@ -1904,4 +2223,44 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(cboSYSKAFirma._value, CheckBox7.Checked) End If End Sub + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click + doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx")) + 'Dim list As New List(Of Integer) + 'Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(572237) + 'Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId) + + 'sendMailZollbeleg("C:\VeragTMP\USER_4\VERG-SYS_IMP_ZOLL_TAX-IPDC-4803_21061055-ATC400039161120217701-$V8.pdf", 750735, "STB", list, DY.dy_BezugsNr, SND) + End Sub + + Private Sub lblEZOLLDat_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEZOLLDat.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim bool = importFileFromEZOLL(txtEZOLLAnhDat._value) + showPic(bool, piceZollAnh) + End Sub + + Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged + + End Sub + + Private Sub LinkLabel35_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel35.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON + f.ShowDialog() + Me.Visible = True + End Sub + + Private Sub LinkLabel34_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel34.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON + f.ShowDialog() + Me.Visible = True + End Sub + + Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_StammdatenTEST(1, True) + End Sub + End Class \ No newline at end of file diff --git a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb index 067231c..2c84f03 100644 --- a/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb @@ -291,6 +291,97 @@ Public Class frmTCNachrichtenVerarbeitung ' If bezugsNr <> "" Then addDGVEinarbeitung("NCTS: Versandbestätigung", bezugsNr) : found = True End If + + ElseIf fi.Extension = ".pdf" AndAlso fi.Name.Contains("_") Then + Dim split = fi.Name.ToString.Replace(".pdf", "").Split("_") + Dim CRN = "" + Dim tc_id = "" + Dim Anm_id = "" + Dim typeMsg = "" + Dim BezugsNr = "" + + If split.Length > 0 Then CRN = split(0) + If split.Length > 1 Then Anm_id = split(1) + If split.Length > 2 Then typeMsg = split(2) + + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing + + tc_id = SQL.DLookup("[telanm_id]", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL") + BezugsNr = SQL.DLookup("Refs_LRN", "tblTelotec_Anmeldung", "telanm_CRN='" & CRN & "'", "FMZOLL") + + If BezugsNr <> String.Empty Then + + + Select Case typeMsg + Case "EZ923" 'STB + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Steuerbescheid_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Steuerbeleg='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Steuerbeleg is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: STEUERBESCHEID ", BezugsNr) + + + Case "EZ922" 'STB Mitteilung + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "STEUERBESCHEID_MITT", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\STEUERBESCHEID\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_Mitteilung_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_Mitteilung='" & DS.da_id & "' where AtlasBezNrEZA='" & BezugsNr.ToString.Trim & "' AND DokumentId_Mitteilung is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "STEUERBESCHEID", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: STEUERBESCHEID (Mittlg.) ", BezugsNr) + + Case "TR109" 'VBD + + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", tc_id, "", "", BezugsNr.ToString.Replace("/", "-").Replace(",", "-").Replace("\", "-").Replace(":", "."), 0, False) + DS.da_vorlage = False + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\NOT_IDENTIFIED\" + If IsNumeric(tc_id) AndAlso tc_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(d, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(tc_id) AndAlso tc_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & BezugsNr.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", tc_id) + End If + End If + found = True + addDGVEinarbeitung("PDF: VBD ", BezugsNr) + + End Select + End If End If If True Then @@ -589,6 +680,9 @@ Public Class frmTCNachrichtenVerarbeitung If TC.telanm_BezugsNr.ToString.StartsWith("5501") Then TC.telanm_firma = "IMEX" 'VERAG WO End If + If TC.telanm_BezugsNr.ToString.StartsWith("4801") Then + TC.telanm_firma = "IMEX" 'VERAG WO + End If TC.telanm_niederlassung = "SUB" TC.telanm_Erstellung = Now @@ -946,12 +1040,12 @@ Public Class frmTCNachrichtenVerarbeitung Try cmd.ExecuteNonQuery() - 'Lösche File: - Try - System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) - Catch ex As Exception - writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) - End Try + ''Lösche File: --> vom ALTEN ATLAS + 'Try + ' System.IO.File.Delete(frmRoutineManager.PathATLAS & "\" & brgak_filename) + 'Catch ex As Exception + ' writeLog("ERROR", "Fehler beim Löschen der Aufschub-Datei: " & ex.Message) + 'End Try Return True Catch ex As System.Data.SqlClient.SqlException writeLog("ERROR", "Fehler beim Schreiben in die Datenbank: " & ex.Message) diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.Designer.vb similarity index 100% rename from initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.Designer.vb rename to initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.Designer.vb diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.resx b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.resx similarity index 100% rename from initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.resx rename to initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.resx diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb new file mode 100644 index 0000000..96e662b --- /dev/null +++ b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_MAVI.vb @@ -0,0 +1,569 @@ +Imports System.IO +Imports System.Globalization +Imports System.Xml +Imports Renci.SshNet +Imports System.Net +Imports System.Text + +Public Class frmTRNCTS_NachrichtenVerarbeitung + Dim cntDatenEingelesen As Integer = 0 + Dim dsNichtErkannt As Integer = 0 + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim allowClose = False + ' Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\" + + Dim TELOTEC_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" + Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" + Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\" + Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\" + Dim PARTNERSYSTEM = "MAVI" + Dim SERVER_Path = "" + Dim SERVER_Path_TEST = "" + ' Dim BOX_VERSION = "8.8" + + Dim Dateiname = "" + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub New(allowClose) 'autostart + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.allowClose = allowClose + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub initPfade() + Me.SERVER_Path = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("SERVER_Path", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.SERVER_Path_TEST = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("SERVER_Path_TEST", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.TELOTEC_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.VERARBEITUNGS_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\" + Me.ZIEL_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\" + Me.ERROR_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\" + If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD) + + 'Me.BOX_VERSION = NCTSTR_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + + End Sub + + + Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load + initPfade() + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + ListBox3.Items.Add(frmStartOptions.cut_file(d)) + Me.Refresh() + Next + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Me.Enabled = False + Try + Label9.Visible = True + Dim cnt = getNachrichtenDatenFromMAVIServices() + Label9.Text = cnt & " Datensätze empfangen." + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Enabled = True + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Me.Enabled = False + Try + Label5.Visible = True + + DatenEinlesen() '<<<<------------ + + If dsNichtErkannt > 0 Then + + Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." + Label6.Visible = True + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Enabled = True + Label5.Text = cntDatenEingelesen & " Datensätze verarbeitet." + + End Sub + + + Function getNachrichtenDatenFromMAVIServices() As Integer + Dim cnt = 0 + Try + Dim SERVER_Path = "" + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + + SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\" + Else + + SERVER_Path = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\" + End If + + + For Each f In IO.Directory.GetFiles(SERVER_Path) + Dim fi As New IO.FileInfo(f) + If Not fi.Name.StartsWith(".") Then + Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name + While IO.File.Exists(zielPfad) + zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name + End While + IO.File.Copy(f, zielPfad) + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + If IO.File.Exists(zielPfad) Then IO.File.Delete(f) + End If + + ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen + + cnt += 1 + End If + Next + + + Return cnt + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return cnt + End Function + + + Function getNachrichtenDatenFromMAVIServices_ALTERNATIV() As Integer + Dim cnt = 0 + Try + For Each f In IO.Directory.GetFiles(TELOTEC_PFAD) + Dim FI As New FileInfo(f) + If Not FI.Name.StartsWith(".") Then + 'Temp. DownloadPfad + Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + + 'Datei herunterladen + IO.File.Copy(f, destFilenameTMP) + If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(f) 'Datei nach erfolgreichem Herunterladen vom Server löschen + + 'Gültiger Filename + Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & FI.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & FI.Name + IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + + Dim fi_dest As FileInfo = New FileInfo(destFilename) + ListBox3.Items.Add(frmStartOptions.cut_file(fi_dest.Name)) 'zur Liste hinzufügen + cnt += 1 + lblDatenCnt.Text = cnt + Me.Refresh() + End If + Next + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return cnt + + 'Dim cnt = 0 + 'Try + ' Dim DY_server = "" + ' Dim DY_name = "" + ' Dim DY_pwd = "" + ' Dim DY_port = "" + ' Dim DY_PFAD_out = "" + + ' 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)) + ' Using client = New SftpClient(ConnectionInfo) + ' client.Connect() + + ' For Each f In client.ListDirectory(DY_PFAD_out) + ' ' MsgBox(f.Name) + ' If Not f.Name.StartsWith(".") Then + ' 'Temp. DownloadPfad + ' Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name + + ' 'Datei herunterladen + ' Dim downloadFileStream As Stream = File.OpenWrite(destFilenameTMP) + ' client.DownloadFile(f.FullName, downloadFileStream) + ' If IO.File.Exists(destFilenameTMP) Then client.DeleteFile(f.FullName) 'Datei nach erfolgreichem Herunterladen vom Server löschen + ' downloadFileStream.Dispose() + + ' 'Gültiger Filename + ' Dim destFilename = VERARBEITUNGS_PFAD & If(IO.File.Exists(VERARBEITUNGS_PFAD & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name + ' IO.File.Move(destFilenameTMP, destFilename) 'Datei umbenennen + + ' Dim fi As FileInfo = New FileInfo(destFilename) + ' ListBox3.Items.Add(frmStartOptions.cut_file(fi.Name)) 'zur Liste hinzufügen + ' cnt += 1 + ' End If + ' Next + ' client.Disconnect() + ' End Using + 'Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 'End Try + + 'Return cnt + End Function + + + + + + ' Dim toEncodeAsBytes() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(toEncode) + ' string returnValue = System.Convert.ToBase64String(toEncodeAsBytes) + Public Function stripNonValidXMLCharacters(ByVal textIn As String) As String + Dim textOut As System.Text.StringBuilder = New System.Text.StringBuilder() + Dim current As Char + If textIn Is Nothing OrElse textIn = String.Empty Then Return String.Empty + For i As Integer = 0 To textIn.Length - 1 + current = textIn(i) + If (current = "9" OrElse current = "10" OrElse current = "13") OrElse ((current >= "32") AndAlso (current <= "55295")) OrElse ((current >= "57344") AndAlso (current <= "65533")) OrElse ((current >= "65536") AndAlso (current <= "1114111")) Then + textOut.Append(current) + End If + Next + + Return textOut.ToString() + End Function + + Public Function SanitizeXmlString(ByVal xml As String) As String + If xml Is Nothing Then + Throw New ArgumentNullException("xml") + End If + + Dim buffer As System.Text.StringBuilder = New System.Text.StringBuilder(xml.Length) + For Each c As Char In xml + If IsLegalXmlChar(Asc(c)) Then + buffer.Append(c) + End If + Next + + Return buffer.ToString() + End Function + + Public Function IsLegalXmlChar(ByVal character As Integer) As Boolean + Return (character = 9 OrElse character = 10 OrElse character = 13 OrElse (character >= 32 AndAlso character <= 55295) OrElse (character >= 57344 AndAlso character <= 65533) OrElse (character >= 65536 AndAlso character <= 1114111)) + End Function + + + + Sub DatenEinlesen() + + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + + If ListBox3.Items.Count = 0 Then + Label6.Text = "Keine Daten zum Einlesen vorhanden." + Label6.Visible = True + Exit Sub + End If + + + For NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten + + For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD) + Try + Dateiname = d + cWorker_NCTS.Dateiname = d + If IO.File.Exists(d) Then + Dim found = False + Dim nr_id As Integer = -1 + Dim fi As FileInfo = New FileInfo(d) + If Not fi.Name.StartsWith(".") Then + + ' EDIFACT + ' If fi.Extension = ".edi" Then + Dim alreadyMoved = False + + Dim NACHRICHTENTYP_notfound = False + + If fi.Extension.ToLower = ".xml" Then + 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(d, System.Text.UTF8Encoding.Default) + + doc.LoadXml(SanitizeXmlString(XML_Code)) + Dim VERSION As String = "" + + '------------------------------------------------------------------------------------------------------------------------------ + ' eZOLL + '------------------------------------------------------------------------------------------------------------------------------ + + + '------------------------------------------ + '------------------ Anmeldung ------------------ + '------------------------------------------ + 'MAVI: CC015B - Versandanmeldung Final + + Select Case NACHRICHTENTYP + Case 1 + 'NCTS: Versandanmeldung + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then + If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + Case 2 + 'NCTS: Versandanmeldung - Ergänzung GUID + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then + If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 3 + 'NCTS: BestätigungZoll + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 4 + 'NCTS: Guarantee + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 5 + 'NCTS: Ankunftsanzeige + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then + If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + Case 6 + 'NCTS: Erledigungsmitteilung + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then + If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + Case 7 + 'NCTS: Cancellation decision CC009A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then + If cMAVIWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 8 + 'NCTS: Declaration rejected CC016A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then + If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 9 + 'NCTS: No release for transit – type B CC051B + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then + If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + + + Case 10 + NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden + End Select + End If + + + Dim destPath = "" + If found Then + If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath) + cntDatenEingelesen += 1 + Else + If NACHRICHTENTYP_notfound Then + frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,. + dsNichtErkannt += 1 + End If + End If + + If destPath <> "" And nr_id > 0 Then + VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath) + End If + + Me.Refresh() + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Next + + + Next + + End Sub + + + + Function getString(doc As XmlDocument) As Boolean + If doc.HasChildNodes Then + ' If doc.GetElementsByTagName("DakosyMessageInternal").Count > 0 Then + Dim sw = New StringWriter() + Dim xw = New XmlTextWriter(sw) + doc.WriteTo(xw) + Dim XmlString = sw.ToString() + End If + Return False + End Function + + + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + Me.Close() + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Me.Close() + End Sub + + + + Sub addDGVEinarbeitung(art, BezugsNr) + dgvEinarbeitung.Rows.Add(art, BezugsNr) + Try + dgvEinarbeitung.FirstDisplayedScrollingRowIndex = dgvEinarbeitung.RowCount - 1 + Catch ex As Exception + End Try + End Sub + + + + + + + Function readPLOSE_Detail(d As String) As String + ' Try + ' readPLOSE_Detail = "" + ' Dim KdnR = "" + + ' Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(d, Encoding.UTF8) + ' MyReader.TextFieldType = FileIO.FieldType.Delimited + ' MyReader.SetDelimiters(";") + ' Dim currentRow As String() + + ' Dim cnt = 0 + ' If True Then + + ' While Not MyReader.EndOfData + ' Try + ' currentRow = MyReader.ReadFields() + + + ' If currentRow.Length > 24 Then + ' Dim PLOSE As New cNCTSPartnerWorker.cPLOSE + + + ' PLOSE.plose_Datensatztyp = SQL.isleernothing(currentRow(0)) + ' PLOSE.plose_KodexMautTankstelle = SQL.isleernothing(currentRow(1)) + ' PLOSE.plose_BeschreibungMautTankstelle = SQL.isleernothing(currentRow(2)) + ' PLOSE.plose_KodexEinfahrt = SQL.isleernothing(currentRow(3)) + ' PLOSE.plose_BeschreibungEinfahrt = SQL.isleernothing(currentRow(4)) + ' PLOSE.plose_KodexAusfahrt = SQL.isleernothing(currentRow(5)) + ' PLOSE.plose_BeschreibungAusfahrt = SQL.isleernothing(currentRow(6)) + ' PLOSE.plose_Kartenkodex = SQL.isleernothing(currentRow(7)) + ' PLOSE.plose_Kontonummer = SQL.isleernothing(currentRow(8)) + ' PLOSE.plose_NummerKarteGeraet = SQL.isleernothing(currentRow(9)) + ' PLOSE.plose_Kennzeichen = SQL.isleernothing(currentRow(10)) + ' PLOSE.plose_InterneNrFahrzeug = SQL.isleernothing(currentRow(11)) + ' PLOSE.plose_POLSEKundennummer = SQL.isleernothing(currentRow(12)) + ' PLOSE.plose_Firmenname = SQL.isleernothing(currentRow(13)) + ' PLOSE.plose_DatumTransaktion = SQL.isleernothingDateFormatstring(currentRow(14)) + ' PLOSE.plose_Produktbeschreibung = SQL.isleernothing(currentRow(15)) + ' PLOSE.plose_Menge = SQL.isNullNothingDbl(currentRow(16)) + ' PLOSE.plose_Preis = SQL.isNullNothingDbl(currentRow(17)) + ' PLOSE.Einheitsrabatt = SQL.isleernothing(currentRow(18)) + ' PLOSE.plose_NettobetragTransaktion = SQL.isNullNothingDbl(currentRow(19)) + ' PLOSE.plose_MWSTBetrag = SQL.isNullNothingDbl(currentRow(20)) + ' PLOSE.plose_BruttobetragTransaktion = SQL.isNullNothingDbl(currentRow(21)) + ' PLOSE.plose_NettobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(22)) + ' PLOSE.plose_MWSTBetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(23)) + ' PLOSE.plose_BruttobetragWaehrungAbbuchung = SQL.isNullNothingDbl(currentRow(24)) + ' PLOSE.plose_WaehrungLandDiesntleistung = SQL.isleernothing(currentRow(25)) + ' PLOSE.plose_WaehrungAbbuchung = SQL.isleernothing(currentRow(26)) + ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(27)) + ' PLOSE.plose_ArtTransaktion = SQL.isleernothing(currentRow(28)) + ' PLOSE.plose_Fahrzeugklasse = SQL.isleernothing(currentRow(29)) + ' PLOSE.plose_KlassenidentifikationEURO = SQL.isleernothing(currentRow(30)) + ' PLOSE.plose_ProduktbeschreibungShort = SQL.isleernothing(currentRow(31)) + ' PLOSE.plose_DokumentNrQuittungUhrzeit = SQL.isleernothing(currentRow(32)) + ' PLOSE.plose_Geraetetyp = SQL.isleernothing(currentRow(33)) + ' PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) + ' PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) + + ' '''''''''''' + ' If PLOSE.SAVE() Then + + ' End If + + ' End If + + ' cnt += 1 + + ' 'For Each currentField In currentRow + ' 'Next + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + ' End While + + + ' 'Label30.Text = (cnt + 1) & " / " & LineCount + ' 'Label31.Visible = True + ' readPLOSE_Detail = "Zeilen: " & cnt + ' Else + ' MsgBox("FEHLER beim Löschen der vorhandenen OP-Liste.") + ' End If + ' End Using + + + + + ' Try + ' ' System.IO.File.Delete(p) + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try + + ' addDGVEinarbeitung("PLOSE: Detail" & KdnR, readPLOSE_Detail) + + ' ' End Using + + ' 'End If + + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' MsgBox(ex.StackTrace & ex.Message) + ' readPLOSE_Detail = "" + ' End Try + End Function + + + Private Sub dgvEinarbeitung_SelectionChanged(sender As Object, e As EventArgs) Handles dgvEinarbeitung.SelectionChanged + dgvEinarbeitung.ClearSelection() + + End Sub + + + + + + + Private Sub frmTCNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If allowClose Then + Me.Refresh() + + Button2.PerformClick() + Button1.PerformClick() + + System.Threading.Thread.Sleep(2000) + + Me.Close() + End If + End Sub + + Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint + + End Sub +End Class + diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb new file mode 100644 index 0000000..ee80f60 --- /dev/null +++ b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb @@ -0,0 +1,260 @@ + +Partial Class frmTRNCTS_NachrichtenVerarbeitung_OREGON + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTRNCTS_NachrichtenVerarbeitung_OREGON)) + Me.btn = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.lblDatenCnt = New System.Windows.Forms.Label() + Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label9 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.ListBox3 = New System.Windows.Forms.ListBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.pnl.SuspendLayout() + CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'btn + ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn.BackColor = System.Drawing.Color.Red + Me.btn.FlatAppearance.BorderColor = System.Drawing.Color.Gray + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btn.ForeColor = System.Drawing.Color.White + Me.btn.Location = New System.Drawing.Point(379, -1) + Me.btn.Margin = New System.Windows.Forms.Padding(0) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(75, 22) + Me.btn.TabIndex = 6 + Me.btn.Text = "X" + Me.btn.UseVisualStyleBackColor = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.lblDatenCnt) + Me.pnl.Controls.Add(Me.dgvEinarbeitung) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.ListBox3) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.btnOK) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.btn) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(456, 319) + Me.pnl.TabIndex = 1 + ' + 'lblDatenCnt + ' + Me.lblDatenCnt.AutoSize = True + Me.lblDatenCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblDatenCnt.Location = New System.Drawing.Point(309, 132) + Me.lblDatenCnt.Name = "lblDatenCnt" + Me.lblDatenCnt.Size = New System.Drawing.Size(13, 13) + Me.lblDatenCnt.TabIndex = 19 + Me.lblDatenCnt.Text = "0" + Me.lblDatenCnt.Visible = False + ' + 'dgvEinarbeitung + ' + Me.dgvEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvEinarbeitung.AllowUserToAddRows = False + Me.dgvEinarbeitung.AllowUserToDeleteRows = False + Me.dgvEinarbeitung.AllowUserToOrderColumns = True + Me.dgvEinarbeitung.AllowUserToResizeColumns = False + Me.dgvEinarbeitung.AllowUserToResizeRows = False + Me.dgvEinarbeitung.BackgroundColor = System.Drawing.Color.White + Me.dgvEinarbeitung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvEinarbeitung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Column1}) + Me.dgvEinarbeitung.Location = New System.Drawing.Point(12, 164) + Me.dgvEinarbeitung.Name = "dgvEinarbeitung" + Me.dgvEinarbeitung.RowHeadersVisible = False + Me.dgvEinarbeitung.Size = New System.Drawing.Size(291, 145) + Me.dgvEinarbeitung.TabIndex = 18 + ' + 'clmnArt + ' + Me.clmnArt.HeaderText = "Art" + Me.clmnArt.Name = "clmnArt" + Me.clmnArt.Width = 150 + ' + 'Column1 + ' + Me.Column1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Column1.HeaderText = "BezugsNr" + Me.Column1.Name = "Column1" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(306, 103) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(44, 13) + Me.Label9.TabIndex = 17 + Me.Label9.Text = "läuft..." + Me.Label9.Visible = False + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(309, 50) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(141, 50) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "Einlesen" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(8, 34) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(90, 13) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "Daten sichern:" + ' + 'ListBox3 + ' + Me.ListBox3.FormattingEnabled = True + Me.ListBox3.Location = New System.Drawing.Point(11, 50) + Me.ListBox3.Name = "ListBox3" + Me.ListBox3.Size = New System.Drawing.Size(292, 95) + Me.ListBox3.TabIndex = 12 + ' + 'Label6 + ' + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(306, 240) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(144, 37) + Me.Label6.TabIndex = 11 + Me.Label6.Text = "0 Datensätze nicht " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "erkannt." + Me.Label6.Visible = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(306, 217) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(44, 13) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "läuft..." + Me.Label5.Visible = False + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(309, 164) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(141, 50) + Me.Button1.TabIndex = 9 + Me.Button1.Text = "Einarbeiten" + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOK.Location = New System.Drawing.Point(309, 280) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(141, 29) + Me.btnOK.TabIndex = 9 + Me.btnOK.Text = "Schließen" + Me.btnOK.UseVisualStyleBackColor = True + Me.btnOK.Visible = False + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(8, 8) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(222, 13) + Me.Label2.TabIndex = 8 + Me.Label2.Text = "Einarbeitung der Nachrichtendaten von MAVI" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 148) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Einarbeitung:" + ' + 'frmTRNCTS_NachrichtenVerarbeitung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(456, 319) + Me.Controls.Add(Me.pnl) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmTRNCTS_NachrichtenVerarbeitung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "DY NachrichtenVerarbeitung" + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents ListBox3 As System.Windows.Forms.ListBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents dgvEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents lblDatenCnt As Label +End Class diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx new file mode 100644 index 0000000..25e30ca --- /dev/null +++ b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx @@ -0,0 +1,986 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////p6ferq+Kr + q+Krq+Krq+Krq+Krq+LFxer///////////////////////////////////////////////////////// + //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////////////////// + //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////// + //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////////// + ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30 + 9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D + A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff///////////////////////////////////////// + //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D + A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/ + ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////////////////////////////////////////////////////////// + //////////9sbNADA70DA70DA70DA70DA70DA73d3fP///////////////////////////////////// + //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////////////////// + //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer///// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////// + //////////////////////////////////////////////////////////////////////////+rq+ID + A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////// + ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA71ZWcv///////////////////////////////////////////////////////////// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D + A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R + 0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/ + //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D + A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///// + //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D + A73Fxer///////////////////////////////////////////////////////////////////////// + //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD + A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D + A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP///// + ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////// + //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/ + //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D + A70DA70DA70DA70DA70DA73Fxer///////////////////////////////////////////////////// + ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer///////// + //////////////////////////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D + A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R + 0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D + A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA7309Pv///////////////////////////////////////////////////////// + ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3///////////////// + ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD + A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////// + //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D + A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////////////// + ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv///// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D + A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/ + ///////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp + 6ff///////////////////////////////////////////////////////////////////////////// + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD + A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/ + ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMfd3fP///////////////////////////////////////////////// + //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d + 3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e////////////////// + ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+ + ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D + A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT///// + //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////////////// + ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD + A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff///////// + ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D + A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA72Ojtm4uOb///////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////d3fMDA70DA70D + A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+ + ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D + A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/ + ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND///////////////////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D + A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/ + //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////// + ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv///////////////////////////////////// + ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr + q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D + A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////// + //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D + A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv///// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e////////// + ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////////////////////////////////////////// + //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////////////// + //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////////// + //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////// + //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp + 6ff///////////////////////////////////////////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///// + ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z + Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA72Ojtn///////////////////////////////////////////////////// + //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D + A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R + 0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L///////////////////////////////////////// + //////8pKcIDA70DA70DA70DA70DA70DA73///////////////////////////////////////////// + //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb similarity index 81% rename from initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb rename to initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb index a16415e..f3a3242 100644 --- a/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb @@ -5,7 +5,7 @@ Imports Renci.SshNet Imports System.Net Imports System.Text -Public Class frmTRNCTS_NachrichtenVerarbeitung +Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON Dim cntDatenEingelesen As Integer = 0 Dim dsNichtErkannt As Integer = 0 Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -16,6 +16,9 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\" Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\" + Dim PARTNERSYSTEM = "OREGON" + Dim SERVER_Path = "" + Dim SERVER_Path_TEST = "" ' Dim BOX_VERSION = "8.8" Dim Dateiname = "" @@ -38,12 +41,14 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung End Sub Sub initPfade() - Me.TELOTEC_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - Me.VERARBEITUNGS_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.SERVER_Path = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("SERVER_Path", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.SERVER_Path_TEST = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("SERVER_Path_TEST", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.TELOTEC_PFAD = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("BEREITSTELLUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.VERARBEITUNGS_PFAD = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\" - Me.ZIEL_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.ZIEL_PFAD = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\" - Me.ERROR_PFAD = cNCTSPartnerWorker.cMavi_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + Me.ERROR_PFAD = cNCTSPartnerWorker.cOregon_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) 'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\" If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD) If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) @@ -103,10 +108,10 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then - SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\" + SERVER_Path = Me.SERVER_Path '"\\ftps.verag.ag\FTP\MAVI\IN\" Else - SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\" + SERVER_Path = Me.SERVER_Path_TEST '"\\ftps.verag.ag\FTP\MAVI\IN\" End If @@ -132,34 +137,6 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung Return cnt - Dim NCTSTR_server = "" - Dim NCTSTR_name = "" - Dim NCTSTR_pwd = "" - Dim NCTSTR_port = "" - Dim NCTSTR_PFAD_out = "" - - cNCTSPartnerWorker.cMAVIFunctions.getSFTPLoginData(NCTSTR_server, NCTSTR_name, NCTSTR_pwd, NCTSTR_port, "", NCTSTR_PFAD_out) - - Dim Dirlist As New List(Of String) 'I prefer List() instead of an array - Dim request As FtpWebRequest = DirectCast(WebRequest.Create(NCTSTR_server & NCTSTR_PFAD_out), FtpWebRequest) - - request.Method = WebRequestMethods.Ftp.ListDirectory - request.Credentials = New NetworkCredential(NCTSTR_name, NCTSTR_pwd) - - Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) - Dim responseStream As Stream = response.GetResponseStream - - Using reader As New StreamReader(responseStream) - Do While reader.Peek <> -1 - Dim fName = reader.ReadLine - - MsgBox(fName) - Loop - End Using - - response.Close() - - Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -303,11 +280,14 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung cWorker_NCTS.Dateiname = d If IO.File.Exists(d) Then Dim found = False + Dim nr_id As Integer = -1 Dim fi As FileInfo = New FileInfo(d) + If Not fi.Name.StartsWith(".") Then - ' EDIFACT - ' If fi.Extension = ".edi" Then - Dim alreadyMoved = False + + ' EDIFACT + ' If fi.Extension = ".edi" Then + Dim alreadyMoved = False Dim NACHRICHTENTYP_notfound = False @@ -334,73 +314,78 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung Case 1 'NCTS: Versandanmeldung If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then - If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 2 - 'NCTS: Versandanmeldung - Ergänzung GUID - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then - If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True - End If - Case 3 + 'NCTS: Versandanmeldung - Ergänzung GUID + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then + If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 3 'NCTS: BestätigungZoll If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 4 'NCTS: Guarantee If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 5 'NCTS: Ankunftsanzeige If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then - If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 6 'NCTS: Erledigungsmitteilung If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then - If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 7 - 'NCTS: Cancellation decision CC009A - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then - If cMAVIWorker.readNCTS_AbbruchXML_CC009A(Me, doc) <> "" Then found = True - End If - Case 8 - 'NCTS: Declaration rejected CC016A - If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then - If cMAVIWorker.readNCTS_RueckweisungXML_CC016A(Me, doc) <> "" Then found = True - End If + 'NCTS: Cancellation decision CC009A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then + If cOREGONWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If + Case 8 + 'NCTS: Declaration rejected CC016A + If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then + If cOREGONWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If Case 9 'NCTS: No release for transit – type B CC051B If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then - If cMAVIWorker.readNCTS_KeineFreigabeXML_CC051B(Me, doc) <> "" Then found = True - End If + If cOREGONWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True + End If - - Case 10 + Case 10 NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden End Select End If - If found Then - If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") - cntDatenEingelesen += 1 - Else - If NACHRICHTENTYP_notfound Then - frmStartOptions.moveFile(d, ERROR_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,. - dsNichtErkannt += 1 + Dim destPath = "" + If found Then + If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") + frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\", destPath) + cntDatenEingelesen += 1 + Else + If NACHRICHTENTYP_notfound Then + frmStartOptions.moveFile(d, ERROR_PFAD, destPath) ' nciht gefunden, oder durch ERROR nicht eingearbt,. + dsNichtErkannt += 1 + End If End If - End If - ' If found Then Else dsNichtErkannt += 1 + If destPath <> "" And nr_id > 0 Then + VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten.updatePath(nr_id, destPath) + End If - Me.Refresh() + ' If found Then Else dsNichtErkannt += 1 + + Me.Refresh() + End If End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)