edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NCTS5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-13 22:12:48 +02:00
parent da98cbfc22
commit 4afd3d2151
9 changed files with 443 additions and 572 deletions
Download Patch File Download Diff File Expand all files Collapse all files

91
DAKOSY_Worker/cIMPORT_Codelisten.vb
View File

@@ -34,6 +34,8 @@ Public Class cIMPORT_Codelisten
Return Import_C0141(TESTSYSTEM) Return Import_C0141(TESTSYSTEM)
Case "I0610" Case "I0610"
Return Import_I0610(TESTSYSTEM) Return Import_I0610(TESTSYSTEM)
Case "C0219"
Return Import_C0219(TESTSYSTEM)
End Select End Select
Return False Return False
End Function End Function
@@ -478,6 +480,55 @@ Public Class cIMPORT_Codelisten
End Function End Function
Shared Function Import_C0219(TESTSYSTEM) As Boolean
Dim MyData As String = ""
Try
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Using WC As New System.Net.WebClient()
' C0008_URL()
WC.Encoding = ASCIIEncoding.UTF8
Dim URL = cDY_Paramter.GET_PARAM_ByName("C0219_URL", TESTSYSTEM, "VERAG")
If URL = String.Empty Then Return False
' MsgBox(URL)
MyData = WC.DownloadString(URL)
Dim doc As New XmlDocument()
doc.LoadXml(MyData)
Dim LC As New cBefoerderungsmittelartenC0219
If doc.HasChildNodes Then
If doc.GetElementsByTagName("Codelist").Count > 0 Then
If doc.GetElementsByTagName("Codelist")(0).HasChildNodes Then
For Each Entry As XmlNode In doc.GetElementsByTagName("Codelist")(0).ChildNodes
' MsgBox(Entry.SelectNodes("Code")(0).InnerText)
Dim Code = ""
Dim Description = ""
Dim StartDate = Nothing
Dim EndDate = Nothing
If Entry.SelectNodes("Code").Count > 0 Then Code = Entry.SelectNodes("Code")(0).InnerText
If Entry.SelectNodes("Description").Count > 0 Then Description = Entry.SelectNodes("Description")(0).InnerText
If Entry.SelectNodes("StartDate").Count > 0 Then StartDate = CDate(Entry.SelectNodes("StartDate")(0).InnerText)
If Entry.SelectNodes("EndDate").Count > 0 Then EndDate = CDate(Entry.SelectNodes("EndDate")(0).InnerText)
LC.Add(New cBefoerderungsmittelartenC0219.cBefoerderungsmittelart(Code, Description, StartDate, EndDate))
Next
End If
End If
End If
If LC.Count > 0 Then
Return LC.INSERT_DB(TESTSYSTEM)
End If
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
End Try
Return False
End Function
Shared Function Import_I0200(TESTSYSTEM) As Boolean Shared Function Import_I0200(TESTSYSTEM) As Boolean
Dim MyData As String = "" Dim MyData As String = ""
Try Try
@@ -673,6 +724,46 @@ Class cWaehrungsliste
End Class End Class
Class cBefoerderungsmittelartenC0219
Inherits List(Of cBefoerderungsmittelart)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Function INSERT_DB(TESTSSYSTEM) As Boolean
If SQL.doSQL("DELETE FROM [tbl_DY_ZollDE_C0219_TypeTransportMeans]", , , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
Dim ok = True
For Each l In Me
Dim List As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Code", l.Code))
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Description", l.Description))
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("StartDate", l.StartDate))
List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("EndDate", l.EndDate))
If Not SQL.doSQL("INSERT INTO [tbl_DY_ZollDE_C0219_TypeTransportMeans] (Code, Description, StartDate, EndDate) VALUES (@Code, @Description, @StartDate, @EndDate); ", "FMZOLL", , List, SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSSYSTEM)) Then
ok = False
End If
Next
Return ok
End If
Return False
End Function
Class cBefoerderungsmittelart
Property Code As String = ""
Property Description As String = ""
Property StartDate As Object = Nothing
Property EndDate As Object = Nothing
Sub New(Code, Description, StartDate, EndDate)
Me.Code = Code
Me.Description = Description
Me.StartDate = StartDate
Me.EndDate = EndDate
End Sub
End Class
End Class
Class cMasseinheit Class cMasseinheit
Inherits List(Of cMasseinheitI0700) Inherits List(Of cMasseinheitI0700)

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.2.1")> <Assembly: AssemblyVersion("1.2.2.2")>
<Assembly: AssemblyFileVersion("1.2.2.1")> <Assembly: AssemblyFileVersion("1.2.2.2")>

