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

ENS HMRC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-17 10:51:30 +01:00
parent cb798cd22b
commit dfeb92035e
5 changed files with 256 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
UID/usrctlProcedures.Designer.vb generated
View File

@@ -113,6 +113,8 @@ Partial Class usrctlProcedures
Me.Button32 = New System.Windows.Forms.Button() Me.Button32 = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label() Me.lblStatus = New System.Windows.Forms.Label()
Me.Button33 = New System.Windows.Forms.Button() Me.Button33 = New System.Windows.Forms.Button()
Me.Button34 = New System.Windows.Forms.Button()
Me.Button35 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -963,10 +965,30 @@ Partial Class usrctlProcedures
Me.Button33.Text = "DAKOSY CSV Importieren" Me.Button33.Text = "DAKOSY CSV Importieren"
Me.Button33.UseVisualStyleBackColor = True Me.Button33.UseVisualStyleBackColor = True
' '
'Button34
'
Me.Button34.Location = New System.Drawing.Point(694, 3)
Me.Button34.Name = "Button34"
Me.Button34.Size = New System.Drawing.Size(145, 49)
Me.Button34.TabIndex = 65
Me.Button34.Text = "HMRC"
Me.Button34.UseVisualStyleBackColor = True
'
'Button35
'
Me.Button35.Location = New System.Drawing.Point(550, 3)
Me.Button35.Name = "Button35"
Me.Button35.Size = New System.Drawing.Size(145, 49)
Me.Button35.TabIndex = 66
Me.Button35.Text = "HMRC"
Me.Button35.UseVisualStyleBackColor = True
'
'usrctlProcedures 'usrctlProcedures
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Button35)
Me.Controls.Add(Me.Button34)
Me.Controls.Add(Me.Button33) Me.Controls.Add(Me.Button33)
Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.Button32) Me.Controls.Add(Me.Button32)
@@ -1124,4 +1146,6 @@ Partial Class usrctlProcedures
Friend WithEvents Button32 As Button Friend WithEvents Button32 As Button
Friend WithEvents lblStatus As Label Friend WithEvents lblStatus As Label
Friend WithEvents Button33 As Button Friend WithEvents Button33 As Button
Friend WithEvents Button34 As Button
Friend WithEvents Button35 As Button
End Class End Class

28
UID/usrctlProcedures.vb
View File

@@ -15,6 +15,7 @@ Imports System.Text
Imports System.Xml.Serialization Imports System.Xml.Serialization
Imports System.Xml Imports System.Xml
Imports System.Data.OleDb Imports System.Data.OleDb
Imports Chilkat
'Imports Microsoft.Office.Interop 'Imports Microsoft.Office.Interop
Public Class usrctlProcedures Public Class usrctlProcedures
@@ -580,7 +581,7 @@ Public Class usrctlProcedures
For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners
Try Try
Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(file) Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(file)
Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create)) Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create))
Dim f = stamper.AcroFields Dim f = stamper.AcroFields
@@ -641,9 +642,8 @@ Public Class usrctlProcedures
End While End While
Return file Return file
End Function End Function
Sub pdf2() Sub pdf2()
Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf") Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open) Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open)
@@ -1336,14 +1336,14 @@ Public Class usrctlProcedures
Dim newUri As New Uri(proxyaddress) Dim newUri As New Uri(proxyaddress)
myProxy.Address = newUri myProxy.Address = newUri
myReq.Proxy = myProxy myReq.Proxy = myProxy
Dim post As Stream = myReq.GetRequestStream Dim post As System.IO.Stream = myReq.GetRequestStream
post.Write(buffer, 0, buffer.Length) post.Write(buffer, 0, buffer.Length)
post.Close() post.Close()
' MsgBox(myReq) ' MsgBox(myReq)
Dim myResponse As HttpWebResponse = myReq.GetResponse Dim myResponse As HttpWebResponse = myReq.GetResponse
Dim responsedata As Stream = myResponse.GetResponseStream Dim responsedata As System.IO.Stream = myResponse.GetResponseStream
Dim responsereader As New StreamReader(responsedata) Dim responsereader As New StreamReader(responsedata)
response = responsereader.ReadToEnd response = responsereader.ReadToEnd
@@ -1403,14 +1403,14 @@ Public Class usrctlProcedures
Dim newUri As New Uri(proxyaddress) Dim newUri As New Uri(proxyaddress)
myProxy.Address = newUri myProxy.Address = newUri
myReq.Proxy = myProxy myReq.Proxy = myProxy
Dim post As Stream = myReq.GetRequestStream Dim post As System.IO.Stream = myReq.GetRequestStream
post.Write(buffer, 0, buffer.Length) post.Write(buffer, 0, buffer.Length)
post.Close() post.Close()
' MsgBox(myReq) ' MsgBox(myReq)
Dim myResponse As HttpWebResponse = myReq.GetResponse Dim myResponse As HttpWebResponse = myReq.GetResponse
Dim responsedata As Stream = myResponse.GetResponseStream Dim responsedata As System.IO.Stream = myResponse.GetResponseStream
Dim responsereader As New StreamReader(responsedata) Dim responsereader As New StreamReader(responsedata)
response = responsereader.ReadToEnd response = responsereader.ReadToEnd
@@ -3697,6 +3697,20 @@ Public Class usrctlProcedures
End Sub End Sub
Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
VERAG_PROG_ALLGEMEIN.cHMRC_ENS.insertENS(Nothing, "")
End Sub
Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
VERAG_PROG_ALLGEMEIN.cHMRC_ENS.helloWorldENS("")
'VERAG_PROG_ALLGEMEIN.cHMRC.checkVAT_UK("389356931", "")
End Sub
Private Sub usrctlProcedures_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
'Private Sub Button26_Click(sender As Object, e As EventArgs) 'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")

