From acba79c48d36b029672f7c481e1a66777b7df346 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 26 Mar 2026 08:53:39 +0100 Subject: [PATCH] StartOpt Einarbeitung InvoicesToCustomer, fix von tc_anmeldung, etc. --- DAKOSY_Worker/cImporter_TelotecToVERAG.vb | 6 +- .../frmStartOptions.Designer.vb | 225 +++++++++++------- initATLASAufschubkonten/frmStartOptions.resx | 144 +++++------ initATLASAufschubkonten/frmStartOptions.vb | 61 +++++ 4 files changed, 281 insertions(+), 155 deletions(-) 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