diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb index 5ecde11..234efcb 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb @@ -1604,7 +1604,7 @@ Public Class cDakosyNCTSOut004 - Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Optional DY_Mitarbeiter As String = "") As Boolean + Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Art As String, Optional DY_Mitarbeiter As String = "") As Boolean Try Dim Interface_VERSION = "004" @@ -1614,10 +1614,10 @@ Public Class cDakosyNCTSOut004 'Transaktion: XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp - XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") + XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, Art) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG") XML.Transaktion.IODatumZeit = Now XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz - If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW" + If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, Art) '"SUW" XML.Transaktion.Version = Interface_VERSION ' XML.Transaktion.IODivision3 = "DUR" XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb index 38ded01..001b01a 100644 --- a/DAKOSY_Worker/cDakosyFunftions.vb +++ b/DAKOSY_Worker/cDakosyFunftions.vb @@ -68,7 +68,7 @@ Public Class cDakosyFunftions Return "AMBWO" Case "VERAG" Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben - Case "EZA", "AA", "AES" + Case "EZA", "AA", "AES", "T1", "T2" Return "SUB" Case Else ' --> NCTS If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then diff --git a/initATLASAufschubkonten/cWorker_AES_EXG.vb b/initATLASAufschubkonten/cWorker_AES_EXG.vb index 4661423..5e456fb 100644 --- a/initATLASAufschubkonten/cWorker_AES_EXG.vb +++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb @@ -181,7 +181,7 @@ Public Class cWorker_AES_EXG End If Dim saveFile = "" - If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then + If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath, "NCTS") Then If saveFile <> "" Then @@ -196,7 +196,7 @@ Public Class cWorker_AES_EXG If NCTS_OUT.SAVE_ALL() Then Dim saveFile = "" - If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then + If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath, "NCTS") Then If saveFile <> "" Then If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, NCTS_OUT.ncts_ObjectName, DY_ANM.dy_Id, NCTS_OUT.ncts_firma) Then diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index fae8b3d..fbd1cb9 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -395,12 +395,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Select Case invEndung Case "SP" : country = "ES" 'SPANIEN Case "DA" : country = "DK" 'DÄNEMARK - Case "P1" : country = "PL" 'Portugal - - 'Case "RO" : country = "RO" 'RUMÄNIEN - 'Case "PL" : country = "PL" 'POLEN - 'Case "LV" : country = "LV" 'LETTLAND - + 'Case "P1" : country = "PL" 'POLEN + Case "FT" : country = "PT" 'PORTUGAL Case Else country = invEndung diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 3b02366..5b736ab 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -395,6 +395,7 @@ Partial Class frmStartOptions Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LinkLabel54 = New System.Windows.Forms.LinkLabel() Me.pnl.SuspendLayout() CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() @@ -452,6 +453,7 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.LinkLabel54) Me.pnl.Controls.Add(Me.Button32) Me.pnl.Controls.Add(Me.btnEZOLL_1month) Me.pnl.Controls.Add(Me.btnEZOLL_7days) @@ -636,7 +638,7 @@ Partial Class frmStartOptions 'cbxUpdateFIBU ' Me.cbxUpdateFIBU.AutoSize = True - Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 139) + Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 118) Me.cbxUpdateFIBU.Name = "cbxUpdateFIBU" Me.cbxUpdateFIBU.Size = New System.Drawing.Size(121, 17) Me.cbxUpdateFIBU.TabIndex = 140 @@ -648,7 +650,7 @@ Partial Class frmStartOptions Me.cbxUseUIDFinanzOnline.AutoSize = True Me.cbxUseUIDFinanzOnline.Checked = True Me.cbxUseUIDFinanzOnline.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 118) + Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 97) Me.cbxUseUIDFinanzOnline.Name = "cbxUseUIDFinanzOnline" Me.cbxUseUIDFinanzOnline.Size = New System.Drawing.Size(131, 17) Me.cbxUseUIDFinanzOnline.TabIndex = 139 @@ -657,7 +659,7 @@ Partial Class frmStartOptions ' 'txtMRNPrefix ' - Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48) + Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 31) Me.txtMRNPrefix.Name = "txtMRNPrefix" Me.txtMRNPrefix.Size = New System.Drawing.Size(43, 20) Me.txtMRNPrefix.TabIndex = 138 @@ -667,7 +669,7 @@ Partial Class frmStartOptions ' Me.ATCNRinRE.AutoSize = True Me.ATCNRinRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ATCNRinRE.Location = New System.Drawing.Point(842, 51) + Me.ATCNRinRE.Location = New System.Drawing.Point(842, 34) Me.ATCNRinRE.Name = "ATCNRinRE" Me.ATCNRinRE.Size = New System.Drawing.Size(188, 13) Me.ATCNRinRE.TabIndex = 137 @@ -678,7 +680,7 @@ Partial Class frmStartOptions ' Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image) Me.PictureBox24.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox24.Location = New System.Drawing.Point(782, 46) + Me.PictureBox24.Location = New System.Drawing.Point(782, 29) Me.PictureBox24.Name = "PictureBox24" Me.PictureBox24.Size = New System.Drawing.Size(18, 18) Me.PictureBox24.TabIndex = 92 @@ -701,7 +703,7 @@ Partial Class frmStartOptions ' Me.LinkLabel63.AutoSize = True Me.LinkLabel63.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel63.Location = New System.Drawing.Point(668, 51) + Me.LinkLabel63.Location = New System.Drawing.Point(668, 34) Me.LinkLabel63.Name = "LinkLabel63" Me.LinkLabel63.Size = New System.Drawing.Size(100, 13) Me.LinkLabel63.TabIndex = 91 @@ -767,7 +769,7 @@ Partial Class frmStartOptions Me.cbxVermerk.AutoSize = True Me.cbxVermerk.Checked = True Me.cbxVermerk.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxVermerk.Location = New System.Drawing.Point(151, 202) + Me.cbxVermerk.Location = New System.Drawing.Point(151, 181) Me.cbxVermerk.Name = "cbxVermerk" Me.cbxVermerk.Size = New System.Drawing.Size(100, 17) Me.cbxVermerk.TabIndex = 76 @@ -891,7 +893,7 @@ Partial Class frmStartOptions 'Label19 ' Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(205, 179) + Me.Label19.Location = New System.Drawing.Point(205, 158) Me.Label19.Name = "Label19" Me.Label19.Size = New System.Drawing.Size(67, 13) Me.Label19.TabIndex = 65 @@ -900,7 +902,7 @@ Partial Class frmStartOptions 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(206, 159) + Me.Label18.Location = New System.Drawing.Point(206, 138) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(27, 13) Me.Label18.TabIndex = 64 @@ -910,7 +912,7 @@ Partial Class frmStartOptions ' Me.LinkLabel36.AutoSize = True Me.LinkLabel36.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel36.Location = New System.Drawing.Point(15, 213) + Me.LinkLabel36.Location = New System.Drawing.Point(15, 192) Me.LinkLabel36.Name = "LinkLabel36" Me.LinkLabel36.Size = New System.Drawing.Size(117, 13) Me.LinkLabel36.TabIndex = 62 @@ -1049,7 +1051,7 @@ Partial Class frmStartOptions ' Me.LinkLabel33.AutoSize = True Me.LinkLabel33.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel33.Location = New System.Drawing.Point(15, 194) + Me.LinkLabel33.Location = New System.Drawing.Point(15, 173) Me.LinkLabel33.Name = "LinkLabel33" Me.LinkLabel33.Size = New System.Drawing.Size(107, 13) Me.LinkLabel33.TabIndex = 47 @@ -1072,7 +1074,7 @@ Partial Class frmStartOptions ' Me.LinkLabel32.AutoSize = True Me.LinkLabel32.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel32.Location = New System.Drawing.Point(15, 176) + Me.LinkLabel32.Location = New System.Drawing.Point(15, 155) Me.LinkLabel32.Name = "LinkLabel32" Me.LinkLabel32.Size = New System.Drawing.Size(95, 13) Me.LinkLabel32.TabIndex = 45 @@ -4248,7 +4250,7 @@ Partial Class frmStartOptions ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox12.Location = New System.Drawing.Point(127, 154) + Me.PictureBox12.Location = New System.Drawing.Point(127, 133) Me.PictureBox12.Name = "PictureBox12" Me.PictureBox12.Size = New System.Drawing.Size(18, 18) Me.PictureBox12.TabIndex = 37 @@ -4259,7 +4261,7 @@ Partial Class frmStartOptions ' Me.LinkLabel20.AutoSize = True Me.LinkLabel20.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel20.Location = New System.Drawing.Point(15, 159) + Me.LinkLabel20.Location = New System.Drawing.Point(15, 138) Me.LinkLabel20.Name = "LinkLabel20" Me.LinkLabel20.Size = New System.Drawing.Size(106, 13) Me.LinkLabel20.TabIndex = 10 @@ -4270,7 +4272,7 @@ Partial Class frmStartOptions ' Me.PictureBox11.BackgroundImage = CType(resources.GetObject("PictureBox11.BackgroundImage"), System.Drawing.Image) Me.PictureBox11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox11.Location = New System.Drawing.Point(620, 94) + Me.PictureBox11.Location = New System.Drawing.Point(620, 77) Me.PictureBox11.Name = "PictureBox11" Me.PictureBox11.Size = New System.Drawing.Size(18, 18) Me.PictureBox11.TabIndex = 35 @@ -4281,7 +4283,7 @@ Partial Class frmStartOptions ' Me.LinkLabel19.AutoSize = True Me.LinkLabel19.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel19.Location = New System.Drawing.Point(479, 99) + Me.LinkLabel19.Location = New System.Drawing.Point(479, 82) Me.LinkLabel19.Name = "LinkLabel19" Me.LinkLabel19.Size = New System.Drawing.Size(129, 13) Me.LinkLabel19.TabIndex = 9 @@ -4292,7 +4294,7 @@ Partial Class frmStartOptions ' Me.PictureBox10.BackgroundImage = CType(resources.GetObject("PictureBox10.BackgroundImage"), System.Drawing.Image) Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox10.Location = New System.Drawing.Point(620, 73) + Me.PictureBox10.Location = New System.Drawing.Point(620, 56) Me.PictureBox10.Name = "PictureBox10" Me.PictureBox10.Size = New System.Drawing.Size(18, 18) Me.PictureBox10.TabIndex = 33 @@ -4303,7 +4305,7 @@ Partial Class frmStartOptions ' Me.LinkLabel18.AutoSize = True Me.LinkLabel18.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel18.Location = New System.Drawing.Point(479, 78) + Me.LinkLabel18.Location = New System.Drawing.Point(479, 61) Me.LinkLabel18.Name = "LinkLabel18" Me.LinkLabel18.Size = New System.Drawing.Size(106, 13) Me.LinkLabel18.TabIndex = 7 @@ -4314,7 +4316,7 @@ Partial Class frmStartOptions ' Me.PictureBox9.BackgroundImage = CType(resources.GetObject("PictureBox9.BackgroundImage"), System.Drawing.Image) Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox9.Location = New System.Drawing.Point(620, 46) + Me.PictureBox9.Location = New System.Drawing.Point(620, 29) Me.PictureBox9.Name = "PictureBox9" Me.PictureBox9.Size = New System.Drawing.Size(18, 18) Me.PictureBox9.TabIndex = 31 @@ -4325,7 +4327,7 @@ Partial Class frmStartOptions ' Me.LinkLabel17.AutoSize = True Me.LinkLabel17.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel17.Location = New System.Drawing.Point(479, 51) + Me.LinkLabel17.Location = New System.Drawing.Point(479, 34) Me.LinkLabel17.Name = "LinkLabel17" Me.LinkLabel17.Size = New System.Drawing.Size(107, 13) Me.LinkLabel17.TabIndex = 4 @@ -4335,7 +4337,7 @@ Partial Class frmStartOptions 'cbxHistory ' Me.cbxHistory.AutoSize = True - Me.cbxHistory.Location = New System.Drawing.Point(18, 95) + Me.cbxHistory.Location = New System.Drawing.Point(18, 78) Me.cbxHistory.Name = "cbxHistory" Me.cbxHistory.Size = New System.Drawing.Size(58, 17) Me.cbxHistory.TabIndex = 8 @@ -4362,7 +4364,7 @@ Partial Class frmStartOptions ' Me.LinkLabel2.AutoSize = True Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel2.Location = New System.Drawing.Point(299, 78) + Me.LinkLabel2.Location = New System.Drawing.Point(299, 61) Me.LinkLabel2.Name = "LinkLabel2" Me.LinkLabel2.Size = New System.Drawing.Size(133, 13) Me.LinkLabel2.TabIndex = 6 @@ -4373,7 +4375,7 @@ Partial Class frmStartOptions ' Me.LinkLabel1.AutoSize = True Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel1.Location = New System.Drawing.Point(15, 78) + Me.LinkLabel1.Location = New System.Drawing.Point(15, 61) Me.LinkLabel1.Name = "LinkLabel1" Me.LinkLabel1.Size = New System.Drawing.Size(182, 13) Me.LinkLabel1.TabIndex = 5 @@ -4384,7 +4386,7 @@ Partial Class frmStartOptions ' Me.LinkLabel3.AutoSize = True Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel3.Location = New System.Drawing.Point(299, 51) + Me.LinkLabel3.Location = New System.Drawing.Point(299, 34) Me.LinkLabel3.Name = "LinkLabel3" Me.LinkLabel3.Size = New System.Drawing.Size(128, 13) Me.LinkLabel3.TabIndex = 3 @@ -4395,7 +4397,7 @@ Partial Class frmStartOptions ' Me.lklAufschubkontenATLASEZOLL.AutoSize = True Me.lklAufschubkontenATLASEZOLL.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 51) + Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 34) Me.lklAufschubkontenATLASEZOLL.Name = "lklAufschubkontenATLASEZOLL" Me.lklAufschubkontenATLASEZOLL.Size = New System.Drawing.Size(177, 13) Me.lklAufschubkontenATLASEZOLL.TabIndex = 2 @@ -4462,7 +4464,7 @@ Partial Class frmStartOptions Me.MyTextBox2._Waehrung = False Me.MyTextBox2._WaehrungZeichen = True Me.MyTextBox2.ForeColor = System.Drawing.Color.Red - Me.MyTextBox2.Location = New System.Drawing.Point(151, 176) + Me.MyTextBox2.Location = New System.Drawing.Point(151, 155) Me.MyTextBox2.MaxLineLength = -1 Me.MyTextBox2.MaxLines_Warning = "" Me.MyTextBox2.MaxLines_Warning_Label = Nothing @@ -5237,7 +5239,7 @@ Partial Class frmStartOptions Me.MyTextBox1._Waehrung = False Me.MyTextBox1._WaehrungZeichen = True Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 156) + Me.MyTextBox1.Location = New System.Drawing.Point(151, 135) Me.MyTextBox1.MaxLineLength = -1 Me.MyTextBox1.MaxLines_Warning = "" Me.MyTextBox1.MaxLines_Warning_Label = Nothing @@ -5277,6 +5279,17 @@ Partial Class frmStartOptions Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" ' + 'LinkLabel54 + ' + Me.LinkLabel54.AutoSize = True + Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel54.Location = New System.Drawing.Point(15, 214) + Me.LinkLabel54.Name = "LinkLabel54" + Me.LinkLabel54.Size = New System.Drawing.Size(124, 13) + Me.LinkLabel54.TabIndex = 150 + Me.LinkLabel54.TabStop = True + Me.LinkLabel54.Text = "UID-Prüfung VERAG360" + ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -5731,4 +5744,5 @@ Partial Class frmStartOptions Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button31 As Button Friend WithEvents Button32 As Button + Friend WithEvents LinkLabel54 As LinkLabel End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 06047ac..7ddd605 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -236,6 +236,102 @@ +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj + YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV + BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ + FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy + Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf + 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu + Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR + 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd + j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM + 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl + WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc + qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P + LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 + GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F + g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY + BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw + cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q + +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu + RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK + SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC @@ -646,9 +742,6 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - True - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj @@ -769,102 +862,12 @@ SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj - YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV - BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/ - FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy - Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf - 6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu - Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR - 2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd - j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM - 1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl - WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc - qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P - LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7 - GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F - g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY - BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw - cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q - +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu - RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK - SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC - - + + True + + + True + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 4596caa..d710a3c 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -3399,7 +3399,10 @@ Public Class frmStartOptions Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean - Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1) + + Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19) + getUID_Pruefung(maxAnz, "VERAG 360 GmbH", "UID Prüfung VERAG-360", Empfaenger, "",,, True, finanzOnline, veroegerungMs, True) + Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1) getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs, True) Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20) getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs) @@ -7983,7 +7986,7 @@ repeatRequest: Dim dt As DataTable = SQL.loadDgvBySql("select * from ( - select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR + select ADR.AdressenNr, ADR.[Name 1],F.FilialenNr,KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR inner join Kunden K on K.KundenNr = ADR.AdressenNr inner join Filialen F On F.FilialenNr=K.FilialenNr INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr @@ -7991,14 +7994,14 @@ repeatRequest: UNION - select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma from Adressen ADR + select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma from Adressen ADR inner join Kunden K on K.KundenNr = ADR.AdressenNr inner join Filialen F On F.FilialenNr=K.FilialenNr where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null) UNION - select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma from Adressen ADR + select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma from Adressen ADR inner join Kunden K on K.KundenNr = ADR.AdressenNr inner join Filialen F On F.FilialenNr=K.FilialenNr INNER JOIN tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr @@ -8011,6 +8014,7 @@ repeatRequest: dt_wrongEmails.Columns.Add("KdNr", GetType(String)) dt_wrongEmails.Columns.Add("Art", GetType(String)) dt_wrongEmails.Columns.Add("Name", GetType(String)) + dt_wrongEmails.Columns.Add("FilialenNr", GetType(Integer)) dt_wrongEmails.Columns.Add("Firma", GetType(String)) dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String)) dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String)) @@ -8021,6 +8025,7 @@ repeatRequest: Dim dtAMBAR As DataTable = dt_wrongEmails.Clone() Dim dtUNISPED As DataTable = dt_wrongEmails.Clone() Dim dtFRONTOFFICE As DataTable = dt_wrongEmails.Clone() + Dim dtVERAG360 As DataTable = dt_wrongEmails.Clone() 'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber). Dim yearstocheck As Integer = CustomersWithInvoiceWithingYears @@ -8042,6 +8047,7 @@ repeatRequest: Dim ROW As DataRow = dt_wrongEmails.NewRow ROW("KdNr") = r.Item("AdressenNr") ROW("Art") = r.Item("kkd_kkaBez") + ROW("FilialenNr") = r.Item("FilialenNr") ROW("Name") = r.Item("Name 1") ROW("Firma") = r.Item("Firma") ROW("fehlerhafteMail") = fehlerhafteMail @@ -8051,7 +8057,11 @@ repeatRequest: Select Case ROW("Firma").ToString() Case "VERAG" - dtVerag.ImportRow(ROW) + If ROW("FilialenNr") = 8001 Then + dtVERAG360.ImportRow(ROW) + Else + dtVerag.ImportRow(ROW) + End If Case "IMEX" dtIMEX.ImportRow(ROW) Case "AMBAR" @@ -8132,6 +8142,16 @@ repeatRequest: End If End If + If dtVERAG360.Rows.Count > 0 Then + Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 19) + If empfaneger <> "" Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVERAG360,,,,, False,,, True) + Dim anhenge As New List(Of String) + anhenge.Add(path) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG360", MailText,, True, False,,, anhenge) + End If + End If + End If End If @@ -8470,4 +8490,11 @@ repeatRequest: checkZugferd(sendNotificationEmails) End Sub + + Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG 360 GmbH", "UID Prüfung VERAG 360", Empfaenger, "",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked) + showPic(bool, PictureBox12) + End Sub End Class