108
initATLASAufschubkonten/frmStartOptions.Designer.vb generated
View File

@@ -163,6 +163,9 @@ Partial Class frmStartOptions
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label49 = New System.Windows.Forms.Label()
Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button28 = New System.Windows.Forms.Button()
Me.LinkLabel71 = New System.Windows.Forms.LinkLabel() Me.LinkLabel71 = New System.Windows.Forms.LinkLabel()
Me.cbxOverrideNCTSFin = New System.Windows.Forms.CheckBox() Me.cbxOverrideNCTSFin = New System.Windows.Forms.CheckBox()
Me.Label48 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label()
@@ -299,9 +302,7 @@ Partial Class frmStartOptions
Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button21 = New System.Windows.Forms.Button() Me.Button21 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button28 = New System.Windows.Forms.Button() Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.MyTextBox5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label49 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -2147,6 +2148,7 @@ Partial Class frmStartOptions
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.CheckBox9)
Me.TabPage3.Controls.Add(Me.Label49) Me.TabPage3.Controls.Add(Me.Label49)
Me.TabPage3.Controls.Add(Me.MyTextBox5) Me.TabPage3.Controls.Add(Me.MyTextBox5)
Me.TabPage3.Controls.Add(Me.Button28) Me.TabPage3.Controls.Add(Me.Button28)
@@ -2178,6 +2180,51 @@ Partial Class frmStartOptions
Me.TabPage3.Text = "Partner-Systeme" Me.TabPage3.Text = "Partner-Systeme"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'Label49
'
Me.Label49.AutoSize = True
Me.Label49.Location = New System.Drawing.Point(545, 328)
Me.Label49.Name = "Label49"
Me.Label49.Size = New System.Drawing.Size(10, 13)
Me.Label49.TabIndex = 139
Me.Label49.Text = "-"
'
'MyTextBox5
'
Me.MyTextBox5._DateTimeOnly = False
Me.MyTextBox5._numbersOnly = False
Me.MyTextBox5._numbersOnlyKommastellen = ""
Me.MyTextBox5._numbersOnlyTrennzeichen = False
Me.MyTextBox5._Prozent = False
Me.MyTextBox5._ShortDateNew = False
Me.MyTextBox5._ShortDateOnly = False
Me.MyTextBox5._TimeOnly = False
Me.MyTextBox5._TimeOnly_Seconds = False
Me.MyTextBox5._value = ""
Me.MyTextBox5._Waehrung = False
Me.MyTextBox5._WaehrungZeichen = False
Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
Me.MyTextBox5.Location = New System.Drawing.Point(548, 272)
Me.MyTextBox5.MaxLength = 18
Me.MyTextBox5.MaxLineLength = -1
Me.MyTextBox5.MaxLines_Warning = ""
Me.MyTextBox5.MaxLines_Warning_Label = Nothing
Me.MyTextBox5.Name = "MyTextBox5"
Me.MyTextBox5.Size = New System.Drawing.Size(185, 20)
Me.MyTextBox5.TabIndex = 139
'
'Button28
'
Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button28.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button28.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button28.Location = New System.Drawing.Point(419, 302)
Me.Button28.Name = "Button28"
Me.Button28.Size = New System.Drawing.Size(123, 39)
Me.Button28.TabIndex = 146
Me.Button28.Text = "Check all open " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATEZ MRN"
Me.Button28.UseVisualStyleBackColor = True
'
'LinkLabel71 'LinkLabel71
' '
Me.LinkLabel71.AutoSize = True Me.LinkLabel71.AutoSize = True
@@ -3937,50 +3984,18 @@ Partial Class frmStartOptions
Me.DataGridViewTextBoxColumn1.MinimumWidth = 8 Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
' '
'Button28 'CheckBox9
' '
Me.Button28.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CheckBox9.AutoSize = True
Me.Button28.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.CheckBox9.Checked = True
Me.Button28.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.CheckBox9.CheckState = System.Windows.Forms.CheckState.Checked
Me.Button28.Location = New System.Drawing.Point(419, 302) Me.CheckBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button28.Name = "Button28" Me.CheckBox9.Location = New System.Drawing.Point(419, 168)
Me.Button28.Size = New System.Drawing.Size(123, 39) Me.CheckBox9.Name = "CheckBox9"
Me.Button28.TabIndex = 146 Me.CheckBox9.Size = New System.Drawing.Size(111, 17)
Me.Button28.Text = "Check all open " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATEZ MRN" Me.CheckBox9.TabIndex = 147
Me.Button28.UseVisualStyleBackColor = True Me.CheckBox9.Text = "mit Positionsdaten"
' Me.CheckBox9.UseVisualStyleBackColor = True
'MyTextBox5
'
Me.MyTextBox5._DateTimeOnly = False
Me.MyTextBox5._numbersOnly = False
Me.MyTextBox5._numbersOnlyKommastellen = ""
Me.MyTextBox5._numbersOnlyTrennzeichen = False
Me.MyTextBox5._Prozent = False
Me.MyTextBox5._ShortDateNew = False
Me.MyTextBox5._ShortDateOnly = False
Me.MyTextBox5._TimeOnly = False
Me.MyTextBox5._TimeOnly_Seconds = False
Me.MyTextBox5._value = ""
Me.MyTextBox5._Waehrung = False
Me.MyTextBox5._WaehrungZeichen = False
Me.MyTextBox5.ForeColor = System.Drawing.Color.Black
Me.MyTextBox5.Location = New System.Drawing.Point(548, 272)
Me.MyTextBox5.MaxLength = 18
Me.MyTextBox5.MaxLineLength = -1
Me.MyTextBox5.MaxLines_Warning = ""
Me.MyTextBox5.MaxLines_Warning_Label = Nothing
Me.MyTextBox5.Name = "MyTextBox5"
Me.MyTextBox5.Size = New System.Drawing.Size(185, 20)
Me.MyTextBox5.TabIndex = 139
'
'Label49
'
Me.Label49.AutoSize = True
Me.Label49.Location = New System.Drawing.Point(545, 328)
Me.Label49.Name = "Label49"
Me.Label49.Size = New System.Drawing.Size(10, 13)
Me.Label49.TabIndex = 139
Me.Label49.Text = "-"
' '
'frmStartOptions 'frmStartOptions
' '
@@ -4317,4 +4332,5 @@ Partial Class frmStartOptions
Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button28 As Button Friend WithEvents Button28 As Button
Friend WithEvents Label49 As Label Friend WithEvents Label49 As Label
Friend WithEvents CheckBox9 As CheckBox
End Class End Class

