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

merge

Browse Source
This commit is contained in:
d.breimaier
2025-07-28 09:04:21 +02:00
parent 3294d1d65c 6d8a537ee7
commit 3c1532cda5
6 changed files with 650 additions and 726 deletions
Download Patch File Download Diff File Expand all files Collapse all files

97
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -326,6 +326,7 @@ 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.cbxUseUIDFinanzOnline = New System.Windows.Forms.CheckBox()
Me.LinkLabel53 = New System.Windows.Forms.LinkLabel()
Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -377,6 +378,7 @@ Partial Class frmStartOptions
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.cbxUseUIDFinanzOnline)
Me.pnl.Controls.Add(Me.txtMRNPrefix)
Me.pnl.Controls.Add(Me.ATCNRinRE)
Me.pnl.Controls.Add(Me.PictureBox24)
@@ -516,7 +518,7 @@ Partial Class frmStartOptions
'
Me.PictureBox23.BackgroundImage = CType(resources.GetObject("PictureBox23.BackgroundImage"), System.Drawing.Image)
Me.PictureBox23.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox23.Location = New System.Drawing.Point(104, 210)
Me.PictureBox23.Location = New System.Drawing.Point(104, 234)
Me.PictureBox23.Name = "PictureBox23"
Me.PictureBox23.Size = New System.Drawing.Size(18, 18)
Me.PictureBox23.TabIndex = 88
@@ -526,7 +528,7 @@ Partial Class frmStartOptions
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Location = New System.Drawing.Point(181, 211)
Me.Label27.Location = New System.Drawing.Point(181, 235)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(71, 13)
Me.Label27.TabIndex = 87
@@ -547,7 +549,7 @@ Partial Class frmStartOptions
Me.MyTextBox3._Waehrung = False
Me.MyTextBox3._WaehrungZeichen = True
Me.MyTextBox3.ForeColor = System.Drawing.Color.Red
Me.MyTextBox3.Location = New System.Drawing.Point(127, 208)
Me.MyTextBox3.Location = New System.Drawing.Point(127, 232)
Me.MyTextBox3.MaxLineLength = -1
Me.MyTextBox3.MaxLines_Warning = ""
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
@@ -559,7 +561,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel51.AutoSize = True
Me.LinkLabel51.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel51.Location = New System.Drawing.Point(17, 211)
Me.LinkLabel51.Location = New System.Drawing.Point(17, 235)
Me.LinkLabel51.Name = "LinkLabel51"
Me.LinkLabel51.Size = New System.Drawing.Size(88, 13)
Me.LinkLabel51.TabIndex = 85
@@ -593,7 +595,7 @@ Partial Class frmStartOptions
'
Me.LinkLabel48.AutoSize = True
Me.LinkLabel48.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.LinkLabel48.Location = New System.Drawing.Point(405, 135)
Me.LinkLabel48.Location = New System.Drawing.Point(405, 159)
Me.LinkLabel48.Name = "LinkLabel48"
Me.LinkLabel48.Size = New System.Drawing.Size(129, 13)
Me.LinkLabel48.TabIndex = 77
@@ -605,7 +607,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, 178)
Me.cbxVermerk.Location = New System.Drawing.Point(151, 202)
Me.cbxVermerk.Name = "cbxVermerk"
Me.cbxVermerk.Size = New System.Drawing.Size(100, 17)
Me.cbxVermerk.TabIndex = 76
@@ -618,7 +620,7 @@ Partial Class frmStartOptions
Me.cbxDatevTest.Checked = True
Me.cbxDatevTest.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDatevTest.Location = New System.Drawing.Point(15, 368)
Me.cbxDatevTest.Location = New System.Drawing.Point(15, 392)
Me.cbxDatevTest.Name = "cbxDatevTest"
Me.cbxDatevTest.Size = New System.Drawing.Size(79, 17)
Me.cbxDatevTest.TabIndex = 75
@@ -629,7 +631,7 @@ Partial Class frmStartOptions
'
Me.cbxDatevOpen.AutoSize = True
Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 345)
Me.cbxDatevOpen.Location = New System.Drawing.Point(170, 369)
Me.cbxDatevOpen.Name = "cbxDatevOpen"
Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
Me.cbxDatevOpen.TabIndex = 74
@@ -641,7 +643,7 @@ Partial Class frmStartOptions
Me.cbxDatevBuchungen.AutoSize = True
Me.cbxDatevBuchungen.Checked = True
Me.cbxDatevBuchungen.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 345)
Me.cbxDatevBuchungen.Location = New System.Drawing.Point(84, 369)
Me.cbxDatevBuchungen.Name = "cbxDatevBuchungen"
Me.cbxDatevBuchungen.Size = New System.Drawing.Size(81, 17)
Me.cbxDatevBuchungen.TabIndex = 73
@@ -653,7 +655,7 @@ Partial Class frmStartOptions
Me.cbxDatevDebitoren.AutoSize = True
Me.cbxDatevDebitoren.Checked = True
Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 345)
Me.cbxDatevDebitoren.Location = New System.Drawing.Point(15, 369)
Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren"
Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17)
Me.cbxDatevDebitoren.TabIndex = 72
@@ -665,7 +667,7 @@ Partial Class frmStartOptions
Me.btnDatev.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatev.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btnDatev.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDatev.Location = New System.Drawing.Point(15, 318)
Me.btnDatev.Location = New System.Drawing.Point(15, 342)
Me.btnDatev.Name = "btnDatev"
Me.btnDatev.Size = New System.Drawing.Size(211, 24)
Me.btnDatev.TabIndex = 71
@@ -676,7 +678,7 @@ Partial Class frmStartOptions
'
Me.lblDatev.AutoSize = True
Me.lblDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatev.Location = New System.Drawing.Point(12, 302)
Me.lblDatev.Location = New System.Drawing.Point(12, 326)
Me.lblDatev.Name = "lblDatev"
Me.lblDatev.Size = New System.Drawing.Size(142, 13)
Me.lblDatev.TabIndex = 70
@@ -686,7 +688,7 @@ Partial Class frmStartOptions
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Label21.Location = New System.Drawing.Point(264, 298)
Me.Label21.Location = New System.Drawing.Point(264, 322)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(75, 13)
Me.Label21.TabIndex = 69
@@ -709,7 +711,7 @@ Partial Class frmStartOptions
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(268, 340)
Me.Button14.Location = New System.Drawing.Point(268, 364)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(143, 24)
Me.Button14.TabIndex = 67
@@ -720,7 +722,7 @@ Partial Class frmStartOptions
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.Location = New System.Drawing.Point(265, 324)
Me.Label20.Location = New System.Drawing.Point(265, 348)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(146, 13)
Me.Label20.TabIndex = 66
@@ -729,7 +731,7 @@ Partial Class frmStartOptions
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(205, 155)
Me.Label19.Location = New System.Drawing.Point(205, 179)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(67, 13)
Me.Label19.TabIndex = 65
@@ -738,7 +740,7 @@ Partial Class frmStartOptions
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(206, 135)
Me.Label18.Location = New System.Drawing.Point(206, 159)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(27, 13)
Me.Label18.TabIndex = 64
@@ -759,7 +761,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, 152)
Me.MyTextBox2.Location = New System.Drawing.Point(151, 176)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
@@ -771,7 +773,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, 189)
Me.LinkLabel36.Location = New System.Drawing.Point(15, 213)
Me.LinkLabel36.Name = "LinkLabel36"
Me.LinkLabel36.Size = New System.Drawing.Size(117, 13)
Me.LinkLabel36.TabIndex = 62
@@ -854,7 +856,7 @@ Partial Class frmStartOptions
'
Me.piceZollAnh.BackgroundImage = CType(resources.GetObject("piceZollAnh.BackgroundImage"), System.Drawing.Image)
Me.piceZollAnh.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.piceZollAnh.Location = New System.Drawing.Point(500, 190)
Me.piceZollAnh.Location = New System.Drawing.Point(500, 214)
Me.piceZollAnh.Name = "piceZollAnh"
Me.piceZollAnh.Size = New System.Drawing.Size(18, 18)
Me.piceZollAnh.TabIndex = 56
@@ -876,7 +878,7 @@ Partial Class frmStartOptions
Me.txtEZOLLAnhDat._Waehrung = False
Me.txtEZOLLAnhDat._WaehrungZeichen = True
Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black
Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190)
Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 214)
Me.txtEZOLLAnhDat.MaxLength = 10
Me.txtEZOLLAnhDat.MaxLineLength = -1
Me.txtEZOLLAnhDat.MaxLines_Warning = ""
@@ -889,7 +891,7 @@ Partial Class frmStartOptions
'
Me.lblEZOLLDat.AutoSize = True
Me.lblEZOLLDat.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 193)
Me.lblEZOLLDat.Location = New System.Drawing.Point(300, 217)
Me.lblEZOLLDat.Name = "lblEZOLLDat"
Me.lblEZOLLDat.Size = New System.Drawing.Size(105, 13)
Me.lblEZOLLDat.TabIndex = 54
@@ -969,7 +971,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, 170)
Me.LinkLabel33.Location = New System.Drawing.Point(15, 194)
Me.LinkLabel33.Name = "LinkLabel33"
Me.LinkLabel33.Size = New System.Drawing.Size(107, 13)
Me.LinkLabel33.TabIndex = 47
@@ -992,7 +994,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, 152)
Me.LinkLabel32.Location = New System.Drawing.Point(15, 176)
Me.LinkLabel32.Name = "LinkLabel32"
Me.LinkLabel32.Size = New System.Drawing.Size(95, 13)
Me.LinkLabel32.TabIndex = 45
@@ -1004,7 +1006,7 @@ Partial Class frmStartOptions
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(391, 253)
Me.Button4.Location = New System.Drawing.Point(391, 277)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(136, 24)
Me.Button4.TabIndex = 44
@@ -1017,7 +1019,7 @@ Partial Class frmStartOptions
Me.CheckBox5.Checked = True
Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox5.Location = New System.Drawing.Point(449, 280)
Me.CheckBox5.Location = New System.Drawing.Point(449, 304)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
Me.CheckBox5.TabIndex = 43
@@ -1029,7 +1031,7 @@ Partial Class frmStartOptions
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(268, 253)
Me.Button3.Location = New System.Drawing.Point(268, 277)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(124, 24)
Me.Button3.TabIndex = 40
@@ -1042,7 +1044,7 @@ Partial Class frmStartOptions
Me.cboBMDUnispedFirma._allowFreiText = False
Me.cboBMDUnispedFirma._value = ""
Me.cboBMDUnispedFirma.FormattingEnabled = True
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276)
Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 300)
Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21)
Me.cboBMDUnispedFirma.TabIndex = 42
@@ -1051,7 +1053,7 @@ Partial Class frmStartOptions
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox4.Location = New System.Drawing.Point(394, 280)
Me.CheckBox4.Location = New System.Drawing.Point(394, 304)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
Me.CheckBox4.TabIndex = 41
@@ -1062,7 +1064,7 @@ Partial Class frmStartOptions
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(265, 237)
Me.Label13.Location = New System.Drawing.Point(265, 261)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(163, 13)
Me.Label13.TabIndex = 39
@@ -1071,7 +1073,7 @@ Partial Class frmStartOptions
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Location = New System.Drawing.Point(302, 173)
Me.CheckBox3.Location = New System.Drawing.Point(302, 197)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(103, 17)
Me.CheckBox3.TabIndex = 38
@@ -4033,7 +4035,7 @@ Partial Class frmStartOptions
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Location = New System.Drawing.Point(302, 151)
Me.CheckBox2.Location = New System.Drawing.Point(302, 175)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(98, 17)
Me.CheckBox2.TabIndex = 13
@@ -4044,7 +4046,7 @@ Partial Class frmStartOptions
'
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(299, 135)
Me.LinkLabel25.Location = New System.Drawing.Point(299, 159)
Me.LinkLabel25.Name = "LinkLabel25"
Me.LinkLabel25.Size = New System.Drawing.Size(99, 13)
Me.LinkLabel25.TabIndex = 12
@@ -4055,7 +4057,7 @@ Partial Class frmStartOptions
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox1.Location = New System.Drawing.Point(173, 280)
Me.CheckBox1.Location = New System.Drawing.Point(173, 304)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
Me.CheckBox1.TabIndex = 18
@@ -4067,7 +4069,7 @@ Partial Class frmStartOptions
Me.cbxBu.AutoSize = True
Me.cbxBu.Checked = True
Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxBu.Location = New System.Drawing.Point(87, 280)
Me.cbxBu.Location = New System.Drawing.Point(87, 304)
Me.cbxBu.Name = "cbxBu"
Me.cbxBu.Size = New System.Drawing.Size(81, 17)
Me.cbxBu.TabIndex = 17
@@ -4079,7 +4081,7 @@ Partial Class frmStartOptions
Me.cbxKd.AutoSize = True
Me.cbxKd.Checked = True
Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxKd.Location = New System.Drawing.Point(18, 280)
Me.cbxKd.Location = New System.Drawing.Point(18, 304)
Me.cbxKd.Name = "cbxKd"
Me.cbxKd.Size = New System.Drawing.Size(63, 17)
Me.cbxKd.TabIndex = 16
@@ -4091,7 +4093,7 @@ Partial Class frmStartOptions
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.Location = New System.Drawing.Point(18, 253)
Me.Button9.Location = New System.Drawing.Point(18, 277)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(211, 24)
Me.Button9.TabIndex = 15
@@ -4102,7 +4104,7 @@ Partial Class frmStartOptions
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(15, 237)
Me.Label3.Location = New System.Drawing.Point(15, 261)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(138, 13)
Me.Label3.TabIndex = 14
@@ -4123,7 +4125,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, 132)
Me.MyTextBox1.Location = New System.Drawing.Point(151, 156)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
@@ -4136,7 +4138,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, 130)
Me.PictureBox12.Location = New System.Drawing.Point(127, 154)
Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
Me.PictureBox12.TabIndex = 37
@@ -4147,7 +4149,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, 135)
Me.LinkLabel20.Location = New System.Drawing.Point(15, 159)
Me.LinkLabel20.Name = "LinkLabel20"
Me.LinkLabel20.Size = New System.Drawing.Size(106, 13)
Me.LinkLabel20.TabIndex = 10
@@ -4315,7 +4317,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED._Waehrung = False
Me.txtGJ_UNISPED._WaehrungZeichen = True
Me.txtGJ_UNISPED.ForeColor = System.Drawing.Color.Black
Me.txtGJ_UNISPED.Location = New System.Drawing.Point(339, 295)
Me.txtGJ_UNISPED.Location = New System.Drawing.Point(339, 319)
Me.txtGJ_UNISPED.MaxLength = 4
Me.txtGJ_UNISPED.MaxLineLength = -1
Me.txtGJ_UNISPED.MaxLines_Warning = ""
@@ -4343,6 +4345,16 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'cbxUseUIDFinanzOnline
'
Me.cbxUseUIDFinanzOnline.AutoSize = True
Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 142)
Me.cbxUseUIDFinanzOnline.Name = "cbxUseUIDFinanzOnline"
Me.cbxUseUIDFinanzOnline.Size = New System.Drawing.Size(131, 17)
Me.cbxUseUIDFinanzOnline.TabIndex = 139
Me.cbxUseUIDFinanzOnline.Text = "UID über Finanzonline"
Me.cbxUseUIDFinanzOnline.UseVisualStyleBackColor = True
'
'LinkLabel53
'
Me.LinkLabel53.AutoSize = True
@@ -4728,5 +4740,6 @@ Partial Class frmStartOptions
Friend WithEvents cboTCAPI_Files As Button
Friend WithEvents cboTCAPI_Call As Button
Friend WithEvents cboTCAPI_Firma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxUseUIDFinanzOnline As CheckBox
Friend WithEvents LinkLabel53 As LinkLabel
End Class

