From ede8b3a4f0090ac75b7c1701eab28ae85caf98b6 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 12 Aug 2025 11:33:32 +0200 Subject: [PATCH] TC Einarbeitung + DB Telo/SpedBuch --- DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb | 4 +- DAKOSY_Worker/cZOLL_IMPORT.vb | 71 +- TELOTEK_Worker_lib/cTelokec.vb | 130 +- UID/usrctlProcedures.vb | 4 +- .../frmStartOptions.Designer.vb | 1647 +++++++++-------- initATLASAufschubkonten/frmStartOptions.resx | 201 +- initATLASAufschubkonten/frmStartOptions.vb | 168 +- 7 files changed, 1307 insertions(+), 918 deletions(-) diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb b/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb index 78ac5dc..4607d8c 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/AES/cDakosyAES.vb @@ -772,7 +772,7 @@ Public Class cDakosyAES 'End Function - Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, AES_Nr As String, ByVal notFound As Boolean) + Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, AES_Nr As String, Byref notFound As Boolean) Dim DY As DAKOSY_Worker.cDakosyAES = DAKOSY_Worker.cDakosyAES.LOADByBezugsNr(AES_Nr, True) If DY Is Nothing Then notFound = True @@ -781,7 +781,7 @@ Public Class cDakosyAES DakosyAESDatenbereitstellung(SPEDITIONSBUCH, DY, notFound) End Sub - Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyAES, ByVal notFound As Boolean) + Public Shared Sub DakosyAESDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyAES, Byref notFound As Boolean) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 986d3e0..ed8d67a 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -62,13 +62,17 @@ Public Class cZOLL_IMPORT Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch Dim AbfertigungsNr = getAbfertigungsnummer(TC.telanm_BezugsNr) + Dim FilialenNr = getFilialenNr(TC.telanm_BezugsNr) + + If FilialenNr <> "" AndAlso AbfertigungsNr <> "" AndAlso countSpedbuchEntrysTC(FilialenNr, TC.telanm_BezugsNr, TC.telanm_ART) = 0 AndAlso countSpedbuchEntrys_AbfertigungsNr(FilialenNr, AbfertigungsNr) = 0 Then - If AbfertigungsNr <> "" AndAlso countSpedbuchEntrysTC(5501, TC.telanm_BezugsNr, TC.telanm_ART) = 0 AndAlso countSpedbuchEntrys_AbfertigungsNr(5501, AbfertigungsNr) = 0 Then - SPEDBUCH.FilialenNr = 5501 + + SPEDBUCH.FilialenNr = FilialenNr ' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) SPEDBUCH.AbfertigungsNr = AbfertigungsNr SPEDBUCH.NewUNTER_NR() + SPEDBUCH.Zollsystem_Land = "AT" SPEDBUCH.Zollsystem = "T" SPEDBUCH.Abfertigungsdatum = Now.ToShortDateString SPEDBUCH.Sachbearbeiter = "AUTO" @@ -79,12 +83,12 @@ Public Class cZOLL_IMPORT Select Case TC.telanm_ART Case "NCTS", "T1", "T2", "T2L" : TC.telanm_ART = "NCTS" : SPEDBUCH.AtlasBezNrNCTS = TC.telanm_BezugsNr Case "EUA", "EZA" : TC.telanm_ART = "EZA" : SPEDBUCH.AtlasBezNrEZA = TC.telanm_BezugsNr - ' Case Else : TC.telanm_ART = "EZA" : SPEDBUCH.AtlasBezNrEZA = TC.telanm_BezugsNr + Case Else : TC.telanm_ART = "NCTS" : SPEDBUCH.AtlasBezNrNCTS = TC.telanm_BezugsNr End Select Dim PosAnzahl = 0 ' TELOTECDatenbereitstellung(SPEDBUCH, Me.telanm_BezugsNr, notfound, art, PosAnzahl) - SPEDBUCH = IMPORT(SPEDBUCH, TC.telanm_AvisoId, TC.telanm_SendungsId, "VERA", SPEDBUCH.FilialenNr, 2, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True) + SPEDBUCH = IMPORT(SPEDBUCH, TC.telanm_AvisoId, TC.telanm_SendungsId, "VERA", SPEDBUCH.FilialenNr, 3, SPEDBUCH.AtlasBezNrEZA, SPEDBUCH.AtlasBezNrNCTS, notfound, True) If Not notfound Then @@ -474,6 +478,28 @@ Public Class cZOLL_IMPORT + Shared Function getFilialenNr(ByVal bezugsNr) As String + getFilialenNr = "" + If If(bezugsNr, "").ToString.Length > 4 Then + + Dim abf = "" + For Each s In bezugsNr.ToString.Substring(0, 4) + If Not IsNumeric(s) Then Exit For + abf &= s + Next + If IsNumeric(abf) Then + If CLng(abf) < 9999 Then + If CLng(abf) > 1000 Then + Return abf + End If + End If + End If + End If + Return "" + + End Function + + Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String getAbfertigungsnummer = "" If If(bezugsNr, "").ToString.Length > 5 Then @@ -548,6 +574,7 @@ Public Class cZOLL_IMPORT Case "UNISPED" : EZOLL_SQL = "EZOLL_UNISPED" End Select + SPEDITIONSBUCH.Zollsystem_Land = "AT" SPEDITIONSBUCH.Zollsystem = "E" If EZA_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr @@ -560,6 +587,7 @@ Public Class cZOLL_IMPORT End If notFound = Me.notFound Case 2 'dakosy + SPEDITIONSBUCH.Zollsystem_Land = "DE" SPEDITIONSBUCH.Zollsystem = "D" If AES_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr @@ -577,6 +605,7 @@ Public Class cZOLL_IMPORT Else End If Me.notFound = notFound Case 3 'telotec + SPEDITIONSBUCH.Zollsystem_Land = "AT" SPEDITIONSBUCH.Zollsystem = "T" If EZA_Nr <> "" Then TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, "EZA", PosAnzahl) @@ -597,6 +626,38 @@ Public Class cZOLL_IMPORT End If End If + '------------------------------------------------------------------------------------------------ + '--- Versuche die Verknüpfung über Bezugsnummer (AbfertigungsNr/FilialeNr) zu finden ------------ + '------------------------------------------------------------------------------------------------ + If avisoLinkId = 0 Or SendungId = 0 Then + Dim BezugsNrSearch = If(EZA_Nr <> "", EZA_Nr, NCTS_Nr) + If BezugsNrSearch.Length > 13 Then BezugsNrSearch = BezugsNrSearch.Substring(0, 13) '4801/28000000 + + If BezugsNrSearch.Length = 13 AndAlso BezugsNrSearch.Contains("/") Then + Dim FilialeNr As Integer + Dim AbfertigungsNr As Integer + + If BezugsNrSearch(4) = "/"c AndAlso IsNumeric(BezugsNrSearch.Substring(0, 4)) AndAlso IsNumeric(BezugsNrSearch.Substring(5)) Then + + FilialeNr = CInt(BezugsNrSearch.Substring(0, 4)) + AbfertigungsNr = CInt(BezugsNrSearch.Substring(5)) + + Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(FilialeNr, AbfertigungsNr) + If SND IsNot Nothing Then + avisoLinkId = SND.tblSnd_AvisoID + SendungId = SND.tblSnd_SendungID + End If + + Console.WriteLine("FilialeNr: " & FilialeNr & ", AbfertigungsNr: " & AbfertigungsNr) + Else + Console.WriteLine("Ungültiges Format!") + End If + End If + + End If + '------------------------------------------------------------------------------------------------ + + '------------------------------------------------------------------------------------------------------------- @@ -959,7 +1020,7 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Personalnummer Is Nothing Then Return False Select Case SPEDITIONSBUCH.FilialenNr - Case 4801, 4802 + Case 4801, 4802 : Return True Case Else If If(SPEDITIONSBUCH.Vermittler, "") = "" Then Return False End Select diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb index 85113a2..1dd8290 100644 --- a/TELOTEK_Worker_lib/cTelokec.vb +++ b/TELOTEK_Worker_lib/cTelokec.vb @@ -381,6 +381,59 @@ Public Class cTelotec_Anmeldung + Public Sub SAVE_ME_AKTUELLSTE_NACHRICHT(Optional saveAll = True) + ''''Aktuellste Nachricht + If Me.Refs_LRN <> "" Then + + SQL.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telnam_aktuellsteNachricht = 0 WHERE Refs_LRN='" & Me.Refs_LRN & "' ", "FMZOLL") + + Me.telnam_aktuellsteNachricht = 1 + Me.SAVE(False) 'nur die Nachricht speichern + + End If + End Sub + + + + + Shared Sub Update_Anmeldedatum(Refs_LRN As String, Anmeldedatum As Date) + ''''Aktuellste Nachricht + If Refs_LRN <> "" Then + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telanm_Erstellung='" & Anmeldedatum.ToShortDateString & "' , dec_CreateDate='" & Anmeldedatum.ToShortDateString & "' WHERE Refs_LRN='" & Refs_LRN & "' ", "FMZOLL") + + End If + End Sub + + + + + + Shared Sub Update_Status_LRN(Refs_LRN As String, status As String) + ''''Aktuellste Nachricht + If Refs_LRN <> "" Then + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + + sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telanm_status='" & status & "' , telanm_Status_KEWILL_Equivalent='" & status & "' WHERE Refs_LRN='" & Refs_LRN & "' AND [telnam_aktuellsteNachricht]=1 ", "FMZOLL") + + End If + End Sub + + + Shared Sub Update_writeOffDate(Refs_LRN As String, writeOffDate As Date) + ''''Aktuellste Nachricht + + If Refs_LRN <> "" Then + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET Hea_WoffD='" & writeOffDate.ToShortDateString & "' , Hea_DecDT='" & writeOffDate.ToShortDateString & "' WHERE Refs_LRN='" & Refs_LRN & "' ", "FMZOLL") + + End If + End Sub + + + + + Public Function tryFindAviso() As Boolean Dim srchStrFiliale = "" @@ -499,6 +552,7 @@ Public Class cTelotec_Anmeldung Return Nothing End Function + Public Function UPDATE_Status(status As Integer) As String If telanm_id > 0 Then Try @@ -717,22 +771,24 @@ Public Class cTelotec_Anmeldung - Public Shared Sub TELOTECDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, telanm_Nr As String, ByVal notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) + Public Shared Sub TELOTECDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, telanm_Nr As String, ByRef notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) Dim DY As cTelotec_Anmeldung = cTelotec_Anmeldung.LOADByBezugsNr(telanm_Nr) If DY Is Nothing Then notFound = True Exit Sub End If + notFound = False TELOTECDatenbereitstellung(SPEDITIONSBUCH, DY, notFound, art, PosAnzahl) + End Sub - Public Shared Sub TELOTECDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) + Public Shared Sub TELOTECDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByRef notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) 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) + Case Else : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl) End Select 'Personal Abfertigung: @@ -747,7 +803,7 @@ Public Class cTelotec_Anmeldung End Sub - Public Shared Sub TELOTECDatenbereitstellung_EZA(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByRef PosAnzahl As Integer) + Public Shared Sub TELOTECDatenbereitstellung_EZA(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByRef notFound As Boolean, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False @@ -898,7 +954,7 @@ Public Class cTelotec_Anmeldung 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) + Public Shared Sub TELOTECDatenbereitstellung_NCTS(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByRef notFound As Boolean, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False @@ -906,7 +962,7 @@ Public Class cTelotec_Anmeldung Try If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString - + SPEDITIONSBUCH.Zollsystem_Land = "AT" SPEDITIONSBUCH.Versendungsland = DY.Locs_Disp SPEDITIONSBUCH.Bestimmungsland = DY.Locs_Dest SPEDITIONSBUCH.LKW_Kennzeichen = DY.Transp_DepIdnt 'Transp_BordMo @@ -981,8 +1037,8 @@ Public Class cTelotec_Anmeldung 'Personal Abfertigung: Try - If DY.Represent_Na IsNot Nothing Then - Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_TELOTEC_SB]='" & DY.Represent_Na & "'", "ADMIN") + If If(DY.dec_CreatePersonalID, DY.Represent_Na) IsNot Nothing Then + Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_TELOTEC_SB]='" & If(DY.dec_CreatePersonalID, DY.Represent_Na) & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If Catch ex As Exception @@ -1251,18 +1307,29 @@ Public Class cTelotec_Anmeldung With msg If .declarationContent IsNot Nothing Then Dim decl = .declarationContent + telotec.initData() telotec.telanm_ART = "TA" telotec.telanm_BezugsNr = .lrn telotec.telanm_CRN = .mrn telotec.MsgType = .msgType + + Select Case .msgType + Case "CC029C" : telotec.telanm_Status = "50" + 'Case "CC045C" : telotec.status = "53" + Case "CC045C" : telotec.telanm_Status = "60" + End Select + telotec.telanm_Status_KEWILL_Equivalent = telotec.telanm_Status + telotec.Refs_LRN = .lrn telotec.Refs_CRN = .mrn + + telotec.Represent_Na = decl.erstellPersonalID telotec.Mandant_ID = decl.mandant_ID telotec.Referenz_ID = decl.interfaceReferenceId telotec.dec_CreatePersonalID = decl.erstellPersonalID - telotec.dec_CreateDate = decl.erstellDatum + telotec.dec_CreateDate = decl.anmeldedatum telotec.dec_Template_ID = decl.template_ID telotec.dec_TotNet = decl.totNet telotec.dec_TotNetSplit_IND = decl.totNetSplit_IND @@ -1272,7 +1339,7 @@ Public Class cTelotec_Anmeldung telotec.Hea_DecTy = decl.declarationType telotec.Hea_Simp = decl.reducedDatasetIndicator telotec.Hea_DecDT = decl.declarationAcceptanceDate - telotec.Hea_WoffD = decl.writeOffDate + telotec.Hea_WoffD = decl.writeOffDate 'Gestetellt am... telotec.Hea_AccDT = decl.declarationAcceptanceDate telotec.Hea_ProArrDT = decl.presentationOfTheGoodsDateAndTime telotec.Hea_PlaDepDT = decl.presentationOfTheGoodsDateAndTime @@ -1284,8 +1351,15 @@ Public Class cTelotec_Anmeldung telotec.Transp_InMo = decl.inlandModeOfTransport telotec.Transp_BordMo = decl.modeOfTransportAtTheBorder telotec.Transp_ContInd = decl.containerIndicator - telotec.Transp_DepIdnt = SafeFirst(decl.departureTransportMeans, Function(dt) dt.identificationNumber) - telotec.Transp_DepNat = SafeFirst(decl.departureTransportMeans, Function(dt) dt.nationality) + + If decl.activeBorderTransportMeans IsNot Nothing AndAlso decl.activeBorderTransportMeans.Count > 0 Then + telotec.Transp_CrossIdnt = decl.activeBorderTransportMeans(0).identificationNumber + telotec.Transp_CrossIdntNat = decl.activeBorderTransportMeans(0).nationality + + telotec.Transp_DepIdnt = decl.activeBorderTransportMeans(0).identificationNumber + telotec.Transp_DepNat = decl.activeBorderTransportMeans(0).nationality + + End If ' Consignor/Consignee telotec.ConorTra_Na = SafeGetName(decl.consignor) @@ -1302,13 +1376,41 @@ Public Class cTelotec_Anmeldung telotec.ConeeTra_Ctry = decl.consignee?.country telotec.ConeeTra_TIN = decl.consignee?.identificationNumber - telotec.Represent_Na = decl.representative?.contactPersonName + 'telotec.Represent_Na = decl.representative?.contactPersonName telotec.Represent_RIN = decl.representative?.identificationNumber telotec.Locs_Disp = decl.countryOfDispatch telotec.Locs_Dest = decl.countryOfDestination telotec.Locs_GdsLoc = decl.locationOfGoods_PlaceOfGoods telotec.Locs_GdsLocCd = decl.locationOfGoods_CustomsOffice + telotec.CtrlRslt_DLimit = decl.limitDate + + + + + If decl.guarantee IsNot Nothing Then + telotec.SICHERHEIT = New List(Of cTelotec_Sicherheit) + + Dim TC_GRT As New cTelotec_Sicherheit() + TC_GRT.GVal = 0 + TC_GRT.Mandant_ID = telotec.Mandant_ID + TC_GRT.Bereich_ID = If(telotec.Bereich_ID, "") + TC_GRT.Referenz_ID = If(telotec.Referenz_ID, "") + TC_GRT.ComIndicator = If(telotec.ComIndicator, "0") + + For Each grt In decl.guarantee + TC_GRT.GrteeRef_GTy = grt.guaranteeType + For Each hc In grt.guaranteeReference + TC_GRT.GRN = hc.grn + TC_GRT.Curr = hc.currency + TC_GRT.Acc = hc.accessCode + TC_GRT.GVal += CDbl(hc.amountToBeCovered) + Next + + telotec.SICHERHEIT.Add(TC_GRT) + Next + End If + ' HouseConsignments inkl. ConsignmentItems und Packaging 'If decl.houseConsignment IsNot Nothing Then @@ -1362,7 +1464,7 @@ Public Class cTelotec_Anmeldung telotec.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID telotec.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID telotec.ComIndicator = True - telotec.initData() + Return telotec End Function diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb index 838a432..2162c00 100644 --- a/UID/usrctlProcedures.vb +++ b/UID/usrctlProcedures.vb @@ -3951,7 +3951,7 @@ Public Class usrctlProcedures End Sub Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click - cTelotecAPI.GET_ALL_TELO_Messages() + cTelotecAPI.GET_ALL_TELO_Messages(True) 'Company = "VERAG" = ATILLA 'For ii As Integer = 0 To 50 @@ -3981,7 +3981,7 @@ Public Class usrctlProcedures If ofd.ShowDialog() = DialogResult.OK Then Dim selectedPath As String = ofd.FileName - messages = TELO.ParseTAMessagesFromFile(selectedPath) + messages = TELO.ParseTAMessagesFromFile(selectedPath, True) MsgBox("Anzahl: " & messages.Count) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 7137959..d4bb89c 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -33,7 +33,6 @@ Partial Class frmStartOptions Me.LinkLabel63 = New System.Windows.Forms.LinkLabel() Me.PictureBox23 = New System.Windows.Forms.PictureBox() Me.Label27 = New System.Windows.Forms.Label() - Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel51 = New System.Windows.Forms.LinkLabel() Me.PictureBox22 = New System.Windows.Forms.PictureBox() Me.Button22 = New System.Windows.Forms.Button() @@ -51,20 +50,16 @@ Partial Class frmStartOptions Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() 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() @@ -73,7 +68,6 @@ Partial Class frmStartOptions 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() @@ -82,7 +76,6 @@ Partial Class frmStartOptions Me.LinkLabel68 = New System.Windows.Forms.LinkLabel() Me.PictureBox26 = New System.Windows.Forms.PictureBox() Me.cbxGestellungspeichern = New System.Windows.Forms.CheckBox() - Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label41 = New System.Windows.Forms.Label() Me.LinkLabel99 = New System.Windows.Forms.LinkLabel() Me.PictureBox99 = New System.Windows.Forms.PictureBox() @@ -152,21 +145,10 @@ Partial Class frmStartOptions Me.Label6 = New System.Windows.Forms.Label() Me.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - 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.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboTCAPI_Files = New System.Windows.Forms.Button() Me.cboTCAPI_Call = New System.Windows.Forms.Button() Me.Label50cboTCAPI_ = New System.Windows.Forms.Label() - Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox9 = New System.Windows.Forms.CheckBox() Me.lblcheckopatez = New System.Windows.Forms.Label() Me.checkallopenATEZ = New System.Windows.Forms.Button() @@ -189,15 +171,10 @@ Partial Class frmStartOptions Me.LinkLabel29 = New System.Windows.Forms.LinkLabel() Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() - Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.Asfinag = New System.Windows.Forms.TabPage() Me.Label28 = New System.Windows.Forms.Label() - Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() @@ -222,7 +199,6 @@ Partial Class frmStartOptions Me.IDS_RE = New System.Windows.Forms.LinkLabel() Me.cbxIDSUmbenenen = New System.Windows.Forms.CheckBox() Me.TextBox3 = New System.Windows.Forms.TextBox() - Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MSE = New System.Windows.Forms.TabPage() Me.Label33 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() @@ -245,17 +221,12 @@ Partial Class frmStartOptions Me.Label42 = New System.Windows.Forms.Label() Me.cbxOnlyBilledTransactions = New System.Windows.Forms.CheckBox() Me.cbxUploadDA = New System.Windows.Forms.CheckBox() - Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.RMC = New System.Windows.Forms.TabPage() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() Me.RMC_import = New System.Windows.Forms.LinkLabel() Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.TextBox2 = New System.Windows.Forms.TextBox() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.UTA = New System.Windows.Forms.TabPage() Me.Label31 = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() @@ -266,8 +237,6 @@ Partial Class frmStartOptions Me.TextBox1 = New System.Windows.Forms.TextBox() Me.UTA_Laender = New System.Windows.Forms.LinkLabel() Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel() - Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PLOSE = New System.Windows.Forms.TabPage() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.Label5 = New System.Windows.Forms.Label() @@ -277,8 +246,6 @@ Partial Class frmStartOptions Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() Me.Laender_Steuercode = New System.Windows.Forms.LinkLabel() Me.PlosePdfRE = New System.Windows.Forms.LinkLabel() - Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage5 = New System.Windows.Forms.TabPage() Me.cbxPloseNeu = New System.Windows.Forms.CheckBox() Me.Label44 = New System.Windows.Forms.Label() @@ -297,7 +264,6 @@ Partial Class frmStartOptions Me.cbxMSEalt = New System.Windows.Forms.CheckBox() Me.cbxUTAalt = New System.Windows.Forms.CheckBox() Me.cbxUTANeu = New System.Windows.Forms.CheckBox() - Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.KN8_DESTAT = New System.Windows.Forms.LinkLabel() Me.Button24 = New System.Windows.Forms.Button() Me.cbxTestFTP = New System.Windows.Forms.CheckBox() @@ -309,7 +275,6 @@ 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() @@ -325,9 +290,48 @@ 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.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() + Me.cbxTCVB_Versand = New System.Windows.Forms.CheckBox() + Me.cbxTCAnhEinlesen = New System.Windows.Forms.CheckBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox4 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + 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.cboTCAPI_Firma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCheckATEZMRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.datTranscodeVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxMSEBatchNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUTAYear = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUTADate = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPloseJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.btnTesttc = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() @@ -353,7 +357,6 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -372,6 +375,8 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -458,7 +463,7 @@ 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(1229, 920) + Me.pnl.Size = New System.Drawing.Size(1229, 946) Me.pnl.TabIndex = 0 ' 'cbxUseUIDFinanzOnline @@ -544,29 +549,6 @@ Partial Class frmStartOptions Me.Label27.TabIndex = 87 Me.Label27.Text = "älter als Tage" ' - 'MyTextBox3 - ' - Me.MyTextBox3._DateTimeOnly = False - Me.MyTextBox3._numbersOnly = True - Me.MyTextBox3._numbersOnlyKommastellen = "" - Me.MyTextBox3._numbersOnlyTrennzeichen = True - Me.MyTextBox3._Prozent = False - Me.MyTextBox3._ShortDateNew = False - Me.MyTextBox3._ShortDateOnly = False - Me.MyTextBox3._TimeOnly = False - Me.MyTextBox3._TimeOnly_Seconds = False - Me.MyTextBox3._value = "" - Me.MyTextBox3._Waehrung = False - Me.MyTextBox3._WaehrungZeichen = True - Me.MyTextBox3.ForeColor = System.Drawing.Color.Red - Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) - Me.MyTextBox3.MaxLineLength = -1 - Me.MyTextBox3.MaxLines_Warning = "" - Me.MyTextBox3.MaxLines_Warning_Label = Nothing - Me.MyTextBox3.Name = "MyTextBox3" - Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox3.TabIndex = 86 - ' 'LinkLabel51 ' Me.LinkLabel51.AutoSize = True @@ -756,29 +738,6 @@ Partial Class frmStartOptions Me.Label18.TabIndex = 64 Me.Label18.Text = "Max" ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = True - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox2.TabIndex = 63 - ' 'LinkLabel36 ' Me.LinkLabel36.AutoSize = True @@ -825,30 +784,6 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' - 'txtSyskaWdhDateiname - ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._TimeOnly_Seconds = 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(692, 318) - 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 @@ -873,30 +808,6 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' - 'txtEZOLLAnhDat - ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._TimeOnly_Seconds = 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, 214) - 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 @@ -945,17 +856,6 @@ Partial Class frmStartOptions 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(564, 299) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -1048,17 +948,6 @@ Partial Class frmStartOptions 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, 300) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1097,7 +986,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Controls.Add(Me.TabPage4) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntr.Location = New System.Drawing.Point(0, 379) + Me.tbcntr.Location = New System.Drawing.Point(0, 405) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 Me.tbcntr.Size = New System.Drawing.Size(1227, 539) @@ -1197,30 +1086,6 @@ Partial Class frmStartOptions Me.cbxGestellungspeichern.Text = "Gestellungen speichern" Me.cbxGestellungspeichern.UseVisualStyleBackColor = True ' - 'MyTextBox4 - ' - Me.MyTextBox4._DateTimeOnly = False - Me.MyTextBox4._numbersOnly = False - Me.MyTextBox4._numbersOnlyKommastellen = "" - Me.MyTextBox4._numbersOnlyTrennzeichen = True - Me.MyTextBox4._Prozent = False - Me.MyTextBox4._ShortDateNew = True - Me.MyTextBox4._ShortDateOnly = False - Me.MyTextBox4._TimeOnly = False - Me.MyTextBox4._TimeOnly_Seconds = False - Me.MyTextBox4._value = "" - Me.MyTextBox4._Waehrung = False - Me.MyTextBox4._WaehrungZeichen = True - Me.MyTextBox4.ForeColor = System.Drawing.Color.Black - Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) - Me.MyTextBox4.MaxLength = 10 - Me.MyTextBox4.MaxLineLength = -1 - Me.MyTextBox4.MaxLines_Warning = "" - Me.MyTextBox4.MaxLines_Warning_Label = Nothing - Me.MyTextBox4.Name = "MyTextBox4" - Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) - Me.MyTextBox4.TabIndex = 90 - ' 'Label41 ' Me.Label41.AutoSize = True @@ -2015,169 +1880,10 @@ Partial Class frmStartOptions Me.PictureBox14.TabStop = False Me.PictureBox14.Visible = False ' - '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.RowHeadersWidth = 62 - 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.MinimumWidth = 8 - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = 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.btnTesttc) Me.TabPage3.Controls.Add(Me.cboTCAPI_Firma) - Me.TabPage3.Controls.Add(Me.cboTCAPI_Files) Me.TabPage3.Controls.Add(Me.cboTCAPI_Call) Me.TabPage3.Controls.Add(Me.Label50cboTCAPI_) Me.TabPage3.Controls.Add(Me.MyTextBox06) @@ -2206,6 +1912,7 @@ Partial Class frmStartOptions Me.TabPage3.Controls.Add(Me.txtCheckATEZMRN) Me.TabPage3.Controls.Add(Me.datTranscodeBis) Me.TabPage3.Controls.Add(Me.datTranscodeVon) + Me.TabPage3.Controls.Add(Me.Panel1) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(1219, 513) @@ -2213,25 +1920,12 @@ Partial Class frmStartOptions Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.UseVisualStyleBackColor = True ' - 'cboTCAPI_Firma - ' - Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing - Me.cboTCAPI_Firma._allowFreiText = False - Me.cboTCAPI_Firma._value = "" - Me.cboTCAPI_Firma.FormattingEnabled = True - Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) - Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) - Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" - Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) - Me.cboTCAPI_Firma.TabIndex = 152 - Me.cboTCAPI_Firma.Text = "ALLE" - ' 'cboTCAPI_Files ' Me.cboTCAPI_Files.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboTCAPI_Files.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.cboTCAPI_Files.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.cboTCAPI_Files.Location = New System.Drawing.Point(419, 411) + Me.cboTCAPI_Files.Location = New System.Drawing.Point(1, 1) Me.cboTCAPI_Files.Name = "cboTCAPI_Files" Me.cboTCAPI_Files.Size = New System.Drawing.Size(239, 24) Me.cboTCAPI_Files.TabIndex = 151 @@ -2260,31 +1954,6 @@ Partial Class frmStartOptions Me.Label50cboTCAPI_.TabIndex = 149 Me.Label50cboTCAPI_.Text = "TELOTEC API:" ' - 'MyTextBox06 - ' - Me.MyTextBox06._DateTimeOnly = False - Me.MyTextBox06._numbersOnly = False - Me.MyTextBox06._numbersOnlyKommastellen = "" - Me.MyTextBox06._numbersOnlyTrennzeichen = False - Me.MyTextBox06._Prozent = False - Me.MyTextBox06._ShortDateNew = False - Me.MyTextBox06._ShortDateOnly = False - Me.MyTextBox06._TimeOnly = False - Me.MyTextBox06._TimeOnly_Seconds = False - Me.MyTextBox06._value = "200" - Me.MyTextBox06._Waehrung = False - Me.MyTextBox06._WaehrungZeichen = False - Me.MyTextBox06.ForeColor = System.Drawing.Color.Black - Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) - Me.MyTextBox06.MaxLength = 18 - Me.MyTextBox06.MaxLineLength = -1 - Me.MyTextBox06.MaxLines_Warning = "" - Me.MyTextBox06.MaxLines_Warning_Label = Nothing - Me.MyTextBox06.Name = "MyTextBox06" - Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) - Me.MyTextBox06.TabIndex = 148 - Me.MyTextBox06.Text = "200" - ' 'CheckBox9 ' Me.CheckBox9.AutoSize = True @@ -2521,78 +2190,6 @@ Partial Class frmStartOptions Me.Label11.TabIndex = 22 Me.Label11.Text = "MAVI Nachrichtenverarbeitung (NCTS TR):" ' - 'txtCheckATEZMRN - ' - Me.txtCheckATEZMRN._DateTimeOnly = False - Me.txtCheckATEZMRN._numbersOnly = False - Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" - Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False - Me.txtCheckATEZMRN._Prozent = False - Me.txtCheckATEZMRN._ShortDateNew = False - Me.txtCheckATEZMRN._ShortDateOnly = False - Me.txtCheckATEZMRN._TimeOnly = False - Me.txtCheckATEZMRN._TimeOnly_Seconds = False - Me.txtCheckATEZMRN._value = "" - Me.txtCheckATEZMRN._Waehrung = False - Me.txtCheckATEZMRN._WaehrungZeichen = False - Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black - Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) - Me.txtCheckATEZMRN.MaxLength = 18 - Me.txtCheckATEZMRN.MaxLineLength = -1 - Me.txtCheckATEZMRN.MaxLines_Warning = "" - Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing - Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" - Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) - Me.txtCheckATEZMRN.TabIndex = 139 - ' - 'datTranscodeBis - ' - Me.datTranscodeBis._DateTimeOnly = False - Me.datTranscodeBis._numbersOnly = False - Me.datTranscodeBis._numbersOnlyKommastellen = "" - Me.datTranscodeBis._numbersOnlyTrennzeichen = True - Me.datTranscodeBis._Prozent = False - Me.datTranscodeBis._ShortDateNew = True - Me.datTranscodeBis._ShortDateOnly = False - Me.datTranscodeBis._TimeOnly = False - Me.datTranscodeBis._TimeOnly_Seconds = False - Me.datTranscodeBis._value = "" - Me.datTranscodeBis._Waehrung = False - Me.datTranscodeBis._WaehrungZeichen = True - Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black - Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) - Me.datTranscodeBis.MaxLength = 10 - Me.datTranscodeBis.MaxLineLength = -1 - Me.datTranscodeBis.MaxLines_Warning = "" - Me.datTranscodeBis.MaxLines_Warning_Label = Nothing - Me.datTranscodeBis.Name = "datTranscodeBis" - Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeBis.TabIndex = 143 - ' - 'datTranscodeVon - ' - Me.datTranscodeVon._DateTimeOnly = False - Me.datTranscodeVon._numbersOnly = False - Me.datTranscodeVon._numbersOnlyKommastellen = "" - Me.datTranscodeVon._numbersOnlyTrennzeichen = True - Me.datTranscodeVon._Prozent = False - Me.datTranscodeVon._ShortDateNew = True - Me.datTranscodeVon._ShortDateOnly = False - Me.datTranscodeVon._TimeOnly = False - Me.datTranscodeVon._TimeOnly_Seconds = False - Me.datTranscodeVon._value = "" - Me.datTranscodeVon._Waehrung = False - Me.datTranscodeVon._WaehrungZeichen = True - Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black - Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) - Me.datTranscodeVon.MaxLength = 10 - Me.datTranscodeVon.MaxLineLength = -1 - Me.datTranscodeVon.MaxLines_Warning = "" - Me.datTranscodeVon.MaxLines_Warning_Label = Nothing - Me.datTranscodeVon.Name = "datTranscodeVon" - Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) - Me.datTranscodeVon.TabIndex = 142 - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.TabControl1) @@ -2659,54 +2256,6 @@ Partial Class frmStartOptions Me.Label28.TabIndex = 81 Me.Label28.Text = "ASFINAG" ' - 'txtTWLNr - ' - Me.txtTWLNr._DateTimeOnly = False - Me.txtTWLNr._numbersOnly = True - Me.txtTWLNr._numbersOnlyKommastellen = "" - Me.txtTWLNr._numbersOnlyTrennzeichen = False - Me.txtTWLNr._Prozent = False - Me.txtTWLNr._ShortDateNew = False - Me.txtTWLNr._ShortDateOnly = False - Me.txtTWLNr._TimeOnly = False - Me.txtTWLNr._TimeOnly_Seconds = False - Me.txtTWLNr._value = "" - Me.txtTWLNr._Waehrung = False - Me.txtTWLNr._WaehrungZeichen = True - Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) - Me.txtTWLNr.MaxLineLength = -1 - Me.txtTWLNr.MaxLines_Warning = "" - Me.txtTWLNr.MaxLines_Warning_Label = Nothing - Me.txtTWLNr.Name = "txtTWLNr" - Me.txtTWLNr.ReadOnly = True - Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTWLNr.TabIndex = 78 - ' - 'txtTBLNr - ' - Me.txtTBLNr._DateTimeOnly = False - Me.txtTBLNr._numbersOnly = True - Me.txtTBLNr._numbersOnlyKommastellen = "" - Me.txtTBLNr._numbersOnlyTrennzeichen = False - Me.txtTBLNr._Prozent = False - Me.txtTBLNr._ShortDateNew = False - Me.txtTBLNr._ShortDateOnly = False - Me.txtTBLNr._TimeOnly = False - Me.txtTBLNr._TimeOnly_Seconds = False - Me.txtTBLNr._value = "" - Me.txtTBLNr._Waehrung = False - Me.txtTBLNr._WaehrungZeichen = True - Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) - Me.txtTBLNr.MaxLineLength = -1 - Me.txtTBLNr.MaxLines_Warning = "" - Me.txtTBLNr.MaxLines_Warning_Label = Nothing - Me.txtTBLNr.Name = "txtTBLNr" - Me.txtTBLNr.ReadOnly = True - Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) - Me.txtTBLNr.TabIndex = 79 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -2975,32 +2524,6 @@ Partial Class frmStartOptions Me.TextBox3.TabIndex = 154 Me.TextBox3.Text = "Dateien nach Import von FTP umbenennen" ' - 'txtIDSYear - ' - Me.txtIDSYear._DateTimeOnly = False - Me.txtIDSYear._numbersOnly = True - Me.txtIDSYear._numbersOnlyKommastellen = "" - Me.txtIDSYear._numbersOnlyTrennzeichen = False - Me.txtIDSYear._Prozent = False - Me.txtIDSYear._ShortDateNew = False - Me.txtIDSYear._ShortDateOnly = False - Me.txtIDSYear._TimeOnly = False - Me.txtIDSYear._TimeOnly_Seconds = False - Me.txtIDSYear._value = "" - Me.txtIDSYear._Waehrung = False - Me.txtIDSYear._WaehrungZeichen = True - Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window - Me.txtIDSYear.ForeColor = System.Drawing.Color.Red - Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) - Me.txtIDSYear.MaxLength = 10 - Me.txtIDSYear.MaxLineLength = -1 - Me.txtIDSYear.MaxLines_Warning = "" - Me.txtIDSYear.MaxLines_Warning_Label = Nothing - Me.txtIDSYear.Name = "txtIDSYear" - Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) - Me.txtIDSYear.TabIndex = 155 - Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'MSE ' Me.MSE.Controls.Add(Me.Label33) @@ -3253,98 +2776,6 @@ Partial Class frmStartOptions Me.cbxUploadDA.Text = "PDF ins DS" Me.cbxUploadDA.UseVisualStyleBackColor = True ' - 'txtTransactionID - ' - Me.txtTransactionID._DateTimeOnly = False - Me.txtTransactionID._numbersOnly = True - Me.txtTransactionID._numbersOnlyKommastellen = "" - Me.txtTransactionID._numbersOnlyTrennzeichen = False - Me.txtTransactionID._Prozent = False - Me.txtTransactionID._ShortDateNew = False - Me.txtTransactionID._ShortDateOnly = False - Me.txtTransactionID._TimeOnly = False - Me.txtTransactionID._TimeOnly_Seconds = False - Me.txtTransactionID._value = "" - Me.txtTransactionID._Waehrung = False - Me.txtTransactionID._WaehrungZeichen = True - Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window - Me.txtTransactionID.ForeColor = System.Drawing.Color.Black - Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) - Me.txtTransactionID.MaxLength = 10 - Me.txtTransactionID.MaxLineLength = -1 - Me.txtTransactionID.MaxLines_Warning = "" - Me.txtTransactionID.MaxLines_Warning_Label = Nothing - Me.txtTransactionID.Name = "txtTransactionID" - Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) - Me.txtTransactionID.TabIndex = 115 - Me.txtTransactionID.Text = "1001723285" - Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'cbxMSEBatchNr - ' - Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing - Me.cbxMSEBatchNr._allowFreiText = True - Me.cbxMSEBatchNr._value = "" - Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cbxMSEBatchNr.DropDownWidth = 20 - Me.cbxMSEBatchNr.FormattingEnabled = True - Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) - Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" - Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) - Me.cbxMSEBatchNr.TabIndex = 122 - ' - 'txtBatchNr - ' - Me.txtBatchNr._DateTimeOnly = False - Me.txtBatchNr._numbersOnly = True - Me.txtBatchNr._numbersOnlyKommastellen = "" - Me.txtBatchNr._numbersOnlyTrennzeichen = False - Me.txtBatchNr._Prozent = False - Me.txtBatchNr._ShortDateNew = False - Me.txtBatchNr._ShortDateOnly = False - Me.txtBatchNr._TimeOnly = False - Me.txtBatchNr._TimeOnly_Seconds = False - Me.txtBatchNr._value = "" - Me.txtBatchNr._Waehrung = False - Me.txtBatchNr._WaehrungZeichen = True - Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNr.ForeColor = System.Drawing.Color.Red - Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) - Me.txtBatchNr.MaxLength = 10 - Me.txtBatchNr.MaxLineLength = -1 - Me.txtBatchNr.MaxLines_Warning = "" - Me.txtBatchNr.MaxLines_Warning_Label = Nothing - Me.txtBatchNr.Name = "txtBatchNr" - Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNr.TabIndex = 127 - Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtBatchNrofTransaction - ' - Me.txtBatchNrofTransaction._DateTimeOnly = False - Me.txtBatchNrofTransaction._numbersOnly = True - Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" - Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False - Me.txtBatchNrofTransaction._Prozent = False - Me.txtBatchNrofTransaction._ShortDateNew = False - Me.txtBatchNrofTransaction._ShortDateOnly = False - Me.txtBatchNrofTransaction._TimeOnly = False - Me.txtBatchNrofTransaction._TimeOnly_Seconds = False - Me.txtBatchNrofTransaction._value = "" - Me.txtBatchNrofTransaction._Waehrung = False - Me.txtBatchNrofTransaction._WaehrungZeichen = True - Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window - Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red - Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) - Me.txtBatchNrofTransaction.MaxLength = 10 - Me.txtBatchNrofTransaction.MaxLineLength = -1 - Me.txtBatchNrofTransaction.MaxLines_Warning = "" - Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing - Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" - Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) - Me.txtBatchNrofTransaction.TabIndex = 129 - Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'RMC ' Me.RMC.Controls.Add(Me.Label29) @@ -3412,17 +2843,6 @@ Partial Class frmStartOptions Me.TextBox2.TabIndex = 101 Me.TextBox2.Text = "Dateien nach Import von FTP löschen" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(14, 142) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' 'UTA ' Me.UTA.Controls.Add(Me.Label31) @@ -3539,58 +2959,6 @@ Partial Class frmStartOptions Me.lblUTAPDFvollst.TabStop = True Me.lblUTAPDFvollst.Text = "PDF Daten vollständig" ' - 'txtUTAYear - ' - Me.txtUTAYear._DateTimeOnly = False - Me.txtUTAYear._numbersOnly = True - Me.txtUTAYear._numbersOnlyKommastellen = "" - Me.txtUTAYear._numbersOnlyTrennzeichen = False - Me.txtUTAYear._Prozent = False - Me.txtUTAYear._ShortDateNew = False - Me.txtUTAYear._ShortDateOnly = False - Me.txtUTAYear._TimeOnly = False - Me.txtUTAYear._TimeOnly_Seconds = False - Me.txtUTAYear._value = "" - Me.txtUTAYear._Waehrung = False - Me.txtUTAYear._WaehrungZeichen = True - Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window - Me.txtUTAYear.ForeColor = System.Drawing.Color.Red - Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) - Me.txtUTAYear.MaxLength = 10 - Me.txtUTAYear.MaxLineLength = -1 - Me.txtUTAYear.MaxLines_Warning = "" - Me.txtUTAYear.MaxLines_Warning_Label = Nothing - Me.txtUTAYear.Name = "txtUTAYear" - Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) - Me.txtUTAYear.TabIndex = 133 - Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtUTADate - ' - Me.txtUTADate._DateTimeOnly = False - Me.txtUTADate._numbersOnly = False - Me.txtUTADate._numbersOnlyKommastellen = "" - Me.txtUTADate._numbersOnlyTrennzeichen = False - Me.txtUTADate._Prozent = False - Me.txtUTADate._ShortDateNew = False - Me.txtUTADate._ShortDateOnly = True - Me.txtUTADate._TimeOnly = False - Me.txtUTADate._TimeOnly_Seconds = False - Me.txtUTADate._value = "" - Me.txtUTADate._Waehrung = False - Me.txtUTADate._WaehrungZeichen = True - Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window - Me.txtUTADate.ForeColor = System.Drawing.Color.Red - Me.txtUTADate.Location = New System.Drawing.Point(17, 183) - Me.txtUTADate.MaxLength = 10 - Me.txtUTADate.MaxLineLength = -1 - Me.txtUTADate.MaxLines_Warning = "" - Me.txtUTADate.MaxLines_Warning_Label = Nothing - Me.txtUTADate.Name = "txtUTADate" - Me.txtUTADate.Size = New System.Drawing.Size(66, 20) - Me.txtUTADate.TabIndex = 156 - Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'PLOSE ' Me.PLOSE.Controls.Add(Me.LinkLabel52) @@ -3695,58 +3063,6 @@ Partial Class frmStartOptions Me.PlosePdfRE.TabStop = True Me.PlosePdfRE.Text = "PDF mit RE verknüpfen" ' - 'txtPloseJahr - ' - Me.txtPloseJahr._DateTimeOnly = False - Me.txtPloseJahr._numbersOnly = True - Me.txtPloseJahr._numbersOnlyKommastellen = "" - Me.txtPloseJahr._numbersOnlyTrennzeichen = False - Me.txtPloseJahr._Prozent = False - Me.txtPloseJahr._ShortDateNew = False - Me.txtPloseJahr._ShortDateOnly = False - Me.txtPloseJahr._TimeOnly = False - Me.txtPloseJahr._TimeOnly_Seconds = False - Me.txtPloseJahr._value = "" - Me.txtPloseJahr._Waehrung = False - Me.txtPloseJahr._WaehrungZeichen = False - Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window - Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red - Me.txtPloseJahr.Location = New System.Drawing.Point(88, 111) - Me.txtPloseJahr.MaxLength = 10 - Me.txtPloseJahr.MaxLineLength = -1 - Me.txtPloseJahr.MaxLines_Warning = "" - Me.txtPloseJahr.MaxLines_Warning_Label = Nothing - Me.txtPloseJahr.Name = "txtPloseJahr" - Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) - Me.txtPloseJahr.TabIndex = 158 - Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' - 'txtPLoseKdNr - ' - Me.txtPLoseKdNr._DateTimeOnly = False - Me.txtPLoseKdNr._numbersOnly = True - Me.txtPLoseKdNr._numbersOnlyKommastellen = "" - Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False - Me.txtPLoseKdNr._Prozent = False - Me.txtPLoseKdNr._ShortDateNew = False - Me.txtPLoseKdNr._ShortDateOnly = False - Me.txtPLoseKdNr._TimeOnly = False - Me.txtPLoseKdNr._TimeOnly_Seconds = False - Me.txtPLoseKdNr._value = "" - Me.txtPLoseKdNr._Waehrung = False - Me.txtPLoseKdNr._WaehrungZeichen = False - Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window - Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red - Me.txtPLoseKdNr.Location = New System.Drawing.Point(88, 134) - Me.txtPLoseKdNr.MaxLength = 10 - Me.txtPLoseKdNr.MaxLineLength = -1 - Me.txtPLoseKdNr.MaxLines_Warning = "" - Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing - Me.txtPLoseKdNr.Name = "txtPLoseKdNr" - Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) - Me.txtPLoseKdNr.TabIndex = 162 - Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center - ' 'TabPage5 ' Me.TabPage5.Controls.Add(Me.cbxPloseNeu) @@ -3980,30 +3296,6 @@ Partial Class frmStartOptions Me.cbxUTANeu.Text = "UTA" Me.cbxUTANeu.UseVisualStyleBackColor = True ' - 'txtKdNr - ' - Me.txtKdNr._DateTimeOnly = False - Me.txtKdNr._numbersOnly = True - Me.txtKdNr._numbersOnlyKommastellen = "" - Me.txtKdNr._numbersOnlyTrennzeichen = False - Me.txtKdNr._Prozent = False - Me.txtKdNr._ShortDateNew = False - Me.txtKdNr._ShortDateOnly = False - Me.txtKdNr._TimeOnly = False - Me.txtKdNr._TimeOnly_Seconds = False - Me.txtKdNr._value = "" - Me.txtKdNr._Waehrung = False - Me.txtKdNr._WaehrungZeichen = True - Me.txtKdNr.ForeColor = System.Drawing.Color.Black - Me.txtKdNr.Location = New System.Drawing.Point(77, 69) - Me.txtKdNr.MaxLength = 50 - Me.txtKdNr.MaxLineLength = -1 - Me.txtKdNr.MaxLines_Warning = "" - Me.txtKdNr.MaxLines_Warning_Label = Nothing - Me.txtKdNr.Name = "txtKdNr" - Me.txtKdNr.Size = New System.Drawing.Size(136, 20) - Me.txtKdNr.TabIndex = 95 - ' 'KN8_DESTAT ' Me.KN8_DESTAT.AutoSize = True @@ -4131,30 +3423,6 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = 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, 156) - 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) @@ -4323,6 +3591,792 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button21.Location = New System.Drawing.Point(581, 346) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(211, 24) + Me.Button21.TabIndex = 81 + Me.Button21.Text = "AAS Sendung 24h" + Me.Button21.UseVisualStyleBackColor = True + ' + 'cbxTCVB_Versand + ' + Me.cbxTCVB_Versand.AutoSize = True + Me.cbxTCVB_Versand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTCVB_Versand.Location = New System.Drawing.Point(158, 28) + Me.cbxTCVB_Versand.Name = "cbxTCVB_Versand" + Me.cbxTCVB_Versand.Size = New System.Drawing.Size(82, 17) + Me.cbxTCVB_Versand.TabIndex = 153 + Me.cbxTCVB_Versand.Text = "ZB Versand" + Me.cbxTCVB_Versand.UseVisualStyleBackColor = True + ' + 'cbxTCAnhEinlesen + ' + Me.cbxTCAnhEinlesen.AutoSize = True + Me.cbxTCAnhEinlesen.Checked = True + Me.cbxTCAnhEinlesen.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxTCAnhEinlesen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTCAnhEinlesen.Location = New System.Drawing.Point(1, 28) + Me.cbxTCAnhEinlesen.Name = "cbxTCAnhEinlesen" + Me.cbxTCAnhEinlesen.Size = New System.Drawing.Size(111, 17) + Me.cbxTCAnhEinlesen.TabIndex = 154 + Me.cbxTCAnhEinlesen.Text = "Anhänge einlesen" + Me.cbxTCAnhEinlesen.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.FloralWhite + Me.Panel1.Controls.Add(Me.cbxTCAnhEinlesen) + Me.Panel1.Controls.Add(Me.cboTCAPI_Files) + Me.Panel1.Controls.Add(Me.cbxTCVB_Versand) + Me.Panel1.ForeColor = System.Drawing.Color.Black + Me.Panel1.Location = New System.Drawing.Point(418, 408) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(242, 50) + Me.Panel1.TabIndex = 155 + ' + 'MyTextBox3 + ' + Me.MyTextBox3._DateTimeOnly = False + Me.MyTextBox3._numbersOnly = True + Me.MyTextBox3._numbersOnlyKommastellen = "" + Me.MyTextBox3._numbersOnlyTrennzeichen = True + Me.MyTextBox3._Prozent = False + Me.MyTextBox3._ShortDateNew = False + Me.MyTextBox3._ShortDateOnly = False + Me.MyTextBox3._TimeOnly = False + Me.MyTextBox3._TimeOnly_Seconds = False + Me.MyTextBox3._value = "" + Me.MyTextBox3._Waehrung = False + Me.MyTextBox3._WaehrungZeichen = True + Me.MyTextBox3.ForeColor = System.Drawing.Color.Red + Me.MyTextBox3.Location = New System.Drawing.Point(127, 232) + Me.MyTextBox3.MaxLineLength = -1 + Me.MyTextBox3.MaxLines_Warning = "" + Me.MyTextBox3.MaxLines_Warning_Label = Nothing + Me.MyTextBox3.Name = "MyTextBox3" + Me.MyTextBox3.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox3.TabIndex = 86 + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 + ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._numbersOnlyTrennzeichen = True + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._TimeOnly_Seconds = 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(692, 318) + 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 + ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._numbersOnlyTrennzeichen = True + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._TimeOnly_Seconds = 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, 214) + 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 + ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(564, 299) + 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, 300) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'MyTextBox4 + ' + Me.MyTextBox4._DateTimeOnly = False + Me.MyTextBox4._numbersOnly = False + Me.MyTextBox4._numbersOnlyKommastellen = "" + Me.MyTextBox4._numbersOnlyTrennzeichen = True + Me.MyTextBox4._Prozent = False + Me.MyTextBox4._ShortDateNew = True + Me.MyTextBox4._ShortDateOnly = False + Me.MyTextBox4._TimeOnly = False + Me.MyTextBox4._TimeOnly_Seconds = False + Me.MyTextBox4._value = "" + Me.MyTextBox4._Waehrung = False + Me.MyTextBox4._WaehrungZeichen = True + Me.MyTextBox4.ForeColor = System.Drawing.Color.Black + Me.MyTextBox4.Location = New System.Drawing.Point(775, 277) + Me.MyTextBox4.MaxLength = 10 + Me.MyTextBox4.MaxLineLength = -1 + Me.MyTextBox4.MaxLines_Warning = "" + Me.MyTextBox4.MaxLines_Warning_Label = Nothing + Me.MyTextBox4.Name = "MyTextBox4" + Me.MyTextBox4.Size = New System.Drawing.Size(80, 20) + Me.MyTextBox4.TabIndex = 90 + ' + '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.RowHeadersWidth = 62 + 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.MinimumWidth = 8 + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._numbersOnlyTrennzeichen = True + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly_Seconds = 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._numbersOnlyTrennzeichen = True + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly_Seconds = 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 + ' + 'cboTCAPI_Firma + ' + Me.cboTCAPI_Firma._allowedValuesFreiText = Nothing + Me.cboTCAPI_Firma._allowFreiText = False + Me.cboTCAPI_Firma._value = "" + Me.cboTCAPI_Firma.FormattingEnabled = True + Me.cboTCAPI_Firma.Items.AddRange(New Object() {"ALLE", "ATILLA", "IMEX", "DURMAZ"}) + Me.cboTCAPI_Firma.Location = New System.Drawing.Point(570, 381) + Me.cboTCAPI_Firma.Name = "cboTCAPI_Firma" + Me.cboTCAPI_Firma.Size = New System.Drawing.Size(88, 21) + Me.cboTCAPI_Firma.TabIndex = 152 + Me.cboTCAPI_Firma.Text = "ALLE" + ' + 'MyTextBox06 + ' + Me.MyTextBox06._DateTimeOnly = False + Me.MyTextBox06._numbersOnly = False + Me.MyTextBox06._numbersOnlyKommastellen = "" + Me.MyTextBox06._numbersOnlyTrennzeichen = False + Me.MyTextBox06._Prozent = False + Me.MyTextBox06._ShortDateNew = False + Me.MyTextBox06._ShortDateOnly = False + Me.MyTextBox06._TimeOnly = False + Me.MyTextBox06._TimeOnly_Seconds = False + Me.MyTextBox06._value = "200" + Me.MyTextBox06._Waehrung = False + Me.MyTextBox06._WaehrungZeichen = False + Me.MyTextBox06.ForeColor = System.Drawing.Color.Black + Me.MyTextBox06.Location = New System.Drawing.Point(583, 302) + Me.MyTextBox06.MaxLength = 18 + Me.MyTextBox06.MaxLineLength = -1 + Me.MyTextBox06.MaxLines_Warning = "" + Me.MyTextBox06.MaxLines_Warning_Label = Nothing + Me.MyTextBox06.Name = "MyTextBox06" + Me.MyTextBox06.Size = New System.Drawing.Size(150, 20) + Me.MyTextBox06.TabIndex = 148 + Me.MyTextBox06.Text = "200" + ' + 'txtCheckATEZMRN + ' + Me.txtCheckATEZMRN._DateTimeOnly = False + Me.txtCheckATEZMRN._numbersOnly = False + Me.txtCheckATEZMRN._numbersOnlyKommastellen = "" + Me.txtCheckATEZMRN._numbersOnlyTrennzeichen = False + Me.txtCheckATEZMRN._Prozent = False + Me.txtCheckATEZMRN._ShortDateNew = False + Me.txtCheckATEZMRN._ShortDateOnly = False + Me.txtCheckATEZMRN._TimeOnly = False + Me.txtCheckATEZMRN._TimeOnly_Seconds = False + Me.txtCheckATEZMRN._value = "" + Me.txtCheckATEZMRN._Waehrung = False + Me.txtCheckATEZMRN._WaehrungZeichen = False + Me.txtCheckATEZMRN.ForeColor = System.Drawing.Color.Black + Me.txtCheckATEZMRN.Location = New System.Drawing.Point(548, 272) + Me.txtCheckATEZMRN.MaxLength = 18 + Me.txtCheckATEZMRN.MaxLineLength = -1 + Me.txtCheckATEZMRN.MaxLines_Warning = "" + Me.txtCheckATEZMRN.MaxLines_Warning_Label = Nothing + Me.txtCheckATEZMRN.Name = "txtCheckATEZMRN" + Me.txtCheckATEZMRN.Size = New System.Drawing.Size(185, 20) + Me.txtCheckATEZMRN.TabIndex = 139 + ' + 'datTranscodeBis + ' + Me.datTranscodeBis._DateTimeOnly = False + Me.datTranscodeBis._numbersOnly = False + Me.datTranscodeBis._numbersOnlyKommastellen = "" + Me.datTranscodeBis._numbersOnlyTrennzeichen = True + Me.datTranscodeBis._Prozent = False + Me.datTranscodeBis._ShortDateNew = True + Me.datTranscodeBis._ShortDateOnly = False + Me.datTranscodeBis._TimeOnly = False + Me.datTranscodeBis._TimeOnly_Seconds = False + Me.datTranscodeBis._value = "" + Me.datTranscodeBis._Waehrung = False + Me.datTranscodeBis._WaehrungZeichen = True + Me.datTranscodeBis.ForeColor = System.Drawing.Color.Black + Me.datTranscodeBis.Location = New System.Drawing.Point(646, 245) + Me.datTranscodeBis.MaxLength = 10 + Me.datTranscodeBis.MaxLineLength = -1 + Me.datTranscodeBis.MaxLines_Warning = "" + Me.datTranscodeBis.MaxLines_Warning_Label = Nothing + Me.datTranscodeBis.Name = "datTranscodeBis" + Me.datTranscodeBis.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeBis.TabIndex = 143 + ' + 'datTranscodeVon + ' + Me.datTranscodeVon._DateTimeOnly = False + Me.datTranscodeVon._numbersOnly = False + Me.datTranscodeVon._numbersOnlyKommastellen = "" + Me.datTranscodeVon._numbersOnlyTrennzeichen = True + Me.datTranscodeVon._Prozent = False + Me.datTranscodeVon._ShortDateNew = True + Me.datTranscodeVon._ShortDateOnly = False + Me.datTranscodeVon._TimeOnly = False + Me.datTranscodeVon._TimeOnly_Seconds = False + Me.datTranscodeVon._value = "" + Me.datTranscodeVon._Waehrung = False + Me.datTranscodeVon._WaehrungZeichen = True + Me.datTranscodeVon.ForeColor = System.Drawing.Color.Black + Me.datTranscodeVon.Location = New System.Drawing.Point(548, 245) + Me.datTranscodeVon.MaxLength = 10 + Me.datTranscodeVon.MaxLineLength = -1 + Me.datTranscodeVon.MaxLines_Warning = "" + Me.datTranscodeVon.MaxLines_Warning_Label = Nothing + Me.datTranscodeVon.Name = "datTranscodeVon" + Me.datTranscodeVon.Size = New System.Drawing.Size(87, 20) + Me.datTranscodeVon.TabIndex = 142 + ' + 'txtTWLNr + ' + Me.txtTWLNr._DateTimeOnly = False + Me.txtTWLNr._numbersOnly = True + Me.txtTWLNr._numbersOnlyKommastellen = "" + Me.txtTWLNr._numbersOnlyTrennzeichen = False + Me.txtTWLNr._Prozent = False + Me.txtTWLNr._ShortDateNew = False + Me.txtTWLNr._ShortDateOnly = False + Me.txtTWLNr._TimeOnly = False + Me.txtTWLNr._TimeOnly_Seconds = False + Me.txtTWLNr._value = "" + Me.txtTWLNr._Waehrung = False + Me.txtTWLNr._WaehrungZeichen = True + Me.txtTWLNr.ForeColor = System.Drawing.Color.Red + Me.txtTWLNr.Location = New System.Drawing.Point(168, 152) + Me.txtTWLNr.MaxLineLength = -1 + Me.txtTWLNr.MaxLines_Warning = "" + Me.txtTWLNr.MaxLines_Warning_Label = Nothing + Me.txtTWLNr.Name = "txtTWLNr" + Me.txtTWLNr.ReadOnly = True + Me.txtTWLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTWLNr.TabIndex = 78 + ' + 'txtTBLNr + ' + Me.txtTBLNr._DateTimeOnly = False + Me.txtTBLNr._numbersOnly = True + Me.txtTBLNr._numbersOnlyKommastellen = "" + Me.txtTBLNr._numbersOnlyTrennzeichen = False + Me.txtTBLNr._Prozent = False + Me.txtTBLNr._ShortDateNew = False + Me.txtTBLNr._ShortDateOnly = False + Me.txtTBLNr._TimeOnly = False + Me.txtTBLNr._TimeOnly_Seconds = False + Me.txtTBLNr._value = "" + Me.txtTBLNr._Waehrung = False + Me.txtTBLNr._WaehrungZeichen = True + Me.txtTBLNr.ForeColor = System.Drawing.Color.Red + Me.txtTBLNr.Location = New System.Drawing.Point(168, 180) + Me.txtTBLNr.MaxLineLength = -1 + Me.txtTBLNr.MaxLines_Warning = "" + Me.txtTBLNr.MaxLines_Warning_Label = Nothing + Me.txtTBLNr.Name = "txtTBLNr" + Me.txtTBLNr.ReadOnly = True + Me.txtTBLNr.Size = New System.Drawing.Size(53, 20) + Me.txtTBLNr.TabIndex = 79 + ' + 'txtIDSYear + ' + Me.txtIDSYear._DateTimeOnly = False + Me.txtIDSYear._numbersOnly = True + Me.txtIDSYear._numbersOnlyKommastellen = "" + Me.txtIDSYear._numbersOnlyTrennzeichen = False + Me.txtIDSYear._Prozent = False + Me.txtIDSYear._ShortDateNew = False + Me.txtIDSYear._ShortDateOnly = False + Me.txtIDSYear._TimeOnly = False + Me.txtIDSYear._TimeOnly_Seconds = False + Me.txtIDSYear._value = "" + Me.txtIDSYear._Waehrung = False + Me.txtIDSYear._WaehrungZeichen = True + Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window + Me.txtIDSYear.ForeColor = System.Drawing.Color.Red + Me.txtIDSYear.Location = New System.Drawing.Point(12, 61) + Me.txtIDSYear.MaxLength = 10 + Me.txtIDSYear.MaxLineLength = -1 + Me.txtIDSYear.MaxLines_Warning = "" + Me.txtIDSYear.MaxLines_Warning_Label = Nothing + Me.txtIDSYear.Name = "txtIDSYear" + Me.txtIDSYear.Size = New System.Drawing.Size(66, 20) + Me.txtIDSYear.TabIndex = 155 + Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(41, 207) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxMSEBatchNr + ' + Me.cbxMSEBatchNr._allowedValuesFreiText = Nothing + Me.cbxMSEBatchNr._allowFreiText = True + Me.cbxMSEBatchNr._value = "" + Me.cbxMSEBatchNr.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxMSEBatchNr.DropDownWidth = 20 + Me.cbxMSEBatchNr.FormattingEnabled = True + Me.cbxMSEBatchNr.Location = New System.Drawing.Point(30, 156) + Me.cbxMSEBatchNr.Name = "cbxMSEBatchNr" + Me.cbxMSEBatchNr.Size = New System.Drawing.Size(44, 21) + Me.cbxMSEBatchNr.TabIndex = 122 + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Red + Me.txtBatchNr.Location = New System.Drawing.Point(81, 156) + Me.txtBatchNr.MaxLength = 10 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNr.TabIndex = 127 + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtBatchNrofTransaction + ' + Me.txtBatchNrofTransaction._DateTimeOnly = False + Me.txtBatchNrofTransaction._numbersOnly = True + Me.txtBatchNrofTransaction._numbersOnlyKommastellen = "" + Me.txtBatchNrofTransaction._numbersOnlyTrennzeichen = False + Me.txtBatchNrofTransaction._Prozent = False + Me.txtBatchNrofTransaction._ShortDateNew = False + Me.txtBatchNrofTransaction._ShortDateOnly = False + Me.txtBatchNrofTransaction._TimeOnly = False + Me.txtBatchNrofTransaction._TimeOnly_Seconds = False + Me.txtBatchNrofTransaction._value = "" + Me.txtBatchNrofTransaction._Waehrung = False + Me.txtBatchNrofTransaction._WaehrungZeichen = True + Me.txtBatchNrofTransaction.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNrofTransaction.ForeColor = System.Drawing.Color.Red + Me.txtBatchNrofTransaction.Location = New System.Drawing.Point(177, 207) + Me.txtBatchNrofTransaction.MaxLength = 10 + Me.txtBatchNrofTransaction.MaxLineLength = -1 + Me.txtBatchNrofTransaction.MaxLines_Warning = "" + Me.txtBatchNrofTransaction.MaxLines_Warning_Label = Nothing + Me.txtBatchNrofTransaction.Name = "txtBatchNrofTransaction" + Me.txtBatchNrofTransaction.Size = New System.Drawing.Size(36, 20) + Me.txtBatchNrofTransaction.TabIndex = 129 + Me.txtBatchNrofTransaction.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(14, 142) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' + 'txtUTAYear + ' + Me.txtUTAYear._DateTimeOnly = False + Me.txtUTAYear._numbersOnly = True + Me.txtUTAYear._numbersOnlyKommastellen = "" + Me.txtUTAYear._numbersOnlyTrennzeichen = False + Me.txtUTAYear._Prozent = False + Me.txtUTAYear._ShortDateNew = False + Me.txtUTAYear._ShortDateOnly = False + Me.txtUTAYear._TimeOnly = False + Me.txtUTAYear._TimeOnly_Seconds = False + Me.txtUTAYear._value = "" + Me.txtUTAYear._Waehrung = False + Me.txtUTAYear._WaehrungZeichen = True + Me.txtUTAYear.BackColor = System.Drawing.SystemColors.Window + Me.txtUTAYear.ForeColor = System.Drawing.Color.Red + Me.txtUTAYear.Location = New System.Drawing.Point(58, 113) + Me.txtUTAYear.MaxLength = 10 + Me.txtUTAYear.MaxLineLength = -1 + Me.txtUTAYear.MaxLines_Warning = "" + Me.txtUTAYear.MaxLines_Warning_Label = Nothing + Me.txtUTAYear.Name = "txtUTAYear" + Me.txtUTAYear.Size = New System.Drawing.Size(66, 20) + Me.txtUTAYear.TabIndex = 133 + Me.txtUTAYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtUTADate + ' + Me.txtUTADate._DateTimeOnly = False + Me.txtUTADate._numbersOnly = False + Me.txtUTADate._numbersOnlyKommastellen = "" + Me.txtUTADate._numbersOnlyTrennzeichen = False + Me.txtUTADate._Prozent = False + Me.txtUTADate._ShortDateNew = False + Me.txtUTADate._ShortDateOnly = True + Me.txtUTADate._TimeOnly = False + Me.txtUTADate._TimeOnly_Seconds = False + Me.txtUTADate._value = "" + Me.txtUTADate._Waehrung = False + Me.txtUTADate._WaehrungZeichen = True + Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window + Me.txtUTADate.ForeColor = System.Drawing.Color.Red + Me.txtUTADate.Location = New System.Drawing.Point(17, 183) + Me.txtUTADate.MaxLength = 10 + Me.txtUTADate.MaxLineLength = -1 + Me.txtUTADate.MaxLines_Warning = "" + Me.txtUTADate.MaxLines_Warning_Label = Nothing + Me.txtUTADate.Name = "txtUTADate" + Me.txtUTADate.Size = New System.Drawing.Size(66, 20) + Me.txtUTADate.TabIndex = 156 + Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPloseJahr + ' + Me.txtPloseJahr._DateTimeOnly = False + Me.txtPloseJahr._numbersOnly = True + Me.txtPloseJahr._numbersOnlyKommastellen = "" + Me.txtPloseJahr._numbersOnlyTrennzeichen = False + Me.txtPloseJahr._Prozent = False + Me.txtPloseJahr._ShortDateNew = False + Me.txtPloseJahr._ShortDateOnly = False + Me.txtPloseJahr._TimeOnly = False + Me.txtPloseJahr._TimeOnly_Seconds = False + Me.txtPloseJahr._value = "" + Me.txtPloseJahr._Waehrung = False + Me.txtPloseJahr._WaehrungZeichen = False + Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window + Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red + Me.txtPloseJahr.Location = New System.Drawing.Point(88, 111) + Me.txtPloseJahr.MaxLength = 10 + Me.txtPloseJahr.MaxLineLength = -1 + Me.txtPloseJahr.MaxLines_Warning = "" + Me.txtPloseJahr.MaxLines_Warning_Label = Nothing + Me.txtPloseJahr.Name = "txtPloseJahr" + Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20) + Me.txtPloseJahr.TabIndex = 158 + Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtPLoseKdNr + ' + Me.txtPLoseKdNr._DateTimeOnly = False + Me.txtPLoseKdNr._numbersOnly = True + Me.txtPLoseKdNr._numbersOnlyKommastellen = "" + Me.txtPLoseKdNr._numbersOnlyTrennzeichen = False + Me.txtPLoseKdNr._Prozent = False + Me.txtPLoseKdNr._ShortDateNew = False + Me.txtPLoseKdNr._ShortDateOnly = False + Me.txtPLoseKdNr._TimeOnly = False + Me.txtPLoseKdNr._TimeOnly_Seconds = False + Me.txtPLoseKdNr._value = "" + Me.txtPLoseKdNr._Waehrung = False + Me.txtPLoseKdNr._WaehrungZeichen = False + Me.txtPLoseKdNr.BackColor = System.Drawing.SystemColors.Window + Me.txtPLoseKdNr.ForeColor = System.Drawing.Color.Red + Me.txtPLoseKdNr.Location = New System.Drawing.Point(88, 134) + Me.txtPLoseKdNr.MaxLength = 10 + Me.txtPLoseKdNr.MaxLineLength = -1 + Me.txtPLoseKdNr.MaxLines_Warning = "" + Me.txtPLoseKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLoseKdNr.Name = "txtPLoseKdNr" + Me.txtPLoseKdNr.Size = New System.Drawing.Size(66, 20) + Me.txtPLoseKdNr.TabIndex = 162 + Me.txtPLoseKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'txtKdNr + ' + Me.txtKdNr._DateTimeOnly = False + Me.txtKdNr._numbersOnly = True + Me.txtKdNr._numbersOnlyKommastellen = "" + Me.txtKdNr._numbersOnlyTrennzeichen = False + Me.txtKdNr._Prozent = False + Me.txtKdNr._ShortDateNew = False + Me.txtKdNr._ShortDateOnly = False + Me.txtKdNr._TimeOnly = False + Me.txtKdNr._TimeOnly_Seconds = False + Me.txtKdNr._value = "" + Me.txtKdNr._Waehrung = False + Me.txtKdNr._WaehrungZeichen = True + Me.txtKdNr.ForeColor = System.Drawing.Color.Black + Me.txtKdNr.Location = New System.Drawing.Point(77, 69) + Me.txtKdNr.MaxLength = 50 + Me.txtKdNr.MaxLineLength = -1 + Me.txtKdNr.MaxLines_Warning = "" + Me.txtKdNr.MaxLines_Warning_Label = Nothing + Me.txtKdNr.Name = "txtKdNr" + Me.txtKdNr.Size = New System.Drawing.Size(136, 20) + Me.txtKdNr.TabIndex = 95 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = 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, 156) + 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" + ' 'txtGJ_UNISPED ' Me.txtGJ_UNISPED._DateTimeOnly = False @@ -4347,18 +4401,6 @@ Partial Class frmStartOptions Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.TabIndex = 68 ' - 'Button21 - ' - Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button21.Location = New System.Drawing.Point(581, 346) - Me.Button21.Name = "Button21" - Me.Button21.Size = New System.Drawing.Size(211, 24) - Me.Button21.TabIndex = 81 - Me.Button21.Text = "AAS Sendung 24h" - Me.Button21.UseVisualStyleBackColor = True - ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill @@ -4366,12 +4408,25 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' + 'btnTesttc + ' + Me.btnTesttc.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTesttc.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnTesttc.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTesttc.Location = New System.Drawing.Point(684, 431) + Me.btnTesttc.Name = "btnTesttc" + Me.btnTesttc.Size = New System.Drawing.Size(239, 24) + Me.btnTesttc.TabIndex = 156 + Me.btnTesttc.Text = "Files hochladen und einarbeiten..." + Me.btnTesttc.UseVisualStyleBackColor = True + Me.btnTesttc.Visible = False + ' '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(1229, 920) + Me.ClientSize = New System.Drawing.Size(1229, 946) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -4407,7 +4462,6 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() Me.TabPage4.ResumeLayout(False) @@ -4435,6 +4489,9 @@ Partial Class frmStartOptions CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -4742,4 +4799,8 @@ Partial Class frmStartOptions Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxUseUIDFinanzOnline As CheckBox Friend WithEvents IDS_PDFmitREverkn As LinkLabel + Friend WithEvents cbxTCVB_Versand As CheckBox + Friend WithEvents cbxTCAnhEinlesen As CheckBox + Friend WithEvents Panel1 As Panel + Friend WithEvents btnTesttc As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 8da457c..049c40f 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -212,6 +212,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -622,9 +718,6 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - True - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -721,102 +814,12 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - + + True + + + True + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 09f77b5..5b46d74 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -7,11 +7,14 @@ Imports System.Text Imports System.Xml Imports com.sun.media.sound Imports com.sun.org.apache.xerces.internal.impl.dv.xs +Imports DAKOSY_Worker Imports MDM_Worker Imports Org.BouncyCastle.Bcpg Imports Renci.SshNet +Imports sun.java2d Imports TELOTEC_Worker Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI Public Class frmStartOptions Dim WithEvents timer As New Timer @@ -6047,6 +6050,79 @@ weiter: End Sub Private Sub Button29_Click(sender As Object, e As EventArgs) Handles cboTCAPI_Files.Click + Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT + + Dim messages As New List(Of TAMessage)() + + Using ofd As New OpenFileDialog() + ofd.Title = "Wähle eine oder mehrere JSON-Dateien mit TA-Nachrichten" + ofd.InitialDirectory = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON\" + ofd.Filter = "JSON-Dateien (*.json)|*.json|Alle Dateien (*.*)|*.*" + ofd.Multiselect = True + + If ofd.ShowDialog() = DialogResult.OK AndAlso ofd.FileNames IsNot Nothing AndAlso ofd.FileNames.Length > 0 Then + For Each selectedPath In ofd.FileNames + ' Optional: kurze Info + Console.WriteLine($"📄 Verarbeite: {selectedPath}") + + messages = TELO.ParseTAMessagesFromFile(selectedPath, cbxTCAnhEinlesen.Checked) + + For Each msg In messages + Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) + If TELO_ANM.SAVE() Then + TELO_ANM.SAVE_ME_AKTUELLSTE_NACHRICHT() + + ' SpedBuch + ZOLLIMPORT.TelotecImport(TELO_ANM) + + ' Anhang + If cbxTCAnhEinlesen.Checked Then + SAVE_PDF(TELO_ANM, msg, cbxTCVB_Versand.Checked) + End If + End If + Next + Next + Else + Console.WriteLine("🔕 Keine Datei ausgewählt.") + End If + End Using + + + 'Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + 'Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT + + 'Dim messages As New List(Of TAMessage)() + + 'Using ofd As New OpenFileDialog() + ' ofd.Title = "Wähle eine JSON-Datei mit TA-Nachrichten" + ' ofd.InitialDirectory = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON\" + ' ofd.Filter = "JSON-Dateien (*.json)|*.json|Alle Dateien (*.*)|*.*" + + ' If ofd.ShowDialog() = DialogResult.OK Then + ' Dim selectedPath As String = ofd.FileName + ' messages = TELO.ParseTAMessagesFromFile(selectedPath, cbxTCAnhEinlesen.Checked) + + + + ' For Each msg In messages + ' Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) + ' If TELO_ANM.SAVE() Then + ' TELO_ANM.SAVE_ME_AKTUELLSTE_NACHRICHT() + ' ' OK + ' 'SpedBuch + ' ZOLLIMPORT.TelotecImport(TELO_ANM) + ' 'ZOLLIMPORT.insertAbgabenTELOTEC(TC) + + ' 'Anhang + ' If cbxTCAnhEinlesen.Checked Then SAVE_PDF(TELO_ANM, msg, cbxTCVB_Versand.Checked) + + ' End If + ' Next + ' Else + ' Console.WriteLine("🔕 Keine Datei ausgewählt.") + ' End If + 'End Using End Sub @@ -6071,16 +6147,102 @@ weiter: End Sub Sub doTelotecAPIMulit(Firma) Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + + Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT + For ii As Integer = 0 To 50 - Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Firma) + Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Firma, True) 'Threading.Thread.Sleep(100) ' 'convert For Each msg In messages - ' Dim cTelotec_Anmeldung = cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) - ' -----------> HIER WEITERMACHEN!!!! + + Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) + If TELO_ANM.SAVE() Then + TELO_ANM.SAVE_ME_AKTUELLSTE_NACHRICHT() + ' OK + 'SpedBuch + ZOLLIMPORT.TelotecImport(TELO_ANM) + 'ZOLLIMPORT.insertAbgabenTELOTEC(TC) + 'Anhang + SAVE_PDF(TELO_ANM, msg, True) + End If Next Next End Sub + Public Function SAVE_PDF(TELO_ANM As TELOTEC_Worker.cTelotec_Anmeldung, msg As VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage, ZB_Versand As Boolean) As Boolean + 'Case "TR109" 'VBD + If TELO_ANM.telanm_id >= 0 Then + With msg + If .declarationContent IsNot Nothing Then + Dim decl = .declarationContent + If decl.filePath <> "" Then + + Dim frmStartOptions As New frmStartOptions + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", TELO_ANM.telanm_id, "", "", TELO_ANM.Refs_LRN.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(TELO_ANM.telanm_id) AndAlso TELO_ANM.telanm_id > 0 Then ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "TELOTEC\ECHTSYSTEM\ZOLLDATEN\VBD\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\" + If Not System.IO.Directory.Exists(ZIEL_PFAD) Then System.IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + frmStartOptions.moveFile(msg.declarationContent.filePath, ZIEL_PFAD, destFull) + + If DS.insertDataToDATENSERVER(destFull) Then + If IsNumeric(TELO_ANM.telanm_id) AndAlso TELO_ANM.telanm_id > 0 Then + SQL.doSQL("UPDATE [tblTelotec_Anmeldung] SET [telanm_VBD_dsId]='" & DS.da_id & "' where telanm_CRN='" & TELO_ANM.Refs_CRN & "'", "FMZOLL") + SQL.doSQL("UPDATE Speditionsbuch SET DokumentId_VBD='" & DS.da_id & "' where AtlasBezNrNCTS='" & TELO_ANM.Refs_LRN.ToString.Trim & "' AND DokumentId_VBD is null", "FMZOLL") 'Falls Spedbuch schon zuvor generiert wurde! + If ZB_Versand Then + If DateDiff(DateInterval.Hour, TELO_ANM.dec_CreateDate, Now) < 24 Then frmStartOptions.doMailZollbeleg(DS.GET_TOP1_PATH, "VBD", TELO_ANM.telanm_id) + End If + End If + End If + End If + + End If + End With + End If + + End Function + + Private Sub btnTesttc_Click(sender As Object, e As EventArgs) Handles btnTesttc.Click + Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI + Dim ZOLLIMPORT As New DAKOSY_Worker.cZOLL_IMPORT + + Dim messages As New List(Of TAMessage)() + + Using ofd As New OpenFileDialog() + ofd.Title = "Wähle eine oder mehrere JSON-Dateien mit TA-Nachrichten" + ofd.InitialDirectory = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON\" + ofd.Filter = "JSON-Dateien (*.json)|*.json|Alle Dateien (*.*)|*.*" + ofd.Multiselect = True + + If ofd.ShowDialog() = DialogResult.OK AndAlso ofd.FileNames IsNot Nothing AndAlso ofd.FileNames.Length > 0 Then + For Each selectedPath In ofd.FileNames + ' Optional: kurze Info + Console.WriteLine($"📄 Verarbeite: {selectedPath}") + + messages = TELO.ParseTAMessagesFromFile(selectedPath, False) + + For Each msg In messages + Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(msg) + 'TELOTEC_Worker.cTelotec_Anmeldung.Update_Anmeldedatum(TELO_ANM.Refs_LRN, TELO_ANM.dec_CreateDate) + If TELO_ANM.telanm_Status = 60 Then + TELOTEC_Worker.cTelotec_Anmeldung.Update_Status_LRN(TELO_ANM.Refs_LRN, TELO_ANM.telanm_Status) + End If + + + 'UPDATE_Status + + Next + Next + Else + Console.WriteLine("🔕 Keine Datei ausgewählt.") + End If + End Using + End Sub End Class \ No newline at end of file