195
initATLASAufschubkonten/frmStartOptions.resx
View File

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

60
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -309,7 +309,7 @@ Public Class frmStartOptions
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
f.Show() f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
sendWOELFL_USTVAntraege("al@verag.ag") sendWOELFL_USTVAntraege("FTP", False)
closeMe() closeMe()
Case "SDL_GUELTISBIS" Case "SDL_GUELTISBIS"
Dim f As New frmInfo(PARAM) Dim f As New frmInfo(PARAM)
@@ -333,7 +333,7 @@ Public Class frmStartOptions
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then If von.Contains("@q8.com") Or von.Contains("@ibd.Q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
'---------------------IDS---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) importFileFromIDSMailAnhang(pfad, betreff, PARAM)
ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
@@ -370,7 +370,7 @@ Public Class frmStartOptions
'---------------------UTA---------------------- '---------------------UTA----------------------
importFileFromUTAMailAnhang(pfad, betreff) importFileFromUTAMailAnhang(pfad, betreff)
ElseIf von.Contains("ids.de@q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then ElseIf von.Contains("ids.de@q8.com") Or von.Contains("@ibd.Q8.com") Or von.Contains("isselh@q8.com") Or von.Contains("d.breimaier@verag.ag") Or von.Contains("s.kriegner@verag.ag") Then
'---------------------IDS---------------------- '---------------------IDS----------------------
importFileFromIDSMailAnhang(pfad, betreff, PARAM) importFileFromIDSMailAnhang(pfad, betreff, PARAM)
@@ -3072,12 +3072,54 @@ Public Class frmStartOptions
End Function End Function
Function sendWOELFL_USTVAntraege(art As String, Optional Mail_To As String = "", Optional Mail_CC As String = "", Optional Mail_BCC As String = "") Function sendWOELFL_USTVAntraege(art As String, positionDaten As Boolean, Optional Mail_To As String = "", Optional Mail_CC As String = "", Optional Mail_BCC As String = "")
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt = Nothing
If positionDaten Then
dt = SQL.loadDgvBySql("
SELECT [tblUStVAntrag].UStVAn_ID,[UStVAn_KuNr]VERAGKundenNr
,Adressen.WölflKundenNr PartnerKundenNr
--,[UStVAn_LandNr]
,cast([UStVAn_ReDatVon]as date)ReDatVon
,cast([UStVAn_ReDatBis]as date)ReDatBis
,LND.LandKz AntragsLand
,[UStVAn_Name]Firma
,isnull([UStVAn_Straße],'')Strasse
,isnull([UStVAn_LandKz],'')LandKz
,isnull([UStVAn_PLZ],'')Plz
,isnull([UStVAn_Ort],'') Ort
, isnull(cast( cast([UStVAn_AntragEingereichtAm] as date)as varchar),'') AntragEingereichtAm
,isnull([UStVAn_VZBetrag],'')VZBetrag
, isnull(cast( cast([UStVAn_VZDatum] as date)as varchar),'') VZDatum
,isnull([UStVAn_RZBetragVZ],'')RZBetragVZ
, isnull(cast( cast([UStVAn_RZDatumVZ] as date)as varchar),'') RZDatumVZ
,isnull([UStVAn_Währungscode],'')Währungscode
,isnull([UStVAn_USteuerbetrag],'')USteuerbetrag
,isnull([UStVAn_Erstattungsbetrag],'')Erstattungsbetrag
,isnull([UStVAn_USteuerbetragEUR],'')USteuerbetragEUR
,isnull([UStVAn_ErstattungsbetragEUR],'') ErstattungsbetragEUR
Dim dt = SQL.loadDgvBySql(" ,cast([UStVPo_ReDat] as date) PosRgDat
SELECT [UStVAn_KuNr]VERAGKundenNr ,[UStVPo_ReNr] PosRgNr
,[UStVPo_Leistender] PosLeistender
,[UStVPo_USteuerbetrag] PosUBetrag
,[UStVPo_USteuerbetragEUR]PosUBetragEUR
,[UStVPo_Umrechnungskurs] PosUmrechnungskurs
,[UStVPo_Leistungsbezeichnung] PosLeistungsbezeichnung
FROM [VERAG].[dbo].[tblUStVAntrag]
inner join tblUStVPositionen on [tblUStVAntrag].UStVAn_ID=tblUStVPositionen.UStVAn_ID
inner join adressen on AdressenNr=UStVAn_KuNr
inner join [Länderverzeichnis für die Außenhandelsstatistik] as LND on LandNr=UStVAn_LandNr
where UStVAn_ReDatVon>= cast(('01.01.' + cast((DATEPART(YEAR,getdate())-1) as varchar)) as date)
and (UStVAn_KuNr between 150000 and 159999 OR UStVAn_KuNr between 180000 and 189999 )
order by UStVAn_KuNr,[UStVAn_LandNr],UStVAn_ReDatVon
", "FMZOLL")
Else
dt = SQL.loadDgvBySql("
SELECT [tblUStVAntrag].UStVAn_ID,[UStVAn_KuNr]VERAGKundenNr
,isnull(WölflKundenNr,'')PartnerKundenNr ,isnull(WölflKundenNr,'')PartnerKundenNr
--,[UStVAn_LandNr] --,[UStVAn_LandNr]
,cast([UStVAn_ReDatVon]as date)ReDatVon ,cast([UStVAn_ReDatVon]as date)ReDatVon
@@ -3105,6 +3147,8 @@ Public Class frmStartOptions
and (UStVAn_KuNr between 150000 and 159999 OR UStVAn_KuNr between 180000 and 189999 ) and (UStVAn_KuNr between 150000 and 159999 OR UStVAn_KuNr between 180000 and 189999 )
order by UStVAn_KuNr,[UStVAn_LandNr],UStVAn_ReDatVon order by UStVAn_KuNr,[UStVAn_LandNr],UStVAn_ReDatVon
", "FMZOLL") ", "FMZOLL")
End If
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False,, "USTV_" & Now.ToString("ddMMyyyy")) Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt, False,, "USTV_" & Now.ToString("ddMMyyyy"))
@@ -4829,9 +4873,9 @@ Public Class frmStartOptions
Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked, LinkLabel71.LinkClicked Private Sub LinkLabel50_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel50.LinkClicked, LinkLabel71.LinkClicked
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
If sender Is LinkLabel50 Then If sender Is LinkLabel50 Then
sendWOELFL_USTVAntraege("MAIL", "al@verag.ag") sendWOELFL_USTVAntraege("MAIL", CheckBox9.Checked, "al@verag.ag")
ElseIf sender Is LinkLabel71 Then ElseIf sender Is LinkLabel71 Then
sendWOELFL_USTVAntraege("FTP") sendWOELFL_USTVAntraege("FTP", CheckBox9.Checked)
End If End If
End Sub End Sub