279
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -318,7 +318,8 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM)
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
getUID_Pruefung(MyTextBox1.Text)
Dim finanzonline = True
getUID_Pruefung(MyTextBox1.Text, finanzonline)
closeMe()
Case "WOELFL_USTVAntraege"
Dim f As New frmInfo(PARAM)
@@ -1139,156 +1140,175 @@ Public Class frmStartOptions
Dim betreff = cStandort.eMail_Zollbeleg_Betreff '"Zollbeleg"
betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr)
betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
betreff = betreff.Replace("%Standort%", "")
betreff = betreff.Replace("%Uhrzeit%", "")
betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
betreff = betreff.Replace("%LKW%", AVISO.LKW_Nr)
betreff = betreff.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
betreff = betreff.Replace("%Standort%", "")
betreff = betreff.Replace("%Uhrzeit%", "")
betreff = betreff.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
Dim body = cStandort.eMail_Zollbeleg_Text
Dim body = cStandort.eMail_Zollbeleg_Text
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim EMails As String = ""
Dim EMails_CC As String = ""
Dim EMails_BCC As String = ""
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
Dim Mail_Art = -1
Select Case art
Case "AVM", "ABD" 'Export
Mail_Art = 4 ' Freigabe Export
Dim Mail_Art = -1
Select Case art
Case "AVM", "ABD" 'Export
Mail_Art = 4 ' Freigabe Export
'If EMails_BCC = "" Then
' EMails_BCC = "al@verag.ag"
'Else
' EMails_BCC &= ";al@verag.ag"
'End If
Case Else
Mail_Art = 2
End Select
Select Case SND.tblSnd_Abfertigungsart_ID
Case 6, 7, 33, 34, 37, 40, 43
Mail_Art = 4 ' Freigabe Export
End Select
'If EMails_BCC = "" Then
' EMails_BCC = "al@verag.ag"
'Else
' EMails_BCC &= ";al@verag.ag"
'End If
Case Else
Mail_Art = 2
End Select
Select Case SND.tblSnd_Abfertigungsart_ID
Case 6, 7, 33, 34, 37, 40, 43
Mail_Art = 4 ' Freigabe Export
End Select
'---------------------------------------------------------
' Wenn Mail_Art = Freigabe Beleg und art = STB und EmailFreigabeBeleg_Sendungsunterlagen, dann werden die Sendungsunterlagen an die Kunden geschickt
'---------------------------------------------------------
If Mail_Art = 2 And art = "STB" And KD_ERW.EmailFreigabe_Art = "BLG" And KD_ERW.EmailFreigabeBeleg_Sendungsunterlagen Then
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
For Each l In ANH_LIST
Select Case l.anh_Art.ToString.ToUpper
' Case "EXPORT_DOCS"
Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE"
Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
If PathTmpANH <> "" Then pfadList.Add(PathTmpANH)
End Select
Next
End If
'---------------------------------------------------------
VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
body = body.Replace("%Platzhalter%", "")
' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC)
body = body.Replace("%Platzhalter%", "")
body = body.Replace("%LKW%", AVISO.LKW_Nr)
body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
body = body.Replace("%Standort%", getStandortTXT(AVISO))
body = body.Replace("%Uhrzeit%", Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr")
body = body.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
body = body.Replace("%LKW%", AVISO.LKW_Nr)
body = body.Replace("%AbfertigungsNr%", SND.FilialenNr & "/" & SND.AbfertigungsNr)
body = body.Replace("%Standort%", getStandortTXT(AVISO))
body = body.Replace("%Uhrzeit%", Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr")
body = body.Replace("%KdAuftrNr%", If(KdAtrNr IsNot Nothing AndAlso KdAtrNr.ToString.Trim <> "", "Ihre Auftragsnr: " & KdAtrNr, ""))
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!
'EMails = "luxbauer@gmail.com"
'EMails_CC = ""
'EMails_BCC = ""
'!!!!!!!!!!!!!!!!!!!!!!!!!!
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("!!!!!!!!!!!!!!!!!!!!!!!!!: " & vbNewLine & EMails & vbNewLine & EMails_CC, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
''!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'If EMails_BCC = "" Then
' EMails_BCC = "al@verag.ag"
'Else
' EMails_BCC &= ";al@verag.ag"
''End If
''!!!!!!!!!!!!!!!!!!!!!!!!!!
'If KundenNr = 706113 Then
' EMails = "al@verag.ag"
' EMails_CC = ""
' EMails_BCC = ""
'End If
''!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!
'EMails = "luxbauer@gmail.com"
'EMails_CC = ""
'EMails_BCC = ""
'!!!!!!!!!!!!!!!!!!!!!!!!!!
'If EMails_BCC = "" Then
' EMails_BCC = "al@verag.ag"
'Else
' EMails_BCC &= ";al@verag.ag"
''End If
''!!!!!!!!!!!!!!!!!!!!!!!!!!
'If KundenNr = 706113 Then
' EMails = "al@verag.ag"
' EMails_CC = ""
' EMails_BCC = ""
'End If
''!!!!!!!!!!!!!!!!!!!!!!!!!!
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr)
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = betreff
API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count
API.api_EMail = EMails
API.api_EMailCC = EMails_CC
API.api_EMailBCC = EMails_BCC
API.api_EMailSubject = betreff
API.api_EMailText = body
API.api_EMailAttCnt = pfadList.Count
betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
betreff = betreff.Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace(vbCrLf, "").Replace(System.Environment.NewLine, " ")
Select Case art
Case "STB"
Select Case artKunde
Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide..
Case Else
Select Case art
Case "STB"
Select Case artKunde
Case "FRÄCHTER", "AVISIERER" 'Die bekommen keine Steuerbescheide..
Case Else
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
Case "VBD"
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ZNV"
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ABD"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "AVM"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
End Select
Case "VBD"
If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ZNV"
If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "ABD"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then
betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
Case "AVM"
If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then
betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then
API.UPDTAE_OK()
insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46)
Else
API.UPDTAE_ERR()
End If
End If
End Select
End If
End If
End If
End If
End If
Catch ex As Exception
@@ -2582,6 +2602,7 @@ Public Class frmStartOptions
ElseIf betreff.ToString.Contains("ABD - Ausfuhrbegleitdokument (DE), ") Then
betreff = betreff.replace("WG: ", "")
betreff = betreff.replace("FW: ", "")
betreff = betreff.replace("*00*", "")
betreff = betreff.replace("ABD - Ausfuhrbegleitdokument (DE), ", "")
If betreff.ToString.Contains(",") Then
Dim sp = betreff.ToString.Split(",")
@@ -3079,11 +3100,11 @@ Public Class frmStartOptions
End Function
Function getUID_Pruefung(maxAnz As Integer) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True)
Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True) As Boolean
getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",,, True, finanzOnline)
getUID_Pruefung(maxAnz, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",,, True, finanzOnline)
'getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", "mm@verag.ag;la@verag.ag", "al@verag.ag")
End Function
@@ -3222,12 +3243,12 @@ Public Class frmStartOptions
Private Function ValidateServerCertificate(sender As Object, certificate As X509Certificate, chain As X509Chain, sslPolicyErrors As SslPolicyErrors) As Boolean
Return True
End Function
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False) As Boolean
Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "", Optional setKundenvermerk As Boolean = False, Optional finanzOnline As Boolean = True) As Boolean
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), Nothing)
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False)
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False, finanzOnline)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
If PDF <> "" Then
@@ -3684,7 +3705,7 @@ Public Class frmStartOptions
Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
'bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "d.breimaier@verag.ag",,, MyTextBox2._value, cbxVermerk.Checked)
'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text)
showPic(bool, PictureBox12)
@@ -4168,12 +4189,12 @@ Public Class frmStartOptions
Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "io@ambarlog.de", , "al@verag.ag;as@verag.ag", MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub
@@ -4324,7 +4345,7 @@ Public Class frmStartOptions
Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
showPic(bool, PictureBox12)
End Sub