4
VERAGMonitoring/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.4.5")> <Assembly: AssemblyVersion("1.0.4.6")>
<Assembly: AssemblyFileVersion("1.0.4.5")> <Assembly: AssemblyFileVersion("1.0.4.6")>

4
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -517,7 +517,8 @@ Public Class cWorker_NCTS
NCTS_TE.nctsTE_NumberOfSeals = TE.numberOfSeals NCTS_TE.nctsTE_NumberOfSeals = TE.numberOfSeals
NCTS_TE.nctsTE_ContainerIdentificationNumber = TE.containerIdentificationNumber NCTS_TE.nctsTE_ContainerIdentificationNumber = TE.containerIdentificationNumber
NCTS_TE.nctsTE_GoodsReference = TE.GoodsReference
'NCTS_TE.nctsTE_GoodsReference = TE.GoodsReference
Dim cntTmp = 0 Dim cntTmp = 0
@@ -3715,6 +3716,7 @@ Public Class cWorker_NCTS
NCTS_TMP.ncts_Eroeffnung = zp NCTS_TMP.ncts_Eroeffnung = zp
NCTS_TMP.SAVE()
'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT 'For Each TE In NCTS_TMP.ncts_TRANSPORTEQUIPMENT
' If TE.nctsTE_NumberOfSeals > 0 Then ' If TE.nctsTE_NumberOfSeals > 0 Then

