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