diff --git a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb
index b97e1a6..57de2ef 100644
--- a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb
+++ b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb
@@ -169,13 +169,13 @@ Public Class cImporter_TelotecToVERAG
For Each doc In p.DOC_CERTS
Try
- Dim dd As New cVERAG_CustomsDeclarations_Document With {
+ Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = Nothing,
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
- .zaDoc_Date = ToNullableDate(doc.DocCerts_IssD)
+ .zaDoc_Date = If(doc.DocCerts_IssD IsNot Nothing, ToNullableDate(doc.DocCerts_IssD), Nothing)'ToNullableDate(doc.DocCerts_IssD)
}
- it.Documents.Add(dd)
+ it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index 7b1e973..a848a7c 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -226,7 +226,7 @@ Partial Class frmStartOptions
Me.IDS = New System.Windows.Forms.TabPage()
Me.lblIDS_plauscheck = New System.Windows.Forms.LinkLabel()
Me.Label59 = New System.Windows.Forms.Label()
- Me.Label55 = New System.Windows.Forms.Label()
+ Me.lblOriginalRechnungIDS = New System.Windows.Forms.Label()
Me.Label54 = New System.Windows.Forms.Label()
Me.Label53 = New System.Windows.Forms.Label()
Me.lbl_setBackToCustomerIDS = New System.Windows.Forms.LinkLabel()
@@ -242,7 +242,9 @@ Partial Class frmStartOptions
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.txtIDSYear = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MSE = New System.Windows.Forms.TabPage()
- Me.Label56 = New System.Windows.Forms.Label()
+ Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
+ Me.Label61 = New System.Windows.Forms.Label()
+ Me.lblOriginalRechnungMSE = New System.Windows.Forms.Label()
Me.lblBackToCustomer_MSE = New System.Windows.Forms.LinkLabel()
Me.Label33 = New System.Windows.Forms.Label()
Me.Label36 = New System.Windows.Forms.Label()
@@ -271,7 +273,7 @@ Partial Class frmStartOptions
Me.txtBatchNrofTransaction = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.RMC = New System.Windows.Forms.TabPage()
Me.Label58 = New System.Windows.Forms.Label()
- Me.Label57 = New System.Windows.Forms.Label()
+ Me.lblOriginalRechnungRMC = New System.Windows.Forms.Label()
Me.lblBackToCustomer_RMC = New System.Windows.Forms.LinkLabel()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.Label29 = New System.Windows.Forms.Label()
@@ -382,8 +384,11 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
- Me.Label61 = New System.Windows.Forms.Label()
- Me.LinkLabel25 = New System.Windows.Forms.LinkLabel()
+ Me.Label62 = New System.Windows.Forms.Label()
+ Me.Label63 = New System.Windows.Forms.Label()
+ Me.lblOriginalRechnungPLOSE = New System.Windows.Forms.Label()
+ Me.Label65 = New System.Windows.Forms.Label()
+ Me.lblOriginalRechnungUTA = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2959,7 +2964,7 @@ Partial Class frmStartOptions
'Label23
'
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label23.Location = New System.Drawing.Point(19, 128)
+ Me.Label23.Location = New System.Drawing.Point(19, 129)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(111, 19)
Me.Label23.TabIndex = 33
@@ -3066,7 +3071,7 @@ Partial Class frmStartOptions
'
Me.IDS.Controls.Add(Me.lblIDS_plauscheck)
Me.IDS.Controls.Add(Me.Label59)
- Me.IDS.Controls.Add(Me.Label55)
+ Me.IDS.Controls.Add(Me.lblOriginalRechnungIDS)
Me.IDS.Controls.Add(Me.Label54)
Me.IDS.Controls.Add(Me.Label53)
Me.IDS.Controls.Add(Me.lbl_setBackToCustomerIDS)
@@ -3093,7 +3098,7 @@ Partial Class frmStartOptions
'
Me.lblIDS_plauscheck.AutoSize = True
Me.lblIDS_plauscheck.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblIDS_plauscheck.Location = New System.Drawing.Point(9, 251)
+ Me.lblIDS_plauscheck.Location = New System.Drawing.Point(7, 265)
Me.lblIDS_plauscheck.Name = "lblIDS_plauscheck"
Me.lblIDS_plauscheck.Size = New System.Drawing.Size(220, 13)
Me.lblIDS_plauscheck.TabIndex = 176
@@ -3104,27 +3109,27 @@ Partial Class frmStartOptions
'
Me.Label59.AutoSize = True
Me.Label59.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label59.Location = New System.Drawing.Point(9, 227)
+ Me.Label59.Location = New System.Drawing.Point(7, 241)
Me.Label59.Name = "Label59"
Me.Label59.Size = New System.Drawing.Size(118, 13)
Me.Label59.TabIndex = 175
Me.Label59.Text = "Plausibilitäts-Check"
'
- 'Label55
+ 'lblOriginalRechnungIDS
'
- Me.Label55.AutoSize = True
- Me.Label55.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label55.Location = New System.Drawing.Point(248, 166)
- Me.Label55.Name = "Label55"
- Me.Label55.Size = New System.Drawing.Size(126, 13)
- Me.Label55.TabIndex = 174
- Me.Label55.Text = "Original-Rechnungen"
+ Me.lblOriginalRechnungIDS.AutoSize = True
+ Me.lblOriginalRechnungIDS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblOriginalRechnungIDS.Location = New System.Drawing.Point(214, 31)
+ Me.lblOriginalRechnungIDS.Name = "lblOriginalRechnungIDS"
+ Me.lblOriginalRechnungIDS.Size = New System.Drawing.Size(126, 13)
+ Me.lblOriginalRechnungIDS.TabIndex = 174
+ Me.lblOriginalRechnungIDS.Text = "Original-Rechnungen"
'
'Label54
'
Me.Label54.AutoSize = True
Me.Label54.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label54.Location = New System.Drawing.Point(9, 166)
+ Me.Label54.Location = New System.Drawing.Point(644, 32)
Me.Label54.Name = "Label54"
Me.Label54.Size = New System.Drawing.Size(213, 13)
Me.Label54.TabIndex = 173
@@ -3134,7 +3139,7 @@ Partial Class frmStartOptions
'
Me.Label53.AutoSize = True
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label53.Location = New System.Drawing.Point(236, 26)
+ Me.Label53.Location = New System.Drawing.Point(6, 147)
Me.Label53.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(79, 13)
Me.Label53.TabIndex = 172
@@ -3144,7 +3149,7 @@ Partial Class frmStartOptions
'
Me.lbl_setBackToCustomerIDS.AutoSize = True
Me.lbl_setBackToCustomerIDS.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lbl_setBackToCustomerIDS.Location = New System.Drawing.Point(248, 188)
+ Me.lbl_setBackToCustomerIDS.Location = New System.Drawing.Point(214, 53)
Me.lbl_setBackToCustomerIDS.Name = "lbl_setBackToCustomerIDS"
Me.lbl_setBackToCustomerIDS.Size = New System.Drawing.Size(123, 13)
Me.lbl_setBackToCustomerIDS.TabIndex = 171
@@ -3155,7 +3160,7 @@ Partial Class frmStartOptions
'
Me.IDS_PDFmitREverkn.AutoSize = True
Me.IDS_PDFmitREverkn.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.IDS_PDFmitREverkn.Location = New System.Drawing.Point(242, 96)
+ Me.IDS_PDFmitREverkn.Location = New System.Drawing.Point(11, 206)
Me.IDS_PDFmitREverkn.Name = "IDS_PDFmitREverkn"
Me.IDS_PDFmitREverkn.Size = New System.Drawing.Size(154, 13)
Me.IDS_PDFmitREverkn.TabIndex = 170
@@ -3166,7 +3171,7 @@ Partial Class frmStartOptions
'
Me.IDSUpdateDAID.AutoSize = True
Me.IDSUpdateDAID.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.IDSUpdateDAID.Location = New System.Drawing.Point(9, 188)
+ Me.IDSUpdateDAID.Location = New System.Drawing.Point(644, 54)
Me.IDSUpdateDAID.Name = "IDSUpdateDAID"
Me.IDSUpdateDAID.Size = New System.Drawing.Size(141, 13)
Me.IDSUpdateDAID.TabIndex = 169
@@ -3209,7 +3214,7 @@ Partial Class frmStartOptions
'
Me.IDS_REDetails.AutoSize = True
Me.IDS_REDetails.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.IDS_REDetails.Location = New System.Drawing.Point(240, 70)
+ Me.IDS_REDetails.Location = New System.Drawing.Point(11, 184)
Me.IDS_REDetails.Name = "IDS_REDetails"
Me.IDS_REDetails.Size = New System.Drawing.Size(176, 13)
Me.IDS_REDetails.TabIndex = 165
@@ -3231,7 +3236,7 @@ Partial Class frmStartOptions
'
Me.IDS_RE.AutoSize = True
Me.IDS_RE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.IDS_RE.Location = New System.Drawing.Point(240, 52)
+ Me.IDS_RE.Location = New System.Drawing.Point(11, 166)
Me.IDS_RE.Name = "IDS_RE"
Me.IDS_RE.Size = New System.Drawing.Size(151, 13)
Me.IDS_RE.TabIndex = 152
@@ -3290,7 +3295,7 @@ Partial Class frmStartOptions
'
Me.MSE.Controls.Add(Me.LinkLabel25)
Me.MSE.Controls.Add(Me.Label61)
- Me.MSE.Controls.Add(Me.Label56)
+ Me.MSE.Controls.Add(Me.lblOriginalRechnungMSE)
Me.MSE.Controls.Add(Me.lblBackToCustomer_MSE)
Me.MSE.Controls.Add(Me.Label33)
Me.MSE.Controls.Add(Me.Label36)
@@ -3324,15 +3329,36 @@ Partial Class frmStartOptions
Me.MSE.Text = "MSE"
Me.MSE.UseVisualStyleBackColor = True
'
- 'Label56
+ 'LinkLabel25
'
- Me.Label56.AutoSize = True
- Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label56.Location = New System.Drawing.Point(468, 40)
- Me.Label56.Name = "Label56"
- Me.Label56.Size = New System.Drawing.Size(126, 13)
- Me.Label56.TabIndex = 173
- Me.Label56.Text = "Original-Rechnungen"
+ Me.LinkLabel25.AutoSize = True
+ Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+ Me.LinkLabel25.Location = New System.Drawing.Point(275, 63)
+ Me.LinkLabel25.Name = "LinkLabel25"
+ Me.LinkLabel25.Size = New System.Drawing.Size(123, 13)
+ Me.LinkLabel25.TabIndex = 175
+ Me.LinkLabel25.TabStop = True
+ Me.LinkLabel25.Text = "Rechnungen importieren"
+ '
+ 'Label61
+ '
+ Me.Label61.AutoSize = True
+ Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label61.Location = New System.Drawing.Point(275, 40)
+ Me.Label61.Name = "Label61"
+ Me.Label61.Size = New System.Drawing.Size(135, 13)
+ Me.Label61.TabIndex = 174
+ Me.Label61.Text = "Import PDF (alternativ)"
+ '
+ 'lblOriginalRechnungMSE
+ '
+ Me.lblOriginalRechnungMSE.AutoSize = True
+ Me.lblOriginalRechnungMSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblOriginalRechnungMSE.Location = New System.Drawing.Point(468, 40)
+ Me.lblOriginalRechnungMSE.Name = "lblOriginalRechnungMSE"
+ Me.lblOriginalRechnungMSE.Size = New System.Drawing.Size(126, 13)
+ Me.lblOriginalRechnungMSE.TabIndex = 173
+ Me.lblOriginalRechnungMSE.Text = "Original-Rechnungen"
'
'lblBackToCustomer_MSE
'
@@ -3658,7 +3684,7 @@ Partial Class frmStartOptions
'RMC
'
Me.RMC.Controls.Add(Me.Label58)
- Me.RMC.Controls.Add(Me.Label57)
+ Me.RMC.Controls.Add(Me.lblOriginalRechnungRMC)
Me.RMC.Controls.Add(Me.lblBackToCustomer_RMC)
Me.RMC.Controls.Add(Me.LinkLabel53)
Me.RMC.Controls.Add(Me.Label29)
@@ -3678,27 +3704,27 @@ Partial Class frmStartOptions
'
Me.Label58.AutoSize = True
Me.Label58.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label58.Location = New System.Drawing.Point(184, 39)
+ Me.Label58.Location = New System.Drawing.Point(7, 150)
Me.Label58.Name = "Label58"
Me.Label58.Size = New System.Drawing.Size(79, 13)
Me.Label58.TabIndex = 175
Me.Label58.Text = "Verarbeitung"
'
- 'Label57
+ 'lblOriginalRechnungRMC
'
- Me.Label57.AutoSize = True
- Me.Label57.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label57.Location = New System.Drawing.Point(188, 97)
- Me.Label57.Name = "Label57"
- Me.Label57.Size = New System.Drawing.Size(126, 13)
- Me.Label57.TabIndex = 174
- Me.Label57.Text = "Original-Rechnungen"
+ Me.lblOriginalRechnungRMC.AutoSize = True
+ Me.lblOriginalRechnungRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblOriginalRechnungRMC.Location = New System.Drawing.Point(208, 39)
+ Me.lblOriginalRechnungRMC.Name = "lblOriginalRechnungRMC"
+ Me.lblOriginalRechnungRMC.Size = New System.Drawing.Size(126, 13)
+ Me.lblOriginalRechnungRMC.TabIndex = 174
+ Me.lblOriginalRechnungRMC.Text = "Original-Rechnungen"
'
'lblBackToCustomer_RMC
'
Me.lblBackToCustomer_RMC.AutoSize = True
Me.lblBackToCustomer_RMC.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblBackToCustomer_RMC.Location = New System.Drawing.Point(188, 116)
+ Me.lblBackToCustomer_RMC.Location = New System.Drawing.Point(208, 58)
Me.lblBackToCustomer_RMC.Name = "lblBackToCustomer_RMC"
Me.lblBackToCustomer_RMC.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_RMC.TabIndex = 172
@@ -3709,7 +3735,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel53.AutoSize = True
Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel53.Location = New System.Drawing.Point(188, 55)
+ Me.LinkLabel53.Location = New System.Drawing.Point(11, 166)
Me.LinkLabel53.Name = "LinkLabel53"
Me.LinkLabel53.Size = New System.Drawing.Size(119, 13)
Me.LinkLabel53.TabIndex = 102
@@ -3781,6 +3807,8 @@ Partial Class frmStartOptions
'
'UTA
'
+ Me.UTA.Controls.Add(Me.lblOriginalRechnungUTA)
+ Me.UTA.Controls.Add(Me.Label65)
Me.UTA.Controls.Add(Me.lblBackToCustomer_UTA)
Me.UTA.Controls.Add(Me.Label31)
Me.UTA.Controls.Add(Me.Label34)
@@ -3804,7 +3832,7 @@ Partial Class frmStartOptions
'
Me.lblBackToCustomer_UTA.AutoSize = True
Me.lblBackToCustomer_UTA.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblBackToCustomer_UTA.Location = New System.Drawing.Point(241, 138)
+ Me.lblBackToCustomer_UTA.Location = New System.Drawing.Point(228, 55)
Me.lblBackToCustomer_UTA.Name = "lblBackToCustomer_UTA"
Me.lblBackToCustomer_UTA.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_UTA.TabIndex = 172
@@ -3856,7 +3884,7 @@ Partial Class frmStartOptions
'
Me.UTAREPdf.AutoSize = True
Me.UTAREPdf.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.UTAREPdf.Location = New System.Drawing.Point(314, 108)
+ Me.UTAREPdf.Location = New System.Drawing.Point(88, 240)
Me.UTAREPdf.Name = "UTAREPdf"
Me.UTAREPdf.Size = New System.Drawing.Size(119, 13)
Me.UTAREPdf.TabIndex = 161
@@ -3889,7 +3917,7 @@ Partial Class frmStartOptions
'
Me.UTA_Laender.AutoSize = True
Me.UTA_Laender.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.UTA_Laender.Location = New System.Drawing.Point(246, 47)
+ Me.UTA_Laender.Location = New System.Drawing.Point(13, 190)
Me.UTA_Laender.Name = "UTA_Laender"
Me.UTA_Laender.Size = New System.Drawing.Size(135, 13)
Me.UTA_Laender.TabIndex = 131
@@ -3900,7 +3928,7 @@ Partial Class frmStartOptions
'
Me.lblUTAPDFvollst.AutoSize = True
Me.lblUTAPDFvollst.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblUTAPDFvollst.Location = New System.Drawing.Point(314, 85)
+ Me.lblUTAPDFvollst.Location = New System.Drawing.Point(88, 217)
Me.lblUTAPDFvollst.Name = "lblUTAPDFvollst"
Me.lblUTAPDFvollst.Size = New System.Drawing.Size(113, 13)
Me.lblUTAPDFvollst.TabIndex = 157
@@ -3949,7 +3977,7 @@ Partial Class frmStartOptions
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(243, 83)
+ Me.txtUTADate.Location = New System.Drawing.Point(17, 215)
Me.txtUTADate.MaxLength = 10
Me.txtUTADate.MaxLineLength = -1
Me.txtUTADate.MaxLines_Warning = ""
@@ -3961,6 +3989,9 @@ Partial Class frmStartOptions
'
'PLOSE
'
+ Me.PLOSE.Controls.Add(Me.lblOriginalRechnungPLOSE)
+ Me.PLOSE.Controls.Add(Me.Label63)
+ Me.PLOSE.Controls.Add(Me.Label62)
Me.PLOSE.Controls.Add(Me.lblBackToCustomer_PLOSE)
Me.PLOSE.Controls.Add(Me.lblPlosefoppelteIMporte)
Me.PLOSE.Controls.Add(Me.LinkLabel52)
@@ -3983,7 +4014,7 @@ Partial Class frmStartOptions
'
Me.lblBackToCustomer_PLOSE.AutoSize = True
Me.lblBackToCustomer_PLOSE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblBackToCustomer_PLOSE.Location = New System.Drawing.Point(13, 154)
+ Me.lblBackToCustomer_PLOSE.Location = New System.Drawing.Point(246, 61)
Me.lblBackToCustomer_PLOSE.Name = "lblBackToCustomer_PLOSE"
Me.lblBackToCustomer_PLOSE.Size = New System.Drawing.Size(123, 13)
Me.lblBackToCustomer_PLOSE.TabIndex = 172
@@ -3993,7 +4024,7 @@ Partial Class frmStartOptions
'lblPlosefoppelteIMporte
'
Me.lblPlosefoppelteIMporte.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.lblPlosefoppelteIMporte.Location = New System.Drawing.Point(278, 144)
+ Me.lblPlosefoppelteIMporte.Location = New System.Drawing.Point(17, 238)
Me.lblPlosefoppelteIMporte.Name = "lblPlosefoppelteIMporte"
Me.lblPlosefoppelteIMporte.Size = New System.Drawing.Size(132, 23)
Me.lblPlosefoppelteIMporte.TabIndex = 169
@@ -4004,7 +4035,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel52.AutoSize = True
Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel52.Location = New System.Drawing.Point(276, 122)
+ Me.LinkLabel52.Location = New System.Drawing.Point(17, 216)
Me.LinkLabel52.Name = "LinkLabel52"
Me.LinkLabel52.Size = New System.Drawing.Size(151, 13)
Me.LinkLabel52.TabIndex = 168
@@ -4026,7 +4057,7 @@ Partial Class frmStartOptions
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label52.Location = New System.Drawing.Point(276, 55)
+ Me.Label52.Location = New System.Drawing.Point(17, 149)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(27, 13)
Me.Label52.TabIndex = 166
@@ -4036,7 +4067,7 @@ Partial Class frmStartOptions
'
Me.Label51.AutoSize = True
Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label51.Location = New System.Drawing.Point(273, 78)
+ Me.Label51.Location = New System.Drawing.Point(14, 172)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(55, 13)
Me.Label51.TabIndex = 164
@@ -4046,7 +4077,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel24.AutoSize = True
Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel24.Location = New System.Drawing.Point(13, 56)
+ Me.LinkLabel24.Location = New System.Drawing.Point(13, 61)
Me.LinkLabel24.Name = "LinkLabel24"
Me.LinkLabel24.Size = New System.Drawing.Size(177, 13)
Me.LinkLabel24.TabIndex = 124
@@ -4057,7 +4088,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel23.AutoSize = True
Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel23.Location = New System.Drawing.Point(13, 81)
+ Me.LinkLabel23.Location = New System.Drawing.Point(13, 86)
Me.LinkLabel23.Name = "LinkLabel23"
Me.LinkLabel23.Size = New System.Drawing.Size(180, 13)
Me.LinkLabel23.TabIndex = 125
@@ -4068,7 +4099,7 @@ Partial Class frmStartOptions
'
Me.PlosePdfRE.AutoSize = True
Me.PlosePdfRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.PlosePdfRE.Location = New System.Drawing.Point(276, 102)
+ Me.PlosePdfRE.Location = New System.Drawing.Point(17, 196)
Me.PlosePdfRE.Name = "PlosePdfRE"
Me.PlosePdfRE.Size = New System.Drawing.Size(119, 13)
Me.PlosePdfRE.TabIndex = 159
@@ -4091,7 +4122,7 @@ Partial Class frmStartOptions
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(342, 52)
+ Me.txtPloseJahr.Location = New System.Drawing.Point(83, 146)
Me.txtPloseJahr.MaxLength = 10
Me.txtPloseJahr.MaxLineLength = -1
Me.txtPloseJahr.MaxLines_Warning = ""
@@ -4117,7 +4148,7 @@ Partial Class frmStartOptions
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(342, 75)
+ Me.txtPLoseKdNr.Location = New System.Drawing.Point(83, 169)
Me.txtPLoseKdNr.MaxLength = 10
Me.txtPLoseKdNr.MaxLineLength = -1
Me.txtPLoseKdNr.MaxLines_Warning = ""
@@ -5104,26 +5135,55 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
- 'Label61
+ 'Label62
'
- Me.Label61.AutoSize = True
- Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.Label61.Location = New System.Drawing.Point(275, 40)
- Me.Label61.Name = "Label61"
- Me.Label61.Size = New System.Drawing.Size(135, 13)
- Me.Label61.TabIndex = 174
- Me.Label61.Text = "Import PDF (alternativ)"
+ Me.Label62.AutoSize = True
+ Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label62.Location = New System.Drawing.Point(19, 124)
+ Me.Label62.Name = "Label62"
+ Me.Label62.Size = New System.Drawing.Size(79, 13)
+ Me.Label62.TabIndex = 176
+ Me.Label62.Text = "Verarbeitung"
'
- 'LinkLabel25
+ 'Label63
'
- Me.LinkLabel25.AutoSize = True
- Me.LinkLabel25.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.LinkLabel25.Location = New System.Drawing.Point(275, 63)
- Me.LinkLabel25.Name = "LinkLabel25"
- Me.LinkLabel25.Size = New System.Drawing.Size(123, 13)
- Me.LinkLabel25.TabIndex = 175
- Me.LinkLabel25.TabStop = True
- Me.LinkLabel25.Text = "Rechnungen importieren"
+ Me.Label63.AutoSize = True
+ Me.Label63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label63.Location = New System.Drawing.Point(15, 43)
+ Me.Label63.Name = "Label63"
+ Me.Label63.Size = New System.Drawing.Size(42, 13)
+ Me.Label63.TabIndex = 177
+ Me.Label63.Text = "Import"
+ '
+ 'lblOriginalRechnungPLOSE
+ '
+ Me.lblOriginalRechnungPLOSE.AutoSize = True
+ Me.lblOriginalRechnungPLOSE.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblOriginalRechnungPLOSE.Location = New System.Drawing.Point(243, 43)
+ Me.lblOriginalRechnungPLOSE.Name = "lblOriginalRechnungPLOSE"
+ Me.lblOriginalRechnungPLOSE.Size = New System.Drawing.Size(126, 13)
+ Me.lblOriginalRechnungPLOSE.TabIndex = 178
+ Me.lblOriginalRechnungPLOSE.Text = "Original-Rechnungen"
+ '
+ 'Label65
+ '
+ Me.Label65.AutoSize = True
+ Me.Label65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label65.Location = New System.Drawing.Point(13, 167)
+ Me.Label65.Name = "Label65"
+ Me.Label65.Size = New System.Drawing.Size(79, 13)
+ Me.Label65.TabIndex = 176
+ Me.Label65.Text = "Verarbeitung"
+ '
+ 'lblOriginalRechnungUTA
+ '
+ Me.lblOriginalRechnungUTA.AutoSize = True
+ Me.lblOriginalRechnungUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblOriginalRechnungUTA.Location = New System.Drawing.Point(228, 36)
+ Me.lblOriginalRechnungUTA.Name = "lblOriginalRechnungUTA"
+ Me.lblOriginalRechnungUTA.Size = New System.Drawing.Size(126, 13)
+ Me.lblOriginalRechnungUTA.TabIndex = 177
+ Me.lblOriginalRechnungUTA.Text = "Original-Rechnungen"
'
'frmStartOptions
'
@@ -5543,12 +5603,12 @@ Partial Class frmStartOptions
Friend WithEvents lblBackToCustomer_RMC As LinkLabel
Friend WithEvents lblBackToCustomer_UTA As LinkLabel
Friend WithEvents lblBackToCustomer_PLOSE As LinkLabel
- Friend WithEvents Label55 As Label
+ Friend WithEvents lblOriginalRechnungIDS As Label
Friend WithEvents Label54 As Label
Friend WithEvents Label53 As Label
- Friend WithEvents Label56 As Label
+ Friend WithEvents lblOriginalRechnungMSE As Label
Friend WithEvents Label58 As Label
- Friend WithEvents Label57 As Label
+ Friend WithEvents lblOriginalRechnungRMC As Label
Friend WithEvents lblIDS_plauscheck As LinkLabel
Friend WithEvents Label59 As Label
Friend WithEvents pbEmailscheck As PictureBox
@@ -5568,4 +5628,9 @@ Partial Class frmStartOptions
Friend WithEvents cbxGESTELLUNG_TESTLAUF As CheckBox
Friend WithEvents LinkLabel25 As LinkLabel
Friend WithEvents Label61 As Label
+ Friend WithEvents lblOriginalRechnungUTA As Label
+ Friend WithEvents Label65 As Label
+ Friend WithEvents lblOriginalRechnungPLOSE As Label
+ Friend WithEvents Label63 As Label
+ Friend WithEvents Label62 As Label
End Class
diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx
index 047aec1..1fd7ebc 100644
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -236,6 +236,78 @@
+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
@@ -748,78 +820,6 @@
True
-
-
- 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
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index c9941d4..9c2eaf0 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -7753,4 +7753,65 @@ repeatRequest:
Me.Visible = True
End Sub
+ Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+
+
+ Select Case TabControl1.SelectedIndex
+ Case 1 'IDS
+ Dim invoice As New cIDS
+ Dim missingITC As Integer = 0
+ missingITC = invoice.countBackToCustomerNotSet(New SQL)
+ If missingITC > 0 Then
+ lblOriginalRechnungIDS.Text &= " ITC nicht gesetzt: " & missingITC
+ Else
+ lblOriginalRechnungIDS.Text = "Original-Rechnungen"
+ End If
+
+ Case 2 'MSE
+ Dim invoice As New cMSEAPI
+ Dim missingITC As Integer = 0
+ missingITC = invoice.countBackToCustomerNotSet(New SQL)
+ If missingITC > 0 Then
+ lblOriginalRechnungMSE.Text &= " ITC nicht gesetzt: " & missingITC
+ Else
+ lblOriginalRechnungMSE.Text = "Original-Rechnungen"
+
+ End If
+
+ Case 3 'RMC
+ Dim invoice As New cRMC
+ Dim missingITC As Integer = 0
+ missingITC = invoice.countBackToCustomerNotSet(New SQL)
+ If missingITC > 0 Then
+ lblOriginalRechnungRMC.Text &= " ITC nicht gesetzt: " & missingITC
+ Else
+ lblOriginalRechnungRMC.Text = "Original-Rechnungen"
+ End If
+
+ Case 4 'UTA
+ Dim invoice As New cUTA
+ Dim missingITC As Integer = 0
+ missingITC = invoice.countBackToCustomerNotSet(New SQL)
+ If missingITC > 0 Then
+ lblOriginalRechnungUTA.Text &= " ITC nicht gesetzt: " & missingITC
+ Else
+ lblOriginalRechnungUTA.Text = "Original-Rechnungen"
+ End If
+
+ Case 5 'PLOSE
+ Dim invoice As New cPLOSE_Inv_Data
+ Dim missingITC As Integer = 0
+ missingITC = invoice.countBackToCustomerNotSet(New SQL)
+ If missingITC > 0 Then
+ lblOriginalRechnungPLOSE.Text &= " ITC nicht gesetzt: " & missingITC
+ Else
+ lblOriginalRechnungPLOSE.Text = "Original-Rechnungen"
+ End If
+
+ End Select
+
+
+
+
+ End Sub
End Class
\ No newline at end of file