10
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -396,7 +396,7 @@ Public Class frmDYNachrichtenVerarbeitung
End If End If
'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML 'EZA: FreierVerkehrAktVeredelUmwandlung NEU XML
If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc) Then If Not found AndAlso cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc) Then
Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc) Dim bezugsNr = readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc, statusTMP)
If bezugsNr <> "" Then If bezugsNr <> "" Then
found = True found = True
End If End If
@@ -3544,6 +3544,10 @@ Public Class frmDYNachrichtenVerarbeitung
EZA.eza_ADRESSEN.Add(ADR) EZA.eza_ADRESSEN.Add(ADR)
End If End If
'Erwerber 'Erwerber
If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Acquirer IsNot Nothing Then If FCFCDD.Body IsNot Nothing AndAlso FCFCDD.Body.Acquirer IsNot Nothing Then
Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen
@@ -3922,7 +3926,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Function End Function
Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument) As String Function readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE(doc As XmlDocument, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
Try Try
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = "" readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
Dim sw = New StringWriter() Dim sw = New StringWriter()
@@ -4530,7 +4534,7 @@ Public Class frmDYNachrichtenVerarbeitung
If EZA.SAVE_ALL() Then If EZA.SAVE_ALL() Then
If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05) If If(EZA.eza_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Else Else
readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = "" readEZA_FreierVerkehrAktVeredelUmwandlungXML_FCFCDE = ""
End If End If

581
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -38,16 +38,20 @@ Partial Class frmStartOptions
Me.Label20 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label()
Me.Label19 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label()
Me.Label18 = 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.LinkLabel36 = New System.Windows.Forms.LinkLabel()
Me.Button13 = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button()
Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox()
Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button10 = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button()
Me.piceZollAnh = New System.Windows.Forms.PictureBox() Me.piceZollAnh = New System.Windows.Forms.PictureBox()
Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel()
Me.Button6 = New System.Windows.Forms.Button() Me.Button6 = New System.Windows.Forms.Button()
Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.CheckBox6 = New System.Windows.Forms.CheckBox()
Me.Button7 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button()
Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox()
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel()
@@ -56,15 +60,19 @@ Partial Class frmStartOptions
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.Button21 = New System.Windows.Forms.Button()
Me.Button20 = New System.Windows.Forms.Button() Me.Button20 = New System.Windows.Forms.Button()
Me.Button19 = New System.Windows.Forms.Button() Me.Button19 = New System.Windows.Forms.Button()
Me.Label23 = New System.Windows.Forms.Label() Me.Label99 = New System.Windows.Forms.Label()
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.PictureBox20 = New System.Windows.Forms.PictureBox()
Me.LinkLabel45 = New System.Windows.Forms.LinkLabel()
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.LinkLabel38 = New System.Windows.Forms.LinkLabel() Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
Me.PictureBox17 = New System.Windows.Forms.PictureBox() Me.PictureBox17 = New System.Windows.Forms.PictureBox()
@@ -125,6 +133,15 @@ Partial Class frmStartOptions
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
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.PictureBox15 = New System.Windows.Forms.PictureBox() Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
@@ -144,7 +161,7 @@ Partial Class frmStartOptions
Me.PictureBox18 = New System.Windows.Forms.PictureBox() Me.PictureBox18 = New System.Windows.Forms.PictureBox()
Me.LinkLabel41 = New System.Windows.Forms.LinkLabel() Me.LinkLabel41 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel42 = New System.Windows.Forms.LinkLabel() Me.LinkLabel42 = New System.Windows.Forms.LinkLabel()
Me.Label99 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label()
Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() Me.LinkLabel43 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel()
Me.Label24 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label()
@@ -155,6 +172,7 @@ Partial Class frmStartOptions
Me.cbxKd = New System.Windows.Forms.CheckBox() Me.cbxKd = New System.Windows.Forms.CheckBox()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
Me.PictureBox11 = New System.Windows.Forms.PictureBox() Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -170,29 +188,14 @@ Partial Class frmStartOptions
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
Me.lblRoutineManager = New System.Windows.Forms.Label() Me.lblRoutineManager = New System.Windows.Forms.Label()
Me.LinkLabel45 = New System.Windows.Forms.LinkLabel()
Me.PictureBox20 = New System.Windows.Forms.PictureBox()
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.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.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.LinkLabel46 = New System.Windows.Forms.LinkLabel()
Me.PictureBox21 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -209,7 +212,6 @@ Partial Class frmStartOptions
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -218,8 +220,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnl 'pnl
@@ -440,6 +441,29 @@ Partial Class frmStartOptions
Me.Label18.TabIndex = 64 Me.Label18.TabIndex = 64
Me.Label18.Text = "Max" 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, 152)
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 'LinkLabel36
' '
Me.LinkLabel36.AutoSize = True Me.LinkLabel36.AutoSize = True
@@ -486,6 +510,30 @@ Partial Class frmStartOptions
Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.Text = "Buchungen wiederh."
Me.cbxSyskaWdh.UseVisualStyleBackColor = True 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(687, 295)
Me.txtSyskaWdhDateiname.MaxLength = 50
Me.txtSyskaWdhDateiname.MaxLineLength = -1
Me.txtSyskaWdhDateiname.MaxLines_Warning = ""
Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing
Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname"
Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20)
Me.txtSyskaWdhDateiname.TabIndex = 58
'
'Button10 'Button10
' '
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -534,17 +582,6 @@ Partial Class frmStartOptions
Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20)
Me.txtEZOLLAnhDat.TabIndex = 55 Me.txtEZOLLAnhDat.TabIndex = 55
' '
'piceZollAnh
'
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.piceZollAnh.Location = New System.Drawing.Point(500, 190)
Me.piceZollAnh.Name = "piceZollAnh"
Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56
Me.piceZollAnh.TabStop = False
Me.piceZollAnh.Visible = False
'
'lblEZOLLDat 'lblEZOLLDat
' '
Me.lblEZOLLDat.AutoSize = True Me.lblEZOLLDat.AutoSize = True
@@ -593,6 +630,17 @@ Partial Class frmStartOptions
Me.Button7.Text = "Buchungen --> Syska" Me.Button7.Text = "Buchungen --> Syska"
Me.Button7.UseVisualStyleBackColor = True Me.Button7.UseVisualStyleBackColor = True
' '
'cboSYSKAFirma
'
Me.cboSYSKAFirma._allowedValuesFreiText = Nothing
Me.cboSYSKAFirma._allowFreiText = False
Me.cboSYSKAFirma._value = ""
Me.cboSYSKAFirma.FormattingEnabled = True
Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276)
Me.cboSYSKAFirma.Name = "cboSYSKAFirma"
Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21)
Me.cboSYSKAFirma.TabIndex = 51
'
'CheckBox7 'CheckBox7
' '
Me.CheckBox7.AutoSize = True Me.CheckBox7.AutoSize = True
@@ -685,6 +733,17 @@ Partial Class frmStartOptions
Me.Button3.Text = "Buchungen --> BMD" Me.Button3.Text = "Buchungen --> BMD"
Me.Button3.UseVisualStyleBackColor = True Me.Button3.UseVisualStyleBackColor = True
' '
'cboBMDUnispedFirma
'
Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
'
'CheckBox4 'CheckBox4
' '
Me.CheckBox4.AutoSize = True Me.CheckBox4.AutoSize = True
@@ -731,6 +790,8 @@ Partial Class frmStartOptions
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.LinkLabel46)
Me.TabPage1.Controls.Add(Me.PictureBox21)
Me.TabPage1.Controls.Add(Me.Button21) Me.TabPage1.Controls.Add(Me.Button21)
Me.TabPage1.Controls.Add(Me.Button20) Me.TabPage1.Controls.Add(Me.Button20)
Me.TabPage1.Controls.Add(Me.Button19) Me.TabPage1.Controls.Add(Me.Button19)
@@ -786,6 +847,18 @@ Partial Class frmStartOptions
Me.TabPage1.Text = "Zollverfahren" Me.TabPage1.Text = "Zollverfahren"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'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
'
'Button20 'Button20
' '
Me.Button20.Enabled = False Me.Button20.Enabled = False
@@ -811,7 +884,7 @@ Partial Class frmStartOptions
Me.Button19.Text = "AAS Vermerke 24h" Me.Button19.Text = "AAS Vermerke 24h"
Me.Button19.UseVisualStyleBackColor = True Me.Button19.UseVisualStyleBackColor = True
' '
'Label23 'Label99
' '
Me.Label99.AutoSize = True Me.Label99.AutoSize = True
Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label99.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -833,6 +906,28 @@ Partial Class frmStartOptions
Me.Button18.Text = "AAS Vermerke Überschreitung" Me.Button18.Text = "AAS Vermerke Überschreitung"
Me.Button18.UseVisualStyleBackColor = True Me.Button18.UseVisualStyleBackColor = True
' '
'PictureBox20
'
Me.PictureBox20.BackgroundImage = CType(resources.GetObject("PictureBox20.BackgroundImage"), System.Drawing.Image)
Me.PictureBox20.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox20.Location = New System.Drawing.Point(661, 90)
Me.PictureBox20.Name = "PictureBox20"
Me.PictureBox20.Size = New System.Drawing.Size(18, 18)
Me.PictureBox20.TabIndex = 62
Me.PictureBox20.TabStop = False
Me.PictureBox20.Visible = False
'
'LinkLabel45
'
Me.LinkLabel45.AutoSize = True
Me.LinkLabel45.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel45.Location = New System.Drawing.Point(543, 95)
Me.LinkLabel45.Name = "LinkLabel45"
Me.LinkLabel45.Size = New System.Drawing.Size(112, 13)
Me.LinkLabel45.TabIndex = 61
Me.LinkLabel45.TabStop = True
Me.LinkLabel45.Text = "Wechselkurse EZOLL"
'
'Button17 'Button17
' '
Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -849,7 +944,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel38.AutoSize = True Me.LinkLabel38.AutoSize = True
Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel38.Location = New System.Drawing.Point(475, 65) Me.LinkLabel38.Location = New System.Drawing.Point(543, 65)
Me.LinkLabel38.Name = "LinkLabel38" Me.LinkLabel38.Name = "LinkLabel38"
Me.LinkLabel38.Size = New System.Drawing.Size(141, 13) Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
Me.LinkLabel38.TabIndex = 59 Me.LinkLabel38.TabIndex = 59
@@ -860,18 +955,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image) Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox17.Location = New System.Drawing.Point(630, 120) Me.PictureBox17.Location = New System.Drawing.Point(698, 60)
Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
Me.PictureBox17.TabIndex = 60
Me.PictureBox17.TabStop = False
Me.PictureBox17.Visible = False
'
'PictureBox17
'
Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox17.Location = New System.Drawing.Point(630, 60)
Me.PictureBox17.Name = "PictureBox17" Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(18, 18) Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
Me.PictureBox17.TabIndex = 60 Me.PictureBox17.TabIndex = 60
@@ -893,17 +977,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image) Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image)
Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox16.Location = New System.Drawing.Point(400, 120)
Me.PictureBox16.Name = "PictureBox16"
Me.PictureBox16.Size = New System.Drawing.Size(18, 18)
Me.PictureBox16.TabIndex = 58
Me.PictureBox16.TabStop = False
Me.PictureBox16.Visible = False
'
'PictureBox16
'
Me.PictureBox16.BackgroundImage = CType(resources.GetObject("PictureBox16.BackgroundImage"), System.Drawing.Image)
Me.PictureBox16.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox16.Location = New System.Drawing.Point(395, 92) Me.PictureBox16.Location = New System.Drawing.Point(395, 92)
Me.PictureBox16.Name = "PictureBox16" Me.PictureBox16.Name = "PictureBox16"
Me.PictureBox16.Size = New System.Drawing.Size(18, 18) Me.PictureBox16.Size = New System.Drawing.Size(18, 18)
@@ -1102,17 +1175,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(421, 32)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
Me.PictureBox2.TabIndex = 14
Me.PictureBox2.TabStop = False
Me.PictureBox2.Visible = False
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(139, 151) Me.PictureBox2.Location = New System.Drawing.Point(139, 151)
Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(18, 18) Me.PictureBox2.Size = New System.Drawing.Size(18, 18)
@@ -1177,17 +1239,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(405, 60)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
Me.PictureBox3.TabIndex = 17
Me.PictureBox3.TabStop = False
Me.PictureBox3.Visible = False
'
'PictureBox3
'
Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image)
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(400, 32) Me.PictureBox3.Location = New System.Drawing.Point(400, 32)
Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(18, 18) Me.PictureBox3.Size = New System.Drawing.Size(18, 18)
@@ -1210,17 +1261,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox4.Location = New System.Drawing.Point(683, 60)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
Me.PictureBox4.TabIndex = 19
Me.PictureBox4.TabStop = False
Me.PictureBox4.Visible = False
'
'PictureBox4
'
Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image)
Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox4.Location = New System.Drawing.Point(495, 151) Me.PictureBox4.Location = New System.Drawing.Point(495, 151)
Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(18, 18) Me.PictureBox4.Size = New System.Drawing.Size(18, 18)
@@ -1243,17 +1283,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(640, 32)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
Me.PictureBox5.TabIndex = 21
Me.PictureBox5.TabStop = False
Me.PictureBox5.Visible = False
'
'PictureBox5
'
Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image)
Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox5.Location = New System.Drawing.Point(452, 120) Me.PictureBox5.Location = New System.Drawing.Point(452, 120)
Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(18, 18) Me.PictureBox5.Size = New System.Drawing.Size(18, 18)
@@ -1298,17 +1327,6 @@ Partial Class frmStartOptions
' '
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image) Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox7.Location = New System.Drawing.Point(400, 90)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
Me.PictureBox7.TabIndex = 25
Me.PictureBox7.TabStop = False
Me.PictureBox7.Visible = False
'
'PictureBox7
'
Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image)
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox7.Location = New System.Drawing.Point(395, 62) Me.PictureBox7.Location = New System.Drawing.Point(395, 62)
Me.PictureBox7.Name = "PictureBox7" Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(18, 18) Me.PictureBox7.Size = New System.Drawing.Size(18, 18)
@@ -1331,7 +1349,7 @@ Partial Class frmStartOptions
' '
Me.LinkLabel16.AutoSize = True Me.LinkLabel16.AutoSize = True
Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel16.Location = New System.Drawing.Point(475, 37) Me.LinkLabel16.Location = New System.Drawing.Point(543, 37)
Me.LinkLabel16.Name = "LinkLabel16" Me.LinkLabel16.Name = "LinkLabel16"
Me.LinkLabel16.Size = New System.Drawing.Size(149, 13) Me.LinkLabel16.Size = New System.Drawing.Size(149, 13)
Me.LinkLabel16.TabIndex = 9 Me.LinkLabel16.TabIndex = 9
@@ -1342,18 +1360,7 @@ Partial Class frmStartOptions
' '
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image) Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(630, 90) Me.PictureBox8.Location = New System.Drawing.Point(698, 32)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
Me.PictureBox8.TabIndex = 29
Me.PictureBox8.TabStop = False
Me.PictureBox8.Visible = False
'
'PictureBox8
'
Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image)
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox8.Location = New System.Drawing.Point(630, 32)
Me.PictureBox8.Name = "PictureBox8" Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(18, 18) Me.PictureBox8.Size = New System.Drawing.Size(18, 18)
Me.PictureBox8.TabIndex = 29 Me.PictureBox8.TabIndex = 29
@@ -2300,286 +2307,6 @@ Partial Class frmStartOptions
Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.TabIndex = 1
Me.lblRoutineManager.Text = "Routine Manager" Me.lblRoutineManager.Text = "Routine Manager"
' '
'LinkLabel45
'
Me.LinkLabel45.AutoSize = True
Me.LinkLabel45.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel45.Location = New System.Drawing.Point(475, 95)
Me.LinkLabel45.Name = "LinkLabel45"
Me.LinkLabel45.Size = New System.Drawing.Size(112, 13)
Me.LinkLabel45.TabIndex = 61
Me.LinkLabel45.TabStop = True
Me.LinkLabel45.Text = "Wechselkurse EZOLL"
'
'PictureBox20
'
Me.PictureBox20.BackgroundImage = CType(resources.GetObject("PictureBox20.BackgroundImage"), System.Drawing.Image)
Me.PictureBox20.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox20.Location = New System.Drawing.Point(586, 90)
Me.PictureBox20.Name = "PictureBox20"
Me.PictureBox20.Size = New System.Drawing.Size(18, 18)
Me.PictureBox20.TabIndex = 62
Me.PictureBox20.TabStop = False
Me.PictureBox20.Visible = False
'
'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, 152)
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(687, 295)
Me.txtSyskaWdhDateiname.MaxLength = 50
Me.txtSyskaWdhDateiname.MaxLineLength = -1
Me.txtSyskaWdhDateiname.MaxLines_Warning = ""
Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing
Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname"
Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20)
Me.txtSyskaWdhDateiname.TabIndex = 58
'
'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, 190)
Me.txtEZOLLAnhDat.MaxLength = 10
Me.txtEZOLLAnhDat.MaxLineLength = -1
Me.txtEZOLLAnhDat.MaxLines_Warning = ""
Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing
Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat"
Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20)
Me.txtEZOLLAnhDat.TabIndex = 55
'
'cboSYSKAFirma
'
Me.cboSYSKAFirma._allowedValuesFreiText = Nothing
Me.cboSYSKAFirma._allowFreiText = False
Me.cboSYSKAFirma._value = ""
Me.cboSYSKAFirma.FormattingEnabled = True
Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276)
Me.cboSYSKAFirma.Name = "cboSYSKAFirma"
Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21)
Me.cboSYSKAFirma.TabIndex = 51
'
'cboBMDUnispedFirma
'
Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
'
'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
'
'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, 132)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "100000"
'
'txtGJ_UNISPED 'txtGJ_UNISPED
' '
Me.txtGJ_UNISPED._DateTimeOnly = False Me.txtGJ_UNISPED._DateTimeOnly = False
@@ -2604,17 +2331,27 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20) Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
Me.txtGJ_UNISPED.TabIndex = 68 Me.txtGJ_UNISPED.TabIndex = 68
' '
'Button21 'LinkLabel46
' '
Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.LinkLabel46.AutoSize = True
Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.LinkLabel46.LinkColor = 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.LinkLabel46.Location = New System.Drawing.Point(543, 125)
Me.Button21.Location = New System.Drawing.Point(581, 346) Me.LinkLabel46.Name = "LinkLabel46"
Me.Button21.Name = "Button21" Me.LinkLabel46.Size = New System.Drawing.Size(146, 13)
Me.Button21.Size = New System.Drawing.Size(211, 24) Me.LinkLabel46.TabIndex = 82
Me.Button21.TabIndex = 81 Me.LinkLabel46.TabStop = True
Me.Button21.Text = "AAS Sendung 24h" Me.LinkLabel46.Text = "C0219 - Beförderungsmittelart"
Me.Button21.UseVisualStyleBackColor = True '
'PictureBox21
'
Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image)
Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox21.Location = New System.Drawing.Point(698, 120)
Me.PictureBox21.Name = "PictureBox21"
Me.PictureBox21.Size = New System.Drawing.Size(18, 18)
Me.PictureBox21.TabIndex = 83
Me.PictureBox21.TabStop = False
Me.PictureBox21.Visible = False
' '
'frmStartOptions 'frmStartOptions
' '
@@ -2635,6 +2372,7 @@ Partial Class frmStartOptions
Me.tbcntr.ResumeLayout(False) Me.tbcntr.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2654,8 +2392,6 @@ Partial Class frmStartOptions
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout() Me.TabPage3.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.TabPage4.ResumeLayout(False) Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout() Me.TabPage4.PerformLayout()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2664,8 +2400,7 @@ Partial Class frmStartOptions
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -2834,4 +2569,6 @@ Partial Class frmStartOptions
Friend WithEvents Button20 As Button Friend WithEvents Button20 As Button
Friend WithEvents Button19 As Button Friend WithEvents Button19 As Button
Friend WithEvents Button21 As Button Friend WithEvents Button21 As Button
Friend WithEvents LinkLabel46 As LinkLabel
Friend WithEvents PictureBox21 As PictureBox
End Class End Class

228
initATLASAufschubkonten/frmStartOptions.resx
View File

@@ -140,6 +140,30 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox21.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="PictureBox20.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox20.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -452,108 +476,6 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="PictureBox19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -650,6 +572,108 @@
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="PictureBox15.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox19.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value>
</data>
<data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

13
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -245,6 +245,9 @@ Public Class frmStartOptions
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True) DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False) DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False)
Me.Refresh() Me.Refresh()
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", True)
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", False)
Me.Refresh()
closeMe() closeMe()
End Sub End Sub
Case "KD_DATA_DAKOSY" Case "KD_DATA_DAKOSY"
@@ -3751,4 +3754,14 @@ Public Class frmStartOptions
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
doAASVermerke_Ankunft() doAASVermerke_Ankunft()
End Sub End Sub
Private Sub LinkLabel46_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel46.LinkClicked
Me.Cursor = Cursors.WaitCursor
Try
DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", True) 'TESTSYSTEM
Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", False) 'ECHTSYSTEM
showPic(erg, PictureBox21)
Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
Me.Cursor = Cursors.Default
End Sub
End Class End Class

80
initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb
View File

@@ -117,7 +117,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
For Each f In IO.Directory.GetFiles(SERVER_Path) For Each f In IO.Directory.GetFiles(SERVER_Path)
Dim fi As New IO.FileInfo(f) Dim fi As New IO.FileInfo(f)
If Not fi.Name.StartsWith(".") Then If True Then 'Not fi.Name.StartsWith(".") Then ' ---> DEAKTIVIERT; DA FALSCH BEREITSTELLT
Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
While IO.File.Exists(zielPfad) While IO.File.Exists(zielPfad)
zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
@@ -282,69 +282,69 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
Dim found = False Dim found = False
Dim nr_id As Integer = -1 Dim nr_id As Integer = -1
Dim fi As FileInfo = New FileInfo(d) Dim fi As FileInfo = New FileInfo(d)
If Not fi.Name.StartsWith(".") Then If True Then 'Not fi.Name.StartsWith(".") Then
' EDIFACT ' EDIFACT
' If fi.Extension = ".edi" Then ' If fi.Extension = ".edi" Then
Dim alreadyMoved = False Dim alreadyMoved = False
Dim NACHRICHTENTYP_notfound = False Dim NACHRICHTENTYP_notfound = False
If fi.Extension.ToLower = ".xml" Then If fi.Extension.ToLower = ".xml" Or fi.Extension.ToLower = ".tmp" Then
Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True} Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
Dim doc As New XmlDocument() Dim doc As New XmlDocument()
Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default) Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
doc.LoadXml(SanitizeXmlString(XML_Code)) doc.LoadXml(SanitizeXmlString(XML_Code))
Dim VERSION As String = "" Dim VERSION As String = ""
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
' eZOLL ' eZOLL
'------------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------ '------------------------------------------
'------------------ Anmeldung ------------------ '------------------ Anmeldung ------------------
'------------------------------------------ '------------------------------------------
'MAVI: CC015B - Versandanmeldung Final 'MAVI: CC015B - Versandanmeldung Final
Select Case NACHRICHTENTYP Select Case NACHRICHTENTYP
Case 1 Case 1
'NCTS: Versandanmeldung 'NCTS: Versandanmeldung
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 2 Case 2
'NCTS: Versandanmeldung - Ergänzung GUID 'NCTS: Versandanmeldung - Ergänzung GUID
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_VersandanmeldungXML_CC015B_RES(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 3 Case 3
'NCTS: BestätigungZoll 'NCTS: BestätigungZoll
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
If cOREGONWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_BestaetigungZollXML_CC029B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 4 Case 4
'NCTS: Guarantee 'NCTS: Guarantee
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
If cOREGONWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_BestaetigungZollXML_GUA_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 5 Case 5
'NCTS: Ankunftsanzeige 'NCTS: Ankunftsanzeige
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
If cOREGONWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_BestaetigungZollXML_ARR_INF(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 6 Case 6
'NCTS: Erledigungsmitteilung 'NCTS: Erledigungsmitteilung
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
If cOREGONWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_ErledigungsmitteilungXML_CC045A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 7 Case 7
'NCTS: Cancellation decision CC009A 'NCTS: Cancellation decision CC009A
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_AbbruchXML_CC009A(doc) Then
If cOREGONWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_AbbruchXML_CC009A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
@@ -354,16 +354,16 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_RueckweisungXML_CC016A(doc) Then
If cOREGONWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_RueckweisungXML_CC016A(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 9 Case 9
'NCTS: No release for transit – type B CC051B 'NCTS: No release for transit – type B CC051B
If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_KeineFreigabeXML_CC051B(doc) Then
If cOREGONWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True If cOREGONWorker.readNCTS_KeineFreigabeXML_CC051B(PARTNERSYSTEM, Me, doc, nr_id) <> "" Then found = True
End If End If
Case 10 Case 10
NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
End Select End Select
End If End If
Dim destPath = "" Dim destPath = ""
@@ -385,7 +385,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung_OREGON
' If found Then Else dsNichtErkannt += 1 ' If found Then Else dsNichtErkannt += 1
Me.Refresh() Me.Refresh()
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)