Initial commit

App.config

@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+
+
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="Management_Resurse_Companie.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+            <section name="Quality_Scan.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <userSettings>
+        <Management_Resurse_Companie.My.MySettings>
+            <setting name="serverName" serializeAs="String">
+                <value>PH-OMEN\SQLEXPRESS</value>
+            </setting>
+            <setting name="serverPort" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="serverUser" serializeAs="String">
+                <value>sa</value>
+            </setting>
+            <setting name="serverUserpass" serializeAs="String">
+                <value>Recticel@123</value>
+            </setting>
+            <setting name="serverdatabase" serializeAs="String">
+                <value>calitate</value>
+            </setting>
+            <setting name="adminPass" serializeAs="String">
+                <value>Aquinos@123</value>
+            </setting>
+            <setting name="subnet" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="reason" serializeAs="String">
+                <value>ReadWrite</value>
+            </setting>
+            <setting name="cert" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="timeout" serializeAs="String">
+                <value>30</value>
+            </setting>
+            <setting name="encrypt" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="ServerNameW" serializeAs="String">
+                <value>bewetms252.be.recticel.net\wizpro2</value>
+            </setting>
+            <setting name="ServerPortW" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="ServerUserPasW" serializeAs="String">
+                <value>789uiop.1!</value>
+            </setting>
+            <setting name="ServerDatabaseW" serializeAs="String">
+                <value>bkp2360</value>
+            </setting>
+            <setting name="ServerUserW" serializeAs="String">
+                <value>sa</value>
+            </setting>
+            <setting name="SubnetW" serializeAs="String">
+                <value>False</value>
+            </setting>
+        </Management_Resurse_Companie.My.MySettings>
+        <Quality_Scan.My.MySettings>
+            <setting name="serverName" serializeAs="String">
+                <value>PH-OMEN\SQLEXPRESS</value>
+            </setting>
+            <setting name="serverPort" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="serverUser" serializeAs="String">
+                <value>sa</value>
+            </setting>
+            <setting name="serverUserpass" serializeAs="String">
+                <value>Recticel@123</value>
+            </setting>
+            <setting name="serverdatabase" serializeAs="String">
+                <value>calitate</value>
+            </setting>
+            <setting name="adminPass" serializeAs="String">
+                <value>Aquinos@123</value>
+            </setting>
+            <setting name="subnet" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="reason" serializeAs="String">
+                <value>ReadWrite</value>
+            </setting>
+            <setting name="cert" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="timeout" serializeAs="String">
+                <value>30</value>
+            </setting>
+            <setting name="encrypt" serializeAs="String">
+                <value>False</value>
+            </setting>
+        </Quality_Scan.My.MySettings>
+    </userSettings>
+</configuration>

ApplicationEvents.vb

@@ -0,0 +1,29 @@
+Imports Microsoft.VisualBasic.ApplicationServices
+
+Namespace My
+    ' The following events are available for MyApplication:
+    ' Startup: Raised when the application starts, before the startup form is created.
+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
+    ' UnhandledException: Raised if the application encounters an unhandled exception.
+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
+
+    ' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
+
+    ' Example:
+    ' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
+    '
+    '   ' Setting the application-wide default Font:
+    '   e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
+    '
+    '   ' Setting the HighDpiMode for the Application:
+    '   e.HighDpiMode = HighDpiMode.PerMonitorV2
+    '
+    '   ' If a splash dialog is used, this sets the minimum display time:
+    '   e.MinimumSplashScreenDisplayTime = 4000
+    ' End Sub
+
+    Partial Friend Class MyApplication
+
+    End Class
+End Namespace

Form1.Designer.vb

@@ -0,0 +1,382 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
+        Me.Button8 = New System.Windows.Forms.Button()
+        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
+        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
+        Me.Button11 = New System.Windows.Forms.Button()
+        Me.SqlCommand1 = New Microsoft.Data.SqlClient.SqlCommand()
+        Me.GroupBox1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.GroupBox5.SuspendLayout()
+        Me.GroupBox6.SuspendLayout()
+        Me.GroupBox7.SuspendLayout()
+        Me.GroupBox8.SuspendLayout()
+        Me.GroupBox9.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.Location = New System.Drawing.Point(16, 33)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(312, 56)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Intra in forma de scanare calitate"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox1.Location = New System.Drawing.Point(21, 102)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Size = New System.Drawing.Size(366, 115)
+        Me.GroupBox1.TabIndex = 2
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Detalii Logare program scanare Calitate"
+        '
+        'Button2
+        '
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Red
+        Me.Button2.Location = New System.Drawing.Point(63, 20)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(153, 54)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "Acces Setari"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.BackColor = System.Drawing.Color.Brown
+        Me.GroupBox2.Controls.Add(Me.Button2)
+        Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox2.ForeColor = System.Drawing.Color.White
+        Me.GroupBox2.Location = New System.Drawing.Point(724, 396)
+        Me.GroupBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox2.Size = New System.Drawing.Size(296, 90)
+        Me.GroupBox2.TabIndex = 3
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Completeaza campuri de logare server"
+        '
+        'Button3
+        '
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.Location = New System.Drawing.Point(39, 34)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(206, 81)
+        Me.Button3.TabIndex = 0
+        Me.Button3.Text = "Export master data Clitate"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox3.Controls.Add(Me.Button3)
+        Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox3.Location = New System.Drawing.Point(405, 102)
+        Me.GroupBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox3.Size = New System.Drawing.Size(284, 125)
+        Me.GroupBox3.TabIndex = 4
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Import Export Data Calitate"
+        '
+        'Button4
+        '
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button4.Location = New System.Drawing.Point(16, 38)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(312, 68)
+        Me.Button4.TabIndex = 2
+        Me.Button4.Text = "Intra in forma de scanare Articole Pregatite"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox4.Controls.Add(Me.Button4)
+        Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox4.Location = New System.Drawing.Point(21, 231)
+        Me.GroupBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox4.Size = New System.Drawing.Size(366, 119)
+        Me.GroupBox4.TabIndex = 5
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Detalii Logare program scanare Pregatit"
+        '
+        'Button5
+        '
+        Me.Button5.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button5.Location = New System.Drawing.Point(39, 20)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(206, 81)
+        Me.Button5.TabIndex = 0
+        Me.Button5.Text = "Export master data Pregatit"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
+        'GroupBox5
+        '
+        Me.GroupBox5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox5.Controls.Add(Me.Button5)
+        Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox5.Location = New System.Drawing.Point(405, 241)
+        Me.GroupBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox5.Name = "GroupBox5"
+        Me.GroupBox5.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox5.Size = New System.Drawing.Size(284, 109)
+        Me.GroupBox5.TabIndex = 6
+        Me.GroupBox5.TabStop = False
+        Me.GroupBox5.Text = "Import Export Data Pregatit"
+        '
+        'Button6
+        '
+        Me.Button6.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button6.Location = New System.Drawing.Point(14, 37)
+        Me.Button6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(341, 47)
+        Me.Button6.TabIndex = 0
+        Me.Button6.Text = "Inregistreaza Tichet Mentenanta"
+        Me.Button6.UseVisualStyleBackColor = True
+        '
+        'Button7
+        '
+        Me.Button7.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button7.Location = New System.Drawing.Point(14, 179)
+        Me.Button7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(341, 47)
+        Me.Button7.TabIndex = 1
+        Me.Button7.Text = "Management Tichete Mentenanta"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
+        'Button8
+        '
+        Me.Button8.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button8.Location = New System.Drawing.Point(14, 106)
+        Me.Button8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(341, 47)
+        Me.Button8.TabIndex = 2
+        Me.Button8.Text = "Prelucreaza Tichet Mentenanta"
+        Me.Button8.UseVisualStyleBackColor = True
+        '
+        'GroupBox6
+        '
+        Me.GroupBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox6.Controls.Add(Me.Button8)
+        Me.GroupBox6.Controls.Add(Me.Button7)
+        Me.GroupBox6.Controls.Add(Me.Button6)
+        Me.GroupBox6.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox6.Location = New System.Drawing.Point(710, 135)
+        Me.GroupBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox6.Name = "GroupBox6"
+        Me.GroupBox6.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox6.Size = New System.Drawing.Size(366, 248)
+        Me.GroupBox6.TabIndex = 7
+        Me.GroupBox6.TabStop = False
+        Me.GroupBox6.Text = "Inregistrare/Administrare tichete mentenanta"
+        '
+        'FlowLayoutPanel1
+        '
+        Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.White
+        Me.FlowLayoutPanel1.BackgroundImage = Global.Management_Resurse_Companie.My.Resources.Resources.AQUINOS_BEDDING_AQUINOS_GROUP_copy_32
+        Me.FlowLayoutPanel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(21, 4)
+        Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
+        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(366, 83)
+        Me.FlowLayoutPanel1.TabIndex = 8
+        '
+        'Button9
+        '
+        Me.Button9.Location = New System.Drawing.Point(75, 38)
+        Me.Button9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(235, 59)
+        Me.Button9.TabIndex = 0
+        Me.Button9.Text = "Lansare Modul Etichete"
+        Me.Button9.UseVisualStyleBackColor = True
+        '
+        'GroupBox7
+        '
+        Me.GroupBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.GroupBox7.Controls.Add(Me.Button9)
+        Me.GroupBox7.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox7.Location = New System.Drawing.Point(710, 11)
+        Me.GroupBox7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox7.Name = "GroupBox7"
+        Me.GroupBox7.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox7.Size = New System.Drawing.Size(355, 115)
+        Me.GroupBox7.TabIndex = 9
+        Me.GroupBox7.TabStop = False
+        Me.GroupBox7.Text = "Modul Etichete"
+        '
+        'GroupBox8
+        '
+        Me.GroupBox8.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox8.Controls.Add(Me.Button10)
+        Me.GroupBox8.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox8.Location = New System.Drawing.Point(21, 367)
+        Me.GroupBox8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox8.Name = "GroupBox8"
+        Me.GroupBox8.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox8.Size = New System.Drawing.Size(366, 119)
+        Me.GroupBox8.TabIndex = 10
+        Me.GroupBox8.TabStop = False
+        Me.GroupBox8.Text = "Detalii Logare program scanare Pregatit"
+        '
+        'Button10
+        '
+        Me.Button10.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button10.Location = New System.Drawing.Point(16, 38)
+        Me.Button10.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(312, 68)
+        Me.Button10.TabIndex = 2
+        Me.Button10.Text = "Intra in forma comenzi cusut"
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'GroupBox9
+        '
+        Me.GroupBox9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox9.Controls.Add(Me.Button11)
+        Me.GroupBox9.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.GroupBox9.Location = New System.Drawing.Point(405, 360)
+        Me.GroupBox9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox9.Name = "GroupBox9"
+        Me.GroupBox9.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox9.Size = New System.Drawing.Size(284, 126)
+        Me.GroupBox9.TabIndex = 11
+        Me.GroupBox9.TabStop = False
+        Me.GroupBox9.Text = "Import Export Data Cusut"
+        '
+        'Button11
+        '
+        Me.Button11.Font = New System.Drawing.Font("Segoe UI Black", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button11.Location = New System.Drawing.Point(39, 32)
+        Me.Button11.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(206, 81)
+        Me.Button11.TabIndex = 0
+        Me.Button11.Text = "Export master data comenzi cusut"
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'SqlCommand1
+        '
+        Me.SqlCommand1.CommandTimeout = 30
+        Me.SqlCommand1.EnableOptimizedParameterBinding = False
+        '
+        'Form1
+        '
+        Me.AcceptButton = Me.Button1
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1088, 520)
+        Me.Controls.Add(Me.GroupBox9)
+        Me.Controls.Add(Me.GroupBox7)
+        Me.Controls.Add(Me.GroupBox8)
+        Me.Controls.Add(Me.FlowLayoutPanel1)
+        Me.Controls.Add(Me.GroupBox6)
+        Me.Controls.Add(Me.GroupBox5)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form1"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Management Resurse Companie "
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox2.ResumeLayout(False)
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox5.ResumeLayout(False)
+        Me.GroupBox6.ResumeLayout(False)
+        Me.GroupBox7.ResumeLayout(False)
+        Me.GroupBox8.ResumeLayout(False)
+        Me.GroupBox9.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents Button3 As Button
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents Button4 As Button
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents Button5 As Button
+    Friend WithEvents GroupBox5 As GroupBox
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Button7 As Button
+    Friend WithEvents Button8 As Button
+    Friend WithEvents GroupBox6 As GroupBox
+    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
+    Friend WithEvents Button9 As Button
+    Friend WithEvents GroupBox7 As GroupBox
+    Friend WithEvents GroupBox8 As GroupBox
+    Friend WithEvents Button10 As Button
+    Friend WithEvents GroupBox9 As GroupBox
+    Friend WithEvents Button11 As Button
+    Friend WithEvents SqlCommand1 As Microsoft.Data.SqlClient.SqlCommand
+End Class

Form1.resx

@@ -0,0 +1,274 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SqlCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>66</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAAAAAAAEAIABqLwAAFgAAAIlQTkcNChoKAAAADUlIRFIAAAEAAAABAAgGAAAAXHKoZgAALzFJ
+        REFUeNrt3XmUXFd9L/rv3vvMNVd1DT0P6tbQ3ZIl2fIsYwsPwibYGDCJeTySxWWRhLzFNQ4hPD/uZbiX
+        wAsJIQOElVx4WQ8SMINtDH7YDjbGAx4lW/Pc6lE9d3XXfKb9/pBtCJarTjuy1W1+n7WaZbR27Tr1O3t/
+        69SpU/sAhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEII
+        IYQQQgghhBBCCCGEEEIIIYQQQgghhJCA2K//n/h1fwomVPi1IqT0z/GGMTChQEqJxX//Cu0psurErv4o
+        GGOQngsJeW7nE+PgehjSc5C//0u/+vf4DZ9Eec99ENEsvMVTcGeH0P0PBaX43PcVMH5utlZKMNWQk195
+        e03NrQU3YtC7t8ErTKP07PdpZJEVK3TBuyEiGdSGnoFfXYQzeQS5j/5Yl06VgbFzNJ98hM9/tzv0kYir
+        NHVDxJrhLU3D2vS200cAeudWaF3nh5yJgzvc+dFNslbqhKJGzlloMQBS+vCccSXRNiyi2YfL+x84ENpy
+        E7zCNKrHnqCRRlYco/dSiEgGpd13wxq4tt9bmrrKXRjrhFBbwRg/p/PJdQpMDw0ryfY9akv/Q/bJZ0u1
+        4V1gIpSE1jq4xpkd+pRXnLsZnh2RnrsyKso4mFAk00OHlVjzF6zzfuffnKkjNlMNFJ/6NxpxZMUIX/R7
+        kE4VanatVn7h3t9zF0/9uayV1knPZTjHH6dfnk5CAYRWEOHUD9Wm7s/Z4/uOI7T15rSI5u4B5xLAiv1j
+        mrmotQ7eCgDx626jEUdWlJfGpNY6eCvTzMWVPJfAuRTR3D2hrTenBXz3497i5Afhu3xFV9hzdem7fcba
+        7fc7pw7nvfwEjTqyYkjPhdY62O1MHv57WS10rOyNlYBrr5FercKlXXmv9GxlVRS5Vtogq4XLpV1G/IZP
+        0qgjK0L8hk9C2mXIauFyWSttWBVzybMVaVfeq/jVwppVU2nfU925k53SqdKoIyuKt3gKfnmhE76nrprp
+        VC2s4X5lSVs1VWYAuPDBV8UBC/ltwpXTY5Otnk32K0saxzm+QGF5RRa2kuwcEpEMDTiyoohIBkqycwhc
+        2Ktnq+XL/7sq/kQ49ZQ1uLNN795GI46sKHr3NliDO9tEOPXUappTqyYAuB6e1to33wgAyVv+kkYcWVFe
+        GpNa++YbuR6eXi3zSgD49EotKhMKmKLawoo/pzR1/1lk+x/cyxRDSrsMe2Q3jTqyYijJDiipToTOf+dR
+        d27kMHynB9JPM8bESrkQ6IxzDEFPAnBhcyNyl6yVjuGN+JEAgxTRTFlJdp7gRuTR8r6fjllbboK3MI7a
+        yWdoxJEVR+/aBpFoRXn33bAGd7b51cJ2d364x1uatiDfiNOD0md6qNevFt4J3wt8cj/YlXiKtmj2X3Pt
+        G1lQHkpAaxmA3r0NyVv+EpHtH6RRRla0yPYPInnLX0Lv3gatZQA8lHhDn9/sv+ZapmiBr0RczvdpDJ7D
+        tLZNsDZd/4a+qPx9X0BtiN71ycpXePR/vfzf8ev//A197vKe+wDPYUDwo43lfqHO4HvI3/cF2tOENPBG
+        zxOtZQDLmfwAsLKv/yeEvK4oAAihACCEUAAQQigACCEUAIQQCgBCCAUAIYQCgBBCAUAIoQAghFAAEEIo
+        AAghFACEEAoAQggFACGEAoAQsvKsmFvs9GzciumRIVjRGIr5BTD2q4VNwokkfNfFzPjIa+o729ENRdWw
+        ND8Dz3XBuYDnuQhF4+gZ3IrpsZM4eeCFZffb3N0HVVVRyM+jWi5BKCo8x4ERDiOSaIJr1zBx4siy++3a
+        sAmxVBrjJ46gtJSHEAp8z4NQNURTKbiOg6nhE6+pxvmZSaiajkJ+HuzFxWMkJCLxJBy7hng6hxN7dy2/
+        xp09UFQVS3Nz8BwbXPyqxq09a7E4N4OTB/csu9+WnrVQNB2FhVlUi0UIVYXnOjCs0OltdhycGjq6/Br3
+        n4dMWxdO7Nv1qxr7HoSiIJpMw3VsTI0Mvabxlm7tAFcUFBfmX/43KSXC8QTKS4vIdHS/phq/HlbEEUC2
+        oxu+54JxjlA0bghFadcM42rVMK7kitIaTTZpjl3DhgsuReuadcuaSLfe/hk4tRo61g0IoSg5VTcuVg3j
+        eqGoPbpphXc9fB+cWgWp5tZlbXMi0wzXsTFy5ACEqqVUTd+o6cY7FE0fUFUtOXJoL1zHQSLTvKx+U7lW
+        2LUq9jzxEHTDjCiqukYzjBtU3bhQKEq2/6IruFOrQkqJrv7zlhFWveCcwXMchOMJXQilTTOMHZph7BBC
+        aQvHE7rnOOCcobm7d1kTSUoJp1ZF/0VXcKEoWVU3LtQM4wZFVdfohhnZ88RDsGtVpHKvpcYORg7thapq
+        SUXTBzTdeIeq6RuFqqVGjhyA69jLr3FzK5xaBbsevg+6aYWFovaohnG9qhsXC0XJdawbEE6thltv/wy6
+        NmwK3G/rmnXYcMGlcOwaoskmjStKq2oYV2qGcbVQlPZQNG4wzuF7LrId3SsiAE6/AQRbFXjJXHflzhfX
+        HTtruvo3oWdwy+kdnm0eNMORbyqqdpJzvsg5X1A07YQZiX41mWvtBYCBi694uX0jH/u7f30xkTuzVjT2
+        WVXXDzHO5zjnS0JRxgwr9KN4U+aK6z/wYdbS3YfmrmADP5ltQbq1A+3rBqxwLPEB3bSe4UJMcS6KXIhJ
+        3bSeDMeTv9e5YZORbu1AMtcSLAg7e5DrXIOtb72ex5oyOwwr9BOhKOOc8wLnfFbVjQOhaPyOTHtXk6br
+        gWvcPbAZa7de+NK2rzfDkX9SVG2Ic57nnOcVVRsyw5F/SmZb1gPA2q0Xontgc+D+NV1Hpr2rKRSN36Hq
+        xgHO+SznvCAUZdywQj+JNWV2bH3r9TzXuQbZzp5gNc6drnHnhk1GOJ78Pd20nuRCTL5Y4yndtJ4JxxIf
+        aF83YKVbO5DMBqtxc1cvWrr7cP0HPsziTZkrDCv0I6EoY5zzJcb5nKrrh6xo7LPp1s4sAHzsb78VqN+e
+        wS0YuPiKF7e9tdeMRL+qaNoJzvkC53xRUbWTZjjyzUS2efCl9l39wcMl0H5oGYC57sqdTNGWcLbvDPR6
+        BcD77/g8NMNEIpO7XNWN/YyxVz43Y1LTjaeS2ZZN4ViwZZZTza2Ip7Noam5rMczQvYxz/0yvS9G08Ugi
+        dcvpnbK1Yb9tfRuQ7ehBz+AW3YrGvsiFKJ+pXy5E0YrGPr1+26VqrmsNOtYPNuz7pTbhePL9iqpNnnE/
+        cO4ZVvgH6daOTCKTQ1NrsFvRW5EoEtnmbapu7H61Gqu6sTuRbd5mRaKB+mxq7UAik0O6tSNjWOEfMM69
+        M9ZY1SbD8eT7f/01NqpDrmsN1m+7VLWisU9zIYqvUuOyFY19sWdwi57t6EFbX+M7c7+0jyOJ1C2Kpo2/
+        So19wwzd29Tc3hJPZwMfHYZjCSSzLZs03XiqTo33JzK5yzXDxPvv+DwFQCKTQ6a9q0k3zfvrbgNj0rBC
+        323p7osEeUfNdnSj/+LtihWJfpFxXve1qbq+L9Xcuj7WlGl4WN354iFhOJ68hQulUK9foSgLkUTqHQDQ
+        vXFLg343IpZKI5lt2aRq+pG6+4JzPxSNffb8q28QuQCH64lsM3KdPXHdtO5ptJ9107on19kTT2QbH1bn
+        untx/tU3iFA09tlXC9iXa6zpR5LZlk2xVBqdGzbW7felWkUSqXcIRVmo1y8XSiEcT97y6/vm1XT1n4dY
+        Uwap5tb1qq7vq1tjxqUViX2x/+LtSpDD9WSuBS3dfRHDCn0XZ5j8/7HG5v2Z9q6mRCZ3zgPgnJ4D6Nyw
+        CY5tw65Wdjq2c2XdxlLCrlV3VsrFy+xqFT0b679bFxbmMHbkYHutUn6v9Ovfmsm1nYHS0uI7CvNzUHWj
+        bttqqYCOdQMx17E/7HtuuF5bz3Xjjl37UO+mC8K1YrFuv1woWJybQWkpf6Pr2H11S+H7rFYp33rkuSeb
+        l2Zn6k+mgc1w7RpqlcoO17avabRPXNu+5nTbWsOPAUuzMzjy3JPNtUr5Vun7dZejdh27r7SUv3FxbgZc
+        1D/3XCsW0bvpgrBj1z7kuW68Xlvfc8OuY3+4Y91ArFoq1O1X1Q0U5udQWlp8h2s7A/WHm49apfTesSMH
+        2wsLc3X77dm4FXa1ikq5eJldq+6ErH+zLcd2rjw95u2GofV6O6cBwBhQzM+jUiz0ySC3MpIyalcrg65j
+        n35wvRfGBYSibJG+TDfu1of0/c2Dl7zFqBQWGwTLPBamJ6Ouba8J8ho9190wOzEaLeTn6w/6cgm9my8M
+        g7FtUja+W5vveRlFVQcZb7wMfKVYQLVcXO9L32zYr/TNarm4vlIsNN5/nEFR1UHf8zKNaywBxrb1br4w
+        XCuX6tc4P4/ZidGo57obgtTYte01C9OT0cJC/RpXCosYvOQthvT9zTLA/fqkL9NCUbZwLhoOZNexYVcr
+        g5Ay2rhfT6sUC33F/HyjYfz6BwBTzWB3LpTS9p3KgnQqZ+3Jfd/HJTe8S5NSdgYa9L6ParEYq5aKQIN3
+        dd/34bpuNxisQGHE+dr5yYmwXas2qgOEUFq8Bu/+vxqctbBj12K1Srl+AFRKKMzPhBgQ7CwZYyHpy17W
+        4D4QUkoctW3m2LVsoyOh04PTh2PXskdtmzXaJwwM0pe9YCwUaJOBnsL8TKhWKTWoRRmOXYu5di1QjT3P
+        DQuhtDR657VrVcxPToQZ52uD1RiW67rdfqO6+T6qpSKqxWLMD1JjKSGl7LzkhndpQdoHJZ0KfKeyACnt
+        QC9PNX0uQsnJQI318BJ8b4ypxtmLHwlUikXOGAt8SltKXwRrJyF9XwS89Skgofq+xxtNEsY5GOc6gh89
+        MS6EyjhvOPGk7zEpA9+ujUspRZCX94nb/jtnjAW+WSRjTPvEbf+dNy4ZIKUUQWshpVSk77EgNeZCqAh+
+        lxvOONeD1Nj3PQ4JNej4lL4vgrw5LWdsvlhjvVIs8sDjM9CENgDfG2N6eClIexFKTnII5cHGN/tl4Gbk
+        ObP/moWzfRJwBZGrbDsCby8Ty/+kt8zHnPVt/i3Z12eV1jIAs/+aBW5GnmuYnYwDQnmQq6nOLwsrvr9e
+        W25GJ5RY81cKj/5zObzlpjdrABCyqoW33ITCo/9cVmLNX+FmdKJeW2HF96upzi/zypFfvKAkOz4uQqk9
+        +M2THYyDW/ETSqLlz7q//uTj1qbrUR1+jipNyApUHX4O1qbr0f31Jx9XEi1/xq34iVcc3XMBEUrtUZId
+        H68c+cULSvzajyH/wF//f+b6q445U0duhcTlUnodjIsp6Xu/VNM936kee2L36B2/C6+0gMLj/0KVJmQF
+        yj/w1zAHrsXoHb8r7YmD3zZ6Lz3gzJz4XcbFJdL3soyJETA8pmbX/mvl0MNH49d+DIq7NIXEOz+H8gs/
+        OeoujH8mft3tUXt8n6Wke2qLD311wei+ANGr/ghefgKV/Q9QlQlZwSr7H0Boy42IXvVHqA09vdvNn9od
+        2/HHCXfmhK61Dpbz9//Vkki0I/HOz8E5dQhK8clvAwBiOz4Cs+8yuPOjS36tuOQtTiJ+zUehd23D0sNf
+        o8oSskqUdt8DAIhe+YeIX/NReIuTC36tCHd+FPHrbod0qli461MAfu3nwIsP/QNVjpA3kaWf/2PDNrQg
+        CCG/xSgACKEAIIRQABBCKAAIIRQAhBAKAEIIBQAhhAKAEEIBQAihACCEUAAQQigACCEUAIQQCgBCCAUA
+        IYQCgBBCAUAIoQAghFAAEEIoAAghFACEEAoAQggFACGEAoAQQgFACKEAIIRQABBCKAAIIRQAhBAKAEII
+        BQAhhAKAEEIBQAihACCEUAAQQigACCEUAIRQAFAJCKEAIIRQABBCKAAIIRQAhBAKAEIIBQAhhAKAEEIB
+        QAihACCEUAAQQigACCEUAIQQCgBCCAUAIYQCgBBCAUAIoQAghFAAEEIoAAghFACEEAoAQggFACGEAoAQ
+        QgFACKEAIIRQABBCKAAIIRQAhBAKAEIIBQAhhAKAEEIBQAihACCEUAAQQigACCEUAIRQABBCKAAIIRQA
+        hBAKAEIIBcBvEwa27Ecshwzchr0uz/96Vy9ou+B1eP32BVtRtTunlDfrC+OcQwhRfXHIBdnhJaFprud7
+        dRv5ngvPc5YAOIHGGmOe77llwK/bTigqhKZ5jLFKwJfoMs4rjJ27scwYwDirAPAAiAC1qAhN8xrPbx++
+        55YZY56UgdLA8Txnyffc+mNCUSA0zQVQChgUUghRlb7/pg2AN/URAOPiAKQsBGnru+6ejZfvWNQMs247
+        RTPAuTKtqNpikH5VXV8ww9GCFY7VbadbIWTbu5ek7x8I0q+UcklKf0+jQf968j0PUsp9UsqlQNvs+wey
+        7d1LuhWq284Kx2CGowVV1xeC9Kuo2iLnyrSiGXXbaYaJjZfvWPRdd0+gFyhlgXFxAG9ib94AYAzS9/YJ
+        RR1pWAQhfFU3dj/0nW96o4f3120bjieQbu3IK4q6K1CBufJUrrs3b8XidduFwlHsfeLhGleUpzhvvFtU
+        VRvmnB8XqnbOSiwUFYyxo4qqDTeuAwdXlKf2PvFwLRSO1g+AWBy57t4858pTgQJAUXelWzvy4XiibrvR
+        w/vx0He+6am6sZsL4Qd4fSPS9/aBvXk/MbxpAyCezmJxbmZSN62/50LU6g4gTXswFIv/0AxF0DO4pW6/
+        qeY2jBzeW9Yt6+8UVRuvO0k1/aQRCn11aO+u2oZLLqvbr12rIppsQjiW+L6i6Y80CKyyZlp/szA9ORNv
+        yp6zGseassjPTM3opvU3XIhK/Rrrj4Rjie9Hk02wa9W6/W645DIM7d1VM0Khr6qafrJuv6o2rlvW340c
+        3ltONbfV7bdncAvMUAShWPyHiqY92KDGNd20/n5xbmYynj53NaYAeI1cu4Z0awfi6ey3DSv8ZaEo+d9s
+        wziHZpiPhCKxT+VnpmZu+9tv4MS+3XX7Lebn0dTaidv/8c7Hdcv6hKJpJ19xioExqJp+TLesjy9MTz6b
+        am7D8d3P1e136MAL2HTpVZidGJuwIrE7NMN4grFX7h6hKPNmKPx/p7It38u0d8G1a+e0xpn2LiRzLd8z
+        Q+EvCkWZf0WNGYdmGE9YkdgdsxNjE5suvQpDB16o2+/x3c8h1dyGhenJZ3XL+riq6cde+S7MoGjaSd2y
+        PnH7P975eFNrJ4r5+br9nti3G7f97TeQn5maCUVin9IM8xHGz1jjvGGFvxxPZ7+dbu04pzV+vYlz+eSx
+        pgzMcFSZHR+5yXOdwSCPYYw9JqX8WSLTjIXpyVdtV1rMQzdNSN+3W7r6flEpFfcyzn1FUbkQoqDq+vOq
+        pv9TJJH6b/OT44e3Xfs7ePSeO5Gfmar7/PmZKeiGiV0/+zHmp07tjabSj0PKmqJqnHNhq7p+RFG174Wi
+        8TuW5mYebl2zHna1gvFjhwLVpGP9AIYP7R1NZJoflNKfVxSVcS6kommjiqbdb1rhz/QMbv6XhelJ27Vt
+        zIzX/4QTT+fQ1reBH3z6set9z7sg0KBQlGc3XLj9vvFjh2S9ehQXF6CZJnzXdTrWDTxeXlp8HqdrzIQQ
+        JVXXn1d1/RuReOpT81MT+zZdfhWmRoawODtdv8bTk9CtEOLpHOZOjR2IpTK/gJQVRVU558JRdf2Yoqo/
+        tKLx/6swP3v/oacfhV2tYuLEkYavbejAXvRtuRDHnn92IpFteUD63tyLNfYVTZtQNO1Bwwr/j46+/n8q
+        LMxVXcfG7MRY3T5fGouMsbdKKbcHqbGiqvvSrZ33VIoFd3Fu+pzNwTfttwAAsDA9iWSuBQszk061VLx3
+        w0XbHzg1dCzm1CpKPJ0rnTzwwqIRCuOSt78L48cOY+TQvkD9zk6MItPeiY61/ViYmXr26ls/uHvXQz+N
+        l5byejiWqL3lnf/bwo+/8RW/c/1GVMslTI+eDNTv8KF9aF/bjy1XXouTB/aOVoqF/9G1YdPf5WcmQ5pp
+        uW296/P7f/mIPTM+At9zsTB96tzXeOoUUrkWzIyPuLVK+acDl7zlobFjh+J2pXy6xgf3LBpWGFuuvBaz
+        E2MYPRLsnNr06ElkO3rQuX4jFqZPvXDzH3/iTx+561uJ4uKCHorGa1t37Mw/8oNvex1r+1GtlDA7MRqo
+        35MH9sD3fVzy9nfh0DNPTFSKhb/o6j/vq/mZyZCqm25zd+/iwacerS3MTMLz3LpvMm8Gb+oAAID5yQl0
+        9Z+H7oHNmJ8cr3mOPe25HqqlIrr7z4Pnefjlj3+w7H6nR4fRM7gFQlWx59GfeU6tOud7HuxaFY/d+12Y
+        4SiEqmJq5MSy+h09cgCjRw6gY90AYk1pVEulRd/zFl3HxszYMLo3no9auYhTJ4+vmBrPTU6ge2Azujee
+        j5mxYdt17Gnf81Atl9DVvwm+52H3zx9Ydr9TIyfQs3ErzHAUj937Xd9+scZOrYo9j/4MQlWhaDqmjyzv
+        RP3IoX0YObQPHesGEU9lUCkVFz3XW+TcxvzkOLoHNsOuVTE5vHJqTAHwn3DyDJ85Cwuz/+l+XzpfkP+1
+        d4nCwtxZ2eaRM3wbMT85sWJrPLT/+Vf829JZqMWJvbvOsO9+1W/+P/EOPXL4lUd881Mrt8avB7oSkJDf
+        YhQAhFAAEEIoAAghFACEEAoAQsib3MtfA8Z2fARMNeDOj8LNj0NEMlCS7ZCujaWf/+OqfpHrLrsMi88f
+        R7i3FaXFPOxaDeFYAlyczr+h/S+85r5b16yFoqooFwpwbRuqYUCzwoD0MXbktf+QrKNvAIKrqFSXYFer
+        UDQNhhWClDLwxTRvtI51A6gUC/A8F57rQtE02DUbQlGQ/098vda5fjM402HbeTh2DYqqwTIMuL6PkwEv
+        3jqTSCIBz/OgqBoYY2CMA1ICjCM/s/ovAIpe+YdgigZ3fhReYRpKvPX0nHaqWHzoHwAAPHzx+5B45+dQ
+        Pfkc8vf/FZRke5Tr4ZyI5RL5B7+C2slnEL3qjxDacuOqLEIincPC8DiWeAUX7NgpNMNsUlQ1G0k2hYb2
+        v4Dp0ZO49L2/j1Rrx7L6bevrR9+WS1EpFXHy4D5ohpESqtqsGUZy7PA+5KcnEc/kEE2ll9fvmvXYfPk1
+        WFyYwdDh52GEIlFFVXOqZqTXn3+pWJqbRduadUgvc3tfT5phwAyFMTV8AtNjw9B0I66oaiYcSxiF+WmU
+        FxfQsW4AkURqmTXegIFL3oLFuVMYOvgUIsmUpep6OhJPho4d2IP87AzWbb0QrWvWLqvfcDKJwet2oFap
+        olIowrAsSyhqRlG15LoLLuO1ShmpbDOiy9zelSK05UZEr/oj1E4+g/yDX4GI5RJcD+eUZHs0f/9foXry
+        OSTe+TmEL34fFCWaxcJdn4K5/qo+JdF6a/Gp71wupddhj++bUuJ3/VJN93xn6eGv7Q5f+F6YA9eisv+B
+        VVOIRKYZQlERisb0Srlw7d1f/5sbGOcXSN+3luZmj+pW6CHOxfeeu+e7E+/6ky/i6bu/hWPHnm7Yb2vv
+        Bqi6gaO7n0CmrfOCUCT6Ht/3r5BSJov5+TndCj3MhbjTrVZfSLV1INvZjaO7Gve7futFiMRTeOah+5Bq
+        bu02QuFbTg0d3QGwTsZZ+dF7vvOkEQrfueXSq3+x55lH/JY1azFx/Mg5rXEslYbvuZCeJ3zff4uq6Tdw
+        Ic4HkFiamz2kqPrjjLMfLEyfGu+/8C0AgKfuv6thv6nmNnDOsf+XjyDV0tZpWOFbhvY9fzHjvGt2fHRU
+        t0JPClX93uFdTx9vXzeAprYOzI41/OU32vr6oYcsHH/0GTDOc4qqvnt+8tRVXIg+SBR3PXzf05pu/rBz
+        ff9jR/c+74fjCRTzC1gtzIFrwVQDSw9/DUbvpVuUePPvMi4ukb6Xtcf2jSiJ1se4Zv7rwl2fOhq/9mOn
+        H6S3b36bCKVeABcSpxdkOv3HuORW/LjWsuF9Gx6ULHLZB/Dyg86CjnWD2PyW6wzdtP7tPzxvnT/O+ecB
+        NPzZbktPHzLt3ejqP8+wIrFPcyEWf7MvxphUVO2BeKZ5fTiRgBrRG27zpk2b0LflYgBAvCl7s2aYQ4yx
+        M/SrHok1Zd4OAFveuhPvec97AtVEt0JIZlu2qLrx+Jn71aYiieR/3bpjp969cQsGL7+6bn9d/efhvbd/
+        Wqi6/rWgNVZ1/Wvvvf3Toqv/vPo1XrMW6dYOdPVv0nTTup1xPn2mGgtFeSjV3LoZAP7ih78MVIdsRw8A
+        IJpouk7TjacZ46/oV9WN3ZFE6gYAaOldj1gs1rDfi69/1+ngaspsFIpyP2PM/49jnkkhlEkzFLk929Ft
+        JjK5hkcuL43FF8dmoBrrpvVvm99yndGxLtBv4AKJX/sxRC77ADY8KJnWsuF93Iofx2/UDVxIEUq9oLdv
+        ftvpxFh7xXkilNxXd9KZsXGj56LLRSSN3Ie+vSoCoGdwMwAgHE/eyoUovlp/jDFpWOFvtfX1h1PN7Q23
+        ObdhM+KZZqSa2zdpunG03raa4ciRnsEtW1p61iLa3le33x3v/gNk2jrR2rM2YVihHwHs1Seopheau3rf
+        BwAXXv+ecxYAfVsuPF3jWPwmLkT+VftkTIZjiQfWb7s827lhE6686ffr9pvINCMSTyKWSq9TNa3u2FQ0
+        7XAkmdoUjifR3L+5br+qaiKSTCOVa8+puvHv9fplnJdUTf8DAIimmlZFAOQ+9G2ISBpGz0WXczM2Xu/5
+        RSi5z1x7xXncmRu+zSvnB+p17FeWWtzFUx+NbP8vVnH33VgNpsdHEM/mcrVy6Tbf8151DSopJexa9ebF
+        uem3VcsFdK6vv0PCKsfghZdotXLhTxy71luvbbVc6ps9Nfb7O97zv4uWbINB1NuPmYkRFBcXbrZr1bfV
+        WxnTsWvhpfmZj3Ru2JQcPbD7nNV44vhhRBKpRK1S+Zjvea/+9islKqXijsnhY++YnRjFz+/+f+p3LIFM
+        a7eolksfdh2n7th0bXutXan8SbqtQ3Py9X974DgVuHYVldLijZ5jX1V3E3zf8n3vTwwrnK2Vy6tizBd3
+        343I9v9iuYunPupXllrqtfXK+QFnbvg2Ds+9BrLR6kgSfqVwfuXAgwl7Yv+qKIb0JZhk53mus65xW8+s
+        lYpbS4t5sAZfjBby8zh5aH/S87wrGi1YKX0frm1f9sRPfpgoNPgc+cTD9+KmP/6E6ti1y33Pa/gjrWq5
+        3FsrFzrKxcbL8Ulv+YtaBnmMXa3Arla6Xcfe0Kit5zqiWiqe/6H/9jdi4MIr6rZ1PQfzM+NJ3/euCrIo
+        qOe522fGR5KNahFNphFLZTW7Wrnc9/2GX4H7ntfnuc4W13GwGtgT+1E58GDCrxTOb7i0svQBz72Ge6X5
+        XKABUStGwUWbdKpnb4sZYIbDvpQy8JIrjHEvYNeQ0u8FY6GGr01KMMH7Bi65wnLd+t2XCwVUS2XLqVUj
+        QbbDc51MYWHWLC3l67YrLc3jwJOPRBjjAU9pyyjjol8ojX/Q+cUvf8aXUtqBJ7+U9he//JmGCaCoOlTd
+        WAfGwkH6FYoy8MCd/xwtl+pP1EpxCcX8gu45bqDT8K7jxEr5hVClUL9fw7IgFBFWVK0n4GCzVN3oUjUt
+        YPNgY/PFGtfMcNg/mwuUS6cKcNEma8VooLFZms9x6VR4wFencdVMMNU8axvMOccvf/IDmzE2HGR5a845
+        jHB40QiFAR5ks9kMJAINfOn5U5ded3OVNzgE0E0Lqm7YiqoFCi0uRFE3LUdvsNqwYUWQbmmvSCmDfmFe
+        gZTjvuc12G0MfZomVU2fYgFqxjiHqulTfZomG+0T17Xh2rUJSBnoXUH6/ngy21xR9foTStMN6KblciEC
+        Ld8thKjqplXVjPqrAqu6gUSmuez7/nDAGpe5ECcbLgrKOYxQGEY4vBhkQdfT1xyw4V/+5Ac252fvWjym
+        muCqmQBjgRJLOhV+Tq8ElBIIx5Mww5GjjIvGE5WxJc0w9ymqdvrBdfi+B+m5zzLOGl7RwbmAahgHv/Wl
+        T/meVn95pnAsgVRzS14oaqCrcbgQL7St689HkvXPAbR2tOOxH91Z4Zw9G2hVYE2fAsMRRVUbtjXDERhW
+        +BBnvOE9BzjjFcMKHzLDjQ9wOBcAwxEuRKAaC0XZ/diP7qx2dHXVbWtF4kg1ty1yIQIt3y2Esj+aSi+a
+        DVYbFqEQDj79aJUL8XyQMBRCTErp72345iQlFFWDZpj7wFjDz2SMC9sMR46G40nI5d8E5aw6pwEwfHAP
+        VE2DZpg/VTX15w0mPzTd+KlphR/XDOOMC0X8umiyCd0D5w3rVuj/ZZzXLbOiqk+aociPNMOEWuivHwCJ
+        BPb98pGiqutfF4qar9dWM8x8LJn+zv7HH6mm2lrr9lssFpHKtSIUS9ylqNreugNTURBJJL9744f/61S2
+        s7tuv0P7n4ei6dBN86FGK+ECp1dIPt1WP+MiH78Zhhdd/Y5JTTe/wXj9w1/DCh1L5lrva+npw+Ji/Tmi
+        6zomThyuaLrxz0JRZhoEbF7Vja9Pj54shmL1Q9a3baSa25DMtvxEN63D9Scp9zXD/ObWt95wqtHFXCf2
+        7jp9MZQVflzTjZ82OmJQNfXnp8e8huGDwW5R8HoK9LUFU7Qlc92VO7WWgbP65O+/4/PQDBOJTO5yVTf2
+        /+Z333jxqzpNN55KZls2hWOJQP2mmluRzDQj297dZFihH7wYAmf6Su1ErCm7EwA2X3VNw37XnX8xWtas
+        xfpLLlPDscSnhaKWz9SvUNR8rCn9iRs++H9o/Rdvx8btVzXsu3fztpfC62bNME7hDLXgnDuhWPxb686/
+        KN2xrh+9550fqB5WJIpEtnmbqhu7X63Gqm7sTmSbt1mRQB8hEW/KIJ7OItPeldBN69uv+E79VzUeSTW3
+        3gIAl15/U8N+s+3dyHZ24eLrf4eb4cifMc7P+DUu47xsWKHP5LrWqPF0Dpn2xh/tL7z+9BWtiWzzOxVV
+        HcUZv2oWrhmOfjvT3pVMZJuRamkLVI9wLIFktmWTphtP1anx/kQmd7lmmHj/HZ8/q3NJaxmAue7KnUzR
+        loLOawHg00E6Z1zYSrL9e9IuH/MKM2dto5fmZhBLZXBq6NhIrCn9CwAWJBKA5IyxilDVU7oV+k4oGv/4
+        /NTEwb4tFyISTzZcrLFSLKBSKsL33HIomnhMSt8FkIWEwRi3uVBmdMO6PxSN3ZafmfpFW18/KsUClubq
+        v7a5U2PQTAPS9fxsR8/Tjm2PSClbAGmCMcm5mDes0AtWJPqJdFvHv0yPnHR8z8OhZ55oWAszHEUq14wb
+        /vBDh8YOHXve97wUgBgAzhhfUnVjyAxFvhRJpP5ntVyeLxZKOHXicMN+uwc2I5HJYvzY4Yl4U+YRAAYk
+        kqfHJKsJRZ3UTev7oWj89oWpU3u6B89DNJlueD18tVxCtVyC4zhVTdN/wRgrCiHSUvqcMeZzIWZ103o4
+        FI19bGRy4qd33vVjeJ6H6bH6H8FLS3lohoGZsVFphCPPuXbthKKqOSmhnr4dGV9QdWO/EMpno8n01yvF
+        pZrvBlskNZJIwYpEMTV84pBuWruFoiQZY2FAMsZ5UTPMITMc+VI8nfufxfmZhaX5WTQ6uQicvhagqbUd
+        I4f3TcXS2Z+DQQVkE6RkjDH7xRrfbUVjH1uYnny2c/1GDB/c23AV6uUQkQy4Hup1F0bfA9/TgzyGIeCt
+        GJmiFYw1l97iFWZ+era/Csx2dMMMRzB3ahxNLe3G7MRoWlHVdRJwPdc9muvsmZkZG7abO9dgaWEO48cP
+        B+q3e3ArhvbtQiKdwwXX3sifffCedsb4JgkpnVptf6IpNzU7OVpO5tpRKxcxOzESeJubu3qhqBpGjx5A
+        W19/k+97vXa1nHOq1aPheHJi/PjhhZaetahVSpg7NR6431x3D3TTwszwCDId3WHHrnY7dq23VimPC6EM
+        /8kX/n76a3d8VM5MjGLt5s048vzzwba3uxehaAwzYyNoam3Xp0eH04qqrgUA13GOZNo7Z2bHR2vptg6U
+        lhZxauhYsBpv2IChgwcRSaSw8/1/yH723W+kPdftEIqSdR37UKwpO3XqxNFic1cvKqUCZk+NBa5FKBaH
+        blqYn5xAtr07US4u5VRN73VdZ8gwrYnpseH5RKYZTq2K4mLwy3VjqTTMcBjTo8NoX9sfzs9MZ4SirJO+
+        P6do+skPf+avZ77+6dvlzNhJrNl8EY4/H+gGRWhdsw7RRAqnho8j3dapTQ6fSAtF6WOA4jrO4aaW9pnZ
+        idFqqrkVlWIBUyNDZ/0IQETSO6vHn7hTunagb6lWRAAAQM/GrZgeGYIVjaGYX8Cvn3gJJ5LwXbfhGviv
+        HjA9UFQVS/MzL550kfBcF+FoAjMTI+gdOB/H9j+37H47126EpltYXJiC69gv/4ViCTS1dqBWLjU8V3Em
+        ay+4COnODhx/dhfsWhWe68CpVaFqOhKZHJxaDeMnjrymGudnJqFqOgr5+ZdvkishEYkn4dg1xNO517TN
+        mfYucC5QKS7BqdXAFQHf9RCOJ7D56uswtOf5QL+HeEUgdq0BFwLVYhGVUgFCUeG7LnQrBFU3IKXEzNjJ
+        Zffb1rse0UQKs5PjOH39B4P0JTTDRDyVhuPYGAt4L4fflG7tAFcUFBd+daMSKSXC8QTKS4vIdHS/phq/
+        HgEAnONzAISQsxcAyz0HQAuCEPJbjAKAEAoAQggFACGEAoAQQgFACKEAIIRQABBCKAAIIRQAhBAKAEII
+        BQAhhAKAEEIBQAihACCEUAAQQigACCErj7LM9hJcIH79n7+hG5m/7wu0p8iq80bPk/Ke+07P0dcpACSE
+        Ku2xPbDH3pi1zHkoASXWAr17G0LbboFz6hAKj/4vGllkxYps/yDU5vUoPXMnys/fC3dxAn5p4Q17frP/
+        GrmcEAi8KCi4sLkRuUvWSsfQ8BaaZwGDFNFMWUl2nuBG5NHyvp+OWVtugrcwjtrJZ2ikkRVH79oGkWhF
+        effdsAZ3tvnVwnZ3frjHW5q2IM/mXQBfjfSZHur1q4V3wvcC3R4seACcA0wop4NHDz8vEu2fj2z/g3sr
+        Bx/2RThFRwJkRYls/yC84hzMDVfxwqPf/B1vYfT/9GvFzfA9TXruit52uRr+uB6e1to33wgAyVv+kkYc
+        WVFeGpNa++YbuR6eXi3zatUEAAApwqmnrMGdbXr3NhpxZEXRu7fBGtzZJsKpp1bTnFpVXwP6teJmv1rY
+        LmtlxG/4JI06siLEb/gkZK0Mv1rY7teKm1fTtisr/DTAbySAp7nzw93SqdGoIyuKV5iGX13sDnrybWVg
+        4NyM2qtmeyUA3+PwV/ZJFfJbyHdPj81V8l4KANyM2pwbkeOrZ4uFo6S6hkWsmQYcWVFErBlKqmsYXDir
+        ZjoZkeOcaeZ3mdBWxVsq00MHmRF5jGkW8j/5Cxp1ZEXI/+QvwDQLzIg8xvTQwVUxl4TmMs38LkJbb06L
+        aO4ecL6iz1YyzVzUWgdvBYD4dbfRqCMryktjUmsdvJVp5uJKnkvgXIpo7p7Q1pvTwl+aKmstG56B78Wk
+        565hkDqkv0JiioMpquRm9LCabL/DOu/td4poxpNOFfb4Php1ZMVQmrqhZvtgrLnksF+YHpO+ux7ST0FK
+        tlJOsjOhgKlGQYlmv6Nleu+oDT09xgBA79wKrev8kDNxcIc7P7pJ1kqdUNTIOdtuBkBKH54zriTahkU0
+        +3B5/wMHQltugleYRvXYEzTiyIpj9F4KEcmgtPtuWAPX9ntLU1e5C2OdEGorGOPndD65ToHpoWEl2b5H
+        bel/yD75bKk2vAssfsMnUd5zH0Q0C2/xFNzZIXT/Q0EpPvd95Y245P+MpARTDTn5lbfX1NxacCMGvXsb
+        vMI0Ss9+n0YaWbFCF7wbIpJBbegZ+NVFOJNHkPvoj3XpVBkYOzcbJX2Ez3+3O/SRiKs0dUPEmuEtTcPa
+        9Lb/+AOF+HV/CiZU+LUi5Dn+GMDAwIQCKSUW//0rNLLIqhO7+qNgjEF6LuQ5/hjAGAfXw5Ceg/z9X6Kd
+        QwghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ
+        QgghhBBCCCGEEEIIIYQQQsjy/f+g5gASGbjh1QAAAABJRU5ErkJggg==
+</value>
+  </data>
+</root>

Form1.vb

@@ -0,0 +1,107 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+
+Public Module variable
+    Public user As String = "0"
+    Public userp As String = "0"
+
+End Module
+
+Public Class Form1
+    ' forma  principala de lansare a tuturor programelor in cadrul acestui soft
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        ' butonul aceseasa scanare calitate
+        ' this button luchhes the forrm2 window that is used for quality scan.
+        ' that form will update all the infos in the sql  "calitate" database  table with name "scanare"
+        ' lanseaza forma initiala de scanare finala a calitatii comenzilor de productie, aceasta forma va introduce date in DB. Calitatea Tabelul scanare
+        ' tabelul scanare di DB va fi folosit pentru a se face query in excel si a se obtine raportarea in format prietenos pentru utilizator
+        Form2.Show()
+        Me.Hide()
+
+    End Sub
+
+    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
+        ' butonul acces setari 
+        ' this button will take to form nr 3 wich is an interogation form for Updating settings. tha password in this table is Aquinos@123
+        ' forma intermediara de verificare a parolei de administrarea a conexiunilor programului, parola standard este Aquinos@123
+        ' aceasta forma ne duce in forma intermediara de verificare a setarilor de conexiune
+        Form3.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        ' butonul export masterdata calitate
+        ' acest buton te duce in forma de exportare CSV din baza de date pentru calitate.
+        ' acest export trebuie facut manual sau se seteaza excel care sa comunice cu baza de date si nu e nevoie utilizarea lui.
+        Form5.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        ' Buton Intra in forma de scanare pregatit 
+        ' buton acesare forma scanare pregatit scanare disponibila pentru zona de pregatit 
+        ' informatiile se salveaa in db.calitate tabeleul pregatit
+        Form6.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        ' buton export date master pregatit
+        ' buton prin care se acceseaza forma de export din baza de date sql pentru informatiile din pregatit. aceste informatii pot fi accesate si direct in excel pri qurery din SQL
+        Form7.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        ' buton Inregistreaza  tichet mentenanta
+        ' nuton care deschide interfata de creare tichet mentenanta 
+        ' interfata creare tichet mentenanta salveaza informatii in BD.calitate  tabelul mentenanta
+        Form8.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        ' buton ce te triminte in forma de export data base from sql server tabel mentenanta
+        ' pentru informatiile de acolo se poate folosi si excel cu power query from sql Database
+        Form10.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
+        ' buton administreaza tichet mentenanta
+        ' acest buton acceseaza forma de alterare a tabelului mentenanta cu informatiile operatorului de mentenanta
+        ' defectul constatat , inregistreaza timpii de realizare a mentenantei
+        Form9.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        ' buton management etichete
+        ' buton de accesare a forma de import fisiere excel pentru etichete
+        ' fisierele sunt importate in baza de date Calitate tabelul info etichete
+        Form15.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
+        ' buton aceseaza forma scanare cusut
+        ' buton ce deschide forma de scanare a informatiilor cu privire la timpul si data in care a intrat in cusut o comanda
+        ' acesta forma incarca informatii in tabelul cusut din baza de date Calitate
+        Form12.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        ' buton export master data cusut
+        ' acceseaza forma de export informatii din baza de calitate tabelul cusut
+        ' informatia din baza de date poate fi accesata si prin power query din baza de date 
+        Form13.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button12_Click(sender As Object, e As EventArgs)
+        Form14.Show()
+        Me.Hide()
+
+    End Sub
+End Class

Form10.Designer.vb

@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form10
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(150, 26)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker1.TabIndex = 0
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker3)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
+        Me.GroupBox1.Location = New System.Drawing.Point(35, 22)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(637, 86)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Alege intervalul din care trebuie sa faci exportul in excel"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(332, 31)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(98, 28)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "End Date"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker3.Location = New System.Drawing.Point(445, 26)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(17, 32)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(110, 28)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Start Date"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 125)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1306, 530)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(712, 41)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(194, 54)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Preview"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.Location = New System.Drawing.Point(940, 40)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(194, 54)
+        Me.Button2.TabIndex = 4
+        Me.Button2.Text = "Export to Excel"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Red
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(1140, 22)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(178, 79)
+        Me.Button3.TabIndex = 5
+        Me.Button3.Text = "Inchide program"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Form7
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 20.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1352, 681)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "Form7"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Export from SQL Database"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

Form10.resx

@@ -0,0 +1,63 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Form10.vb

@@ -0,0 +1,76 @@
+Imports System.IO
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+Public Class Form10
+
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        ' this button handle the SQL consction for filling the data grid view with information from SQL database.
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                           "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                           "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+        Dim command As New SqlCommand("select * from calitate.dbo.mentenanta where [Data] between @date1 and @date2", con)
+        command.Parameters.Add("date1", SqlDbType.Date).Value = DateTimePicker1.Value ' date from to be selected 
+        command.Parameters.Add("date2", SqlDbType.Date).Value = DateTimePicker3.Value ' date to to be selected 
+        Dim da As New SqlDataAdapter ' Sql adaptor for table 
+        con.Open()
+        da.SelectCommand = command ' sql command for downnload
+        Dim dt As New DataTable ' sql table preparing for Datagrig 
+        dt.Clear() ' clear table adaptor 
+        da.Fill(dt) ' fill table adaptor
+        DataGridView1.DataSource = dt ' filling the data grid view
+        con.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        'Button for saving  the information from data grid view to CSV
+        Dim saveFileDialog As New SaveFileDialog()
+        saveFileDialog.Filter = "CSV (.csv)|.csv"  'save fiel dialog
+        saveFileDialog.FileName = "export.csv" ' save file type 
+        If (saveFileDialog.ShowDialog() = DialogResult.OK) Then ' check if name for file exist
+            Using sw As New StreamWriter(saveFileDialog.FileName) ' comand for  rithing CSV file 
+                Dim columnCount As Integer = DataGridView1.ColumnCount
+                For i As Integer = 0 To columnCount - 1
+                    sw.Write(DataGridView1.Columns(i).HeaderText)
+                    If (i < columnCount - 1) Then
+                        sw.Write(","c)
+                    End If
+                Next
+                sw.Write(sw.NewLine)
+                For Each row As DataGridViewRow In DataGridView1.Rows
+                    For i As Integer = 0 To row.Cells.Count - 1
+                        If Not row.IsNewRow Then
+                            sw.Write(row.Cells(i).Value.ToString())
+                        End If
+                        If (i < row.Cells.Count - 1) Then
+                            sw.Write(","c)
+                        End If
+                    Next
+                    sw.Write(sw.NewLine)
+                Next
+                sw.Close()
+            End Using
+            MessageBox.Show("CSV file saved.") ' message that file was succesfuly created 
+
+        End If
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+End Class
+
+

Form11.Designer.vb

@@ -0,0 +1,234 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form11
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form11))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.Location = New System.Drawing.Point(225, 10)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(204, 35)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Import Fisier Excel"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'FlowLayoutPanel1
+        '
+        Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.White
+        Me.FlowLayoutPanel1.BackgroundImage = CType(resources.GetObject("FlowLayoutPanel1.BackgroundImage"), System.Drawing.Image)
+        Me.FlowLayoutPanel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(10, 10)
+        Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
+        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(209, 45)
+        Me.FlowLayoutPanel1.TabIndex = 1
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.SingleHorizontal
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point)
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.Location = New System.Drawing.Point(10, 100)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1353, 441)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(225, 67)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(101, 21)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Nume Fisier"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(331, 67)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(14, 21)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = ":"
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 10.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.Location = New System.Drawing.Point(455, 10)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(204, 55)
+        Me.Button2.TabIndex = 5
+        Me.Button2.Text = "Update Etichete Serii Hulshot"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 10.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.Location = New System.Drawing.Point(675, 10)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(204, 55)
+        Me.Button3.TabIndex = 6
+        Me.Button3.Text = "Update Etichete Single cover Hulshot"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button4.Location = New System.Drawing.Point(884, 10)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(204, 55)
+        Me.Button4.TabIndex = 7
+        Me.Button4.Text = "Update Etichete Kesteren"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'Button5
+        '
+        Me.Button5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Button5.Font = New System.Drawing.Font("Segoe UI", 10.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button5.Location = New System.Drawing.Point(1093, 10)
+        Me.Button5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(204, 55)
+        Me.Button5.TabIndex = 8
+        Me.Button5.Text = "Update Etichete Bochum"
+        Me.Button5.UseVisualStyleBackColor = False
+        '
+        'Button6
+        '
+        Me.Button6.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.Button6.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button6.ForeColor = System.Drawing.SystemColors.ButtonHighlight
+        Me.Button6.Location = New System.Drawing.Point(1135, 551)
+        Me.Button6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(185, 38)
+        Me.Button6.TabIndex = 9
+        Me.Button6.Text = "Inchide Forma"
+        Me.Button6.UseVisualStyleBackColor = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(225, 52)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(10, 15)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = ":"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(23, 566)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(10, 15)
+        Me.Label5.TabIndex = 12
+        Me.Label5.Text = ":"
+        '
+        'Form11
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1375, 596)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.FlowLayoutPanel1)
+        Me.Controls.Add(Me.Button1)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form11"
+        Me.Text = "Import fisiere pentru etichete"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents Button1 As Button
+    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label5 As Label
+End Class

Form11.resx

@@ -0,0 +1,480 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="FlowLayoutPanel1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAABU0AAAHDCAYAAAAQkzvuAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAX
+        EQAAFxEByibzPwAAX19JREFUeF7t3T2y7Mh1KNw3ghvUDBiKuD4jOAEZGgAdGTeeQ4t2e8+lKZNue7Rl
+        0f8cDYAGJ6CIdo6r6Bno27v7FFVE7zqnUAWgkDuXsaL75ikkMlGoBLCRP//nf/7nfwAAAAAAeFcmAgAA
+        AADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABm
+        VSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMB
+        AAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAA
+        ALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmV
+        iQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAA
+        AACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADA
+        rMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUi
+        AAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAA
+        AGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCr
+        MhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgA
+        AAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAA
+        mFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpM
+        BAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqE4HtvX35+pvwL+++
+        C39c+Ev4zzsst/td+Cnfar/wjDivrs/bi9+H5XmYacvPpV9V+bKd9+O8/D62Un2vvtM7xHGqjucW8vrx
+        D99Jtf8RRV3yelbV+V5lO1Tti7FV33O4df5Un03aMg6X593iPEzVeXvx9/v8d85bVrk6dy7n1J/D9bPl
+        /6z0t3DZNp9fl+eqc5RWykRgvbhA/Pr9QpEXjT+FRy9EW7hczLIsPz1EVmVmbnFeXJ+z6XLO/hiq8+pZ
+        l/PycoN1CXC4uXrC+/Gsjvfe8jzJ7zPbu58CeVX5ZhTHIh+Kq2O2t/yNXX5fw30fUeY8n6p6beVyzl63
+        Qb+pysJrxPdxCSjld5Pf0fXDffWdbuWHcNlP7ven31BwfrBKnjPv506eQ3s+D1zO2fyNXM7XX1dlYg7v
+        50C2nZfzbq/7+Xu4R6SNMhH4WDT8eUOUF4DLzXx1sTijfKDOMucF1Y3VROL7zhupM5+zl5urvPHPN9XO
+        zzu9H7fqmL5KBqSyjZk2GB51z99bdWxeIc+P/O2f/vuIMmYQoKrDES7tjyDZQfJYh7M84H/mH15IBC/7
+        OOu91fX9lEBVU/HdZseHS/uZ7VN1LpyRc5PhlInAP8qG/b2BP8sN0VbyATVv9DJI5QGgifwu37/Ty4No
+        9d2P4HJ+CvJ/4P1YnVV+f9PdGEed85ytjserZdDntN/HoqyvlG1Ptp8CqBuK43l9L3XmAOm9XKMmE9/z
+        qM8DWd4M7jpPBxXf3fW9/StfMG4prwPTv2jn/MpEmF003Pn2Lm8usiGvGvmuXLgGFd9Z9tjpGNi/JpCx
+        EMci26rqWJ1NnpfTPKxFXfO3WB2Hszjd9xHlyWBEVdZXy2OlR8wD4rjNdi+Vvb1coxqJ77LjOXy5lxJA
+        Pbn8jkI+l83Shk75op3zKxNhRtFIX26MRhrisJd88+fCdXLx/WSgtNMb5zXc9Ieo/1kDTZVsV76r6tFN
+        1HOUlxd/rMr/ClGW7EFTlfEspgr8PyqO0czXpWte8g0qvrOZngeyjjpLnEh+F+/fySj3EXvI9tN5yWmU
+        iTCLbIyDQOnHfrqhqo4fx4vvwgPpL+WN5ZTnaNQ726/qmJzZn6u6dBJ1HOmakr+flz+YRBnO3js3ZeDf
+        9XAhjkkGmVyXbsvjkm21AMBJxXcze8eJS2cJL4ZeJI59vjjM76D6fmaV5+VpXu4yrzIRuosGOANPLkzr
+        /PTWrzqe7CuOu+D+fX66uQrTPJi+17c6FmfXOnBa1Pfssm156e8m9j/S8MP2gf97xHGYvTfUWgJTJxPf
+        RQaqZhn6fK/8TRtpdoA4zpf7ey+cPpbH53fVMYQjlInQVTa4wQ3+c1y4DhLHWXD/MdMET6OOI7dnf6rq
+        NLqoV/5uq/qe3UsDp7Hv0c7lKQOnUe9Lr9JsZ6vjwn0ET18kjrtA1X0ET3cSxzXb0WwDtKPr5Dmp3eRw
+        ZSJ0Ew1s9oZwc7QtF66dxHEV3N/GT8HT6hh3EfUbvV1r90CWdVrUcSQvCwQWZRnBNMMGo65e4u0jA9CG
+        7R8gjrOA/2OyJ677/Q3kcQza0efk71fnHQ5VJkIX0ajmw6shzfsy18xG4lgK7u8jj2nL3hKLeo7oh6pe
+        I4s6jTplwsXhDyOxz3yQrMoygtY9sbJ+wUu8fWUQwPRHO4ljK1C1jammP9pSHDfn4PZajlbinMpEGF00
+        pHlxcpN/nAxMewv9oDh2gqXHyN4SbW74oy6jDgNfahUsiPqM/mCUbdGhv5PY38i9c9sF/lPUK++jzPV4
+        LCN4NpTHMghUbSuvD3r53SmOVU4Fkb2bq2PJ81rd13NeZSKMLBrP0Xv5jMpwiZXieOkJfbw8T1v0DIt6
+        5DQOVR1H0yroFPXp8MLuu6pue8n9LfY/mjYjLqIu+ZAv0PQ6ep0+KY5fnsOeBfYlWPWJOD55Xcvfc3X8
+        2M7LF7KkvzIRRhQNZva6EoB6PcP1PxHHSE/o1xt+WE/UodND4W+qOo4o6tLhIenQQHbsb/SeOD9W9RpN
+        1MND/nlk4FogYKU4Zs7h47Sd+ugZcUw8jx7vb9V3AVspE2E00ViO3kulmylXFf5MHBfDdM4lA9fDPpRG
+        2Tv1BmsxN1XUI3/jVf1GdNjIgdhXh5dIw/YOjLJ7yD+n/E4M179DHCcjd15HZ4kQx8E9/mt59mQ3ZSKM
+        IhrIvECZc+ucXLyuxPHIodR6P5xPPmQN2csxyt2pt3KLXgJRj5Hn5lw6rA2PfXWY0/kvVd3OLMrsIf/8
+        8r6hTU/8rcWxcQ6fw9TD9aPu+eLJ2gSvd+jUQsyjTIQRRMOoZ8T5TR84jWNgMY3zG/KhdFGH4S3rN6Ko
+        Ry7qVtZvQIcN0S/2PaRlvc4syuseahwCp4U4Jl5Gn8uwL6GfEXU2f+55ZHugdz6bKxPh7KJBzJt9N0pj
+        mDZwGnXPAIrzdAxDPZRGWTsNA78Y/mEr6tDt4Wn3h4/YR17Pq32PaIj5/aKcHvLHM9Q1ak9xHPL6Z7Gy
+        c5rmPI165nlofYLz+c/q+4JnlIlwZtEYerM8nqnmO4r65o2U3qXjGeZmP8rZaRj4xfALSkQduj1A7f6d
+        xD7yml7te0SnvtZF+Tzkj236wGnWPxgGfW55nh42J/YrRP2ch+fW+vzjeGUinFU0gp2GPs5migtY1DOD
+        WYL64xrioTTK2HHxu+FfrkQdug133v07yX0s9jmy085rGmXzkN9DXqOmHH4a9dZDeizDLo73kaxXcJ9/
+        bodNL8QcykQ4o2gAO/asmkn7G/2onxv6Hk5/rkb5Op5rHYKmVb1GdkTQtNMw21MOC4xyecjvJV/OTLPo
+        TtY1GL0zplaB06hPxxfWXQ0/eonzKBPhbKLhM4dpDy1WyF6Kehny2M+pH0qjbB3Pt6GDplH+TnNzXuze
+        czL20elc/rGq4ytFmbzM62mK+eKjnnpIj6/FSLOoh3l0x3LakR+Mp0yEM4lGLwNSAqZ9DN+b7FrUxw19
+        X6d9KI2ydTznRg+adhwNsXvPyWKfQ1vW75WiPB7ye2s5/Pki6xfc/48vv8Oh5+KN8mtLxzRNj3z2VSbC
+        mUSDpwdfPy2G6Uc9LErW33fVd/9qRTk7GD1o2rFH365B08g/X4pW+x3Wso6vEOUwnHkOef/RctqjqJdh
+        0L0MGziNcguYjqv1iyWOUybCWURjZ1hZT6ec922NqINFyeZwuofSKE/HYeBp9KBpxwervYOm7XrnLut4
+        tChDBky7LUjGbcPfTy1FnQSpehpuLt4or3NxbFNMY8L+ykQ4g2jougYG+NmwE3RH2d1EzeVUD6VRnuzh
+        XJVzdKMHTTuOitg7aNquN9myjkeK/QuYzqlFb6qoR56/7q96G2aeySirc3F8LdfS4HhlIpxBNnSLho9e
+        fqi+97OLcruJmtNphulHWbr2wB89aNpxqo69g6btzuVlHY8S+xYwnVe2PUPP3ZflD87fOZz+Wh9lNJqs
+        ieV3C48oE+HVopEzl9EchuodEeUVMJ3XaR5Koxxdz8NhV9iNsucDf1Wn0f2pqu9WIv92vXOXdTxK7Nv8
+        73Mb9qVTlF3AdD6nHW0WZes6mmdWQy9CxjmUifBK0bjlzVPHHjv80hBzcUU585wUMOUUcyNFOboGR0ae
+        sqPjyvlp10BM5P/DYn/DW9bxCLFf1yeG7G2aZQ4CpvPJtv9052uUKaeG8wzay7D3lpxHmQivFI2bxZ/m
+        cvqLWZTRDT0XL18UqihTF8P2Boiydx3Kt3fQtNrn0JZ13FvsU8CUi6F6m0Z5BUzntutIhrWiPM7HngRN
+        eVqZCK8SDZtepvM59cqGWb5FeZnbS8/X2H+2kVW5hres60ii/F1f9u32sBF5t1zscVnPPcX+zLvHtWF6
+        m2Y5gwAVpwloRVnc7/d0mjUJGFeZCK8SDZsHgPmc9iY/yuUGisrLepvGvrsOAx9yYbiLKL8pE1aKvDvO
+        G3fYSr2xr5ZBZ542xFzxUc6/LMrNnE5x7Y9ymMe0r2Hne+Y8ykR4lWjYvHWe0+lu8qNMAqbc8rLeprHv
+        rovkDTG/8S1R/pbXrmU9txT5d+yde8h5HPsxKodbDgvcPyrK6P6Kay8NasX+tae9DbXoMOdUJsIrRKP2
+        60Ujxzz+Up0TrxLlMa8un3lJ7+jYb9dz81Rzm61V1KeDXXsARf4dAyeHXMtiP14w85HTzg8dZXN/xVIG
+        LF85gkev597MacrTykR4hWjUuvag4g7L8+FVoiymiOAeL+kZEfvtOgx82Dmnouxdh0nv2msy81/sr4Pd
+        24XYx58W+4SlU76EinK5v+KWl4zgif12nfKI/yVoytPKRHiFaNS86Zvb76rz4khRBnPEca+XzMMV++3a
+        w2zYm9os+6IuXewaeIn8Ow6H3DX4H/l7wOcep5sjOsqU91eGQPORw3ubxj5/WJSBfk7b855xlInwCtGo
+        uZma20t7RsT+c3oI5yBrHB7oK8rQxcuG5j0ryt51uOluAcDIO+eQq/Y5uj0Xzspj5gGfe50mUBBlMWck
+        9zi0t2nsz1QRE1h+7/CIMhGOFo2a+Ux52eIFse+8oTdHHGsdfYPftif0sq4jifJ3XdRkzwBg1x6TuwX/
+        I2+jcVjjNCtGR1m6TivD9g55gRr7Ecifw+kXxmMMZSIcLRo1Q86IU6E+P/YW+7aSK4/4sTqf9hL769pO
+        jr5yfteAwJ4BwJZzGy7ruZXI2z0Sa52iXY1y6M3HGoeMOov9OC/nMPQio5xHmQhHi0bNxYv0iuHOFibg
+        GYeds7Gvru3kISuO7yXK37K3yrKeW4r8O57LuwSpIl/D8nnI8lw6WpRBsJ+18nr6q+p82krm/76fav/8
+        PPIuXwZfG/Ua9PL1MuihTISjRaN29tVgry8c2SsxH/iekfW9zrPa54wOXUE79mdhAp512Fvs2FfXHtGn
+        GUb6iKI+HVg5f71dgv+Rb94zVPuDzxz+Ivoi9i0wxaN+X51TW4n8Z2xT87eY1918/sz65wuN9PCIktg2
+        f+OXfH4XLs+4uZ+zTHm2awCeeZSJcLRo1F75AHW5kFyCodnw5wXg8Ib2fb+XC0+WabYbzkOHUcT+Zp/H
+        NM+vnCfv+ryvZG/c/Ez+Rsz9+o8Omy8p9vXKdnJPw/YEiLLn76Oq0+h27f0b+XdsRzYP/kee5nvnGS97
+        IRX7Ngcvj9r1viryn6HnftYx79nz/v1lC23mvsPluTbbhCOP/Q9VmeARZSIcLRq2I4ODGXi4BIlediG5
+        V5QxH8rzzeAMAdTD5uCKfZ29d/Ne8jzKuj+1sm5sfzkvDRs96AVL7KdrG/Cy3lDPirJ3nd5j12BLsb8O
+        Ng/+R55dX5RwjJdMfRL7/W5Rjtnl7/iW6vM8eY96S+Sbz37V/jrIe8QMlO5y7LYS5bsEUvd+hjh0sVZ6
+        KxPhaEVDt6W8Kckg6akvIveIOuQDeucg1SFvBWM/XXuHfSTPm12GPEW+eTxn7lWye0/J2EcOg6r2Pbxl
+        XUcS5c9rS1mvwe12TkfeOS1Ktc/RbRr8z/wW+fOzZdApzfBS+RGHrxwd+8yAyOzfR94P5f36Xc8d8bmj
+        gkgj2WXkWeTb8V41f295LzLkUPQod57/+aJl6+9m12kemEuZCEeKRm2PB4PLDUvLuUyiXl0f1KN6dZ23
+        EvuYbVGN3YKlS7Gf/C3nA2xVjs52HwIZ++gaQBl6+FSUv+vLgt16/2bei321sKznsyLPGdvSa3ntyiDS
+        muDTZY69fADPHlfTB1OXx2hvsc+ubeJnfrrXCk8/d0Qe+WJp9vN383uDyDODc9W+Rpa/tzbPulmXkL+j
+        La5/px9NyjjKRDhSNGrZOFaN3Vo5R1rbQOnSe12r4zC6Xb+/yL9twLnwkjfPsc/ZhubtPq1E7KPr7/2w
+        KTn2EOVvOcfvsp5bivw7tsGbPuBHfl1/75/JwFOeH5s97EZelwBUtb8ZHDbKKvbVeejzLRnc2eUlU+Sb
+        AaSZ7lmXNj13I79u96aHLp57tKhfBrnz/H/k5YH5TNlUmQhHiobt2RuC08/fspeod8cHqz17OHUdFrqU
+        D54v/U3k/sMsvSR+rI7BlmIfXR+cDl38bWtFfTrY9WEj8u8YwNo0+B/5ZRte7aern3rpVcdiK5F/PoDP
+        GDw9ZM7o2M9so3jy/uaoUTx57s64COemo3giv07HcKqh51nfsKZ9ecl8zvRVJsKRsmFbNHT3yJuVHLY1
+        fdf7OAbdhvDtGTSdYbjjaYbqRDlmCpzu2hZF/l3P3WF7SkTZOw71S7v2/s38F/vrYLPgf+Q1U2+9vD4c
+        2gbE/nL4/izXpXTICvq5n8V+O3vJfVbsM597qvJ0tdmcvJFXp+v10C+bnxF1vzd42roXLscrE+FI0bCt
+        ffOXNw1TDMG/RxyLbvPD7TXMaYbhjqe7kYoyzRI43bU3T+TftZfJIb2g9pBlX9Sli13bkci/Y3uw2QNa
+        5DXDy72UbdpLXnzHfrNX5Cw9946Yc7vrC6SlbLte2sMv939Vnhls8rwX+XQ5bnkOTv8MHMcgv8+P7iWm
+        HIHKfspEOFLR0N2Sw6pM6lyI49JpSNTmqzZHnvmA1D1wd9qhOlG2GXpO7fpgWuyvi2Hb9Ch7155Vu/XQ
+        iLyzLa72ObpNgv+ZzyLfrv5c1f9IUYZZAqe7D1PNfSz22VHeZ58iEBPlmClwuskzQeTTZWqOaXuZLsWx
+        yDa86n29+5RZzKdMhKNEw3bP2+m8qR22N9IR4vh0mqdr8+BT5rnYRzenn9soytj9oWq3oGnk3XYu3mVd
+        RxLl7zpUcrfrbea92FcXmwT/I58Z5tx8ecD0Isoywzzne0+3MUOgP59DTtW7L8ozy1D9TYKEkU+XjhN6
+        UC7kMQnXL8DMZ8rmykQ4SjRsH91s5QXOnCR3iOPUKSi4afAp8us+bGyIyeCjnN17++72YBp5d30oHX3l
+        /K7DqHfr/Rt5t+whtaznIyKfGYY4nyZgehFl6v5S1RzFzzldwPQiyjXDVB5Pn7+RR5u2dVk3fhbHJp8x
+        Li8dd5+ShPmUiXCUbNjeG7ilvBEwFP9Ocay+uzp2o9s6aNq5587pHkA/EuXt/HC6Z9C063EbujdAlL/l
+        S4BlPbcU+Xc8lzf57Uc+3YN3p7xeRbm80HtQ5N29l+lpA6YpypbBwM7n7k+W9V4r8ujysm6zhbG6imOU
+        37XeuGyuTISjRMO2HF6id+kD4ph1etjaLGgaeXXuuTNcwCnK3PnhdLc5lCLvroH/oXsDFPXpQK+09TZp
+        iyOfTnOTL536YT/K1zpgvazvViLvzj0dTx0wvYgydn/Zkp4KgsX2XY7RD1X9gP2ViXCUuABc33DpXfqg
+        OG6CpoXIq2uwKR+uh1w9M8rdtufvsq5biby7PpgOMbVEJcretYfVri9jIv/rece6ePqaFXl0XiwvX5Sd
+        +t4uy3dV3naW9d1C5Nu5l+lQ91jv5a3q0cVTi0HF9p3uoTwnwwuUiXCUaPwvvc70Ln1CHL9OE8JvtVJm
+        54egYYeeRNnbPmgt67qVyLtr79xhF/iLsnddvXjX3r/F/jp4+poVeXSeRmaI+7soZ8eA/k+Wdd1C5Nv1
+        ZV5eb4e6x4rydl9N/6nrUmzfKahskSN4gTIRjhKNf96kmnvkSXEMO928bhJIiXwMaT6pqEPXIODmPQAi
+        z5zSoNrX8JZ1HUmUv+uQyE1eWlUi764vsp66ZsX2nact2XW6hy1FWdsOc17W9VmRZ+depkOOgIhyd21D
+        0lOBwiK/0eXzzZCjzWBUZSIcRaO/jTiOnd6iPh00jTy6Ppy3mAQ+6tE1oL15z8nMc7GPLnabA/YIUf6/
+        LOrTxW69fzPvxb5aWNZzrcijcy+xYV6KR1mNgrhT5Nm1/Rtqcc1rUfZOI86WHn75Etv+ZpFXF/ncN+wU
+        RzCaMhEYy+JCOrotgqZdbx53C2gcKerRNUiwR9C067EapgdaJcrfcijvsp5bivw79uR7emGOyEMA6gSi
+        vHr13yHy6/pSeqh5TJei7F2Dg+nhl6yxbede0Sl7GOczj1GbsKMyERhHXCi73RA8deGP7bsOdRy2B8RS
+        1KXrzf0eQdOuQ0b/VNV3FEV9Oth1Zd7Iv+PLrKeD/5GH6UpOoqhDC8t6PiPy81L6pKIObReEWtb1XrFt
+        9/ler+X3n7/PXFjQSE7YUJkIjOP94lhdPIe0rN9akUfHG6R8qG61Yuaifl3sETTt2gtt2Ll5o+xde1rt
+        2vs381/sr4Ongv+xfddV84fsSR7l1oP8A5GXl9InFvXoGtCO6tV1/kxs23au4jtkeyaIChsoE4FxxIWw
+        1Q3Bsn5rRR4d37QPv/jTUtSp48PpHkHTlg/xYdhePVn2RV262LX3b+TfMdjy1MrwsX3XIMduC4rtKcrd
+        ckX4ZT0fFXl1fSndIqAU9ej6EiY9dM8Q280cNF3K56N8Ef9dGL5nNRypTAS2ERelHIacD9gpb2by4r2U
+        F7C8UX9UpyDhU8NDY/uOwYw2N/TXok557lb1HdkeQdNqPx0M23M6yp7tdlWn0T0VAPxMsb8OnvrNx/Yd
+        X/LtOs3DnqLsHa9Lm/X6jbw6vsRr81I66tJ2Xt4gaLqP/E3nc2gep3yG0iMVCmUi8LG8qLxfXC6B0Owt
+        cgliduxNc5Snbu5j+46rsg899+MtWa9FPTvYNGga+XUdBh7Vq+s8gih/196Bu/U8ybwX++ri4eB/brvI
+        q4thr1lRdkHTGyKfjudru5fSUZ+OL2KSoOlx8neRbWEeu+xdvtu9AYyiTAR+FheK7Cl6CYxeeoRWFxi2
+        8fC8UrFt17m2Ws1lehH16ngju3XQtGug6W9VfUcR5e96HditrYm8Wy7GsaznGrF91wVKhl3FOcouaHpD
+        5NPxZVHHqY+6Xp8ETV/vuldqPhu3fD6BSpkIM4rGPwOk+RBz6TVaXTDY18M3sLFtxwfQv1R17SDqJmj6
+        iciv683+0Od1lL/laIJlPbcU+Xc8l42M+KUfq7qOIsovaHpD5NOtB2O7XqYp6tT1vkHQ9Jyue6XqkUpb
+        ZSLMIBr3DJLmZNj51qzlQ/CAHl48IrbN77HKc2RDLqZxj6hbxxvZrYOmXYeBD927p6hPB7v2/o38O7bP
+        TwX/Y/uO80MOvQp5lL9j0PTp9jbyyPvlKu+RdZ36SND0SmwnaHq8vN7n87WeqLRRJkJH2XiH7I0oSHpe
+        j94UdZz8ftjFNO4R9es49HzTXiuRX9ce77+v6juCKHvXKRN27f0b+VtA5kps23XBlmF/2ynK7zwtRB4d
+        X+B1nfqo6zXq0eeDrtOgjCLbVAFUhlcmQhfZSL831h1vhNtZfn/3im073hS17AVxEfVrd2O/rOOzIs+u
+        L3eGHcIVZe/6ALZr799ifx08MzKia2Bj6Afjoj4dPB3Ijjy6Dc3fZMqCM4q6CZpeye0W+fA62Wlp2Ps/
+        5lYmwsiiQc4eHPlgK1A6lod7Vsa2HYd+DruYxj2ifoKmn6j20cGyniOJ8ncd6rdbD8HIu+sq8Q8//MW2
+        Hc+joeczTUWdOngqSBHbdxyaP3SP6I9E3QRNr8R2Hc/f0eVLmLa/QXoqE2FE0QDnjULHhRVm8dCb/9jO
+        0PwBRR1z5c2q7qPaNGAQ+XV98Bl9oZiOL2jSbr0/Mu/FvlpY1nON2L7jeTR0770of9fg/lMvYGP7HK1V
+        5TuydgtAXUTdugYJn3lJVeXH6wmeMowyEUaSDW7Qq3R8Dw1Hj+26Bd/S0Itp3CPq2K2n1aYBg8iv6zDw
+        0QMrLa81y3puKfLv2KvyqRdbsX3H82j0Bd4E9wuRR7e5tXedv/kMijp38EzQtOv88F3k99N6dB3jKxPh
+        7KJxzd6F+SDWbZ6lmT30wBXbdexd3HbV/Iuoo6DpByK/joGmNPRcvUV9Oti192/k33ERmad+70V+HQzd
+        YyjLv6hPB0/9tmP7jiN52vdsK+rcwcNBtdi24zWoo/ye2vYCZ2xlIpxZNKg5VMjq9/08Ol9Rx8B5+5uG
+        qGO3oOCmvYMjv67DwIftjRZl7zp8d9fev5n/Yn8dPBz8j20Nnz2hKH/HF1XPBvc7juRpv4p3UefhLeu4
+        Rmzf8TzuKkdh6HXK6ZSJcEbRiOZFT8/SvlbfyOY2izw6+FtV126int0eUDcNBkZ+XaccGTawkmVf1KWL
+        XXv/Rv4dX3J+V9X1HrGtYeAnFHXo+KLqqZd5sX23HnozzBffsXdwVK2u770iD51txpHflblOOZUyEc4k
+        Gs4MjJmPprnl936P2K7jcLr285mmqGe33/TDQZRKkX8Xw/byibJ3nTJh196/xf46eGZ+vY7nUYeV880z
+        uxDbdzsmM8wX3/GlzNPB7sjDQsHjGXo6J3opE+EsosHs+pDKP3qod2Vs1/EmaNPg21lFPbsFTTfrQRl5
+        dR0GHtWr6zyCKH/XedF26/2beS/21cXDwf/YtuN1a+gF3lJRpw4enh89tjWf6YCijh3b3Kfbl8ij67Wo
+        uyk6knB+ZSK8WjSSOedX1+Gp/NJDq5nGdh2naxh6Xrh7RT27/b4360EZeXW9uR966okof9cRD7v1/o28
+        W84lt6znGrG9OV5PJsrfdZ7ZZxbP6Xgdan9/lXVc1LmDh54RliIfU7yNSeCUlysT4ZWiccwh1+aemcvq
+        IWSxjXmbBlbVfWTL+j0j8uvaw36TB59XifK3vC4t67mlyL/jufzs4jodz6NhF3hLUf6WL6qW9Vwjtm/3
+        213WsaOoZ8cXVZu0L5FPxym9ZmGoPi9VJsKrRKNozpk5rR4yFdt0fMhpv0hBinp2C3hv2oMy8us6DHz0
+        wEpVp9Ht2vs38u+4uM7Dwf/YtuXLvjB0D74of8fg/lP3E7F9tx7Rs9xfdTyXN5tWIfLqOmJkBhaH4mXK
+        RDhaNIT5IGE4/rxWP3DFNnowDSrq2S3gvWkPysiv6039sDe8UfaWPdHCrr1/I/+O5/LDwf/Ytut5NOwC
+        bynKb57Zhdi+W4/oWe6vOt4bb/ZSJvLqOhXHDLJNenjKEXhGmQhHygYwCJhObHlO3CO269iDaYrhJ1HP
+        bkOkNu1BGfl1nZ5k2N5oUfauw/p27f1b7K+DZxbXaXkeLes5mqiD4P6V2LZjj+hZ7q/a3Rsv6/isyLNj
+        YHkWQ8+Nz7jKRDhKNH4ZMO0aIOA+P1bnxmdiu44Tug89fPleWc9FvUe3aQ/KIv8WlvUcSZS/60PWbr1/
+        I+9fL/bVxcPB/9i243k0/ENs1KHjfeh3VV3vEdt27BE9y/2VaRXuEPnqrDOuKX7LnEuZCEeIRk/AlPTQ
+        kKkinw6mmK8n6tmtJ8SWQ8e6Dt996OXIWUT5O/ZsT7v1/s28F/tqYVnPNWL7jj0aR1/gzTyzC7Ftx+D+
+        LPdX3Z6rdplWIfLN373V9MeU5/jQU8IwnjIR9haNnYApF6uHTMU2XQNLww5fXiPq2eoN/7J+z4j8ug4D
+        H3o+uSh/y14py3puKfL/brm/Bp5dXKfjeTR0r58of9f7iV9V9b1HbNtxjtdZ7q+quo9st/Yl8vYsOq4/
+        V98p7KVMhD1FQ+ftHtdW3xDFNr9b5NGFm/rxbDp0LPLrOgx86Bvcoj4d7Nr7N/L/02J/HTy7uE6V5+iG
+        7sGX5V/Up4VlPdeI7Tv2iG5/f5V1XNS5g4fnkL5H5C9wOi69TTlMmQh7iQbOKvksrb6RjW1aBpaW9ewo
+        6tntpn7THpSRX9dh4MP2Rouyd52bc9fev5n/Yn8dPLyYTGxrjtcTivJ3vJ94NrjfLoi0rGNHUc+Ovft3
+        D4zlPoJn0/GY25TDlImwl2jgOg754Tmrb4him449mKJqdX07iXp2u6nf9KYt8usYaErDBlay7Iu6dLHr
+        atKRf8cRJRbXWVjWczRRB/PMLhT5DW9Zx46int3ujQ+bCz32lZ16ur607mroufIZS5kIe4jGreMbUJ60
+        PE/uEdu1DCwt69lR1LPbTamV8+/zm6q+I4iyd50yYddeGsX+Ong4+B/bdjyPdlnZ+khRB/PMXoltc7hy
+        lefQlvXsKOrZ7Vw+fJG52Gc+qxquP45dp2+AizIRthaNWsubMJ72t+p8+Uxut8inhWU9O4p6drsZ3awH
+        ZeTVdfhuVK+u8wii/C17tofdev9m3ot9dfHwUNHY1hyvJ1TUqYOHAwmxrR7RA4o6Zk/Jsu4De8nw69hv
+        3ovpdToGC0JxiDIRthaNmrliqDz0FrnIp4VlPbuJOrZ7ebKs4zMiv66BpodejpxFlL/rlAm7zRUXebdc
+        rG9ZzzVie3O8nkyUv+sL/Wd6RAuaDijq2LHNfem0Prn/0PX634Uh+hyiTIQtRYPWdWgjz3voLXKRTwfD
+        99j5TNSx2xQdm96sRX5dpzAZ+twu6tPCsp5bivwtrrMQ23cc8vnwHK9nEOUX3F+I7Tv+dtsHVqKO7Xqy
+        L+v4KlGWbCcET89r2OmfGEeZCFuJhqztcFM2sXo+yNim6zk1w019t+FOmwYDIz9zZ55MlL1rT7Rde/9G
+        /h2HNlpc55de2hPsWVF+88wuxPYtr0PLenYTdew2ou90L1ujTNnz1ILG5zP0yzvGUCbCVqIh82aOj6x+
+        4MptFnm0saxrJ1G/jvNtbTo0NfLrOofWyEHT3y/q0sWu84BF/h2v/c8srtP1urXbFA9HiPJ3DIA82yNa
+        0HQwUb+OnQlOGwiLsuX9bN4bmPf0HIaeJoYxlImwhWjE2ga32MbynLlHbCdoOqCoX8fg06Y39ZFf15dM
+        w65uGmXvugjUroHsYn8dPLO4Tsvg+7Keo4k6dGxznwogxPaCpoOJ+nWc2meIIddRzksANV/AWHX/NYae
+        AooxlImwhWzEFo3ajPICmsch5cN33oxe5E1OBgDX6vJm86EhZLFdHoMqv+Et69pJ1K/jG/lNh6ZGfj8s
+        8u9i2CG8Ufauixju9p1E3l2nUHn4mMW2HQNRwz+oFnXq4KmXebG9oOlgon7drlNPTTHxSlH2nNLnEkS1
+        CPIxLAbF7spEeFY0YG0DWx/Ii2MGRvNiuecDaZdg9EMPXLGdoOlgom4dh+anX1X1fVSRfxdDBk2j3J3n
+        5N703L0Webdso5f1XCO2N8fryUT5u16XnmpvY3tB04FE3TrOu73r9DFHi/rkNTE7yuRvK5/hur4gf5nl
+        MYetlYnwrGjAZuhlmr1I801irqq42wPo0vt+q/KM5tGV87uuMJ6GDC59JurV8Tvb/M12sY8uRg2athxS
+        HXbtxRP5d/y9P7u4Tsd7omHnKk5R/q4vYJ+aZza2bxk0DS1X2I56dZxCZtgpfdaIembAO9uh/M3l95jX
+        CUP8H7A8trC1MhGeEY1X19WGL/INYT5MHxYovXZVjtE9dFMU23W9oU9dg6Yd36pvOjQ18mvbbi7rOooo
+        e9dFHvZeBKpjG/3s4jpVnqMbOrAR5W/5AnZZz7Uij673WO3ur6JO2Vu6W5Bt+qHWcQzye730ThVMvU/L
+        5yfOo0yEZ0TD1XE10vRTsLSq81Fi/516RjzUGyK26xw0HbrnTiXqlD2xq7qObuuV87v2eorq1XU+uyh7
+        14eUXa9jkX/HXpUP/95jW3O8nlCUX3C/EHl0vcc67Wrsj4o6dRwN0Wpo/pbi2OS15NIzNV/qGub/vwRN
+        2VWZCI+KRqvjW8+UgeCX9Cy9FmXocoP08Jvk2LZz0LTdzWLUqetUHZsGuCO/tkHTMNzNbJS5a7A/7TpM
+        NfLv+CD3cMAltm35217WczRRh47XpqfnmY08ut5jdXwp3bGtnWJo/lbieGUgNe9XskfqzAtPCZqyqzIR
+        HhWNVse3ni/tXXotytLlZvbh3hCxbeeg6d+qOo8q6iMQeKfMb5F/JyMGTbsOzd99VeJinx08fA7HtuZ4
+        PaGsw6JOHTwdGMw8Fnl2semUOq8W9en4vGUV9CfFMcwgap4bXe9hbhE0ZVdlIjwqGq1ujfRpAqYpytPl
+        +D58Yx/btpyH7MrLezRvJerStZdpemqxjaXIr+MD0MVQN7NR3q6raqe95zPtOjfvw7/32LbjQi3DB6CK
+        OnXwdC+9yKNr0LRVQC7q0zHob2j+huJ45r1M3lvOMIxf0JRdlYnwiGiwuj1onm4oT5Spy9CLh2/sY9vO
+        PfJSi6FJWY9FvVpZ1vdZkWfnHtSnevn0mSiv7+JBkX/L3/2ynmvE9uZ4PZkof9fg/tOBg8ij8wu8Fivo
+        Rz26dh4Q+NpJHNvuwdNNOzLAUpkIj4gGq9ON1imHSRflHNUzvXa6B02Hf9MedcgXKJ1vzjbvZRV5dg7U
+        DTWXXJS387m7a0/2yL/jefzU7z2273g+Db2oTpRfcP+GyKfzPdbwi0FFHbquHTH8lB9nF8c4z52Ww/aX
+        dYWtlYnwiGi0OjXEp3vbGWXq0jPiqRuj2L570HT4IWRRh84BwLR5YDvy7HzMhhnKG2Xt3Mtq95eBsY9c
+        NLHa98ieWlynyK+DoXuERfk7trebBJ0in873WMPPGx916DpX5fAB7VHEsW43+mFZR9hamQiPiEary5vP
+        Uz7gR7m63Mg++wDaPWiahhrOfC3K3nXY47XNe05mnot9dDLMi4Aoa+deprs/lMY+Og5Ff2YO7q7Xq6GH
+        Qkb5Owb3N7t3LfLuZNhzN8reedqjNvP5n10c61wsqvoORqWXMrsrE2GtaLA6BUpOGbCKcnUJqjz14B7b
+        d5s7tzJkb4god343Xebd/cjmvawiz+69c08/l1yUsft3sHuwoNhnB8/MwW0Y+AlFHcwz+4Ei706Gmi7m
+        IsrddVh+sgDUweKYd7pXH2Y0E+MqE2GtaLA6TUp+yredUa4uQ3KeDp4UeXY03PDHKHPH3juVzYNPkWf3
+        gN2pF46J8mXPi64PpOmIofldX2g93BbHth1/18M/oBZ16mCznuSRV8eg8sWQUyBFuTt/Jy0W6BpJHPNO
+        59PQCxMyhjIR1ooGq0tA77Q9/KJsHYaNbnKzmvks8u1oqN6mUd6uq7n+wrLuW4h8O8+lmU49fCrK1/mB
+        NB0xNL/lUPRlPdeI7c3xejJR/m5DUy82e9EaeXV/ATrU/JlR3j8tyt/J5i9hIs8c/fjwCIEZ5HF/P/4d
+        DNl7nLGUibBWNFhd5oE75RCRKFeX6Q82ediKfLoHOC6GuLGPcnYP+F3bJZgd+Zqr90WiXDME/I8Ymt/x
+        OD67cGHHa9XQD6hRfvPMfiLy6j7yIV+8DzGHZpSz+/3V5sHNyPNy/gqm3RDHptO1aeiFCRlDmQhrFQ3Y
+        qE55gY1ydXkY3SQIGPnMMgw8nXrYUpRvpoBp2qWXVeQ7Q9A0X66d6kE1yjPDwmWHDKeO/RiKvlDk18HQ
+        Pbii/C1fkizr+YzIb4br0emH9EYZjUB5QOR7HRDM/x928a+9xDHpNGLPImLsrkyENaKx6nRzddaeUF0m
+        7N7kxiXy6d4L4trpAk0XUa7ZAqZplxcrke8MD6npNC+moiwZMJ1hqo9Drmuxn469Kh8OrMS25ng9oSh/
+        x6HOm74YifxmWHAznfZcjrLNcH+1y7Wp2E9e54eakmFPcSw6vSy2cj6HKBNhjWiwOl3YT3cDlWValHFU
+        m13YIq+WKxJ/IIPmZ+uhN2PANO3Syyry7TrPXuXl7WyUYZaA6WGLnsS+ukzTc+3hB+3YtuWLkGU9RxN1
+        6Bjc33wEROTZaXXtW/IacLrRPFGmGe6v9upl+lFAMH/70y86Fceg04ujU06rRz9lIqwRDVanXn+n62ka
+        ZeoyFH2zoVCR1wxDapdOETjNMoSZpkdY2u2Gu9hXVy99UM19v5ehKls3hw1BLfbdwcMB/tjWHK8nlHVY
+        1KmDzXvwR56dFx+6dqqX0lGWWUZS7dXL9J52N+9hpxzSnfUOne5/9CDmEGUirBENVpeV89Op5jSN8nQK
+        Dm7aQ6/IfwZ5o/OyXnqx7zwfZ+h9ctPymGyp2l9jLzmXY5/5QDVLwDQdMpdb7Kfri6yHj19sa47XEyrq
+        1MHmAajIc6YRPXlf89IeiLH/DGZ17AVd2a0dibzvfSbN+4Bso6cKnkZ9Oz2zJ/PVcogyEdaIBqvTRX6X
+        RV4eFeXpcmw3HyIaec5yc1nJHiCH3ejlvt73WZVlJrusnH8R+c94Th/yoir2k9MfdHtY+Mxhw9ZiX4ai
+        L8T2HX/Pp1885yNR/q5zR2/+AirynGVe04uXvZSO/WaAeqaXebsd58j7keOYPU/bB9+ijt2mfTCfKYcp
+        E2GNaLQ6PRgcNv/bZ6IsnYb2bf7wHnnOtBhUZfe35Jn3+z5mupn/yK4vVTL/xf5mkcNl9xqql8HSWduK
+        wwIAsa+Ox/jZlfPN8XoyUf6WvSeX9dxK5D3jyJLDXkrHfvL6NNvL0j17mT474iG/i9NN07aFqFfH6WKG
+        fonHWMpEWCMarW4BlZdfMKMM3YY6br54Tua52Mes8veXb8k3O8aRV55/madg6T/atVdk5r/Y32wyyJQP
+        rE8Pk4w8sn2Yee7dQ4dRx/46HuunXpIU+XXwkp54W4nyd2xjd3vZH3l3DLTcY9eX0pHv5R6r2nd3u/Xo
+        jLy3Ol83v69+lahDdn7o+kJ++O+HcZSJsEbRiI0uL5Yvm+Mm9p03U52CVbvc0Ee+sw0du1e+Kc+b/Qwa
+        3RV8is/lkMUctiNQ+rFdX6hE/l4E/K88D/NG/3Iu5zn6i/M50rKnTv4tP5Ofna3Xzi2HBrdifx2P+8Mv
+        SWLbbi8+L4Yewhrl7xg82LPnXrav1T5nsVnwLPLIY5n3WTPPC7/3i+c9ft+XcyC/u5c9G66VZQ15T9T1
+        nv40I0OZQ5kIaxQNWQcvmds09tstYJp2m1cv8hYguV/eqOfxulZ9jtt2DURF/l0DLRzr0F6mKfbZ8cHs
+        4UBJbGuO1xOKOnS87u06RDXyn3rxxyvZxuX58/cXedXxusi/hwy05egJx/DnkSS7Bh0j/yOuQ/ld5nea
+        3+1LFw+rRJny3JyhF/Nhc7ZDKhNhjaIh6yLfWB72VjH21XUY1G7DJyLvWYeO8QLL828P1X5hpaN7mXbt
+        9f/wcYxtM7BS5Tmyw4PxWyvq1MHevffcZ7GFzi+dM5iegdT8rZSjYvYQ+8ney7OOsjldwJreykRYo2jI
+        Osk3o7vOmRL5d54IfteVDSN/PfM4yiGrdMZ+ZrvxZVuHj5KIfepVuRDbd+zp85IROFuJ8ncdar53MMpU
+        SDxr97Yj9nHG4P6ld3LKa0IGNy+yp2peOz9yCYheZB6Z1+w9l/9WnQOwpzIR1sjGa9GYdZR13HQ+m8gr
+        L4jdh1Ds2gMixT46rlDM+RzSyyr2kzfG1f7hHofPORn7zGtjVZaRPfWSJLbv+PJj9+v5nqL8ec9V1Wt0
+        u//mYx8zDPdlHxk43H3UXuyj62JH/NLLF2xmPmUirBGN12w9o7K+GdjIN4B3Dw+Iz16GUeQQjlkCfUfc
+        zAsycYRDAgaxn64P9uzvJUGt3O+iHB089ZIktjfH68lE+VsOM1/Wcw+xH9clHnXIdDGxn45tLr90SBAe
+        lspEWCMar9mCprfkcajMOozikKF8sZ+uQ+44l8PebBf7hs/svsjGLbHfvM5VZRrZw4vrxLbmeD2hKH++
+        sK7qNbLDhqnGvjr+ztnXrouUXSv2TU9Dj3hgXGUirJEN2KJBg3TYA1bsy808ezvyfDbMjLVeFtCKfXd8
+        Mfjwg1ls27JX3rKeo4k6dLxPOGye2dhXjpSqygCVIwP6ekLPQS9TXqZMhDWiAes4nxnPOXSS7tifc5Bd
+        Lc+5PcX+nM+s8dIFeorydPBwEDq2NcfrCUUdOg7fPbTXVezPHPLcI39rh61uHvsSNJ2DXqa8TJkIa0Qj
+        ZgVzlg6fpDv26WaevfxYnXN7if1ZrZh7vbTnRey76/X/4fm4Y1tzvJ5QUacODr3Xiv3pbco9Dp3/OPbn
+        RXN/epnyUmUirLVo2JjbS3qkxH5NE8FeDg8YxD4N0eceL51nMve/KE8Ly3quEdub4/Vkovxde6Id/vuP
+        fZoOiY8c3lbEPt3/9/dd9d3DUcpEWCsaMzdRXBzeyzTFfrN3Xsfhd7zeKx4C9OjhMy8PZEUZOj6sPjW9
+        TG6/yK+DoR9Yo/wte6It63mE2K+h0NzykqliYr+Cpr0dOuUbVMpEWCsatO8WDRxzeum8Z7F/N07s4SUB
+        g9ivKSe45RQPEVGOPy/K1cFTD/5Ffh28tEfzs6L8He8NDp025lrsu+Pvnufky6KXDJ+O/br3723o6w89
+        lImwVjRov140cMzp1UNF9TZlDy85r2O/XkZRyTbu4Tk3txTl6DjK5JmV87veC53ifHtUlL/jdCcvm2c2
+        9u1ei2svnW8y9i1o2tfQU8PQR5kIj4iGreOQNO53ioUiohwCTWztVb0nPJhSOWxV4s9EWTr2hn54ipnY
+        1hyvJxR1MM/sxmL/7rVIeY/y0mtS7F/QtKe8v7D4E6dQJsIjomGzeuHcTtMTJcpiWDNbedkQyBT79zDA
+        tZfMGX1LUb4OHu5ZHtt2nIu4w8r5HV8+PdwjeitRBusZzO3lAdMUZTAHfE+neUEMZSI8Iho3vaLm9fKb
+        92tRHgsVsJWXBgxi/9pVLk43TK0o4/CWdVwjtu/4kuMli7tsqahTBy+f5y/K4Po0r1METFOUwz1/P1bL
+        51TKRHhUNHJ6Rc3nlMMnokwWKmALZ1ih3DBI/lydG68UZcqASVXWkT3Vszy273gPdKqXomtF+c0zu6Mo
+        h15+8zlNwDRFWayr0cvp7negTIRHRUPnrfN8Tjl8IsqV56Jh+jzrFAGDKIc5o+d1ygeIKFfH3j1P9SyP
+        7TsGTX9X1XUUUX7zzO4syvOnZflo61QB04v3clXlZSx5r2seU06nTIRnRGOnt+k8Tt0DJcpnyA7PevkQ
+        yJTlWJSLOZy2x0WUreM5+VTP8ti+4/3PKdrAR2X5F/Xp4G9VXV8pymR+0/5OGTBNUS7n3/jy/BIw5ZTK
+        RHhWNHp6+PU3xOIQUU49IHjGmRY4cy7P5dRD1KJ8HYNRT70IzO0X+Q1vWcfRRB06nqenm2c2ypSje4yI
+        6Cuf604ZME1RNh12xnbagDykMhGeFQ2fXlG9DfU2MMrqDTQPWZ5LrxTl8VA6j9PP6RVl7DiP3FO9KmP7
+        bg/uP1T1HEnUQXD/IFGu3wTDpPs5/ZDpKF+ee1XZOT8BU06vTIQtRAOoV1RPw13corzmN+URp+tNHWXy
+        UNrfMIsgFGUf3VM9y2P7bkHTIUaUfCTq0HEhvd9XdT2DKJtrVC+5qOoQnSSinO7zxyNgyhDKRNhKNIR6
+        RfVz2pv1j0S53cgfo1PQ4KwL8Px+UU76GKp9Lco/tGX91oo8uq0k/tQcr2cQdegYND31PLNRPvdbPZx6
+        3YKlLO+i/JybgCnDKBNhK9EY5vA9N059DBkwvYjyu5HfV96wdnpAPe0DQ5ZtUVbGlu3ScKuUR5k7vRh9
+        enGdyKPbUPDvqnqOJOrQcXj+6Xv+RRndb41r1OtRjiqr6sP55DkmYMowykTYUjaK741j1WgyjqEDphdZ
+        j0W92MZPwzjjv52m5Th7b54cNleVm7Fk4HHIh4co91+u6jG6pxfXiTy6PbQPvXJ+yjos6jS6H6t6nlGU
+        1f3/ePJ6dJoFMNeKspsa7vyGPseYU5kIW4vG0cJQY2sRML3I+izqx3PyBuinni/x306Lbp3+pi7KKHA6
+        tmHmi6tE2Tv1eN6kZ3nk02leveEfbKMO3e4/h5pnNsorcDqOoYbjV6IO+eLK+XZe+Yww7D0P8yoTYQ/R
+        SGagyoVsPK0CphdRr3yQcj4+L4/h33vJLf42tEudzi7KKnA6nvzdDN+2Rh06BaQ2+T4inza/x2XdRhT1
+        yGmiyvoNapiF4i6izPkddJrKo5t80dNmqHTUpeM8xh0MH5RnXmUi7CUaTG+cx5Hf0/BD8z4S9XM+PmcZ
+        MO30cPr0/IZHivIKnI4je1q0GZoWdenShm5yvYt8uiwGNfzK+RdF3UY2ZOAhyp09ADtN59FFjhZo1/Mv
+        6tRp1NPo8h5huDly4VqZCHuKhjMDVZ2Gr3U07Bx7a0U99YB43D/0zIp/d+p19vT8hkeLMpt24tzywWH4
+        hXWWok4tAvbLej0j8usQSB6uDbwl6tLpGj/0y+wov0UMzyGDim3v86NuGaT3rPl6+aLEcHyGVybC3rIB
+        Dd4CntPQc+w9Iusb9IBY5xdDWSPN/IYvFuU27cQ5tX1wiHrli9CqziPZdHGdyK9DILnNUMqoS6fFYYYP
+        dEUd8joloPUaeX/Qctqtpain0WSv0/IlMfMqE+Eo0aB643weeYGbevhE1N88SJ+7eZ5Eeqch4sP+FqLs
+        XkqdR/Zwaz3NSYo6jn6+bToUPfLrMFVJm/uBrMuibsNa1m1UURcvq4/Xcij+R6K+AqfH07uUdspEOFI0
+        rIbrv54L3Ls4Dnk+Gq5fyxvPm71c4m+djluH3jz5EsDDwmvkNW2K3jwp6jp6b9M/VfV6Rua52MdoWgX7
+        oz4d2sKh5tq+R9QpA9qeAfaVL7TbzKO9VtRd4PQYU7wkZk5lIrxCNLR6nR4vb1Rd4ApxXJyP/yhvhj4M
+        JC4+P7Rl3UYVdckeb3qdHmeqYOm1qPfIQcLNh6JHnkPPqbesz+iiTh1GQrRZnOta1Ct/K52mUDiLqYOl
+        1+I45DmmQ8Q+pr3vYR5lIrxKNLr5gG+4zv5c4O4Qx0jA6Wef9kSOv4/e0+xax9485pDblzY1xDEY9aF0
+        l5eHke+o7eIPVX1GFnXqMGVCm3lmK1E/91zPyx6VGYAWLC28H5vquLGe+x6mUSbCq0UjnA/4bpy25wL3
+        gDhmeT7O+IY6b77vmsg9PtdmzrjQZtXopahbrrAveLqdvE5NPRf0tTgW2ZtnxGGQuwUYIu/8zVX7PLOu
+        PRpHH0Eyxf1b1NMzwHp5Xc8peUy19Yk4RrPe02/FsyTTKRPhLKJRduO0DQ/2G4hjOFPAKc+Zu+f1jM92
+        ms6gdW+eFHUUPH2cnjwfiOOSvSuHOreWddha7GO0wOnmc7yeRdRt5GDJVNMpZX2DZ4CP5Ugg9/cPiONm
+        3vd18lwzpRtTKhPhbKKRziE7OTePi9v98qHVg/0O4phmr8quN/J39y69Ftt0mlZjmjfoUdd8KDUlyn08
+        nN4pjtNI88cdMh1H7CevG6Pcw6y+Bowi6jby3IZT9iKMeueLmA5z0m4lz1+9SjeQxzDkS38vkWt5XPL4
+        eJZkamUinFU02nlxyx4b3jzXLoFSbwIPEMf5ciPfIZifdcgbo4duwmO7TkOdpvv9RJ3zxVQ+hHX6Hp+V
+        v4kMlOY1x8PpA+K4jdAD/bDpOGJfo8zZ2LoNjPqNGDj9sarLTOIY5PeW16kZA1yXQKng1U7i2Hq+/Nnl
+        WfLu0WbQXZkII4jG3EP+z/ICnw+mLm4vEsf+EswfscfeJVj61I34VX7DW9ZtNnEMZm5bs875sKBH6Ubi
+        WJ49UHj4dByxz7xenDnwM0VgJuo5QlD/ouU8s4+K45EvrbOt7hpA9dLuReJ4z3gPdLn38SwJhTIRRhON
+        /CVolb3+Or+BzpuoS5BUb9ITiu/lOoCa31f1PZ5B3iBtcjMeeeQQ72ofI2q3avQz4nh0b1v/HiQNevDs
+        KI7vWYfYvmw6jtx3ON2D+bKcnUV9M0AywtDvP1fl5+9tS94XjxzkugRJM1gncHUS8V1cAqhnv6dfK+/n
+        st3La5B7H/hEmQijywvA+4UgLwij3kRlcDQv0nkj6IF+UPG9XW7mz3DDdQkQbXpDHvnlb63a34j05vlA
+        HJ8MomZ7lOd0tlEjPURkefOakA9AXjq9SBz7s/XMf/m5EGW49Jo7w/3KlG1g1DvvG8/cc7H9AoVbiON0
+        uUbld3nWHu553bx0gHB/P5D4rrKtznuIkZ4vl+ebnsuwUpkIHcVFInvD5YPaJYD1ypupvCnP/ae8scsy
+        ZdmyjC5mjcX3mw9ml6BTnod73nRl3ru/SY68sy7V/kfkwXSlOGb5kJptVz5IXLevrwioXtrVLEfKcnkg
+        PbH37+iI9rC0LM+rRZku14hL0Ofo39H0PRrjGFy/eM/voDpOR/Oi50Fx7DLQdbn/z+/ziHbmEqjKdi33
+        +9PLuuAev5n4TvP8utzXX9qMo69ll/MtOd9gY2UizCYuKnnBy4vL5eFtC5f8Ljy4c1OcH5fAU7o+jy43
+        YB/Jz1yfd4cO7Yr9ZRmqm7gRTbNy/lHimF6f2+kSXH3U5WHgwkNBM/GdXq7JlwfR3VT7P6Mo6+V8vwR/
+        9iI4V4jjkoHUy3dQHbe9uYfcWBzT62vTM7+rSx7J9Yh/EOfE9TPmFte0zOOSn3YBDlAmAsC94qat01yX
+        AgYAAAAImgLwuLefe2pUwcchLesHAADAnMpEALjH28/Dg8oA5IB+rOoIAADAfMpEALjH28/zS1YByBFZ
+        OR8AAICflIkAcI+3n1d4rgKQI/pTVUcAAADmUyYCwD3eeq2c/11VRwAAAOZTJgLAPd6+fP1xEXgcmZXz
+        AQAA+EmZCACfefvy9deLoOPoflXVEwAAgPmUiQDwmTcr5wMAANBUmQgAn3n78vWPi8DjyKycDwAAwN+V
+        iQDwmbcvX/+8CDyOzMr5AAAA/F2ZCACfeeu1cv4fqzoCAAAwpzIRAD5TBB5HZuV8AAAA/q5MBICPvPVb
+        Of/XVT0BAACYU5kIAB95+/L1d4ug49CW9QMAAGBuZSIAfOTNyvkAAAA0ViYCwEfevnz9yyLwOLI/V3UE
+        AABgXmUiAHzk7cvXvy0CjyOzcj4AAAD/oEwEgI8UgceRWTkfAACAf1AmAsAtb1++/mYRdBydlfMBAAD4
+        B2UiANzy9uXr7xdBx6Et6wcAAABlIgDc8tZr5fy/VXUEAABgbmUiANzy9uXrfy4CjyP7S1VHAAAA5lYm
+        AsAtb1++/rAIPI7MyvkAAAD8QpkIALcUgceR/a6qIwAAc/n27f/+Nnwf/iv8T/hr+Pfwz9Xngf7KRACo
+        vH35+i+LoOPoflPVEwBm8u3b//3/3oNE1zJwlAEkAaMm4rusvudhAoNRxt3KH9v/v/f8bvlDtR3QW5kI
+        AJU3K+cDQDvf6mDUtf9XbcdY4nsc+nuO8u1S/tjuD4t8bvm3anugrzIRACpvX77+aRl4HJiV8wEgfPs8
+        GJUETgcX3+HQ33OUbfPyx+f/Kfz31fYfyc/9U5UP0FOZCACVNyvnA0A73+4LRgkYDS6+v6G/5yjX5uWP
+        z342LH/JMH2YSJkIAJW3L19/XAQeR2blfAAI3+4LRiUBo4HF9zf09xzl2rz88dmcD7XK4xY9rmEiZSIA
+        LL19+fqrRdBxdL+v6gkAs/l2fzDq+2p7xhDf39Dfc5Rr8/LHZ//jart7CJrCRMpEAFh667dy/r9U9QSA
+        2Xy7Pxj1/1XbM4b8/hbf5y2n/J6zXIty3nJ3+eOza4fnC5rCRMpEAFh6+/L1u0XQcWjL+gHArL4NHkzj
+        Pvn9Lb7PW2YKmv52se1n/rnKB+ipTASApbcvX/+8DDwO7IeqjgAwo2+DB9O4T35/i+/zlmmCpik/v9j+
+        lu+r7YG+ykQAWHrrtXL+f1Z1BIAZfRs8mMZ98vtbfJ+3zBY0/afw16vtK/n3u1flB3ooEwFgqQg8jszK
+        +QDw7tvgwTTuk9/f4vu8ZaqgaYptMnD6/VUe13KFfQFTmFCZCADX3r58/fUi6Dg6K+cDwLtvgwfTuE9+
+        f4vv85bpgqYXse0/hz+EXCDq34JgKUysTASAa29WzgeAtr4NHkzjPvn9Lb7PW6YNmgJcKxMB4Nrbl69/
+        XAQdh7asHwDMLINMi6DTLTeDUfG3HN6cvfNyiPN/hevt/jvkPnKY82l672U53suT5c7yLee1vJQ765S9
+        D1+2cnru+70MWZYs0/UxvpQz6/Hbavv0/pnr+t2yedAx8hy6/EeLOuS5+a/h1rmZTnN+VqI8v30vV/7u
+        l9/5Rabl335qG6p84JXKRAC49tZr5fwfqzoCwKzegxbLYEblF8GoSMtgWAZtqs9/5D/Cvy7zO0Lu933/
+        Vbk+k8fqkOBO7OcSiP5skaKlLOMvju17evX5pU2CjpHP0OV/hSh7npuP/J4u8lj/ocr7CLHvbA8yAFoF
+        SO+RgeCs/6kCwMyrTASAa29fvv5tEXgcmZXzAeDKtweDUfHv7EWWQY7qs/fKfd/sXbil2E8GpB4N5ixl
+        cGq3oG/kncHGZ49tBp/+3qs3/v+woGPkMUz54/OXnpAp95llP7TnZuwrz81763ePPM8P67kZ+8pepc8E
+        eyv5vZhTlpcqEwHgWhF4HNmfqjoCwKy+PRCMiv/fOkDy/67LtKXIO3s8Ptqz9DP/Xu3zUZFflnXL4FkG
+        d38KPMV/V3/Pa8W2w5U/P7/Y/to/BG73EPlncLDa9xbyvN+t/Jl32LP8GXg/5KUKVMpEALh4+/L1N4ug
+        4+i+q+oJALP6tjIYFf/dOmB68f2ybM+KPLMH3Fa9S2/J4/d0YCryyLI+2zuz8lPgMewSdLyI7YYsf35+
+        sf3S3wO3W8o83/Ou9rmlvcqf3/cR5U8vm3KAuZWJAHDx9uXr7xZBx9FZOR8ArnxbEYwKOXS5+ttWvq/K
+        +IjIa68gXuWvVRnuFdvvXdbLEPTqb0urg6axzbDlz88vtq98X237qMjvqIDpxaaB08jryN/WxUvmQGZu
+        ZSIAXLw1Wzk//KqqJwDM6tv9waijgiTfV+VcI/J4RVDn+6osn4ntjgqg3Xs81gYdRy//vef/ZnOcRl73
+        7nNLTwX2LyKfV/y2Uu7TAlEcqkwEgIu3L1//sgg6jszK+QCw8O01AZzPPDzHaWybQby9h+Tfsnrxndhm
+        r/lWH7U26Dh6+e89/zeZdzfzWeR7pKfm4I3tc3X8VwRML1Z9t/CsMhEALt6+fP1hEXgcmZXzAWAhAxGL
+        wMQZPNyrLLZ7JoiXx+KZXpMZrL17GHR8NldNr/J5pbsDU/HZocuf8vOL7W/5vtp+jcgjg45V3kd6uLdm
+        bHuGtmL1iwl4VJkIABdF4HFkVs4HgIVv2wRCMsiZC0RlL7prz+S9uldZbPNvizzukfNl/mKF7kjLHquZ
+        39o63N0jMT67tkdsHudflDf+fSnrFot0rQmaDl3+lJ9fbH/L6vNxKfJ4pH55zPJFwPXvKo/ho8H9/6jK
+        9pnYLvdb5XePPMbX5U+Ptg3/VZUP9lAmAkB6+/L1XxZBx9H9saonAMzs2+PBi5QBnQyA3OxdmX8Lf3j/
+        bJXHR1Yt/hKfXxPEy6DTXb3u4nPZo/Le8t8V1InPrQ3w3lXe/Ex45ju9KzgYnxu6/Bf5+cX2tzwVNI3t
+        H+llmsHRj35bmecjPatX9TaNz+dveO3v95624dHyWxSKQ5SJAJDe+gVNrZwPAAvfHg9Q3R10TPHZDLys
+        7R13d6+4+GwGZqs8KlmOVauJx+dzAZwqr8oveq4uxWfWHPdHyvtor817g6ZDl/8iP7/Y/pZng6YZAK3y
+        veUPVT6V+GwGJ6s8blk1t2l8fm3++X1/+hu4iM+u+e2m76t8YGtlIgCkt34r5/+6qicAzOzbuuDXxaq5
+        Oy9ym7A2cHpvb9B765E94FaXPcV29wbyPhyiH39f0+vwmfI+8t1+GhyMzwxd/mv5+cX2tzwbNF3TC3r1
+        gk2xzZog86oh7vH5Nb1MH20b1gSV/7vKA7ZWJgJAemsWNF3WDwBYFTS6dncvsqXcdpHXZz6dIzQ+syaI
+        d3cPvqXY9t4h6R/2kI2/r+m590x587isCXile4KmQ5f/Wn5+sf0tDwdNY9vdg8y5zfu2VZ6Ve19GrO0F
+        +lDbENutLf/DbRDcq0wEgPT25etfloHHgVk5HwAK39YHTVf3gluKPNb0ivtrlce1+My9QbynFpGJ7TOw
+        U+W79GGALf5+7zyOTy96E3msHVp9T9B06PJfy88vtr/lmaDpmsDj3QuJLcW2a3pr3rUKfXxuzZyjD5c9
+        xfZryv9wMB7uVSYCQMpA4yLwOLI/V3UEgNl9uz9odPHQUOtrkceqRYSW2y/FZ+4d8v99tf0ai/xuWm53
+        Lf5+b4+6LQLUa3o5pnuCpkOX/1p+frH9Lc8ETdcEfp/pxZ0LllV5Vu4KcMbn7v2u83NPtQ2x/Zpe6E8F
+        aOEeZSIApLdeQVMr5wNA4du6oOn3VR6PiLzWDMX9cLXs4vO33NW77pbY/u6gznLbi/jbmiDgJkOQI581
+        88h+GByMvw9d/qX8/GL7W54Jmt7dW3O57VpVnjd8X21/LT6zJoj5fZXHWos8P/J9tT1sqUwEgPTWK2hq
+        5XwAKHxbFzTdbEhs5LXJsN/425redR8GXz8S265axGq5/UX87e7yLrd9VOS1pqfjZ0HTocu/lJ9fbH/L
+        M0HTe/fx6VQUn4k87l1w6tP6xGfWTCuwSdsQ+dz7G3v4+4B7lYkAkN6+fP1xEXgcmZXzAaCQwYdFMOIj
+        dy0ec4/Ia00g7KOg6ZrAziML7GRvuyzrmtXPbwZ04m/31nuzoFDktSaw/OF+4+9Dl38pP7/Y/paH65Pb
+        LvK65eljlnks8rzl033FZ9b8Rh9+IXEt8jnsWMFnykQASEXgcVjLugEAP8vgwyIYcdNy22dEfmuCnTdX
+        o4+/rQq+fiIXqMrjkdYMCV/6viprir/lfqptljYLCkVea4bUf7jf+PvQ5V/Kzy+2v+Xh+uS2i7xuefqY
+        ZR6LPG/5dF/xmTULtj0913GKfA47VvCZMhEAUhV8HNTfqvoBAKuCFE8PHb4W+W3SezD+tiawc5Sbve7i
+        b/dOS/D0IkrXivxv+TAYFX8fuvxL+fnF9rc8HKTLbRd53fJ0IDDzWOR5y6f7ys8strlpue2jIq/DjhV8
+        pkwEgPTWZ07Tv1T1AwBeF6SI/LYKmt4d2DnIh8Hl+Pu95d10dfAi/1s+/J7z74vP33LK8i/l5xfb3/Lw
+        +Z/bLvK65enfWOaxyPOWT/eVn1ls85FNpu6IfO5dIO7pYwWfKRMBIL31CZpaOR8AbsjgwyIYccumQYrI
+        r2PQNAM+H64YH3+/t7w3pyR4ROS3yfecf198/pZTln8pP7/Y/paHz//cdpHXLU//xjKPRZ63fLqv/Mxi
+        m488Padp5JGLrVV5V54+VvCZMhEA0lufoOnvqvoBAKsCI/9dbf+oyK9b0DQXivowYJriM4cF0K5lfov8
+        b/lwv/n3xedvOWX5l/Lzi+1vebg+ue0ir1uePmaZxyLPWz7dV3zm3qkY0tM9iyOPf1vk+ZFNzy+olIkA
+        kN6+fP3zIvg4qt9U9QMAVgVZ4uN1Ho+I/NYETW/Ojxl/u7v8O8nepf8e7loIJz53b3m3nkN2k2Ba/n3x
+        +VtOWf6l/Pxi+1seDtLltou8bnk6EJh5LPK85dN9xWfuXfQrPf19Rx5rgrRPHyv4TJkIAOnty9c/LoKP
+        Q1rWCwD4X99esEJ2irzWBE1v9mKLv71qIagM8GRQadUxic/fXd7lts+I/DaZKzL+PnT5l/Lzi+1veThI
+        l9su8rrl6UBg5rHI85ZP9xWf+cNim888PEQ/tv3nRV6fefpYwWfKRABIb1++/m4ZgByQlfMB4APf1vUm
+        e3rewovIa81+/63KI8Xf1uSzRgafLjJQmPvJINJTx+A9n2p/lU+H+9+ryPuWD4NR8fehy7+Un19sf8vD
+        QbrcdpHXLU8HAjOPRZ63fLqv+MzaQOZfw0MvVmK7e8t98fSxgs+UiQCQ3r58/fUiADkiK+cDwAe+rZtH
+        cLMV0SOvNT1Eb67MHX9bU/7Ngr6PijKs6b23yfGOfNYssPPhPuPvQ5d/KT4vaPqB+FzO1Vttf8v3VT4f
+        yW2utr+XoCm7KxMB4OLty9cfFkHI0Vg5HwA+8G1db7LN5qmMvO4Nxny4AFX8/beLz39ks6Dvo6IMa8q7
+        yfGOfDaZCiHF34cu/1J8XtD0A/G5R3py59QVn/Y4jc9k27NmHtNrgqbsrkwEgIu3L1//tAhCjub3Vb0A
+        gP/17f75ItPNXp/3ijzW9A79vsrjWnzm3gDsf1XbHy3KseZ4P907NvJYE/i6ORXCRXxm6PJfi88Lmn4g
+        Preml++1PEdygbRfTNEQaRkEz7+tOY+WBE3ZXZkIABdvX77+ZhGEHM2/VPUCAP7Xt3XDY7+v8lgj8rg3
+        sJPuCeKtKf+qoNoeogxryrtFIC3nmqzyrnw6D2l8ZujyX4vPC5p+Ij6bAc4qj1d6+ljBZ8pEALj29uXr
+        3xaByGEs6wIA/NK3dT0/08ML/MS2a/b14dD8i/jcmuHb2Sv1ocVqthL7X3u8Hw70xrZrpl+493gPXf5r
+        sc29QcaHeynHtqMHTbO36TO9Qvew+ruGtcpEALj2Nu4q+j9U9QEAfunb/UPc00OBx9gm58NcE3z59yqf
+        Snx2TfkfXuX7lswv5PyMd82pGZ9bU948Zg8FqmO7e4No6T+qPCrx2aHLfxHbrMn/oakpYruhg6YpPr/m
+        xcQhlmWErZWJALD09uXrfy4CkiP4z6ouAMAvfVu/4EsGHu8OhOVnw9reancHqeKza1Z1T1n+p+dnTZFP
+        BpQuQcR7g6Zrj/fqwGN8fu0x+UOVTyU+O3T5L2KbNfVYHZRNsd3wQdMU26z9Ph5x99QPy/LB1spEAFh6
+        +3lu0x+vApIjsHI+ANzp2+NDcDPodDP4GH/LfPMza/P+vsrvI7HNmt6PKcuUZXuo12lsl0GkZZDq3qBp
+        HpdHyntXYDA+tzqoWeVzS3x+6PJfxHZr95O9idcGf1sETVNst2fgNOdOvfv7WJYNtlYmAkDl7cvX3y+C
+        kmdn5XwAWOHbcwGRDNZcgh4X2WvskUBsbvPI8P9HhxDn/rKsOVdnGQDO9JD5Z70ycHarXnfP35mfXWx7
+        r+wlm9/VP5Q1//2evmbhpIu7gr3XYpuhy59iu+wBXeX3mfz+85y/VgZT3/9W5bF0+qBpim3zd/DI7/oj
+        37/nLWjKaZSJAHDL25evf1wEJs/MyvkAsNK3+4Mue3pm4aBXr/T9r1W5bonPZwC2yudIDwWpU2w3dPlT
+        bLu2x+wt5Xcf6a2Cpim2z57GW/3W/h7wzv9f/O2myzawlzIRAD7y9uXrd4vg5Cktyw0AfO7bz739tu5F
+        tsbdiz/dEnk80lNxK6vmSY3PPzLMfWur5wK9iG2HLn+K7e8O1H1imqDpReST7UUGTx9pM7J397K38d29
+        xa+3gz2UiQDwmbefV9Q/8xynP1blBgA+9+3nIcuvCJx+X5VnrcgnA3mvCJz+V1Wez8R2rzre6fuqTGtE
+        HqOXP8+XLcp/K2h6b4/MLYKmh+1rKfLM8+AyfcUyeJvHN9MyUJpTMJQ9g9//dr3dTcttYWtlIgDc4+3L
+        11+Fv1wFKs/EyvkA8IRvxwfCNg3iRH6vCJw+02PzFYHHPD4PD2u/FvmMXv67g3W3LPO8iL/dO/frFkHT
+        w/a1hyiX4fmcRpkIAGu8ffn6LxmkvApYnsGfqrICAPf79nMg7Iih199X+39W5JuB06Pm3PxrVYY1Io+j
+        jnfKXn+bBBwvIr/Ry5+9IKt93ePDXsb598XnK5sEMiOfe14WnDVo+rKesrBUJgLAI96+fP11BivDD++B
+        y1f6riojALDOt30Dj9kz8eFFn+4V+8jea3v2gtyyx+MRgd6HVpq/R+Q9evkfnd/0wzLF3+/pibtV0PSw
+        fW0tynVv7/D/qLaHLZWJAPCsty9ff5OBy5DD918RRLVyPgBs6NvPw3637EWYvfo27Sn4kdzX+z6rsjwj
+        e8ZtXo/Ic+vjnX6x8M5eYj/Dlj/2kUHHNYHf76t8luJzn/XE3SyQGXnlvj4KQJ4uaBplykWlqrJWdguc
+        w0WZCABbe/t5/tMcxv/78Mfw55BD+i+2Dqz+qioHAPCcbz/P/XjvCt1LGTDKnnyHBO4que/3MjwT0Mtt
+        M1h6RADvmeOdDitrJfY7bPlznyHPlQygLuuQ5cr01T2lY5s8JrntMqi5eSAz8sx9ZbB5Wf7V+4ptdu0V
+        Hvmv6eX72yoP2FKZCAAAAB/59nNA6TogUw0HzvT8ewZDThfkyDK9l60KiqWsU6anDNy9rB6x33uPd8py
+        5mdfFpxeyrK8l2nI8vPTd5jf0S49PCPf/C0uz4db/rvKA7ZWJgIAAADAxVXQMl8ybBbQjrwyYPrZHKzX
+        vq/yga2ViQAAAABwsQhcZpDz6WkTYvuc+3ZNwDTpgcwhykQAAAAAuCiClxc5N2tOqfCv1XZL8bnLVA2P
+        zCt8ylX/6alMBAAAAICLIoB5SwZDL/PTLq3tVbqklymHKRMBAAAA4KIIYB5tl0Wo4JYyEQAAAAAuvv3c
+        U7QKZh7hr1WZYE9lIgAAAABcfPt5HtIqoLm3HNL/T1WZYE9lIgAAAABc+3Z8b9OcH/W3VVlgb2UiAAAA
+        AFz79u3//lPI1fKrAOfWcj96mPIyZSIAAAAALGUg8z2gWQU6t2LRJ16uTAQAAACAWzKwGXK+0Sro+ajv
+        wz9X+4OjlYkAAAAA8JFvP/c6zeDpMz1Pc97Sfw+CpZxKmQgAAAAA98qgZ8gV9jMAmgtGVYHUTE/5mfys
+        QCmnVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACz
+        KhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkA
+        AAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAA
+        gFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzK
+        RAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAA
+        AADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABg
+        VmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIR
+        AAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAA
+        ADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhV
+        mQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQA
+        AAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAA
+        zKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUm
+        AgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAA
+        AADm9D//5/8HLg8GL6uTIyUAAAAASUVORK5CYII=
+</value>
+  </data>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>25</value>
+  </metadata>
+</root>

Form11.vb

@@ -0,0 +1,704 @@
+Imports System.Linq
+Imports System.Data.SqlClient
+Imports System.Data.OleDb
+Imports Microsoft.Office.Core
+Imports Microsoft.Office.Interop
+Imports System.IO
+Imports System.Xml.XPath
+Imports System.Data
+Imports System.Xml
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports System.Security.Cryptography
+
+
+Public Class Form11
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim surceW As String  = My.Settings.ServerNameW
+    Dim catalogW As String  = My.Settings.ServerDatabaseW
+    Dim userW As String = My.Settings.ServerUserW
+    Dim passW As String = My.Settings.ServerUserPasW
+    Dim subnetW As String = My.Settings.SubnetW
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim rowData As String
+    Dim rowOra As String
+    Dim rowZona As String
+    Dim rowmasina As String
+    Dim rowdefect As String
+    Dim rowstatus As String
+    Dim rowindex As Int16
+    Dim cpSerial As String
+
+
+
+
+    Private Sub rowIndexv() ' command to give the row index of tha SQL table With info about labels,
+        'this row indezx help us manipulate the sql table and if a comand to update table is not succesfuly we myust delete the rows addet incorrect 
+
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                   "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                   "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "") ' conection to data string from settings 
+        Dim Cmd2 As SqlCommand ' sql command 
+        Dim rowindex1 As Int32
+        Dim query As String = "select max(id_eti) from Info_etichete"
+        con.Open()
+        Cmd2 = New SqlCommand(query, con)
+        rowindex1 = Cmd2.ExecuteScalar()
+        con.Close()
+        Label3.Text = rowindex1
+        rowindex = rowindex1 ' rowindez is declarated as a variable in the his form and will be avalabele in other subrutines 
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  ' cod for uploading data from excel files 
+        Dim conn As OleDbConnection ' we use oldb conection
+        'Dim dtr As OleDbDataReader
+        Dim dta As OleDbDataAdapter
+        'Dim cmd As OleDbCommand
+        Dim dts As DataSet
+        Dim excel As String
+        Dim OpenFileDialog As New OpenFileDialog
+
+        OpenFileDialog1.FileName = ""
+        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
+        OpenFileDialog1.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls" ' types of file avalable to be uploadet
+
+        If (OpenFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
+            DataGridView1.Columns.Clear() ' clear first tha data grid view
+
+            Dim fi As New FileInfo(OpenFileDialog1.FileName) ' name of the file 
+            Dim FileName As String = OpenFileDialog1.FileName
+            excel = fi.FullName
+            conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0") ' conection to transfor file from data file tu be updated in data grid
+            dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn) ' select from Sheet 1
+            dts = New DataSet
+            dta.Fill(dts, "[Sheet1$]")
+            DataGridView1.DataSource = dts
+            DataGridView1.DataMember = "[Sheet1$]"
+            conn.Close()
+
+            Label2.Text = FileName ' the name of the file will apear in Label 12 that is on top of data grid view
+            rowIndexv() ' update of the row index to prepare for loading them on SQL server 
+
+        End If
+    End Sub
+
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' comand that will upload info in SQL server from files that contain series labels for Hulshot 
+        Dim Msg, Style, Title, Response
+        Msg = " Esti sigur ca vrei sa incarci etichetele de Hulshot Serii?" ' msg box for confirmation
+        Style = vbYesNo
+        Title = "Interogare de siguranta"
+        Response = MsgBox(Msg, Style, Title)
+        If Response = vbNo Then ' if response is no , the program will delete the information from datagrid and wil put the program in whaiting state for new file upload
+
+            MsgBox("Se va goli Informatia din Datagrid")
+            DataGridView1.DataSource = Nothing
+        Else
+            ' the program will start uploading informations in SQL server according to the transformation required for correct labbel.
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "") ' conection for SQL
+            rowIndexv() ' get row index for the case we can not update the file 
+
+            Dim nrLinii As Integer = DataGridView1.Rows.Count - 1 ' get thr number of rows in Datagrid to prepare for Uploading in SQL
+            Try
+                For i As Integer = 0 To DataGridView1.Rows.Count - 2 ' for each row we perform upload comand in SQL
+                    ' next rows will perform file transformation to be able to upload to SQL
+                    Dim codfirma As String = "007" ' romanian code for uploading from Hulshot  companu code 007
+                    Dim comanda As String '  info for  order number  taked from Cell 2 of each row
+                    If DataGridView1.Rows(i).Cells(2).Value IsNot DBNull.Value Then ' if cell has no info  result will be -
+                        comanda = DataGridView1.Rows(i).Cells(2).Value
+                    Else
+                        comanda = "-"
+                    End If
+                    Dim linia As String
+                    ' info for  line of the order number  taked from Cell 3 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(3).Value IsNot DBNull.Value Then
+                        linia = DataGridView1.Rows(i).Cells(3).Value
+                    Else
+                        linia = "-"
+                    End If
+                    Dim cant As String
+                    ' info for  the quantity  of the order   taked from Cell 12 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(12).Value IsNot DBNull.Value Then
+                        cant = DataGridView1.Rows(i).Cells(12).Value
+                    Else
+                        cant = "-"
+                    End If
+                    Dim onsordercode As String
+                    ' info for  ons ordercode  of the order number  taked from Cell 13 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(13).Value IsNot DBNull.Value Then
+                        onsordercode = DataGridView1.Rows(i).Cells(13).Value
+                    Else
+                        onsordercode = "-"
+                    End If
+
+                    Dim descriere As String
+                    ' info for  the description  of the order number  taked from Cell 7 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(7).Value IsNot DBNull.Value Then
+                        descriere = DataGridView1.Rows(i).Cells(7).Value
+                    Else
+                        descriere = "-"
+                    End If
+                    ' info for  dimensions  of the order number  taked from Cell 9 / 10/ 11 of each row
+
+                    Dim Dimensiune1 As String = DataGridView1.Rows(i).Cells(9).Value
+                    Dim Dimensiune2 As String = DataGridView1.Rows(i).Cells(10).Value
+                    Dim Dimensiune3 As String = DataGridView1.Rows(i).Cells(11).Value
+                    Dim Client As String
+                    ' info for  name of the customer for the order number  taked from Cell 6 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(6).Value IsNot DBNull.Value Then
+                        Client = DataGridView1.Rows(i).Cells(6).Value
+                    Else
+                        Client = "-"
+                    End If
+                    Dim Strada As String
+                    ' info for  strate addres  of the order number  taked from Cell 4 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(4).Value IsNot DBNull.Value Then
+                        Strada = DataGridView1.Rows(i).Cells(4).Value
+                    Else
+                        Strada = "-"
+                    End If
+                    ' post code  we have no postcode on the files for series
+                    Dim postcode As String = "-"
+                    ' we have no information customer town  that is definde in sql as orasclient 
+                    Dim orasclient As String = "-"
+                    Dim pf As String
+                    ' info for  miercurea article code  of the order number  taked from Cell 8 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(8).Value IsNot DBNull.Value Then
+                        pf = DataGridView1.Rows(i).Cells(8).Value
+                    Else
+                        pf = "-"
+                    End If
+
+                    Dim marcaj As String
+                    ' info for  marking of the order number  taked from Cell 14 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(14).Value IsNot DBNull.Value Then
+                        marcaj = DataGridView1.Rows(i).Cells(14).Value
+                    Else
+                        marcaj = "-"
+                    End If
+                    Dim data_livrare As String
+                    ' info for  delivery date  of the order number  taked from Cell 15 of each row
+                    ' for mts orders some time delivery date is not avalable 
+                    ' if cell has no info  result will be --/--/--
+                    If DataGridView1.Rows(i).Cells(15).Value IsNot DBNull.Value Then
+                        Me.DataGridView1.Columns("hpp-dat").DefaultCellStyle.Format = "dd.MM.yyyy" ' formating cel in an accepted date format for SQL
+
+                        data_livrare = DataGridView1.Rows(i).Cells(15).Value
+                    Else
+                        data_livrare = "--/--/--"
+                    End If
+                    Dim volum As String
+                    ' info for volume  of the  covers from the order number  taked from Cell 3 of each row
+                    ' if cell has no info  result will be -
+                    If DataGridView1.Rows(i).Cells(16).Value IsNot DBNull.Value Then
+                        volum = DataGridView1.Rows(i).Cells(16).Value
+                    Else
+                        volum = "-"
+                    End If
+                    Dim barcode As String = DataGridView1.Rows(i).Cells(0).Value ' information for the barcode 
+                    Dim NumeCli As String = "Hushout" ' customer name for internal task
+                    Dim comLinia As String = comanda & "-" & linia ' gruping the order  to be able to recover from SQL after CP import 
+                    Dim comLinia1 As String = codfirma & "-" & comLinia ' gruping info for label with cod firma, an order and line 
+                    Dim dimens As String = Dimensiune1 & "X" & Dimensiune2 & "X" & Dimensiune3 ' gruping dimensions in one cell 
+                    Dim cmd As New SqlCommand("Insert into Info_etichete values ('" & comLinia & "','" & cant & "','" & comLinia1 & "','" & onsordercode & "',  
+                                           '" & descriere & "','" & dimens & "','" & Client & "','" & Strada & "','" & postcode & "','" & orasclient & "', 
+                                           '" & pf & "','" & marcaj & "','" & data_livrare & "','" & volum & "','" & barcode & "','" & NumeCli & "') ", con) ' the sql command for inserting defined values 
+
+                    con.Open()
+                    cmd.ExecuteNonQuery()
+                    con.Close()
+
+                Next ' continuing the loop for each i equal with data grid views rows number  
+
+                MsgBox("Au fost Incarcate un numar de - " & nrLinii & " linii cu succes") ' when the loop is done with no error we receve this message
+            Catch ex As Exception
+                MsgBox("Incercarea de a incarca un nr de : " & nrLinii & " linii nu a reusit, este posibil ca informatia pentru aceste etichete sa fie deja incarcata")
+                ' this is the message in case the loop has an error an not all the information was inserted.
+                Dim CmdDel As New SqlCommand("DELETE from  Info_etichete where id_eti >" & rowindex & "", con) ' if we have an error and som rows wher not corectly updated in SQL we delet the rows using the index number 
+
+                CmdDel.ExecuteNonQuery() ' execute the delet command 
+                con.Close() ' close the query
+
+            End Try
+            ' when all the data was uploadet  or it has an eror, next command will delet the info from data grid
+            DataGridView1.DataSource = Nothing
+        End If
+        rowIndexv() ' get the new index row number 
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Form15.Show() ' button for close the form and send to label upload 
+        Me.Close()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        ' this button handles the transformation for single cover, all tha transformations ar in the same method mades as for the Series covers only the colums ar a litle different
+        ' the information coms in different flavor in excel and for that we ned different transformations from the data grid to SQL
+        Dim Msg, Style, Title, Response
+        Msg = " esti sigur ca vrei sa incarci etichetele de Hulshot Single Covers?"
+        Style = vbYesNo
+        Title = "Interogare de siguranta"
+        Response = MsgBox(Msg, Style, Title)
+        If Response = vbNo Then
+
+            MsgBox("Se va goli Informatia din Datagrid")
+            DataGridView1.DataSource = Nothing
+        Else
+
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+            rowIndexv()
+            Dim nrLinii As Integer = DataGridView1.Rows.Count - 1
+
+            Try
+                For i As Integer = 0 To DataGridView1.Rows.Count - 2
+                    Dim codfirma As String = "007"
+                    Dim comanda As String
+                    If DataGridView1.Rows(i).Cells(2).Value IsNot DBNull.Value Then
+                        comanda = DataGridView1.Rows(i).Cells(2).Value
+                    Else
+                        comanda = "-"
+                    End If
+                    Dim linia As String
+                    If DataGridView1.Rows(i).Cells(3).Value IsNot DBNull.Value Then
+                        linia = DataGridView1.Rows(i).Cells(3).Value
+                    Else
+                        linia = "-"
+                    End If
+                    Dim cant As String = "1"   'DataGridView1.Rows(i).Cells(12).Value
+
+                    Dim onsordercode As String
+                    If DataGridView1.Rows(i).Cells(10).Value IsNot DBNull.Value Then
+                        onsordercode = DataGridView1.Rows(i).Cells(10).Value
+                    Else
+                        onsordercode = "-"
+                    End If
+
+                    Dim descriere As String
+                    If DataGridView1.Rows(i).Cells(6).Value IsNot DBNull.Value Then
+                        descriere = DataGridView1.Rows(i).Cells(6).Value
+                    Else
+                        descriere = "-"
+                    End If
+                    Dim Dimensiune1 As String
+                    If DataGridView1.Rows(i).Cells(7).Value IsNot DBNull.Value Then
+                        Dimensiune1 = DataGridView1.Rows(i).Cells(7).Value
+                    Else
+                        Dimensiune1 = "-"
+                    End If
+                    Dim Dimensiune2 As String
+                    If DataGridView1.Rows(i).Cells(8).Value IsNot DBNull.Value Then
+                        Dimensiune2 = DataGridView1.Rows(i).Cells(8).Value
+                    Else
+                        Dimensiune2 = "-"
+                    End If
+
+                    Dim Dimensiune3 As String
+                    If DataGridView1.Rows(i).Cells(9).Value IsNot DBNull.Value Then
+                        Dimensiune3 = DataGridView1.Rows(i).Cells(9).Value
+                    Else
+                        Dimensiune3 = "-"
+                    End If
+
+                    Dim Client As String
+                    If DataGridView1.Rows(i).Cells(11).Value IsNot DBNull.Value Then
+                        Client = DataGridView1.Rows(i).Cells(11).Value
+                    Else
+                        Client = "-"
+                    End If
+                    Dim Strada As String
+                    If DataGridView1.Rows(i).Cells(12).Value IsNot DBNull.Value Then
+                        Strada = DataGridView1.Rows(i).Cells(12).Value
+                    Else
+                        Strada = "-"
+                    End If
+
+                    Dim postcode As String
+                    If DataGridView1.Rows(i).Cells(13).Value IsNot DBNull.Value Then
+                        postcode = DataGridView1.Rows(i).Cells(13).Value
+                    Else
+                        postcode = "-"
+                    End If
+                    Dim orasclient As String
+                    If DataGridView1.Rows(i).Cells(14).Value IsNot DBNull.Value Then
+                        orasclient = DataGridView1.Rows(i).Cells(14).Value
+                    Else
+                        orasclient = "-"
+                    End If
+                    Dim pf As String = "-"
+                    Dim dateN As Date = Today()
+                    Dim duedate As Date = dateN.AddDays(9)
+                    Dim marcaj As String
+                    If DataGridView1.Rows(i).Cells(15).Value IsNot DBNull.Value Then
+                        marcaj = DataGridView1.Rows(i).Cells(15).Value
+                    Else
+                        marcaj = "-"
+                    End If
+                    Dim data_livrare As String
+                    If DataGridView1.Rows(i).Cells(16).Value IsNot DBNull.Value Then
+                        Me.DataGridView1.Columns("hpp-dat").DefaultCellStyle.Format = "dd.MM.yyyy"
+                        data_livrare = DataGridView1.Rows(i).Cells(16).Value
+                    Else
+                        data_livrare = "--/--/--"
+                    End If
+                    Dim volum As String
+                    If DataGridView1.Rows(i).Cells(17).Value IsNot DBNull.Value Then
+                        volum = DataGridView1.Rows(i).Cells(17).Value
+                    Else
+                        volum = "-"
+                    End If
+                    Dim barcode As String = DataGridView1.Rows(i).Cells(0).Value
+                    Dim NumeCli As String = "Hushout"
+                    Dim comLinia As String = comanda & "-" & linia
+                    Dim comLinia1 As String = DataGridView1.Rows(i).Cells(18).Value
+                    Dim dimens As String = Dimensiune1 & "X" & Dimensiune2 & "X" & Dimensiune3
+                    Dim cmd As New SqlCommand("Insert into Info_etichete values ('" & comLinia & "','" & cant & "','" & comLinia1 & "','" & onsordercode & "',  
+                                           '" & descriere & "','" & dimens & "','" & Client & "','" & Strada & "','" & postcode & "','" & orasclient & "', 
+                                           '" & pf & "','" & marcaj & "','" & data_livrare & "','" & volum & "','" & barcode & "','" & NumeCli & "') ", con)
+
+
+                    con.Open()
+                    cmd.ExecuteNonQuery()
+                    con.Close()
+
+                Next
+                MsgBox("Au fost Incarcate un numar de - " & nrLinii & " linii cu succes")
+            Catch ex As Exception
+
+                MsgBox("Incercarea de a incarca un nr de : " & nrLinii & " linii nu a reusit, este posibil ca informatia pentru aceste etichete sa fie deja incarcata")
+            Dim CmdDel As New SqlCommand("DELETE from  dbo.Info_etichete where id_eti  >" & rowindex & "", con)
+            con.Open()
+            CmdDel.ExecuteNonQuery()
+            con.Close()
+            End Try
+
+            DataGridView1.DataSource = Nothing
+        End If
+        rowIndexv()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        ' this button handles the transformation for Kesteren  cover, all tha transformations ar in the same method mades as for the Series covers only the colums ar a litle different
+        ' the information coms in different flavor in excel and for that we ned different transformations from the data grid to SQL
+        Dim Msg, Style, Title, Response
+        Msg = " esti sigur ca vrei sa incarci etichetele de Kesteren?"
+        Style = vbYesNo
+        Title = "Interogare de siguranta"
+        Response = MsgBox(Msg, Style, Title)
+        If Response = vbNo Then
+
+            MsgBox("Se va goli Informatia din Datagrid")
+            DataGridView1.DataSource = Nothing
+        Else
+
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                    "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                    "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+            rowIndexv()
+            Dim nrLinii As Integer = DataGridView1.Rows.Count - 1
+            Try
+                For i As Integer = 0 To DataGridView1.Rows.Count - 2
+
+                    Dim codfirma As String = "7345"
+                    Dim comanda As String
+                    If DataGridView1.Rows(i).Cells(5).Value IsNot DBNull.Value Then
+                        comanda = DataGridView1.Rows(i).Cells(5).Value
+                    Else
+                        comanda = "-"
+                    End If
+                    Dim linia As String
+                    If DataGridView1.Rows(i).Cells(6).Value IsNot DBNull.Value Then
+                        linia = DataGridView1.Rows(i).Cells(6).Value
+                    Else
+                        linia = "-"
+                    End If
+                    Dim cant As String
+                    If DataGridView1.Rows(i).Cells(10).Value IsNot DBNull.Value Then
+                        cant = DataGridView1.Rows(i).Cells(10).Value
+                    Else
+                        cant = "-"
+                    End If
+                    Dim onsordercode As String
+                    If DataGridView1.Rows(i).Cells(3).Value IsNot DBNull.Value Then
+                        onsordercode = "created on:" & DataGridView1.Rows(i).Cells(3).Value
+                    Else
+                        onsordercode = "-"
+                    End If
+                    Dim descriere As String
+                    If DataGridView1.Rows(i).Cells(8).Value IsNot DBNull.Value Then
+                        descriere = DataGridView1.Rows(i).Cells(8).Value
+                    Else
+                        descriere = "-"
+                    End If
+                    Dim Dimensiune1 As String = DataGridView1.Rows(i).Cells(7).Value
+                    Dim Dimensiune2 As String = DataGridView1.Rows(i).Cells(8).Value
+                    Dim Dimensiune3 As String = DataGridView1.Rows(i).Cells(9).Value
+                    Dim Client As String = "Aquinos Bedding Romania"
+                    'If DataGridView1.Rows(i).Cells(11).Value IsNot DBNull.Value Then
+                    'Client = DataGridView1.Rows(i).Cells(11).Value
+                    ' Else
+                    'Client = "-"
+                    'End If
+                    Dim Strada As String
+                    If DataGridView1.Rows(i).Cells(7).Value IsNot DBNull.Value Then
+                        Strada = DataGridView1.Rows(i).Cells(7).Value
+                    Else
+                        Strada = "-"
+                    End If
+                    Dim postcode As String
+                    If DataGridView1.Rows(i).Cells(5).Value IsNot DBNull.Value Then
+                        postcode = DataGridView1.Rows(i).Cells(5).Value
+                    Else
+                        postcode = "-"
+                    End If
+                    Dim orasclient As String
+                    If DataGridView1.Rows(i).Cells(6).Value IsNot DBNull.Value Then
+                        orasclient = DataGridView1.Rows(i).Cells(6).Value
+                    Else
+                        orasclient = "-"
+                    End If
+                    Dim pf As String
+                    If DataGridView1.Rows(i).Cells(9).Value IsNot DBNull.Value Then
+                        pf = DataGridView1.Rows(i).Cells(9).Value
+                    Else
+                        pf = "-"
+                    End If
+                    Dim dateN As Date = Today()
+                    Dim duedate As Date = dateN.AddDays(9)
+                    Dim marcaj As String
+                    If DataGridView1.Rows(i).Cells(11).Value IsNot DBNull.Value Then
+                        marcaj = DataGridView1.Rows(i).Cells(11).Value
+                    Else
+                        marcaj = "-"
+                    End If
+                    Dim data_livrare As String
+                    If DataGridView1.Rows(i).Cells(5).Value IsNot DBNull.Value Then
+                        Me.DataGridView1.Columns("Delivery date").DefaultCellStyle.Format = "dd.MM.yyyy"
+                        data_livrare = DataGridView1.Rows(i).Cells(4).Value
+                    Else
+                        data_livrare = "--/--/--"
+                    End If
+                    Dim volum As String
+                    If DataGridView1.Rows(i).Cells(12).Value IsNot DBNull.Value Then
+                        volum = DataGridView1.Rows(i).Cells(12).Value
+                    Else
+                        volum = "-"
+                    End If
+                    Dim barcode As String = comanda & "-" & linia
+                    Dim NumeCli As String = "Kesteren"
+                    Dim comLinia As String = comanda & "-" & linia
+                    Dim comLinia1 As String = comLinia
+                    Dim dimens As String = descriere.Substring(descriere.Length - 7)
+                    Dim cmd As New SqlCommand("insert into Info_etichete values ('" & comLinia & "','" & cant & "','" & comLinia1 & "','" & onsordercode & "',  
+                                           '" & descriere & "','" & dimens & "','" & Client & "','" & Strada & "','" & postcode & "','" & orasclient & "', 
+                                           '" & pf & "','" & marcaj & "','" & data_livrare & "','" & volum & "','" & barcode & "','" & NumeCli & "') ", con)
+
+                    con.Open()
+                    cmd.ExecuteNonQuery()
+                    con.Close()
+                Next
+                MsgBox("Au fost Incarcate un numar de - " & nrLinii & " linii cu succes")
+            Catch ex As Exception
+                MsgBox("Incercarea de a incarca un nr de : " & nrLinii & " linii nu a reusit, este posibil ca informatia pentru aceste etichete sa fie deja incarcata")
+                Dim CmdDel As New SqlCommand("DELETE from  Info_etichete where id_eti  >" & rowindex & "", con)
+
+                CmdDel.ExecuteNonQuery()
+                con.Close()
+            End Try
+
+            DataGridView1.DataSource = Nothing
+
+        End If
+        rowIndexv()
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        ' this button handles the transformation for single cover, all tha transformations ar in the same method mades as for the Series covers only the colums ar a litle different
+        ' the information coms in different flavor in excel and for that we ned different transformations from the data grid to SQL
+        Dim Msg, Style, Title, Response
+        Msg = " esti sigur ca vrei sa incarci etichetele de Bochum?"
+        Style = vbYesNo
+        Title = "Interogare de siguranta"
+
+        Response = MsgBox(Msg, Style, Title)
+        If Response = vbNo Then
+
+            MsgBox("Se va goli Informatia din Datagrid")
+            DataGridView1.DataSource = Nothing
+        Else
+
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                    "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                    "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+            rowIndexv()
+            Dim nrLinii As Integer = DataGridView1.Rows.Count - 1
+            Try
+
+                For i As Integer = 1 To DataGridView1.Rows.Count - 2
+                    Dim comanda As String
+                    If DataGridView1.Rows(i).Cells(3).Value IsNot DBNull.Value Then
+                        comanda = DataGridView1.Rows(i).Cells(3).Value
+                    Else
+                        comanda = "-"
+                    End If
+                    Dim linia As String
+                    If DataGridView1.Rows(i).Cells(4).Value IsNot DBNull.Value Then
+                        linia = DataGridView1.Rows(i).Cells(4).Value
+                    Else
+                        linia = "-"
+                    End If
+                    Dim cant As String
+                    If DataGridView1.Rows(i).Cells(9).Value IsNot DBNull.Value Then
+                        cant = DataGridView1.Rows(i).Cells(9).Value
+                    Else
+                        cant = "-"
+                    End If
+                    Dim onsordercode As String
+                    If DataGridView1.Rows(i).Cells(18).Value IsNot DBNull.Value Then
+                        onsordercode = DataGridView1.Rows(i).Cells(18).Value
+                    Else
+                        onsordercode = "-"
+                    End If
+                    Dim descriere As String
+                    If DataGridView1.Rows(i).Cells(19).Value IsNot DBNull.Value Then
+
+                        descriere = DataGridView1.Rows(i).Cells(19).Value
+                    Else
+                        descriere = "-"
+                    End If
+                    Dim Dimensiune1 As String = DataGridView1.Rows(i).Cells(7).Value
+                    Dim Dimensiune2 As String = DataGridView1.Rows(i).Cells(8).Value
+                    'Dim Dimensiune3 As String = DataGridView1.Rows(i).Cells(9).Value
+                    Dim Client As String = "Aguinos Bedding Romania" ' "Aquinos Bedding Romania" 
+                    'If DataGridView1.Rows(i).Cells(11).Value IsNot DBNull.Value Then
+                    'Client = DataGridView1.Rows(i).Cells(11).Value
+                    'Else
+                    'Client = "-"
+                    'End If
+                    Dim Strada As String ' data comenzii catre client
+                    If DataGridView1.Rows(i).Cells(20).Value IsNot DBNull.Value Then
+                        Strada = DataGridView1.Rows(i).Cells(20).Value
+                    Else
+                        Strada = "-"
+                    End If
+                    Dim postcode As String
+                    If DataGridView1.Rows(i).Cells(13).Value IsNot DBNull.Value Then
+                        postcode = DataGridView1.Rows(i).Cells(13).Value
+                    Else
+                        postcode = "-"
+                    End If
+                    Dim orasclient As String
+                    If DataGridView1.Rows(i).Cells(12).Value IsNot DBNull.Value Then
+                        orasclient = DataGridView1.Rows(i).Cells(12).Value
+                    Else
+                        orasclient = "-"
+                    End If
+                    Dim pf As String
+                    If DataGridView1.Rows(i).Cells(21).Value IsNot DBNull.Value Then
+                        pf = DataGridView1.Rows(i).Cells(21).Value
+                    Else
+                        pf = "-"
+                    End If
+                    Dim dateN As Date = Today()
+                    Dim duedate As Date = dateN.AddDays(9)
+                    Dim marcaj As String = "-"
+
+                    Dim data_livrare As String
+                    If DataGridView1.Rows(i).Cells(10).Value IsNot DBNull.Value Then
+                        Me.DataGridView1.Columns(10).DefaultCellStyle.Format = "dd.MM.yyyy"
+                        data_livrare = DataGridView1.Rows(i).Cells(10).Value
+                    Else
+                        data_livrare = "--/--/--"
+                    End If
+                    Dim volum As String = "-"
+                    ' If DataGridView1.Rows(i).Cells(12).Value IsNot DBNull.Value Then
+                    'volum = DataGridView1.Rows(i).Cells(12).Value
+                    ' Else
+                    'volum = "-"
+                    'End If
+                    Dim barcode As String = comanda & "-" & linia
+                    Dim NumeCli As String = "Bochum"
+                    Dim comLinia As String = comanda & "-" & linia
+                    Dim comLinia1 As String = comanda & "-" & linia
+                    Dim dimens As String = Dimensiune1 & "x" & Dimensiune2 & "x"
+
+                    Dim cmd As New SqlCommand("insert into Info_etichete  values ('" & comLinia & "','" & cant & "','" & comLinia1 & "','" & onsordercode & "',  
+                                           '" & descriere & "','" & dimens & "','" & Client & "','" & Strada & "','" & postcode & "','" & orasclient & "', 
+                                           '" & pf & "','" & marcaj & "','" & data_livrare & "','" & volum & "','" & barcode & "','" & NumeCli & "') ", con)
+
+                    con.Open()
+                    cmd.ExecuteNonQuery()
+                    con.Close()
+                Next
+
+                MsgBox("Au fost Incarcate un numar de - " & nrLinii & " linii cu succes")
+            Catch ex As Exception
+                MsgBox("Incercarea de a incarca un nr de : " & nrLinii & " linii nu a reusit, este posibil ca informatia pentru aceste etichete sa fie deja incarcata")
+
+                Dim CmdDel As New SqlCommand("DELETE from  Info_etichete where id_eti  >" & rowindex & "", con)
+                con.Open()
+                CmdDel.ExecuteNonQuery()
+                con.Close()
+
+            End Try
+
+
+            DataGridView1.DataSource = Nothing
+        End If
+        rowIndexv()
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs)
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select top 1 * from dbo.SERIAL order by SERIAL desc", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+        con.Close() ' inchiderea conexiuneii cu serverul
+
+        Label5.Text = DataGridView1.Rows(0).Cells(0).Value.ToString()
+        cpSerial = DataGridView1.Rows(0).Cells(0).Value.ToString()
+
+    End Sub
+
+    Private Sub Button9_Click(sender As Object, e As EventArgs)
+        Dim con1 As New SqlConnection("Data Source=" & surceW & "; Initial Catalog=" & catalogW & "; User ID=" & userW &
+                                            "; Password=" & passW & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                            "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con1.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select  * from dbo.SERIAL where serial > " & cpSerial & " ", con1)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+        con1.Close() ' inchiderea conexiuneii cu serverul
+
+    End Sub
+
+End Class

Form12.Designer.vb

@@ -0,0 +1,204 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form12
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox2.Location = New System.Drawing.Point(9, 45)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox2.MaxLength = 4
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(285, 32)
+        Me.TextBox2.TabIndex = 1
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(12, 90)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(122, 25)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Scaneaza CP"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox5.Location = New System.Drawing.Point(9, 129)
+        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox5.MaxLength = 10
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(286, 32)
+        Me.TextBox5.TabIndex = 2
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.ForeColor = System.Drawing.Color.White
+        Me.Label5.Location = New System.Drawing.Point(10, 9)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(176, 25)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Introdu Cantitatea"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
+        Me.DataGridView1.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.Raised
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Segoe UI", 16.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.Padding = New System.Windows.Forms.Padding(0, 0, 0, 4)
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle4
+        Me.DataGridView1.GridColor = System.Drawing.SystemColors.ControlLight
+        Me.DataGridView1.Location = New System.Drawing.Point(323, 21)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1004, 409)
+        Me.DataGridView1.TabIndex = 10
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.ForeColor = System.Drawing.Color.White
+        Me.Label6.Location = New System.Drawing.Point(17, 187)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(42, 20)
+        Me.Label6.TabIndex = 11
+        Me.Label6.Text = "Data"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.ForeColor = System.Drawing.Color.White
+        Me.Label7.Location = New System.Drawing.Point(164, 187)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(34, 20)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "Ora"
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Black
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Lime
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(33, 289)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(239, 41)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Inchide Formularul"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Lime
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(16, 229)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(256, 41)
+        Me.Button2.TabIndex = 15
+        Me.Button2.Text = "Sterge randul selectat"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Form12
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ClientSize = New System.Drawing.Size(1339, 439)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label2)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form12"
+        Me.RightToLeftLayout = True
+        Me.Text = "Scanare comenzi"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+End Class

Form12.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form12.vb

@@ -0,0 +1,122 @@
+
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+
+Public Class Form12
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open()
+        Dim command As New SqlCommand("select top 14 * from dbo.cusut order by id desc", con)
+        Dim sda As New SqlDataAdapter(command)
+        Dim dt As New DataTable
+        sda.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+    End Sub
+    Private Sub UserForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' text box1 incarcare valoare, set text box 2 pentru scan 
+        updateTable()
+        TextBox5.Focus()
+    End Sub
+
+    Private Sub TextBox2_TextChangeed(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
+        ' validare CP text box 2
+
+    End Sub
+
+
+    Private Sub TextBox5_TextChangeed(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
+        ' validare Calitate  text box5
+        If TextBox5.Text.Length < 10 Then
+
+        ElseIf TextBox5.Text.Length = 10 Then
+            Dim val As String
+            val = TextBox5.Text
+            If InStr(1, val, "CP") > 0 Then
+                Dim cp As String = TextBox2.Text 'string pentru SQL cp
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label6.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh: mm") 'Format time
+                Label7.Text = dTime ' update in label
+                Dim cant As String
+                cant = TextBox5.Text
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.cusut values('" & TextBox2.Text & "','" & cant & "','" & dta & "','" & dTime & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+
+                TextBox5.Clear()
+                TextBox2.Clear()
+                TextBox5.Focus()
+
+            Else
+                MsgBox("Introdu CP Corect")
+                TextBox2.Clear()
+                TextBox2.Focus()
+            End If
+        Else
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' inchidere forma scanare articole
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        ' stergere rand din datagrid
+        Dim result1 As DialogResult = MsgBox("Sigur Vrei sa strigi linia selectata ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo,
+                                             "Confirmare stergere Linie")
+        If DialogResult.OK Then 'confirmare MsgBox
+            ' cod stergere din SQL
+            If rowIdval >= 0 Then ' id row datagrid din sub datagrid
+                Dim id As Integer = rowIdval
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                         "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                         "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Delete  calitate.dbo.cusut where  id = '" & id & "'", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                MsgBox(" Linia a fost stearsa")
+                TextBox2.Focus()
+            End If
+        Else
+            MsgBox(" Ai anulat stergerea liniei")
+        End If
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("id").Value.ToString()
+            rowIdval = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+        End If
+    End Sub
+End Class

Form13.Designer.vb

@@ -0,0 +1,179 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form13
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(131, 20)
+        Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(140, 29)
+        Me.DateTimePicker1.TabIndex = 0
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker3)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
+        Me.GroupBox1.Location = New System.Drawing.Point(31, 16)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Size = New System.Drawing.Size(557, 64)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Alege intervalul din care trebuie sa faci exportul in excel"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(290, 23)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(79, 21)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "End Date"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker3.Location = New System.Drawing.Point(389, 20)
+        Me.DateTimePicker3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(140, 29)
+        Me.DateTimePicker3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(15, 24)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(86, 21)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Start Date"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(10, 94)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1143, 398)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(623, 31)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(170, 40)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Preview"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.Location = New System.Drawing.Point(822, 30)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(170, 40)
+        Me.Button2.TabIndex = 4
+        Me.Button2.Text = "Export to Excel"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Red
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(998, 16)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(156, 59)
+        Me.Button3.TabIndex = 5
+        Me.Button3.Text = "Inchide program"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Form13
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1183, 511)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form13"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Export from SQL Database Cusut"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

Form13.resx

@@ -0,0 +1,63 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Form13.vb

@@ -0,0 +1,89 @@
+Imports System.IO
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+
+
+Public Class Form13
+
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+
+
+
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                           "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                           "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+        Dim command As New SqlCommand("select * from calitate.dbo.cusut where [data] between @date1 and @date2", con)
+        command.Parameters.Add("date1", SqlDbType.Date).Value = DateTimePicker1.Value
+        command.Parameters.Add("date2", SqlDbType.Date).Value = DateTimePicker3.Value
+        Dim da As New SqlDataAdapter
+        da.SelectCommand = command
+        Dim dt As New DataTable
+        dt.Clear()
+        da.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim saveFileDialog As New SaveFileDialog()
+
+
+        'Dim fileName As String = "Cusut" & "-" & dta & ".csv"
+        saveFileDialog.Filter = "CSV (.csv)|.csv"
+        Dim dta As String 'string pentru SQL data
+        dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+        saveFileDialog.FileName = "Cusut" & "-" & dta & ".csv"
+        If (saveFileDialog.ShowDialog() = DialogResult.OK) Then
+            Using sw As New StreamWriter(saveFileDialog.FileName)
+                Dim columnCount As Integer = DataGridView1.ColumnCount
+                For i As Integer = 0 To columnCount - 1
+                    sw.Write(DataGridView1.Columns(i).HeaderText)
+                    If (i < columnCount - 1) Then
+                        sw.Write(","c)
+                    End If
+                Next
+                sw.Write(sw.NewLine)
+                For Each row As DataGridViewRow In DataGridView1.Rows
+                    For i As Integer = 0 To row.Cells.Count - 1
+                        If Not row.IsNewRow Then
+                            sw.Write(row.Cells(i).Value.ToString())
+                        End If
+                        If (i < row.Cells.Count - 1) Then
+                            sw.Write(","c)
+                        End If
+                    Next
+                    sw.Write(sw.NewLine)
+                Next
+                sw.Close()
+            End Using
+            MessageBox.Show("CSV file saved.")
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+End Class
+
+

Form14.Designer.vb

@@ -0,0 +1,268 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form14
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form14))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ScanCP = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.BTPRINT = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
+        Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(12, 85)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(83, 25)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Scan CP"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'ScanCP
+        '
+        Me.ScanCP.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ScanCP.Location = New System.Drawing.Point(109, 77)
+        Me.ScanCP.MaxLength = 10
+        Me.ScanCP.Name = "ScanCP"
+        Me.ScanCP.Size = New System.Drawing.Size(275, 33)
+        Me.ScanCP.TabIndex = 1
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 126)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowTemplate.Height = 25
+        Me.DataGridView1.Size = New System.Drawing.Size(1367, 109)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(431, 80)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(218, 25)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Comanda si linia Client:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(655, 80)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(17, 25)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = ":"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'BTPRINT
+        '
+        Me.BTPRINT.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.BTPRINT.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.BTPRINT.Location = New System.Drawing.Point(12, 251)
+        Me.BTPRINT.Name = "BTPRINT"
+        Me.BTPRINT.Size = New System.Drawing.Size(324, 86)
+        Me.BTPRINT.TabIndex = 5
+        Me.BTPRINT.Text = "Print"
+        Me.BTPRINT.UseVisualStyleBackColor = False
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(27, 24)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(176, 25)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Alege Imprimanta "
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(209, 16)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(287, 33)
+        Me.ComboBox1.TabIndex = 7
+        '
+        'PrintDialog1
+        '
+        Me.PrintDialog1.UseEXDialog = True
+        '
+        'PrintPreviewDialog1
+        '
+        Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
+        Me.PrintPreviewDialog1.Enabled = True
+        Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
+        Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
+        Me.PrintPreviewDialog1.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(898, 80)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(126, 25)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Cantitate CP:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(1030, 80)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(17, 25)
+        Me.Label6.TabIndex = 9
+        Me.Label6.Tag = ""
+        Me.Label6.Text = ":"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(972, 24)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(17, 25)
+        Me.Label7.TabIndex = 11
+        Me.Label7.Tag = ""
+        Me.Label7.Text = ":"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(898, 24)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(68, 25)
+        Me.Label8.TabIndex = 10
+        Me.Label8.Text = "Client:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Location = New System.Drawing.Point(1270, 241)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 300)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox1.TabIndex = 12
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Location = New System.Drawing.Point(955, 262)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(300, 100)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.TabIndex = 13
+        Me.PictureBox2.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button1.Location = New System.Drawing.Point(12, 411)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(324, 86)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Inchide printul"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Form14
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1391, 553)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.BTPRINT)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.ScanCP)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "Form14"
+        Me.Text = "Print Etichete"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ScanCP As TextBox
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents BTPRINT As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents PrintDialog1 As PrintDialog
+    Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Button1 As Button
+End Class

Form14.resx

@@ -0,0 +1,90 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="PrintDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="PrintPreviewDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>136, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PrintPreviewDialog1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAEBAAAAAAIAAoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b2
+        9v////8A////AP///wD///8A9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/////AP///wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv9CQkL/9vb2/////wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/QkJC//b29v////8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v////8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////APb29v/29vb/9vb2//b2
+        9v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD///8A////AP//
+        /wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A////AP//
+        /wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////AP//
+        /wD///8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP//
+        /wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2////
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A
+</value>
+  </data>
+</root>

Form14.vb

@@ -0,0 +1,374 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+Imports DocumentFormat.OpenXml.VariantTypes
+Imports System.Drawing.Printing
+Imports System.Reflection
+Imports DocumentFormat.OpenXml.Bibliography
+
+Public Class Form14
+    Dim DataString As String = My.Settings.subnet ' informatii cu privire la subnet 
+    Dim surce As String = My.Settings.serverName ' informatii preluate din system settings numele servarului
+    Dim catalog As String = My.Settings.serverdatabase ' informatii din system setings cu privire la numele bazei de date
+    Dim user As String = My.Settings.serverUser ' informatii din system setings cu privire la userul de introducere a datelor in baza de date 
+    Dim pass As String = My.Settings.serverUserpass ' informatii din system setings cu privire la parola userului
+    Dim timeout As String = My.Settings.timeout ' informatii din system setings cu privire la server time out
+    Dim encrypt As String = My.Settings.encrypt ' ' informatii din system setings cu privire la encriptie 
+    Dim trust As String = My.Settings.cert ' informatii din system setings cu privire la certificate 
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim comCli As String
+    Dim comCli2 As String
+    Dim plusCpSerie As String
+    Dim cpserie As String
+    Dim row As Integer = 0
+    'Dim dataStringforE As String
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Get available printers and add them to combo box
+        For Each printer As String In PrinterSettings.InstalledPrinters
+            ComboBox1.Items.Add(printer)
+        Next
+    End Sub
+
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select * from Info_etichete where Comanda_Linia = '" & comCli & "' ", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+        Me.DataGridView1.Columns("Data_Livrare").DefaultCellStyle.Format = "yyyy.MM.dd"
+
+        con.Close() ' inchiderea conexiuneii cu serverul
+        Dim clientDataGrid As String
+        clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+    End Sub
+
+    Private Sub ScanCP_TextChangeed(sender As Object, e As EventArgs) Handles ScanCP.TextChanged
+
+        If ScanCP.Text.Length < 10 Then
+
+        ElseIf ScanCP.Text.Length = 10 Then
+            Dim val As String
+            val = ScanCP.Text
+            If InStr(1, val, "CP") > 0 Then
+
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+                Dim command As New SqlCommand("select Com_Achiz_Client  from CP_Import_Wiz where Comanda_Productie = '" & val & "' ", con)
+                Dim command2 As New SqlCommand("select Cantitate_Com_Prod  from CP_Import_Wiz where Comanda_Productie = '" & val & "' ", con)
+
+                con.Open() ' deschiderea conexiuni cu serverul
+
+                comCli = CStr(command.ExecuteScalar())
+                comCli2 = CStr(command2.ExecuteScalar())
+
+                Label3.Text = comCli
+                Label6.Text = comCli2
+                updateTable()
+                Dim clientDataGrid As String
+                clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+                Label7.Text = clientDataGrid
+            Else
+                MsgBox("Scaneaza codul CP corect") ' cod de eroare in cazul introducerii codului gresit
+                ScanCP.Focus() 'focus pe textbox 1 
+            End If
+        Else
+
+        End If
+        cpserie = ScanCP.Text & "-00" & Label6.Text
+
+
+
+    End Sub
+
+    Dim WithEvents PD As New PrintDocument
+    Dim WithEvents PD1 As New PrintDocument
+    Dim PPD As New PrintPreviewDialog
+    Dim PPD1 As New PrintPreviewDialog
+
+
+
+    Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
+        PPD.Document = PD
+        PPD1.Document = PD1
+        If comCli2 < 5 Then
+            Dim serieCant As Integer
+            serieCant = comCli2
+            For i As Integer = 1 To serieCant
+                Dim number As String = i.ToString().PadLeft(3, "0"c)
+                plusCpSerie = number.ToString()
+                Dim rowCount As Integer = DataGridView1.RowCount
+                If rowCount = serieCant Then
+                    row = serieCant - 1
+                Else
+                    row = 0
+                End If
+                PD.Print() 'Direct Print
+                PD.Print() ' PPD.ShowDialog()
+            Next
+
+        Else
+
+            Dim serieCant As Integer
+            serieCant = comCli2
+            For i As Integer = 1 To serieCant
+                Dim number As String = i.ToString().PadLeft(3, "0"c)
+                plusCpSerie = number.ToString()
+                Dim rowCount As Integer = DataGridView1.RowCount
+                If rowCount = serieCant Then
+                    row = serieCant - 1
+                Else
+                    row = 0
+                End If
+                PD.Print() 'Direct Print
+
+            Next
+            PD1.Print()
+        End If
+        DataGridView1.DataSource = Nothing
+        ScanCP.Clear()
+        ScanCP.Focus()
+    End Sub
+
+    Private Sub PD_BeginPrint(sender As Object, e As PrintEventArgs) Handles PD.BeginPrint
+        Dim pagesetup As New PageSettings
+        pagesetup.PaperSize = New PaperSize("Custom", 300, 500)
+        PD.DefaultPageSettings = pagesetup
+        PD1.DefaultPageSettings = pagesetup
+        If ComboBox1.Text = "" Then
+            MsgBox("Selecteaza un printer")
+        Else
+            PD.PrinterSettings.PrinterName = ComboBox1.SelectedItem.ToString()
+            PD1.PrinterSettings.PrinterName = ComboBox1.SelectedItem.ToString()
+        End If
+
+    End Sub
+
+    Private Sub PD_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+        Dim cpserie As String
+        cpserie = ScanCP.Text + "-" + plusCpSerie
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(1).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(13).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(14).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 60, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        Dim cpBarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim cpbarcodeimage As Image
+        cpbarcodeimage = New Bitmap(cpBarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, cpserie))
+        PictureBox2.Image = cpbarcodeimage
+        PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
+        PictureBox2.Size = New Size(300, 200)
+        e.Graphics.DrawImage(PictureBox2.Image, -55, 353, 400, 100)
+        PictureBox1.Dispose()
+        PictureBox2.Dispose()
+        'InfoPrintEtichete()
+
+        Try
+            Dim cpserieE As String = cpserie
+            Dim comLiniaE As String = DataGridView1.Rows(row).Cells(0).Value.ToString()
+            Dim cantGE As String = DataGridView1.Rows(row).Cells(1).Value.ToString()
+            Dim comLinia1E As String = DataGridView1.Rows(row).Cells(2).Value.ToString()
+            Dim onsE As String = DataGridView1.Rows(row).Cells(3).Value.ToString()
+            Dim descrE As String = DataGridView1.Rows(row).Cells(4).Value.ToString()
+            Dim dimE As String = DataGridView1.Rows(row).Cells(5).Value.ToString()
+            Dim clientE As String = DataGridView1.Rows(row).Cells(6).Value.ToString()
+            Dim stradaE As String = DataGridView1.Rows(row).Cells(7).Value.ToString()
+            Dim pCodeE As String = DataGridView1.Rows(row).Cells(8).Value.ToString()
+            Dim orasClientE As String = DataGridView1.Rows(row).Cells(9).Value.ToString()
+            Dim pfE As String = DataGridView1.Rows(row).Cells(10).Value.ToString()
+            Dim marcajE As String = DataGridView1.Rows(row).Cells(11).Value.ToString()
+            Dim dataStringE As Date = DataGridView1.Rows(row).Cells(12).Value
+            Dim volE As String = DataGridView1.Rows(row).Cells(13).Value.ToString()
+            Dim barcodeE As String = DataGridView1.Rows(row).Cells(14).Value.ToString()
+            Dim numeClientE As String = DataGridView1.Rows(row).Cells(15).Value.ToString()
+
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                    "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                    "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+            'con.Open() ' deschiderea conexiuni cu serverul
+            Dim command As New SqlCommand("INSERT INTO Etichete_Printate  VALUES('" & cpserieE & "','" & comLiniaE & "','" & cantGE & "','" & comLinia1E & "','" & onsE & "',
+                                       '" & descrE & "','" & dimE & "','" & clientE & "','" & stradaE & "','" & pCodeE & "','" & orasClientE & "','" & pfE & "',
+                                       '" & marcajE & "','" & dataStringE & "','" & volE & "','" & barcodeE & "','" & numeClientE & "')", con)
+
+            con.Open()
+            command.ExecuteNonQuery()
+            con.Close()
+        Catch ex As Exception
+
+        End Try
+
+
+
+
+
+    End Sub
+
+    Private Sub PD1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+        Dim cpserie As String
+        cpserie = ScanCP.Text + "-" + plusCpSerie
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(1).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(13).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(14).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 70, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        PictureBox1.Dispose()
+
+
+
+
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form15.Show()
+        Me.Close()
+    End Sub
+End Class

Form15.Designer.vb

@@ -0,0 +1,126 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form15
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Button5 = New System.Windows.Forms.Button()
+        Me.Button6 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Lime
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.Location = New System.Drawing.Point(29, 24)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(404, 52)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Meniu Incarcare Etichete"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.Cyan
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.Location = New System.Drawing.Point(29, 93)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(404, 52)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "Printare Etichete "
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Cyan
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.Location = New System.Drawing.Point(28, 165)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(404, 52)
+        Me.Button3.TabIndex = 2
+        Me.Button3.Text = "Printare Etichete  Bochum"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.Cyan
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button4.Location = New System.Drawing.Point(28, 240)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(404, 52)
+        Me.Button4.TabIndex = 3
+        Me.Button4.Text = "Printare Etichete Pierdute"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'Button5
+        '
+        Me.Button5.BackColor = System.Drawing.Color.Red
+        Me.Button5.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button5.ForeColor = System.Drawing.Color.White
+        Me.Button5.Location = New System.Drawing.Point(28, 383)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(404, 52)
+        Me.Button5.TabIndex = 4
+        Me.Button5.Text = "Inchide Meniul Etichetelor"
+        Me.Button5.UseVisualStyleBackColor = False
+        '
+        'Button6
+        '
+        Me.Button6.BackColor = System.Drawing.Color.Lime
+        Me.Button6.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button6.Location = New System.Drawing.Point(28, 318)
+        Me.Button6.Name = "Button6"
+        Me.Button6.Size = New System.Drawing.Size(403, 46)
+        Me.Button6.TabIndex = 5
+        Me.Button6.Text = "Printare Etichete MTS"
+        Me.Button6.UseVisualStyleBackColor = False
+        '
+        'Form15
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(481, 481)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button6)
+        Me.Controls.Add(Me.Button5)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Name = "Form15"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Modul Management Etichete"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+    Friend WithEvents Button5 As Button
+    Friend WithEvents Button6 As Button
+End Class

Form15.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form15.vb

@@ -0,0 +1,32 @@
+Public Class Form15
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form11.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form14.Show()
+        Me.Hide()
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form16.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Form17.Show()
+        Me.Hide()
+    End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Form18.Show()
+        Me.Hide()
+    End Sub
+End Class

Form16.Designer.vb

@@ -0,0 +1,268 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form16
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form16))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ScanCP = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.BTPRINT = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
+        Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(12, 85)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(83, 25)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Scan CP"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'ScanCP
+        '
+        Me.ScanCP.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ScanCP.Location = New System.Drawing.Point(109, 77)
+        Me.ScanCP.MaxLength = 10
+        Me.ScanCP.Name = "ScanCP"
+        Me.ScanCP.Size = New System.Drawing.Size(275, 33)
+        Me.ScanCP.TabIndex = 1
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 126)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowTemplate.Height = 25
+        Me.DataGridView1.Size = New System.Drawing.Size(1239, 268)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(431, 80)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(218, 25)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Comanda si linia Client:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(655, 80)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(17, 25)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = ":"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'BTPRINT
+        '
+        Me.BTPRINT.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.BTPRINT.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.BTPRINT.Location = New System.Drawing.Point(12, 432)
+        Me.BTPRINT.Name = "BTPRINT"
+        Me.BTPRINT.Size = New System.Drawing.Size(324, 86)
+        Me.BTPRINT.TabIndex = 5
+        Me.BTPRINT.Text = "Print"
+        Me.BTPRINT.UseVisualStyleBackColor = False
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(27, 24)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(176, 25)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Alege Imprimanta "
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(209, 16)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(287, 33)
+        Me.ComboBox1.TabIndex = 7
+        '
+        'PrintDialog1
+        '
+        Me.PrintDialog1.UseEXDialog = True
+        '
+        'PrintPreviewDialog1
+        '
+        Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
+        Me.PrintPreviewDialog1.Enabled = True
+        Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
+        Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
+        Me.PrintPreviewDialog1.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(898, 80)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(126, 25)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Cantitate CP:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(1030, 80)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(17, 25)
+        Me.Label6.TabIndex = 9
+        Me.Label6.Tag = ""
+        Me.Label6.Text = ":"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(972, 24)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(17, 25)
+        Me.Label7.TabIndex = 11
+        Me.Label7.Tag = ""
+        Me.Label7.Text = ":"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(898, 24)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(68, 25)
+        Me.Label8.TabIndex = 10
+        Me.Label8.Text = "Client:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Location = New System.Drawing.Point(1270, 241)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 300)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox1.TabIndex = 12
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Location = New System.Drawing.Point(951, 418)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(300, 100)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.TabIndex = 13
+        Me.PictureBox2.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button1.Location = New System.Drawing.Point(348, 432)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(324, 86)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Inchide printul"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Form16
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1391, 553)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.BTPRINT)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.ScanCP)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "Form16"
+        Me.Text = "Print Etichete"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ScanCP As TextBox
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents BTPRINT As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents PrintDialog1 As PrintDialog
+    Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Button1 As Button
+End Class

Form16.resx

@@ -0,0 +1,90 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="PrintDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="PrintPreviewDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>136, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PrintPreviewDialog1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAEBAAAAAAIAAoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b2
+        9v////8A////AP///wD///8A9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/////AP///wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv9CQkL/9vb2/////wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/QkJC//b29v////8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v////8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////APb29v/29vb/9vb2//b2
+        9v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD///8A////AP//
+        /wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A////AP//
+        /wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////AP//
+        /wD///8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP//
+        /wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2////
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A
+</value>
+  </data>
+</root>

Form16.vb

@@ -0,0 +1,371 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+Imports DocumentFormat.OpenXml.VariantTypes
+Imports System.Drawing.Printing
+Imports System.Reflection
+Imports DocumentFormat.OpenXml.Bibliography
+
+Public Class Form16
+    Dim DataString As String = My.Settings.subnet ' informatii cu privire la subnet 
+    Dim surce As String = My.Settings.serverName ' informatii preluate din system settings numele servarului
+    Dim catalog As String = My.Settings.serverdatabase ' informatii din system setings cu privire la numele bazei de date
+    Dim user As String = My.Settings.serverUser ' informatii din system setings cu privire la userul de introducere a datelor in baza de date 
+    Dim pass As String = My.Settings.serverUserpass ' informatii din system setings cu privire la parola userului
+    Dim timeout As String = My.Settings.timeout ' informatii din system setings cu privire la server time out
+    Dim encrypt As String = My.Settings.encrypt ' ' informatii din system setings cu privire la encriptie 
+    Dim trust As String = My.Settings.cert ' informatii din system setings cu privire la certificate 
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim comCli As String
+    Dim comCli2 As String
+    Dim plusCpSerie As String
+    Dim cpserie As String
+    Dim row As Integer = 0
+    'Dim dataStringforE As String
+
+    Private Sub Form16_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Get available printers and add them to combo box
+        For Each printer As String In PrinterSettings.InstalledPrinters
+            ComboBox1.Items.Add(printer)
+        Next
+    End Sub
+
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select * from Info_etichete where Comanda_Linia = '" & comCli & "' ", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+
+        con.Close() ' inchiderea conexiuneii cu serverul
+
+    End Sub
+
+    Private Sub ScanCP_TextChangeed(sender As Object, e As EventArgs) Handles ScanCP.TextChanged
+        ' validare text box 1 cu OQ
+        ' acest text box are o lungime a stringului de 4 caractere
+        If ScanCP.Text.Length < 10 Then
+            ' caod de validare a criteriilor de Operator calitate OQ01 OQ02 OQ03 OQ04....
+        ElseIf ScanCP.Text.Length = 10 Then
+            Dim val As String
+            val = ScanCP.Text
+            If InStr(1, val, "CP") > 0 Then
+
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+                Dim command As New SqlCommand("select Com_Achiz_Client  from CP_Import_Wiz where Comanda_Productie = '" & val & "' ", con)
+                Dim command2 As New SqlCommand("select Cantitate_Com_Prod  from CP_Import_Wiz where Comanda_Productie = '" & val & "' ", con)
+
+                con.Open() ' deschiderea conexiuni cu serverul
+
+                comCli = CStr(command.ExecuteScalar())
+                comCli2 = CStr(command2.ExecuteScalar())
+
+                Label3.Text = comCli
+                Label6.Text = comCli2
+                updateTable()
+                Dim clientDataGrid As String
+                clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+                Label7.Text = clientDataGrid
+            Else
+                MsgBox("Scaneaza codul CP corect") ' cod de eroare in cazul introducerii codului gresit
+                ScanCP.Focus() 'focus pe textbox 1 
+            End If
+        Else
+
+        End If
+        cpserie = ScanCP.Text & "-00" & Label6.Text
+
+
+    End Sub
+
+    Dim WithEvents PD As New PrintDocument
+    Dim PPD As New PrintPreviewDialog
+    Dim WithEvents PD1 As New PrintDocument
+    Dim PPD1 As New PrintPreviewDialog
+
+
+    Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
+        PPD.Document = PD
+        PPD1.Document = PD1
+        If comCli2 < 5 Then
+            Dim serieCant As Integer
+            serieCant = comCli2
+            For i As Integer = 1 To serieCant
+                Dim number As String = i.ToString().PadLeft(3, "0"c)
+                plusCpSerie = number.ToString()
+                Dim rowCount As Integer = DataGridView1.RowCount
+                If rowCount = serieCant Then
+                    row = serieCant - 1
+                Else
+                    row = 0
+                End If
+                PD.Print() 'Direct Print
+                PD.Print() ' PPD.ShowDialog()
+            Next
+
+        Else
+
+            Dim serieCant As Integer
+            serieCant = comCli2
+            For i As Integer = 1 To serieCant
+                Dim number As String = i.ToString().PadLeft(3, "0"c)
+                plusCpSerie = number.ToString()
+                Dim rowCount As Integer = DataGridView1.RowCount
+                If rowCount = serieCant Then
+                    row = serieCant - 1
+                Else
+                    row = 0
+                End If
+                PD.Print() 'Direct Print
+                PD1.Print()
+            Next
+
+        End If
+        DataGridView1.DataSource = Nothing
+        ScanCP.Clear()
+        ScanCP.Focus()
+
+
+    End Sub
+
+    Private Sub PD_BeginPrint(sender As Object, e As PrintEventArgs) Handles PD.BeginPrint
+        Dim pagesetup As New PageSettings
+        pagesetup.PaperSize = New PaperSize("Custom", 300, 500)
+        PD.DefaultPageSettings = pagesetup
+        If ComboBox1.Text = "" Then
+            MsgBox("Selecteaza un printer")
+        Else
+            PD.PrinterSettings.PrinterName = ComboBox1.SelectedItem.ToString()
+        End If
+
+    End Sub
+
+    Private Sub PD_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+        Dim cpserie As String
+        cpserie = ScanCP.Text + "-" + plusCpSerie
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(1).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(13).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(14).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 60, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        Dim cpBarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim cpbarcodeimage As Image
+        cpbarcodeimage = New Bitmap(cpBarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, cpserie))
+        PictureBox2.Image = cpbarcodeimage
+        PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
+        PictureBox2.Size = New Size(300, 200)
+        e.Graphics.DrawImage(PictureBox2.Image, -50, 353, 400, 100)
+        PictureBox1.Dispose()
+        PictureBox2.Dispose()
+
+
+        Try
+            Dim cpserieE As String = cpserie
+            Dim comLiniaE As String = DataGridView1.Rows(row).Cells(0).Value.ToString()
+            Dim cantGE As String = DataGridView1.Rows(row).Cells(1).Value.ToString()
+            Dim comLinia1E As String = DataGridView1.Rows(row).Cells(2).Value.ToString()
+            Dim onsE As String = DataGridView1.Rows(row).Cells(3).Value.ToString()
+            Dim descrE As String = DataGridView1.Rows(row).Cells(4).Value.ToString(0)
+            Dim dimE As String = DataGridView1.Rows(row).Cells(5).Value.ToString(0)
+            Dim clientE As String = DataGridView1.Rows(row).Cells(6).Value.ToString()
+            Dim stradaE As String = DataGridView1.Rows(row).Cells(7).Value.ToString()
+            Dim pCodeE As String = DataGridView1.Rows(row).Cells(8).Value.ToString()
+            Dim orasClientE As String = DataGridView1.Rows(row).Cells(9).Value.ToString()
+            Dim pfE As String = DataGridView1.Rows(row).Cells(10).Value.ToString()
+            Dim marcajE As String = DataGridView1.Rows(row).Cells(11).Value.ToString(0)
+
+
+            Dim dataStringE As String
+            dataStringE = DataGridView1.Rows(row).Cells(12).Value
+
+            Dim volE As String = DataGridView1.Rows(row).Cells(13).Value.ToString()
+            Dim barcodeE As String = DataGridView1.Rows(row).Cells(14).Value.ToString()
+            Dim numeClientE As String = DataGridView1.Rows(row).Cells(15).Value.ToString()
+
+            Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                    "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                    "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+            'con.Open() ' deschiderea conexiuni cu serverul
+            Dim command As New SqlCommand("INSERT INTO Etichete_Printate  VALUES('" & cpserieE & "','" & comLiniaE & "','" & cantGE & "','" & comLinia1E & "','" & onsE & "',
+                                       '" & descrE & "','" & dimE & "','" & clientE & "','" & stradaE & "','" & pCodeE & "','" & orasClientE & "','" & pfE & "',
+                                       '" & marcajE & "','" & dataStringE & "','" & volE & "','" & barcodeE & "','" & numeClientE & "')", con)
+
+            con.Open()
+            command.ExecuteNonQuery()
+            con.Close()
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub PD1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+        Dim cpserie As String
+        cpserie = ScanCP.Text + "-" + plusCpSerie
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(1).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(13).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(14).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 60, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        PictureBox1.Dispose()
+
+
+        Label7.Text = "-"
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form15.Show()
+        Me.Close()
+    End Sub
+End Class

Form17.Designer.vb

@@ -0,0 +1,268 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form17
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form17))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.ScanCP = New System.Windows.Forms.TextBox()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.BTPRINT = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
+        Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(12, 85)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(83, 25)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Scan CP"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'ScanCP
+        '
+        Me.ScanCP.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ScanCP.Location = New System.Drawing.Point(109, 77)
+        Me.ScanCP.MaxLength = 10
+        Me.ScanCP.Name = "ScanCP"
+        Me.ScanCP.Size = New System.Drawing.Size(275, 33)
+        Me.ScanCP.TabIndex = 1
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 126)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowTemplate.Height = 25
+        Me.DataGridView1.Size = New System.Drawing.Size(1341, 282)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(431, 80)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(218, 25)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Comanda si linia Client:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(655, 80)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(17, 25)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = ":"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'BTPRINT
+        '
+        Me.BTPRINT.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.BTPRINT.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.BTPRINT.Location = New System.Drawing.Point(12, 438)
+        Me.BTPRINT.Name = "BTPRINT"
+        Me.BTPRINT.Size = New System.Drawing.Size(324, 86)
+        Me.BTPRINT.TabIndex = 5
+        Me.BTPRINT.Text = "Print"
+        Me.BTPRINT.UseVisualStyleBackColor = False
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(27, 24)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(176, 25)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Alege Imprimanta "
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(209, 16)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(287, 33)
+        Me.ComboBox1.TabIndex = 7
+        '
+        'PrintDialog1
+        '
+        Me.PrintDialog1.UseEXDialog = True
+        '
+        'PrintPreviewDialog1
+        '
+        Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
+        Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
+        Me.PrintPreviewDialog1.Enabled = True
+        Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
+        Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
+        Me.PrintPreviewDialog1.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(898, 80)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(126, 25)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Cantitate CP:"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(1030, 80)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(17, 25)
+        Me.Label6.TabIndex = 9
+        Me.Label6.Tag = ""
+        Me.Label6.Text = ":"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Location = New System.Drawing.Point(1378, 251)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(100, 300)
+        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox1.TabIndex = 12
+        Me.PictureBox1.TabStop = False
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Location = New System.Drawing.Point(1053, 438)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(300, 100)
+        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox2.TabIndex = 13
+        Me.PictureBox2.TabStop = False
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI Black", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Button1.Location = New System.Drawing.Point(376, 438)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(324, 86)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Inchide printul"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(972, 24)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(17, 25)
+        Me.Label7.TabIndex = 11
+        Me.Label7.Tag = ""
+        Me.Label7.Text = ":"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(898, 24)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(68, 25)
+        Me.Label8.TabIndex = 10
+        Me.Label8.Text = "Client:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Form17
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1490, 553)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.PictureBox2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.BTPRINT)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.ScanCP)
+        Me.Controls.Add(Me.Label1)
+        Me.Name = "Form17"
+        Me.Text = "Print Etichete"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ScanCP As TextBox
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents BTPRINT As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents PrintDialog1 As PrintDialog
+    Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+End Class

Form17.resx

@@ -0,0 +1,90 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="PrintDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="PrintPreviewDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>136, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PrintPreviewDialog1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAEBAAAAAAIAAoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b2
+        9v////8A////AP///wD///8A9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/////AP///wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv9CQkL/9vb2/////wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/QkJC//b29v////8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v////8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////APb29v/29vb/9vb2//b2
+        9v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD///8A////AP//
+        /wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A////AP//
+        /wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////AP//
+        /wD///8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP//
+        /wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2////
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A
+</value>
+  </data>
+</root>

Form17.vb

@@ -0,0 +1,221 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+Imports DocumentFormat.OpenXml.VariantTypes
+Imports System.Drawing.Printing
+Imports System.Reflection
+Imports DocumentFormat.OpenXml.Bibliography
+
+Public Class Form17
+    Dim DataString As String = My.Settings.subnet ' informatii cu privire la subnet 
+    Dim surce As String = My.Settings.serverName ' informatii preluate din system settings numele servarului
+    Dim catalog As String = My.Settings.serverdatabase ' informatii din system setings cu privire la numele bazei de date
+    Dim user As String = My.Settings.serverUser ' informatii din system setings cu privire la userul de introducere a datelor in baza de date 
+    Dim pass As String = My.Settings.serverUserpass ' informatii din system setings cu privire la parola userului
+    Dim timeout As String = My.Settings.timeout ' informatii din system setings cu privire la server time out
+    Dim encrypt As String = My.Settings.encrypt ' ' informatii din system setings cu privire la encriptie 
+    Dim trust As String = My.Settings.cert ' informatii din system setings cu privire la certificate 
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim comCli As String
+    Dim comCli2 As String
+    Dim plusCpSerie As String
+    Dim cpserie As String
+    Dim CP_Seriat As String
+    Dim row As Integer = 0
+    'Dim dataStringforE As String
+
+    Private Sub Form17_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Get available printers and add them to combo box
+        For Each printer As String In PrinterSettings.InstalledPrinters
+            ComboBox1.Items.Add(printer)
+        Next
+    End Sub
+
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select * from Etichete_Printate where SUBSTRING (CP_Seriat, 1, 10) = '" & CP_Seriat & "' ", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+
+        con.Close() ' inchiderea conexiuneii cu serverul
+        Dim clientDataGrid As String
+        clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+        Label7.Text = clientDataGrid
+    End Sub
+
+    Private Sub ScanCP_TextChangeed(sender As Object, e As EventArgs) Handles ScanCP.TextChanged
+        ' validare text box 1 cu OQ
+        ' acest text box are o lungime a stringului de 4 caractere
+        If ScanCP.Text.Length < 10 Then
+            ' caod de validare a criteriilor de Operator calitate OQ01 OQ02 OQ03 OQ04....
+        ElseIf ScanCP.Text.Length = 10 Then
+            Dim val As String
+            val = ScanCP.Text
+            If InStr(1, val, "CP") > 0 Then
+                CP_Seriat = val
+                updateTable()
+                Dim clientDataGrid As String
+                clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+                Label7.Text = clientDataGrid
+            Else
+                MsgBox("Scaneaza codul CP corect") ' cod de eroare in cazul introducerii codului gresit
+                ScanCP.Focus() 'focus pe textbox 1 
+            End If
+
+
+
+
+
+        Else
+            MsgBox("Scaneaza codul CP corect") ' cod de eroare in cazul introducerii codului gresit
+                ScanCP.Focus() 'focus pe textbox 1 
+            End If
+
+
+
+
+    End Sub
+
+    Dim WithEvents PD As New PrintDocument
+    Dim WithEvents PD1 As New PrintDocument
+    Dim PPD As New PrintPreviewDialog
+    Dim PPD1 As New PrintPreviewDialog
+
+
+    Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
+        PPD.Document = PD
+        PPD1.Document = PD1
+        PD.Print()  'Direct Print
+
+
+    End Sub
+
+    Private Sub PD_BeginPrint(sender As Object, e As PrintEventArgs) Handles PD.BeginPrint
+        Dim pagesetup As New PageSettings
+        pagesetup.PaperSize = New PaperSize("Custom", 300, 500)
+        PD.DefaultPageSettings = pagesetup
+        If ComboBox1.Text = "" Then
+            MsgBox("Selecteaza un printer")
+        Else
+            PD.PrinterSettings.PrinterName = ComboBox1.SelectedItem.ToString()
+        End If
+
+    End Sub
+
+    Private Sub PD_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(15).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(15).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 60, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        cpserie = DataGridView1.Rows(row).Cells(0).Value.ToString
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        Dim cpBarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim cpbarcodeimage As Image
+        cpbarcodeimage = New Bitmap(cpBarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, cpserie))
+        PictureBox2.Image = cpbarcodeimage
+        PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
+        PictureBox2.Size = New Size(300, 200)
+        e.Graphics.DrawImage(PictureBox2.Image, -50, 353, 400, 100)
+        PictureBox1.Dispose()
+        PictureBox2.Dispose()
+
+
+        Label7.Text = "-"
+
+
+
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form15.Show()
+        Me.Close()
+    End Sub
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        row = selectRow
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("CP_Seriat").Value.ToString()
+            CP_Seriat = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+        End If
+    End Sub
+End Class

Form18.Designer.vb

@@ -0,0 +1,277 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form18
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As ComponentModel.ComponentResourceManager = New ComponentModel.ComponentResourceManager(GetType(Form18))
+        Label1 = New Label()
+        ScanCP = New TextBox()
+        DataGridView1 = New DataGridView()
+        Label2 = New Label()
+        Label3 = New Label()
+        BTPRINT = New Button()
+        Label4 = New Label()
+        ComboBox1 = New ComboBox()
+        PrintDialog1 = New PrintDialog()
+        PrintPreviewDialog1 = New PrintPreviewDialog()
+        Label5 = New Label()
+        Label6 = New Label()
+        PictureBox1 = New PictureBox()
+        PictureBox2 = New PictureBox()
+        Button1 = New Button()
+        Button2 = New Button()
+        Label7 = New Label()
+        Label8 = New Label()
+        CType(DataGridView1, ComponentModel.ISupportInitialize).BeginInit()
+        CType(PictureBox1, ComponentModel.ISupportInitialize).BeginInit()
+        CType(PictureBox2, ComponentModel.ISupportInitialize).BeginInit()
+        SuspendLayout()
+        ' 
+        ' Label1
+        ' 
+        Label1.AutoSize = True
+        Label1.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label1.Location = New Point(27, 80)
+        Label1.Name = "Label1"
+        Label1.Size = New Size(160, 25)
+        Label1.TabIndex = 0
+        Label1.Text = "Comanda Si linia"
+        Label1.TextAlign = ContentAlignment.MiddleCenter
+        ' 
+        ' ScanCP
+        ' 
+        ScanCP.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        ScanCP.Location = New Point(193, 77)
+        ScanCP.MaxLength = 10
+        ScanCP.Name = "ScanCP"
+        ScanCP.Size = New Size(275, 33)
+        ScanCP.TabIndex = 1
+        ' 
+        ' DataGridView1
+        ' 
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridView1.Location = New Point(12, 126)
+        DataGridView1.Name = "DataGridView1"
+        DataGridView1.RowTemplate.Height = 25
+        DataGridView1.Size = New Size(1341, 282)
+        DataGridView1.TabIndex = 2
+        ' 
+        ' Label2
+        ' 
+        Label2.AutoSize = True
+        Label2.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label2.Location = New Point(830, 80)
+        Label2.Name = "Label2"
+        Label2.Size = New Size(218, 25)
+        Label2.TabIndex = 3
+        Label2.Text = "Comanda si linia Client:"
+        Label2.TextAlign = ContentAlignment.MiddleCenter
+        ' 
+        ' Label3
+        ' 
+        Label3.AutoSize = True
+        Label3.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label3.Location = New Point(1054, 80)
+        Label3.Name = "Label3"
+        Label3.Size = New Size(17, 25)
+        Label3.TabIndex = 4
+        Label3.Text = ":"
+        Label3.TextAlign = ContentAlignment.MiddleCenter
+        ' 
+        ' BTPRINT
+        ' 
+        BTPRINT.BackColor = Color.FromArgb(CByte(192), CByte(255), CByte(255))
+        BTPRINT.Font = New Font("Segoe UI Black", 18F, FontStyle.Bold, GraphicsUnit.Point)
+        BTPRINT.Location = New Point(12, 438)
+        BTPRINT.Name = "BTPRINT"
+        BTPRINT.Size = New Size(324, 86)
+        BTPRINT.TabIndex = 5
+        BTPRINT.Text = "Print"
+        BTPRINT.UseVisualStyleBackColor = False
+        ' 
+        ' Label4
+        ' 
+        Label4.AutoSize = True
+        Label4.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label4.Location = New Point(27, 24)
+        Label4.Name = "Label4"
+        Label4.Size = New Size(176, 25)
+        Label4.TabIndex = 6
+        Label4.Text = "Alege Imprimanta "
+        ' 
+        ' ComboBox1
+        ' 
+        ComboBox1.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        ComboBox1.FormattingEnabled = True
+        ComboBox1.Location = New Point(209, 16)
+        ComboBox1.Name = "ComboBox1"
+        ComboBox1.Size = New Size(259, 33)
+        ComboBox1.TabIndex = 7
+        ' 
+        ' PrintDialog1
+        ' 
+        PrintDialog1.UseEXDialog = True
+        ' 
+        ' PrintPreviewDialog1
+        ' 
+        PrintPreviewDialog1.AutoScrollMargin = New Size(0, 0)
+        PrintPreviewDialog1.AutoScrollMinSize = New Size(0, 0)
+        PrintPreviewDialog1.ClientSize = New Size(400, 300)
+        PrintPreviewDialog1.Enabled = True
+        PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), Icon)
+        PrintPreviewDialog1.Name = "PrintPreviewDialog1"
+        PrintPreviewDialog1.Visible = False
+        ' 
+        ' Label5
+        ' 
+        Label5.AutoSize = True
+        Label5.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label5.Location = New Point(1242, 77)
+        Label5.Name = "Label5"
+        Label5.Size = New Size(126, 25)
+        Label5.TabIndex = 8
+        Label5.Text = "Cantitate CP:"
+        Label5.TextAlign = ContentAlignment.MiddleCenter
+        ' 
+        ' Label6
+        ' 
+        Label6.AutoSize = True
+        Label6.Font = New Font("Segoe UI", 14.25F, FontStyle.Bold, GraphicsUnit.Point)
+        Label6.Location = New Point(1374, 77)
+        Label6.Name = "Label6"
+        Label6.Size = New Size(17, 25)
+        Label6.TabIndex = 9
+        Label6.Tag = ""
+        Label6.Text = ":"
+        Label6.TextAlign = ContentAlignment.MiddleCenter
+        ' 
+        ' PictureBox1
+        ' 
+        PictureBox1.Location = New Point(1378, 251)
+        PictureBox1.Name = "PictureBox1"
+        PictureBox1.Size = New Size(100, 300)
+        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
+        PictureBox1.TabIndex = 12
+        PictureBox1.TabStop = False
+        ' 
+        ' PictureBox2
+        ' 
+        PictureBox2.Location = New Point(1053, 438)
+        PictureBox2.Name = "PictureBox2"
+        PictureBox2.Size = New Size(300, 100)
+        PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
+        PictureBox2.TabIndex = 13
+        PictureBox2.TabStop = False
+        ' 
+        ' Button1
+        ' 
+        Button1.BackColor = Color.Red
+        Button1.Font = New Font("Segoe UI Black", 18F, FontStyle.Bold, GraphicsUnit.Point)
+        Button1.ForeColor = SystemColors.ControlLightLight
+        Button1.Location = New Point(376, 438)
+        Button1.Name = "Button1"
+        Button1.Size = New Size(324, 86)
+        Button1.TabIndex = 14
+        Button1.Text = "Inchide printul"
+        Button1.UseVisualStyleBackColor = False
+        ' 
+        ' Button2
+        ' 
+        Button2.BackColor = Color.FromArgb(CByte(128), CByte(255), CByte(128))
+        Button2.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        Button2.Location = New Point(523, 75)
+        Button2.Name = "Button2"
+        Button2.Size = New Size(186, 38)
+        Button2.TabIndex = 15
+        Button2.Text = "Verifica baza de date"
+        Button2.UseVisualStyleBackColor = False
+        ' 
+        ' Label7
+        ' 
+        Label7.AutoSize = True
+        Label7.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        Label7.Location = New Point(875, 16)
+        Label7.Name = "Label7"
+        Label7.Size = New Size(0, 21)
+        Label7.TabIndex = 16
+        ' 
+        ' Label8
+        ' 
+        Label8.AutoSize = True
+        Label8.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        Label8.Location = New Point(813, 16)
+        Label8.Name = "Label8"
+        Label8.Size = New Size(55, 21)
+        Label8.TabIndex = 17
+        Label8.Text = "Client"
+        ' 
+        ' Form18
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = Color.FromArgb(CByte(192), CByte(192), CByte(255))
+        ClientSize = New Size(1490, 553)
+        ControlBox = False
+        Controls.Add(Label8)
+        Controls.Add(Label7)
+        Controls.Add(Button2)
+        Controls.Add(Button1)
+        Controls.Add(PictureBox2)
+        Controls.Add(PictureBox1)
+        Controls.Add(Label6)
+        Controls.Add(Label5)
+        Controls.Add(ComboBox1)
+        Controls.Add(Label4)
+        Controls.Add(BTPRINT)
+        Controls.Add(Label3)
+        Controls.Add(Label2)
+        Controls.Add(DataGridView1)
+        Controls.Add(ScanCP)
+        Controls.Add(Label1)
+        Name = "Form18"
+        Text = "Print Etichete"
+        CType(DataGridView1, ComponentModel.ISupportInitialize).EndInit()
+        CType(PictureBox1, ComponentModel.ISupportInitialize).EndInit()
+        CType(PictureBox2, ComponentModel.ISupportInitialize).EndInit()
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ScanCP As TextBox
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents BTPRINT As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents PrintDialog1 As PrintDialog
+    Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+End Class

Form18.resx

@@ -0,0 +1,90 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="PrintDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="PrintPreviewDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>136, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PrintPreviewDialog1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAEBAAAAAAIAAoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAA
+        AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A////AP///wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b2
+        9v////8A////AP///wD///8A9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/////AP///wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv9CQkL/9vb2/////wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/QkJC//b29v////8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v////8A////APb29v9CQkL/QkJC/0JCQv9CQkL/9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC//b2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A9vb2/0JCQv9CQkL/QkJC/0JC
+        Qv/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////APb29v/29vb/9vb2//b2
+        9v/29vb/9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP///wD///8A////AP//
+        /wD///8A////APb29v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/////wD///8A////AP//
+        /wD///8A////AP///wD29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v////8A////AP//
+        /wD///8A////AP///wD///8A9vb2/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/////AP//
+        /wD///8A////AP///wD///8A////APb29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2////
+        /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
+        /wD///8A
+</value>
+  </data>
+</root>

Form18.vb

@@ -0,0 +1,219 @@
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+Imports DocumentFormat.OpenXml.VariantTypes
+Imports System.Drawing.Printing
+Imports System.Reflection
+Imports DocumentFormat.OpenXml.Bibliography
+Imports System.Reflection.Emit
+
+Public Class Form18
+    Dim DataString As String = My.Settings.subnet ' informatii cu privire la subnet 
+    Dim surce As String = My.Settings.serverName ' informatii preluate din system settings numele servarului
+    Dim catalog As String = My.Settings.serverdatabase ' informatii din system setings cu privire la numele bazei de date
+    Dim user As String = My.Settings.serverUser ' informatii din system setings cu privire la userul de introducere a datelor in baza de date 
+    Dim pass As String = My.Settings.serverUserpass ' informatii din system setings cu privire la parola userului
+    Dim timeout As String = My.Settings.timeout ' informatii din system setings cu privire la server time out
+    Dim encrypt As String = My.Settings.encrypt ' ' informatii din system setings cu privire la encriptie 
+    Dim trust As String = My.Settings.cert ' informatii din system setings cu privire la certificate 
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim comCli As String
+    Dim comCli2 As String
+    Dim plusCpSerie As String
+    Dim cpserie As String
+    Dim CP_Seriat As String
+    Dim row As Integer = 0
+    'Dim dataStringforE As String
+
+    Private Sub Form17_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Get available printers and add them to combo box
+        For Each printer As String In PrinterSettings.InstalledPrinters
+            ComboBox1.Items.Add(printer)
+        Next
+    End Sub
+
+
+    Private Sub updateTable()
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select * from Info_etichete where Comanda_Linia = '" & comCli & "' ", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+        con.Close() ' inchiderea conexiuneii cu serverull
+
+        Dim clientDataGrid As String
+        clientDataGrid = DataGridView1.Rows(0).Cells(15).Value
+        Label7.Text = clientDataGrid
+    End Sub
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        row = selectRow
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("CP_Seriat").Value.ToString()
+            CP_Seriat = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+        End If
+    End Sub
+    Private Sub ScanCP_TextChangeed(sender As Object, e As EventArgs) Handles ScanCP.TextChanged
+        ' validare text box 1 cu OQ
+        ' acest text box are o lungime a stringului de 4 caractere
+        If ScanCP.Text.Length < 10 Then
+            ' caod de validare a criteriilor de Operator calitate OQ01 OQ02 OQ03 OQ04....
+        ElseIf ScanCP.Text.Length = 10 Then
+            Dim val As String
+            val = ScanCP.Text
+            If InStr(1, val, ) > 0 Then
+                comCli = val
+                updateTable()
+
+            Else
+                MsgBox("Scaneaza codul  corect") ' cod de eroare in cazul introducerii codului gresit
+                ScanCP.Focus() 'focus pe textbox 1 
+            End If
+
+
+        Else
+            MsgBox("Scaneaza codul CP corect") ' cod de eroare in cazul introducerii codului gresit
+            ScanCP.Focus() 'focus pe textbox 1 
+        End If
+
+
+
+
+    End Sub
+
+    Dim WithEvents PD As New PrintDocument
+
+    Dim PPD As New PrintPreviewDialog
+
+    Private Sub BTPRINT_Click(sender As Object, e As EventArgs) Handles BTPRINT.Click
+        PPD.Document = PD
+        PPD.ShowDialog()
+
+
+    End Sub
+
+    Private Sub PD_BeginPrint(sender As Object, e As PrintEventArgs) Handles PD.BeginPrint
+        Dim pagesetup As New PageSettings
+        pagesetup.PaperSize = New PaperSize("Custom", 300, 500)
+        PD.DefaultPageSettings = pagesetup
+        If ComboBox1.Text = "" Then
+            MsgBox("Selecteaza un printer")
+        Else
+            PD.PrinterSettings.PrinterName = ComboBox1.SelectedItem.ToString()
+        End If
+
+    End Sub
+
+    Private Sub PD_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PD.PrintPage
+
+
+
+        Dim f8 As New Font("Calibri", 8, FontStyle.Regular)
+        Dim f10 As New Font("Calibri", 10, FontStyle.Regular)
+        Dim f10b As New Font("Calibri", 10, FontStyle.Bold)
+        Dim f14 As New Font("Calibri", 12, FontStyle.Bold)
+
+        Dim leftmargin As Integer = PD.DefaultPageSettings.Margins.Left
+        Dim centermargin As Integer = PD.DefaultPageSettings.PaperSize.Width / 2
+        Dim rightmargin As Integer = PD.DefaultPageSettings.PaperSize.Width
+
+        'font alignment
+        Dim right As New StringFormat
+        Dim center As New StringFormat
+
+        right.Alignment = StringAlignment.Far
+        center.Alignment = StringAlignment.Center
+
+        Dim line As String
+        line = "----------------------------------------------"
+        Dim bara As String
+
+        bara = "|"
+        'Dim row As Integer = 0
+        DataGridView1.AllowUserToAddRows = False
+
+        e.Graphics.DrawString("Quantity:", f14, Brushes.Black, 5, 40) 'first line 
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(1).Value.ToString, f14, Brushes.Black, 90, 40) 'first line
+        e.Graphics.DrawString("To Pallet", f14, Brushes.Black, 110, 40) 'First line
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 55) ' linia nr 2
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(2).Value.ToString, f14, Brushes.Black, 5, 65) ' linia nr 3
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 80) 'linia nr 4
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(3).Value.ToString, f14, Brushes.Black, 5, 90) 'inia nr 5
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 100) 'linia 6
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(4).Value.ToString, f14, Brushes.Black, 5, 110) 'linia 7
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 125) 'linia 8
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(5).Value.ToString, f14, Brushes.Black, 5, 135)  'linia 9
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 147)  'linia 10
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(6).Value.ToString, f14, Brushes.Black, 5, 155)  'linia 11
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 167)  'linia 12
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(7).Value.ToString, f14, Brushes.Black, 5, 175) '  'linia 13
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 187)  'linia 14
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(8).Value.ToString, f14, Brushes.Black, 5, 195)  'linia 15
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 100, 195)  'linia 15
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(9).Value.ToString, f14, Brushes.Black, 110, 195)  'linia 15
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 205)  'linia 16
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(10).Value.ToString, f14, Brushes.Black, 5, 215)  'linia 17
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 225)  'linia 18
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(11).Value.ToString, f14, Brushes.Black, 5, 235)  'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 50, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(12).Value, f14, Brushes.Black, 65, 235) 'linia 19
+        e.Graphics.DrawString(bara, f14, Brushes.Black, 160, 235) 'linia 19
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(13).Value.ToString, f14, Brushes.Black, 170, 235) 'linia 19
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 250) 'linia 20
+        e.Graphics.DrawString("Barcode Number =>", f14, Brushes.Black, 5, 260) 'linia 21
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 275) 'linia 22
+        e.Graphics.DrawString(DataGridView1.Rows(row).Cells(14).Value.ToString, f14, Brushes.Black, 10, 285) 'linia 23
+        Dim barcodeData As String = DataGridView1.Rows(row).Cells(14).Value.ToString
+        Dim gbarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim barcodeimage As Image
+        Dim w As Integer = 100
+        Dim h As Integer = 300
+        barcodeimage = New Bitmap(gbarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, barcodeData))
+        PictureBox1.Image = barcodeimage
+        Me.PictureBox1.Height = h
+        Me.PictureBox1.Width = w
+        Me.PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 300) 'linia 24
+        e.Graphics.DrawImage(PictureBox1.Image, 205, 60, 90, 300) ''Print lateral code de bare 
+        e.Graphics.DrawString("Production Number & Series ", f14, Brushes.Black, 5, 310)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 320)
+        cpserie = DataGridView1.Rows(row).Cells(0).Value.ToString
+        e.Graphics.DrawString(cpserie, f14, Brushes.Black, 5, 330)
+        e.Graphics.DrawString(line, f10b, Brushes.Black, 0, 345)
+        Dim cpBarcode As New MessagingToolkit.Barcode.BarcodeEncoder
+        Dim cpbarcodeimage As Image
+        cpbarcodeimage = New Bitmap(cpBarcode.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, cpserie))
+        PictureBox2.Image = cpbarcodeimage
+        PictureBox2.SizeMode = PictureBoxSizeMode.Zoom
+        PictureBox2.Size = New Size(300, 200)
+        e.Graphics.DrawImage(PictureBox2.Image, -50, 353, 400, 100)
+        PictureBox1.Dispose()
+        PictureBox2.Dispose()
+        'InfoPrintEtichete()
+
+
+
+
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form15.Show()
+        Me.Close()
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        comCli = ScanCP.Text
+        updateTable()
+    End Sub
+
+
+End Class

Form2.Designer.vb

@@ -0,0 +1,281 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form2
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As DataGridViewCellStyle = New DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As DataGridViewCellStyle = New DataGridViewCellStyle()
+        Label1 = New Label()
+        TextBox1 = New TextBox()
+        TextBox2 = New TextBox()
+        Label2 = New Label()
+        TextBox3 = New TextBox()
+        Label3 = New Label()
+        TextBox4 = New TextBox()
+        Label4 = New Label()
+        TextBox5 = New TextBox()
+        Label5 = New Label()
+        DataGridView1 = New DataGridView()
+        Label6 = New Label()
+        Label7 = New Label()
+        Button1 = New Button()
+        Button2 = New Button()
+        CType(DataGridView1, ComponentModel.ISupportInitialize).BeginInit()
+        SuspendLayout()
+        ' 
+        ' Label1
+        ' 
+        Label1.AutoSize = True
+        Label1.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label1.ForeColor = Color.White
+        Label1.Location = New Point(24, 7)
+        Label1.Name = "Label1"
+        Label1.Size = New Size(233, 25)
+        Label1.TabIndex = 0
+        Label1.Text = "Scaneaza nume operator"
+        ' 
+        ' TextBox1
+        ' 
+        TextBox1.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox1.Location = New Point(26, 42)
+        TextBox1.Margin = New Padding(3, 2, 3, 2)
+        TextBox1.MaxLength = 4
+        TextBox1.Name = "TextBox1"
+        TextBox1.Size = New Size(283, 32)
+        TextBox1.TabIndex = 1
+        ' 
+        ' TextBox2
+        ' 
+        TextBox2.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox2.Location = New Point(24, 106)
+        TextBox2.Margin = New Padding(3, 2, 3, 2)
+        TextBox2.Name = "TextBox2"
+        TextBox2.Size = New Size(285, 32)
+        TextBox2.TabIndex = 3
+        ' 
+        ' Label2
+        ' 
+        Label2.AutoSize = True
+        Label2.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label2.ForeColor = Color.White
+        Label2.Location = New Point(26, 76)
+        Label2.Name = "Label2"
+        Label2.Size = New Size(122, 25)
+        Label2.TabIndex = 2
+        Label2.Text = "Scaneaza CP"
+        ' 
+        ' TextBox3
+        ' 
+        TextBox3.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox3.Location = New Point(24, 177)
+        TextBox3.Margin = New Padding(3, 2, 3, 2)
+        TextBox3.Name = "TextBox3"
+        TextBox3.Size = New Size(284, 32)
+        TextBox3.TabIndex = 5
+        ' 
+        ' Label3
+        ' 
+        Label3.AutoSize = True
+        Label3.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label3.ForeColor = Color.White
+        Label3.Location = New Point(26, 142)
+        Label3.Name = "Label3"
+        Label3.Size = New Size(239, 25)
+        Label3.TabIndex = 4
+        Label3.Text = "Scaneaza Cod Cusatoare1"
+        ' 
+        ' TextBox4
+        ' 
+        TextBox4.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox4.Location = New Point(25, 237)
+        TextBox4.Margin = New Padding(3, 2, 3, 2)
+        TextBox4.MaxLength = 4
+        TextBox4.Name = "TextBox4"
+        TextBox4.Size = New Size(284, 32)
+        TextBox4.TabIndex = 7
+        ' 
+        ' Label4
+        ' 
+        Label4.AutoSize = True
+        Label4.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label4.ForeColor = Color.White
+        Label4.Location = New Point(26, 211)
+        Label4.Name = "Label4"
+        Label4.Size = New Size(239, 25)
+        Label4.TabIndex = 6
+        Label4.Text = "Scaneaza Cod Cusatoare2"
+        ' 
+        ' TextBox5
+        ' 
+        TextBox5.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox5.Location = New Point(24, 294)
+        TextBox5.Margin = New Padding(3, 2, 3, 2)
+        TextBox5.MaxLength = 4
+        TextBox5.Name = "TextBox5"
+        TextBox5.Size = New Size(286, 32)
+        TextBox5.TabIndex = 9
+        ' 
+        ' Label5
+        ' 
+        Label5.AutoSize = True
+        Label5.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label5.ForeColor = Color.White
+        Label5.Location = New Point(24, 268)
+        Label5.Name = "Label5"
+        Label5.Size = New Size(196, 25)
+        Label5.TabIndex = 8
+        Label5.Text = "Scaneaza Cod Defect"
+        ' 
+        ' DataGridView1
+        ' 
+        DataGridView1.Anchor = AnchorStyles.Top Or AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
+        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
+        DataGridView1.BackgroundColor = Color.White
+        DataGridView1.CellBorderStyle = DataGridViewCellBorderStyle.Raised
+        DataGridViewCellStyle1.Alignment = DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle1.BackColor = SystemColors.Control
+        DataGridViewCellStyle1.Font = New Font("Segoe UI", 16.2F, FontStyle.Bold, GraphicsUnit.Point)
+        DataGridViewCellStyle1.ForeColor = SystemColors.WindowText
+        DataGridViewCellStyle1.Padding = New Padding(0, 0, 0, 4)
+        DataGridViewCellStyle1.SelectionBackColor = SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = DataGridViewTriState.True
+        DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle2.BackColor = SystemColors.Window
+        DataGridViewCellStyle2.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        DataGridViewCellStyle2.ForeColor = SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = DataGridViewTriState.False
+        DataGridView1.DefaultCellStyle = DataGridViewCellStyle2
+        DataGridView1.GridColor = SystemColors.ControlLight
+        DataGridView1.Location = New Point(323, 21)
+        DataGridView1.Margin = New Padding(3, 2, 3, 2)
+        DataGridView1.Name = "DataGridView1"
+        DataGridView1.RowHeadersWidth = 51
+        DataGridView1.RowTemplate.Height = 29
+        DataGridView1.Size = New Size(1004, 519)
+        DataGridView1.TabIndex = 10
+        ' 
+        ' Label6
+        ' 
+        Label6.AutoSize = True
+        Label6.Font = New Font("Segoe UI", 10.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label6.ForeColor = Color.White
+        Label6.Location = New Point(25, 338)
+        Label6.Name = "Label6"
+        Label6.Size = New Size(42, 20)
+        Label6.TabIndex = 11
+        Label6.Text = "Data"
+        ' 
+        ' Label7
+        ' 
+        Label7.AutoSize = True
+        Label7.Font = New Font("Segoe UI", 10.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label7.ForeColor = Color.White
+        Label7.Location = New Point(172, 338)
+        Label7.Name = "Label7"
+        Label7.Size = New Size(34, 20)
+        Label7.TabIndex = 13
+        Label7.Text = "Ora"
+        ' 
+        ' Button1
+        ' 
+        Button1.BackColor = Color.Black
+        Button1.BackgroundImageLayout = ImageLayout.None
+        Button1.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Button1.ForeColor = Color.Lime
+        Button1.ImageAlign = ContentAlignment.MiddleLeft
+        Button1.Location = New Point(36, 425)
+        Button1.Margin = New Padding(3, 2, 3, 2)
+        Button1.Name = "Button1"
+        Button1.Size = New Size(239, 41)
+        Button1.TabIndex = 14
+        Button1.Text = "Inchide Formularul"
+        Button1.UseVisualStyleBackColor = False
+        ' 
+        ' Button2
+        ' 
+        Button2.BackColor = Color.FromArgb(CByte(192), CByte(0), CByte(0))
+        Button2.BackgroundImageLayout = ImageLayout.None
+        Button2.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Button2.ForeColor = Color.Lime
+        Button2.ImageAlign = ContentAlignment.MiddleLeft
+        Button2.Location = New Point(24, 380)
+        Button2.Margin = New Padding(3, 2, 3, 2)
+        Button2.Name = "Button2"
+        Button2.Size = New Size(256, 41)
+        Button2.TabIndex = 15
+        Button2.Text = "Sterge randul selectat"
+        Button2.UseVisualStyleBackColor = False
+        ' 
+        ' Form2
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = Color.FromArgb(CByte(192), CByte(0), CByte(192))
+        BackgroundImageLayout = ImageLayout.Zoom
+        ClientSize = New Size(1339, 549)
+        ControlBox = False
+        Controls.Add(Button2)
+        Controls.Add(Button1)
+        Controls.Add(Label7)
+        Controls.Add(Label6)
+        Controls.Add(DataGridView1)
+        Controls.Add(TextBox5)
+        Controls.Add(Label5)
+        Controls.Add(TextBox4)
+        Controls.Add(Label4)
+        Controls.Add(TextBox3)
+        Controls.Add(Label3)
+        Controls.Add(TextBox2)
+        Controls.Add(Label2)
+        Controls.Add(TextBox1)
+        Controls.Add(Label1)
+        FormBorderStyle = FormBorderStyle.SizableToolWindow
+        Margin = New Padding(3, 2, 3, 2)
+        Name = "Form2"
+        RightToLeftLayout = True
+        Text = "Scanare comenzi"
+        CType(DataGridView1, ComponentModel.ISupportInitialize).EndInit()
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+End Class

Form2.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form2.vb

@@ -0,0 +1,210 @@
+
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+
+Public Class Form2
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet ' informatii cu privire la subnet 
+    Dim surce As String = My.Settings.serverName ' informatii preluate din system settings numele servarului
+    Dim catalog As String = My.Settings.serverdatabase ' informatii din system setings cu privire la numele bazei de date
+    Dim user As String = My.Settings.serverUser ' informatii din system setings cu privire la userul de introducere a datelor in baza de date 
+    Dim pass As String = My.Settings.serverUserpass ' informatii din system setings cu privire la parola userului
+    Dim timeout As String = My.Settings.timeout ' informatii din system setings cu privire la server time out
+    Dim encrypt As String = My.Settings.encrypt ' ' informatii din system setings cu privire la encriptie 
+    Dim trust As String = My.Settings.cert ' informatii din system setings cu privire la certificate 
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open() ' deschiderea conexiuni cu serverul
+        Dim command As New SqlCommand("select top 14 * from dbo.scanare order by id desc", con)
+        Dim sda As New SqlDataAdapter(command) ' adaptorul pentru data grig view
+        Dim dt As New DataTable ' pregatirea datelor pentru data grid view
+        sda.Fill(dt) ' actualizarea data grid view
+        DataGridView1.DataSource = dt
+        con.Close() ' inchiderea conexiuneii cu serverul
+    End Sub
+    Private Sub UserForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' text box1 incarcare valoare, set text box 2 pentru scan 
+        updateTable()
+        TextBox1.Focus() ' setarea textbox 1 a defaul entry la deschiderea formei, se introduce cotul operatoruului de calitate
+    End Sub
+    Private Sub TextBox1_TextChangeed(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        ' validare text box 1 cu OQ
+        ' acest text box are o lungime a stringului de 4 caractere
+        If TextBox1.Text.Length < 4 Then
+            ' caod de validare a criteriilor de Operator calitate OQ01 OQ02 OQ03 OQ04....
+        ElseIf TextBox1.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox1.Text
+            If InStr(1, val, "OQ") > 0 Then
+                TextBox2.Focus() ' schimbarea focusului pe textbox 2 daca este valida informatia din cod operator
+
+            Else
+                MsgBox("Introdu cod Operator") ' cod de eroare in cazul introducerii codului gresit
+                TextBox1.Focus() 'focus pe textbox 1 
+            End If
+        Else
+
+        End If
+    End Sub
+    Private Sub TextBox2_TextChangeed(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
+        ' validare CP text box 2
+        ' acest text box are o lungime a stringului de 14 caractere
+        If TextBox2.Text.Length < 14 Then
+            ' cod ce valideaza lungimea de 14 caractere a scanarii codului de bare
+            ' codul de bare are structura CP00000000-000
+        ElseIf TextBox2.Text.Length = 14 Then
+            Dim val As String
+            val = TextBox2.Text
+            If InStr(1, val, "CP") > 0 Then ' confirmare ca stringul contine CP focus pe textbox 3
+                TextBox3.Focus()
+
+            Else
+                MsgBox("Introdu CP Corect") ' rescanare articol
+                TextBox2.Clear()
+                TextBox2.Focus()
+            End If
+        Else
+        End If
+    End Sub
+    Private Sub TextBox3_TextChangeed(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
+        ' validare oc text box 3
+        ' acest text box are o lungime a stringului de 4 caractere
+        If TextBox3.Text.Length < 4 Then
+        ElseIf TextBox3.Text.Length = 4 Then ' veificare a valorii OC pentru operator cusut
+            Dim val As String
+            val = TextBox3.Text
+            If InStr(1, val, "OC") > 0 Then ' confirmare oc si mutare la text box 4
+                TextBox4.Focus()
+
+            ElseIf InStr(1, val, "sp") > 0 Then
+                TextBox4.Focus()
+            ElseIf InStr(1, val, "SP") > 0 Then
+                TextBox4.Focus()
+            ElseIf InStr(1, val, "sn") > 0 Then
+                TextBox4.Focus()
+            ElseIf InStr(1, val, "SN") > 0 Then
+                TextBox4.Focus()
+            Else
+                MsgBox("Introdu cod Operator")
+                TextBox3.Clear()
+                TextBox3.Focus()
+            End If
+        Else
+        End If
+    End Sub
+    Private Sub TextBox4_TextChangeed(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
+        ' validare oc text box 4
+        ' acest text box are o lungime a stringului de 4 caractere
+        If TextBox4.Text.Length < 4 Then
+        ElseIf TextBox4.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox4.Text
+            If InStr(1, val, "OC") > 0 Then ' verificar oc 2 
+                TextBox5.Focus()
+            Else
+                MsgBox("Introdu cod Cusatoare Corect")
+                TextBox4.Clear()
+                TextBox4.Focus()
+            End If
+        Else
+        End If
+
+    End Sub
+    Private Sub TextBox5_TextChangeed(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
+        ' validare Calitate  text box5
+        ' acest text box are o lungime a stringului de 4 caractere
+        If TextBox5.Text.Length < 4 Then
+        ElseIf TextBox5.Text.Length = 4 Then ' verificare string ca e corect codul de defect
+            Dim val As String
+            val = TextBox5.Text
+            If InStr(1, val, "Q") > 0 Then ' daca codul de defect e corect urmeaza incarcarea in baza de date
+                Dim oq As String = TextBox1.Text 'string pentru SQL oq
+                Dim cp As String = TextBox2.Text 'string pentru SQL cp
+                Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
+                Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
+                Dim quality As String = TextBox4.Text 'string pentru SQL calitate
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label6.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh: mm") 'Format time
+                Label7.Text = dTime ' update in label
+                Dim cant As Integer 'cantitate 1 intodeauna
+                cant = 1
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.scanare values('" & TextBox2.Text & "','" & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & dta & "','" & dTime & "','" & cant & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable() ' update tabel in data grid view
+                TextBox2.Clear() ' curatarea informatiilor scanate
+                TextBox3.Clear()
+                TextBox4.Clear()
+                TextBox5.Clear()
+                TextBox2.Focus()
+
+            Else
+                MsgBox("Introdu cod Defect Corect") ' msg box in caz de croare la scanat textul din casuta cod defect 
+                TextBox5.Clear()
+                TextBox5.Focus()
+            End If
+        Else
+
+        End If
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' inchidere forma scanare articole
+        ' buton Inchide Formularul  inchide forma de scanare relanseaza forma  
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        ' stergere rand din datagrid
+
+        Dim result1 As DialogResult = MsgBox("Sigur Vrei sa strigi linia selectata ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo,
+                                             "Confirmare stergere Linie")
+        ' msg bog stergere 
+        If DialogResult.OK Then 'confirmare MsgBox
+            ' cod stergere din SQL
+            If rowIdval >= 0 Then ' id row datagrid din sub datagrid
+                Dim id As Integer = rowIdval
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                         "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                         "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Delete  calitate.dbo.scanare where  id = '" & id & "'", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                MsgBox(" Linia a fost stearsa")
+                TextBox2.Focus()
+            End If
+        Else
+            MsgBox(" Ai anulat stergerea liniei")
+
+        End If
+
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("id").Value.ToString()
+            rowIdval = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+        End If
+    End Sub
+End Class

Form3.Designer.vb

@@ -0,0 +1,93 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form3
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        TextBox1 = New TextBox()
+        Label1 = New Label()
+        Button1 = New Button()
+        FlowLayoutPanel1 = New FlowLayoutPanel()
+        SuspendLayout()
+        ' 
+        ' TextBox1
+        ' 
+        TextBox1.Font = New Font("Segoe UI", 16.2F, FontStyle.Bold, GraphicsUnit.Point)
+        TextBox1.Location = New Point(64, 216)
+        TextBox1.Name = "TextBox1"
+        TextBox1.Size = New Size(506, 36)
+        TextBox1.TabIndex = 0
+        ' 
+        ' Label1
+        ' 
+        Label1.AutoSize = True
+        Label1.Font = New Font("Segoe UI", 16.2F, FontStyle.Bold, GraphicsUnit.Point)
+        Label1.Location = New Point(95, 165)
+        Label1.Name = "Label1"
+        Label1.Size = New Size(304, 30)
+        Label1.TabIndex = 1
+        Label1.Text = "Parola Administrator Sistem"
+        ' 
+        ' Button1
+        ' 
+        Button1.BackColor = Color.FromArgb(CByte(0), CByte(192), CByte(0))
+        Button1.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Button1.Location = New Point(94, 274)
+        Button1.Name = "Button1"
+        Button1.Size = New Size(436, 48)
+        Button1.TabIndex = 2
+        Button1.Text = "Administreaza"
+        Button1.UseVisualStyleBackColor = False
+        ' 
+        ' FlowLayoutPanel1
+        ' 
+        FlowLayoutPanel1.BackColor = Color.White
+        FlowLayoutPanel1.BackgroundImage = My.Resources.Resources.AQUINOS_BEDDING_AQUINOS_GROUP_copy_31
+        FlowLayoutPanel1.BackgroundImageLayout = ImageLayout.Zoom
+        FlowLayoutPanel1.Location = New Point(83, 12)
+        FlowLayoutPanel1.Name = "FlowLayoutPanel1"
+        FlowLayoutPanel1.Size = New Size(487, 131)
+        FlowLayoutPanel1.TabIndex = 3
+        ' 
+        ' Form3
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = Color.FromArgb(CByte(255), CByte(224), CByte(192))
+        ClientSize = New Size(639, 325)
+        ControlBox = False
+        Controls.Add(FlowLayoutPanel1)
+        Controls.Add(Button1)
+        Controls.Add(Label1)
+        Controls.Add(TextBox1)
+        Font = New Font("Segoe UI", 9F, FontStyle.Bold, GraphicsUnit.Point)
+        FormBorderStyle = FormBorderStyle.Fixed3D
+        Name = "Form3"
+        Text = "Admin Login"
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
+End Class

Form3.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form3.vb

@@ -0,0 +1,22 @@
+Public Class Form3
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+
+        If TextBox1.Text = My.Settings.adminPass Then
+            Form4.Show()
+            Me.Close()
+        Else
+            MsgBox("Introdu Parola de admin corecta")
+            TextBox1.Clear()
+            TextBox1.Focus()
+
+        End If
+
+    End Sub
+
+    Private Sub FlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel1.Paint
+
+    End Sub
+End Class

Form4.Designer.vb

@@ -0,0 +1,577 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form4
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TextBox7 = New System.Windows.Forms.TextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TextBox8 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBox9 = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.TextBox10 = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBox12 = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.TextBox16 = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.TextBox17 = New System.Windows.Forms.TextBox()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.TextBox18 = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.TextBox19 = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.TextBox20 = New System.Windows.Forms.TextBox()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(15, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(109, 21)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Server String"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(15, 30)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox1.TabIndex = 1
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Cyan
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.Location = New System.Drawing.Point(7, 248)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(169, 32)
+        Me.Button1.TabIndex = 10
+        Me.Button1.Text = "Check Setings"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.Lime
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.Location = New System.Drawing.Point(181, 248)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(169, 32)
+        Me.Button2.TabIndex = 11
+        Me.Button2.Text = "Update Setings"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Blue
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(355, 248)
+        Me.Button3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(169, 32)
+        Me.Button3.TabIndex = 12
+        Me.Button3.Text = "Back to Form"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(15, 76)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox2.TabIndex = 14
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(15, 52)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(132, 21)
+        Me.Label2.TabIndex = 13
+        Me.Label2.Text = "Server database"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(15, 123)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox3.TabIndex = 16
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(15, 100)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(95, 21)
+        Me.Label3.TabIndex = 15
+        Me.Label3.Text = "Server user"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(15, 176)
+        Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox4.TabIndex = 18
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(15, 152)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(132, 21)
+        Me.Label4.TabIndex = 17
+        Me.Label4.Text = "Server user Pass"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Location = New System.Drawing.Point(303, 30)
+        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox5.TabIndex = 20
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(303, 7)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(128, 21)
+        Me.Label5.TabIndex = 19
+        Me.Label5.Text = "Server time out"
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Location = New System.Drawing.Point(303, 76)
+        Me.TextBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox6.TabIndex = 22
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(303, 52)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(122, 21)
+        Me.Label6.TabIndex = 21
+        Me.Label6.Text = "Server encrypt"
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Location = New System.Drawing.Point(303, 123)
+        Me.TextBox7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox7.TabIndex = 24
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(303, 100)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(98, 21)
+        Me.Label7.TabIndex = 23
+        Me.Label7.Text = "Server trust"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Location = New System.Drawing.Point(303, 176)
+        Me.TextBox8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox8.TabIndex = 26
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(303, 152)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(114, 21)
+        Me.Label8.TabIndex = 25
+        Me.Label8.Text = "Server reason"
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Location = New System.Drawing.Point(15, 221)
+        Me.TextBox9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox9.TabIndex = 28
+        Me.TextBox9.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label9.Location = New System.Drawing.Point(15, 198)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(115, 21)
+        Me.Label9.TabIndex = 27
+        Me.Label9.Text = "Server subnet"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Location = New System.Drawing.Point(302, 221)
+        Me.TextBox10.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox10.TabIndex = 30
+        Me.TextBox10.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label10.Location = New System.Drawing.Point(302, 198)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(146, 21)
+        Me.Label10.TabIndex = 29
+        Me.Label10.Text = "Administrare Pass"
+        '
+        'TextBox12
+        '
+        Me.TextBox12.Location = New System.Drawing.Point(14, 243)
+        Me.TextBox12.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox12.TabIndex = 48
+        Me.TextBox12.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label12.Location = New System.Drawing.Point(14, 220)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(135, 21)
+        Me.Label12.TabIndex = 47
+        Me.Label12.Text = "Server subnet W"
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Location = New System.Drawing.Point(302, 202)
+        Me.TextBox13.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox13.TabIndex = 46
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label13.Location = New System.Drawing.Point(302, 178)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(134, 21)
+        Me.Label13.TabIndex = 45
+        Me.Label13.Text = "Server reason W"
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Location = New System.Drawing.Point(302, 149)
+        Me.TextBox14.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox14.TabIndex = 44
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label14.Location = New System.Drawing.Point(302, 126)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(118, 21)
+        Me.Label14.TabIndex = 43
+        Me.Label14.Text = "Server trust W"
+        '
+        'TextBox15
+        '
+        Me.TextBox15.Location = New System.Drawing.Point(302, 102)
+        Me.TextBox15.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox15.TabIndex = 42
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label15.Location = New System.Drawing.Point(302, 78)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(142, 21)
+        Me.Label15.TabIndex = 41
+        Me.Label15.Text = "Server encrypt W"
+        '
+        'TextBox16
+        '
+        Me.TextBox16.Location = New System.Drawing.Point(302, 56)
+        Me.TextBox16.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox16.Name = "TextBox16"
+        Me.TextBox16.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox16.TabIndex = 40
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label16.Location = New System.Drawing.Point(302, 33)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(148, 21)
+        Me.Label16.TabIndex = 39
+        Me.Label16.Text = "Server time out W"
+        '
+        'TextBox17
+        '
+        Me.TextBox17.Location = New System.Drawing.Point(14, 198)
+        Me.TextBox17.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox17.Name = "TextBox17"
+        Me.TextBox17.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox17.TabIndex = 38
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label17.Location = New System.Drawing.Point(14, 174)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(152, 21)
+        Me.Label17.TabIndex = 37
+        Me.Label17.Text = "Server user Pass W"
+        '
+        'TextBox18
+        '
+        Me.TextBox18.Location = New System.Drawing.Point(14, 145)
+        Me.TextBox18.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox18.Name = "TextBox18"
+        Me.TextBox18.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox18.TabIndex = 36
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label18.Location = New System.Drawing.Point(14, 122)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(115, 21)
+        Me.Label18.TabIndex = 35
+        Me.Label18.Text = "Server user W"
+        '
+        'TextBox19
+        '
+        Me.TextBox19.Location = New System.Drawing.Point(14, 98)
+        Me.TextBox19.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox19.Name = "TextBox19"
+        Me.TextBox19.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox19.TabIndex = 34
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label19.Location = New System.Drawing.Point(14, 74)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(152, 21)
+        Me.Label19.TabIndex = 33
+        Me.Label19.Text = "Server database W"
+        '
+        'TextBox20
+        '
+        Me.TextBox20.Location = New System.Drawing.Point(14, 52)
+        Me.TextBox20.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox20.Name = "TextBox20"
+        Me.TextBox20.Size = New System.Drawing.Size(232, 23)
+        Me.TextBox20.TabIndex = 32
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label20.Location = New System.Drawing.Point(14, 29)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(129, 21)
+        Me.Label20.TabIndex = 31
+        Me.Label20.Text = "Server String W"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.Button4)
+        Me.GroupBox1.Controls.Add(Me.TextBox12)
+        Me.GroupBox1.Controls.Add(Me.Label12)
+        Me.GroupBox1.Controls.Add(Me.TextBox13)
+        Me.GroupBox1.Controls.Add(Me.Label13)
+        Me.GroupBox1.Controls.Add(Me.TextBox14)
+        Me.GroupBox1.Controls.Add(Me.Label14)
+        Me.GroupBox1.Controls.Add(Me.TextBox15)
+        Me.GroupBox1.Controls.Add(Me.Label15)
+        Me.GroupBox1.Controls.Add(Me.TextBox16)
+        Me.GroupBox1.Controls.Add(Me.Label16)
+        Me.GroupBox1.Controls.Add(Me.TextBox17)
+        Me.GroupBox1.Controls.Add(Me.Label17)
+        Me.GroupBox1.Controls.Add(Me.TextBox18)
+        Me.GroupBox1.Controls.Add(Me.Label18)
+        Me.GroupBox1.Controls.Add(Me.TextBox19)
+        Me.GroupBox1.Controls.Add(Me.Label19)
+        Me.GroupBox1.Controls.Add(Me.TextBox20)
+        Me.GroupBox1.Controls.Add(Me.Label20)
+        Me.GroupBox1.Location = New System.Drawing.Point(545, 4)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(555, 276)
+        Me.GroupBox1.TabIndex = 49
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Setari Servar Priority"
+        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.Lime
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button4.Location = New System.Drawing.Point(302, 237)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(219, 32)
+        Me.Button4.TabIndex = 49
+        Me.Button4.Text = "Update Setings"
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'Form4
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1112, 289)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.TextBox10)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.TextBox9)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.TextBox8)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.TextBox7)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form4"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Administrare Program"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TextBox7 As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents TextBox8 As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TextBox9 As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents TextBox10 As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents TextBox12 As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents TextBox16 As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents TextBox17 As TextBox
+    Friend WithEvents Label17 As Label
+    Friend WithEvents TextBox18 As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents TextBox19 As TextBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents TextBox20 As TextBox
+    Friend WithEvents Label20 As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Button4 As Button
+End Class

Form4.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form4.vb

@@ -0,0 +1,58 @@
+Public Class Form4
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        TextBox1.Text = My.Settings.serverName
+        TextBox2.Text = My.Settings.serverdatabase
+        TextBox3.Text = My.Settings.serverUser
+        TextBox4.Text = My.Settings.serverUserpass
+        TextBox5.Text = My.Settings.timeout
+        TextBox6.Text = My.Settings.encrypt
+        TextBox7.Text = My.Settings.cert
+        TextBox8.Text = My.Settings.reason
+        TextBox9.Text = My.Settings.subnet
+        TextBox10.Text = My.Settings.adminPass
+        TextBox20.Text = My.Settings.ServerNameW
+        TextBox19.Text = My.Settings.ServerDatabaseW
+        TextBox18.Text = My.Settings.ServerUserW
+        TextBox17.Text = My.Settings.ServerUserPasW
+        TextBox12.Text = My.Settings.SubnetW
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        My.Settings.subnet = TextBox9.Text
+        My.Settings.reason = TextBox8.Text
+        My.Settings.encrypt = TextBox9.Text
+        My.Settings.timeout = TextBox5.Text
+        My.Settings.serverUserpass = TextBox4.Text
+        My.Settings.serverUser = TextBox3.Text
+        My.Settings.serverdatabase = TextBox2.Text
+        My.Settings.serverName = TextBox1.Text
+
+
+        My.Settings.Save()
+
+        MsgBox("au fost incarcate setarile pentru server")
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        My.Settings.SubnetW = TextBox12.Text
+        My.Settings.ServerNameW = TextBox20.Text
+        My.Settings.ServerDatabaseW = TextBox19.Text
+        My.Settings.ServerUserPasW = TextBox17.Text
+        My.Settings.ServerUserW = TextBox18.Text
+
+    End Sub
+End Class

Form5.Designer.vb

@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form5
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(150, 26)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker1.TabIndex = 0
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker3)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
+        Me.GroupBox1.Location = New System.Drawing.Point(35, 22)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(637, 86)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Alege intervalul din care trebuie sa faci exportul in excel"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(332, 31)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(98, 28)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "End Date"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker3.Location = New System.Drawing.Point(445, 26)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(17, 32)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(110, 28)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Start Date"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 125)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1306, 530)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(712, 41)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(194, 54)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Preview"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.Location = New System.Drawing.Point(940, 40)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(194, 54)
+        Me.Button2.TabIndex = 4
+        Me.Button2.Text = "Export to Excel"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Red
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(1140, 22)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(178, 79)
+        Me.Button3.TabIndex = 5
+        Me.Button3.Text = "Inchide program"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Form5
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 20.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1330, 681)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "Form5"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Export from SQL Database Calitate"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

Form5.resx

@@ -0,0 +1,63 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Form5.vb

@@ -0,0 +1,86 @@
+Imports System.IO
+Imports Microsoft.Data.SqlClient
+
+
+
+
+Public Class Form5
+
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+
+
+
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                           "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                           "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+        Dim command As New SqlCommand("select * from calitate.dbo.scanare where [date] between @date1 and @date2", con)
+        command.Parameters.Add("date1", SqlDbType.Date).Value = DateTimePicker1.Value
+        command.Parameters.Add("date2", SqlDbType.Date).Value = DateTimePicker3.Value
+        Dim da As New SqlDataAdapter
+        da.SelectCommand = command
+        Dim dt As New DataTable
+        dt.Clear()
+        da.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim saveFileDialog As New SaveFileDialog()
+        saveFileDialog.Filter = "CSV (.csv)|.csv"
+        Dim dta As String 'string pentru SQL data
+        dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+        saveFileDialog.FileName = "Calitate" & "-" & dta & ".csv"
+        If (saveFileDialog.ShowDialog() = DialogResult.OK) Then
+            Using sw As New StreamWriter(saveFileDialog.FileName)
+                Dim columnCount As Integer = DataGridView1.ColumnCount
+                For i As Integer = 0 To columnCount - 1
+                    sw.Write(DataGridView1.Columns(i).HeaderText)
+                    If (i < columnCount - 1) Then
+                        sw.Write(","c)
+                    End If
+                Next
+                sw.Write(sw.NewLine)
+                For Each row As DataGridViewRow In DataGridView1.Rows
+                    For i As Integer = 0 To row.Cells.Count - 1
+                        If Not row.IsNewRow Then
+                            sw.Write(row.Cells(i).Value.ToString())
+                        End If
+                        If (i < row.Cells.Count - 1) Then
+                            sw.Write(","c)
+                        End If
+                    Next
+                    sw.Write(sw.NewLine)
+                Next
+                sw.Close()
+            End Using
+            MessageBox.Show("CSV file saved.")
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+End Class
+
+

Form6.Designer.vb

@@ -0,0 +1,311 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form6
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox5 = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.TextBox6 = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.ForeColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(24, 7)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(233, 25)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Scaneaza nume operator"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox1.Location = New System.Drawing.Point(26, 42)
+        Me.TextBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox1.MaxLength = 4
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(283, 32)
+        Me.TextBox1.TabIndex = 1
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox2.Location = New System.Drawing.Point(24, 106)
+        Me.TextBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(285, 32)
+        Me.TextBox2.TabIndex = 3
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(26, 76)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(122, 25)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Scaneaza CP"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox3.Location = New System.Drawing.Point(25, 172)
+        Me.TextBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(284, 32)
+        Me.TextBox3.TabIndex = 5
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(26, 142)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(277, 25)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = "Scaneaza Cod Operator Taiere"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox4.Location = New System.Drawing.Point(25, 237)
+        Me.TextBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox4.MaxLength = 4
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(284, 32)
+        Me.TextBox4.TabIndex = 7
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(26, 211)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(217, 25)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Scaneaza Cod Matlasor"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox5.Location = New System.Drawing.Point(24, 294)
+        Me.TextBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox5.MaxLength = 4
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Size = New System.Drawing.Size(286, 32)
+        Me.TextBox5.TabIndex = 9
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.ForeColor = System.Drawing.Color.White
+        Me.Label5.Location = New System.Drawing.Point(24, 268)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(281, 25)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Scaneaza Cod Operator Banda"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.DisplayedCells
+        Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
+        Me.DataGridView1.CellBorderStyle = System.Windows.Forms.DataGridViewCellBorderStyle.Raised
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Segoe UI", 16.2!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.Padding = New System.Windows.Forms.Padding(0, 0, 0, 4)
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.BottomCenter
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle2
+        Me.DataGridView1.GridColor = System.Drawing.SystemColors.ControlLight
+        Me.DataGridView1.Location = New System.Drawing.Point(323, 21)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1062, 512)
+        Me.DataGridView1.TabIndex = 10
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.ForeColor = System.Drawing.Color.White
+        Me.Label6.Location = New System.Drawing.Point(25, 393)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(42, 20)
+        Me.Label6.TabIndex = 11
+        Me.Label6.Text = "Data"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.ForeColor = System.Drawing.Color.White
+        Me.Label7.Location = New System.Drawing.Point(172, 393)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(34, 20)
+        Me.Label7.TabIndex = 13
+        Me.Label7.Text = "Ora"
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Black
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Lime
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(36, 464)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(239, 41)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Inchide Formularul"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Lime
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.Location = New System.Drawing.Point(24, 418)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(256, 41)
+        Me.Button2.TabIndex = 15
+        Me.Button2.Text = "Sterge randul selectat"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextBox6.Location = New System.Drawing.Point(25, 359)
+        Me.TextBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextBox6.MaxLength = 4
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Size = New System.Drawing.Size(286, 32)
+        Me.TextBox6.TabIndex = 17
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(26, 333)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(253, 21)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "Scaneaza Cod Operatori Borduri"
+        '
+        'Form6
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ClientSize = New System.Drawing.Size(1396, 546)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.TextBox6)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.TextBox5)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.TextBox4)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.TextBox3)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form6"
+        Me.RightToLeftLayout = True
+        Me.Text = "Scanare comenzi Pregatit"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox3 As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TextBox4 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents TextBox5 As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents TextBox6 As TextBox
+    Friend WithEvents Label8 As Label
+End Class

Form6.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form6.vb

@@ -0,0 +1,284 @@
+
+Imports System.Security.Cryptography
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+
+Public Class Form6
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open()
+        Dim command As New SqlCommand("select top 14 * from dbo.pregatit order by id desc", con)
+        Dim sda As New SqlDataAdapter(command)
+        Dim dt As New DataTable
+        sda.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+    End Sub
+    Private Sub UserForm2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' text box1 incarcare valoare, set text box 2 pentru scan 
+        TextBox1.Text = variable.userp
+        updateTable()
+        TextBox2.Focus()
+    End Sub
+    Private Sub TextBox1_TextChangeed(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
+        ' validare text box 1 cu OQ
+        If TextBox1.Text.Length < 4 Then
+
+        ElseIf TextBox1.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox1.Text
+            If InStr(1, val, "OP") > 0 Then
+                TextBox2.Focus()
+
+            Else
+                MsgBox("Introdu cod Operator")
+                TextBox1.Focus()
+            End If
+        Else
+
+        End If
+    End Sub
+    Private Sub TextBox2_TextChangeed(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
+        ' validare CP text box 2
+        If TextBox2.Text.Length < 10 Then
+
+        ElseIf TextBox2.Text.Length = 10 Then
+            Dim val As String
+            val = TextBox2.Text
+            If InStr(1, val, "CP") > 0 Then
+                TextBox3.Focus()
+            Else
+                MsgBox("Introdu CP Corect")
+                TextBox2.Clear()
+                TextBox2.Focus()
+            End If
+        Else
+        End If
+    End Sub
+    Private Sub TextBox3_TextChangeed(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
+        ' validare oc text box 3
+        If TextBox3.Text.Length < 4 Then
+        ElseIf TextBox3.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox3.Text
+            If InStr(1, val, "00") > 0 Then
+                TextBox4.Focus()
+            ElseIf InStr(1, val, "ct") > 0 Then
+                TextBox4.Focus()
+            ElseIf InStr(1, val, "CT") > 0 Then
+                TextBox4.Focus()
+            Else
+                MsgBox("Introdu cod Operator Taiere corect")
+                TextBox3.Clear()
+                TextBox3.Focus()
+            End If
+        Else
+        End If
+    End Sub
+    Private Sub TextBox4_TextChangeed(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
+        ' validare oc text box 4
+        If TextBox4.Text.Length < 4 Then
+
+        ElseIf TextBox4.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox4.Text
+            If InStr(1, val, "00") > 0 Then
+                TextBox5.Focus()
+            ElseIf InStr(1, val, "mn") > 0 Then
+                TextBox5.Focus()
+            ElseIf InStr(1, val, "MN") > 0 Then
+                TextBox5.Focus()
+            ElseIf InStr(1, val, "sn") > 0 Then
+                TextBox5.Focus()
+            ElseIf InStr(1, val, "SN") > 0 Then
+                TextBox5.Focus()
+            Else
+                MsgBox("Introdu cod Matlasor Corect")
+                TextBox4.Clear()
+                TextBox4.Focus()
+            End If
+        Else
+        End If
+
+    End Sub
+    Private Sub TextBox5_TextChangeed(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
+        ' validare sp text box 4
+        If TextBox5.Text.Length < 4 Then
+        ElseIf TextBox5.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox5.Text
+            If InStr(1, val, "00") > 0 Then
+                TextBox6.Focus()
+            ElseIf InStr(1, val, "sp") > 0 Then
+                TextBox6.Focus()
+            ElseIf InStr(1, val, "SP") > 0 Then
+                TextBox6.Focus()
+            Else
+                MsgBox("Introdu cod Matlasor Corect")
+                TextBox5.Clear()
+                TextBox5.Focus()
+            End If
+        Else
+        End If
+
+    End Sub
+    Private Sub TextBox6_TextChangeed(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
+        ' validare Calitate  text box5
+        If TextBox6.Text.Length < 4 Then
+        ElseIf TextBox6.Text.Length = 4 Then
+            Dim val As String
+            val = TextBox6.Text
+            If InStr(1, val, "0000") > 0 Then
+                Dim oq As String = TextBox1.Text 'string pentru SQL oq
+                Dim cp As String = TextBox2.Text 'string pentru SQL cp
+                Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
+                Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
+                Dim quality As String = TextBox4.Text 'string pentru SQL calitate
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label6.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh: mm") 'Format time
+                Label7.Text = dTime ' update in label
+                Dim cant As Integer 'cantitate 1 intodeauna
+                cant = 1
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                TextBox2.Clear()
+                TextBox3.Clear()
+                TextBox4.Clear()
+                TextBox5.Clear()
+                TextBox6.Clear()
+                TextBox2.Focus()
+            ElseIf InStr(1, val, "sp") > 0 Then
+                Dim oq As String = TextBox1.Text 'string pentru SQL oq
+                Dim cp As String = TextBox2.Text 'string pentru SQL cp
+                Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
+                Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
+                Dim quality As String = TextBox4.Text 'string pentru SQL calitate
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label6.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh: mm") 'Format time
+                Label7.Text = dTime ' update in label
+                Dim cant As Integer 'cantitate 1 intodeauna
+                cant = 1
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                TextBox2.Clear()
+                TextBox3.Clear()
+                TextBox4.Clear()
+                TextBox5.Clear()
+                TextBox6.Clear()
+                TextBox2.Focus()
+            ElseIf InStr(1, val, "SP") > 0 Then
+                Dim oq As String = TextBox1.Text 'string pentru SQL oq
+                Dim cp As String = TextBox2.Text 'string pentru SQL cp
+                Dim oc1 As String = TextBox3.Text 'string pentru SQL oc1
+                Dim oc2 As String = TextBox4.Text 'string pentru SQL oc2
+                Dim quality As String = TextBox4.Text 'string pentru SQL calitate
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label6.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh: mm") 'Format time
+                Label7.Text = dTime ' update in label
+                Dim cant As Integer 'cantitate 1 intodeauna
+                cant = 1
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.pregatit values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & dta & "','" & dTime & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                TextBox2.Clear()
+                TextBox3.Clear()
+                TextBox4.Clear()
+                TextBox5.Clear()
+                TextBox6.Clear()
+                TextBox2.Focus()
+
+            Else
+                MsgBox("Introdu cod Defect Corect")
+                TextBox6.Clear()
+                TextBox6.Focus()
+            End If
+        Else
+
+        End If
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' inchidere forma scanare articole
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        ' stergere rand din datagrid
+
+        Dim result1 As DialogResult = MsgBox("Sigur Vrei sa strigi linia selectata ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo,
+                                             "Confirmare stergere Linie")
+        If DialogResult.OK Then 'confirmare MsgBox
+            ' cod stergere din SQL
+            If rowIdval >= 0 Then ' id row datagrid din sub datagrid
+                Dim id As Integer = rowIdval
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                         "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                         "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Delete  calitate.dbo.pregatit where  id = '" & id & "'", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                MsgBox(" Linia a fost stearsa")
+                TextBox2.Focus()
+            End If
+        Else
+            MsgBox(" Ai anulat stergerea liniei")
+
+        End If
+
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("id").Value.ToString()
+            rowIdval = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+        End If
+    End Sub
+End Class

Form7.Designer.vb

@@ -0,0 +1,170 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form7
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker1.Location = New System.Drawing.Point(150, 26)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker1.TabIndex = 0
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker3)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
+        Me.GroupBox1.Location = New System.Drawing.Point(35, 22)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(637, 86)
+        Me.GroupBox1.TabIndex = 1
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Alege intervalul din care trebuie sa faci exportul in excel"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(332, 31)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(98, 28)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "End Date"
+        '
+        'DateTimePicker3
+        '
+        Me.DateTimePicker3.CustomFormat = "yyyy-MM-dd"
+        Me.DateTimePicker3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.DateTimePicker3.Location = New System.Drawing.Point(445, 26)
+        Me.DateTimePicker3.Name = "DateTimePicker3"
+        Me.DateTimePicker3.Size = New System.Drawing.Size(159, 34)
+        Me.DateTimePicker3.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(17, 32)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(110, 28)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Start Date"
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(12, 125)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1306, 530)
+        Me.DataGridView1.TabIndex = 2
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(712, 41)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(194, 54)
+        Me.Button1.TabIndex = 3
+        Me.Button1.Text = "Preview"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.ForeColor = System.Drawing.Color.Black
+        Me.Button2.Location = New System.Drawing.Point(940, 40)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(194, 54)
+        Me.Button2.TabIndex = 4
+        Me.Button2.Text = "Export to Excel"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.Red
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(1140, 22)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(178, 79)
+        Me.Button3.TabIndex = 5
+        Me.Button3.Text = "Inchide program"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'Form7
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 20.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1352, 681)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Name = "Form7"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Export from SQL Database Pregatit"
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents DateTimePicker1 As DateTimePicker
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DateTimePicker3 As DateTimePicker
+    Friend WithEvents Label1 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents SaveFileDialog1 As SaveFileDialog
+End Class

Form7.resx

@@ -0,0 +1,63 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

Form7.vb

@@ -0,0 +1,86 @@
+Imports System.IO
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+
+
+
+Public Class Form7
+
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+
+
+
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                           "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                           "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+
+        Dim command As New SqlCommand("select * from calitate.dbo.pregatit where [date] between @date1 and @date2", con)
+        command.Parameters.Add("date1", SqlDbType.Date).Value = DateTimePicker1.Value
+        command.Parameters.Add("date2", SqlDbType.Date).Value = DateTimePicker3.Value
+        Dim da As New SqlDataAdapter
+        da.SelectCommand = command
+        Dim dt As New DataTable
+        dt.Clear()
+        da.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+        Dim saveFileDialog As New SaveFileDialog()
+        saveFileDialog.Filter = "CSV (.csv)|.csv"
+        Dim dta As String 'string pentru SQL data
+        dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+        saveFileDialog.FileName = "Pregatit" & "-" & dta & ".csv"
+        If (saveFileDialog.ShowDialog() = DialogResult.OK) Then
+            Using sw As New StreamWriter(saveFileDialog.FileName)
+                Dim columnCount As Integer = DataGridView1.ColumnCount
+                For i As Integer = 0 To columnCount - 1
+                    sw.Write(DataGridView1.Columns(i).HeaderText)
+                    If (i < columnCount - 1) Then
+                        sw.Write(","c)
+                    End If
+                Next
+                sw.Write(sw.NewLine)
+                For Each row As DataGridViewRow In DataGridView1.Rows
+                    For i As Integer = 0 To row.Cells.Count - 1
+                        If Not row.IsNewRow Then
+                            sw.Write(row.Cells(i).Value.ToString())
+                        End If
+                        If (i < row.Cells.Count - 1) Then
+                            sw.Write(","c)
+                        End If
+                    Next
+                    sw.Write(sw.NewLine)
+                Next
+                sw.Close()
+            End Using
+            MessageBox.Show("CSV file saved.")
+        End If
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+End Class
+
+

Form8.Designer.vb

@@ -0,0 +1,230 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form8
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Label1 = New Label()
+        ComboBox1 = New ComboBox()
+        Label2 = New Label()
+        TextMasina = New TextBox()
+        TextDefect = New TextBox()
+        Label3 = New Label()
+        DataGridView1 = New DataGridView()
+        Label4 = New Label()
+        Label5 = New Label()
+        Button1 = New Button()
+        Label6 = New Label()
+        Label7 = New Label()
+        Label8 = New Label()
+        FlowLayoutPanel1 = New FlowLayoutPanel()
+        CType(DataGridView1, ComponentModel.ISupportInitialize).BeginInit()
+        SuspendLayout()
+        ' 
+        ' Label1
+        ' 
+        Label1.AutoSize = True
+        Label1.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label1.Location = New Point(24, 92)
+        Label1.Name = "Label1"
+        Label1.Size = New Size(189, 25)
+        Label1.TabIndex = 0
+        Label1.Text = "Tichet pentru zona: "
+        ' 
+        ' ComboBox1
+        ' 
+        ComboBox1.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        ComboBox1.FormattingEnabled = True
+        ComboBox1.Location = New Point(28, 124)
+        ComboBox1.Margin = New Padding(3, 2, 3, 2)
+        ComboBox1.Name = "ComboBox1"
+        ComboBox1.Size = New Size(254, 29)
+        ComboBox1.TabIndex = 1
+        ' 
+        ' Label2
+        ' 
+        Label2.AutoSize = True
+        Label2.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label2.Location = New Point(28, 166)
+        Label2.Name = "Label2"
+        Label2.Size = New Size(85, 25)
+        Label2.TabIndex = 2
+        Label2.Text = "Masina: "
+        ' 
+        ' TextMasina
+        ' 
+        TextMasina.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        TextMasina.Location = New Point(108, 164)
+        TextMasina.Margin = New Padding(3, 2, 3, 2)
+        TextMasina.MaxLength = 4
+        TextMasina.Name = "TextMasina"
+        TextMasina.Size = New Size(174, 29)
+        TextMasina.TabIndex = 3
+        ' 
+        ' TextDefect
+        ' 
+        TextDefect.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point)
+        TextDefect.Location = New Point(108, 212)
+        TextDefect.Margin = New Padding(3, 2, 3, 2)
+        TextDefect.MaxLength = 4
+        TextDefect.Name = "TextDefect"
+        TextDefect.Size = New Size(174, 29)
+        TextDefect.TabIndex = 5
+        ' 
+        ' Label3
+        ' 
+        Label3.AutoSize = True
+        Label3.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label3.Location = New Point(24, 214)
+        Label3.Name = "Label3"
+        Label3.Size = New Size(74, 25)
+        Label3.TabIndex = 4
+        Label3.Text = "Defect:"
+        ' 
+        ' DataGridView1
+        ' 
+        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridView1.Location = New Point(314, 45)
+        DataGridView1.Margin = New Padding(3, 2, 3, 2)
+        DataGridView1.Name = "DataGridView1"
+        DataGridView1.RowHeadersWidth = 51
+        DataGridView1.RowTemplate.Height = 29
+        DataGridView1.Size = New Size(654, 302)
+        DataGridView1.TabIndex = 6
+        ' 
+        ' Label4
+        ' 
+        Label4.AutoSize = True
+        Label4.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label4.Location = New Point(111, 244)
+        Label4.Name = "Label4"
+        Label4.Size = New Size(17, 25)
+        Label4.TabIndex = 7
+        Label4.Text = ":"
+        ' 
+        ' Label5
+        ' 
+        Label5.AutoSize = True
+        Label5.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label5.Location = New Point(111, 276)
+        Label5.Name = "Label5"
+        Label5.Size = New Size(22, 25)
+        Label5.TabIndex = 8
+        Label5.Text = ": "
+        ' 
+        ' Button1
+        ' 
+        Button1.BackColor = Color.Red
+        Button1.Font = New Font("Segoe UI", 10.2F, FontStyle.Bold, GraphicsUnit.Point)
+        Button1.Location = New Point(38, 314)
+        Button1.Margin = New Padding(3, 2, 3, 2)
+        Button1.Name = "Button1"
+        Button1.Size = New Size(246, 33)
+        Button1.TabIndex = 9
+        Button1.Text = "Inchide formular"
+        Button1.UseVisualStyleBackColor = False
+        ' 
+        ' Label6
+        ' 
+        Label6.AutoSize = True
+        Label6.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label6.Location = New Point(38, 276)
+        Label6.Name = "Label6"
+        Label6.Size = New Size(59, 25)
+        Label6.TabIndex = 11
+        Label6.Text = "Ora : "
+        ' 
+        ' Label7
+        ' 
+        Label7.AutoSize = True
+        Label7.Font = New Font("Segoe UI", 13.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label7.Location = New Point(38, 244)
+        Label7.Name = "Label7"
+        Label7.Size = New Size(63, 25)
+        Label7.TabIndex = 10
+        Label7.Text = "Data :"
+        ' 
+        ' Label8
+        ' 
+        Label8.AutoSize = True
+        Label8.Font = New Font("Segoe UI Black", 19.8F, FontStyle.Bold, GraphicsUnit.Point)
+        Label8.ForeColor = Color.MidnightBlue
+        Label8.Location = New Point(485, 7)
+        Label8.Name = "Label8"
+        Label8.Size = New Size(251, 37)
+        Label8.TabIndex = 12
+        Label8.Text = "Tichete Deschise  "
+        ' 
+        ' FlowLayoutPanel1
+        ' 
+        FlowLayoutPanel1.BackColor = Color.White
+        FlowLayoutPanel1.BackgroundImage = My.Resources.Resources.AQUINOS_BEDDING_AQUINOS_GROUP_copy_3
+        FlowLayoutPanel1.BackgroundImageLayout = ImageLayout.Zoom
+        FlowLayoutPanel1.Location = New Point(24, 7)
+        FlowLayoutPanel1.Margin = New Padding(3, 2, 3, 2)
+        FlowLayoutPanel1.Name = "FlowLayoutPanel1"
+        FlowLayoutPanel1.Size = New Size(261, 74)
+        FlowLayoutPanel1.TabIndex = 13
+        ' 
+        ' Form8
+        ' 
+        AutoScaleDimensions = New SizeF(7F, 15F)
+        AutoScaleMode = AutoScaleMode.Font
+        BackColor = SystemColors.ActiveCaption
+        ClientSize = New Size(979, 368)
+        ControlBox = False
+        Controls.Add(FlowLayoutPanel1)
+        Controls.Add(Label8)
+        Controls.Add(Label6)
+        Controls.Add(Label7)
+        Controls.Add(Button1)
+        Controls.Add(Label5)
+        Controls.Add(Label4)
+        Controls.Add(DataGridView1)
+        Controls.Add(TextDefect)
+        Controls.Add(Label3)
+        Controls.Add(TextMasina)
+        Controls.Add(Label2)
+        Controls.Add(ComboBox1)
+        Controls.Add(Label1)
+        Margin = New Padding(3, 2, 3, 2)
+        Name = "Form8"
+        Text = "Lansare tichete mentenanta"
+        CType(DataGridView1, ComponentModel.ISupportInitialize).EndInit()
+        ResumeLayout(False)
+        PerformLayout()
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextMasina As TextBox
+    Friend WithEvents TextDefect As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
+End Class

Form8.resx

@@ -0,0 +1,60 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Form8.vb

@@ -0,0 +1,96 @@
+Imports DocumentFormat.OpenXml.InkML
+Imports Microsoft.Data.SqlClient
+Imports System.Reflection.Emit
+Imports System.Threading
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+
+
+
+Public Class Form8
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user & "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open()
+        Dim command As New SqlCommand("select top 14 * from dbo.mentenanta where (status = 'Deschis' )order by id desc", con)
+        Dim sda As New SqlDataAdapter(command)
+        Dim dt As New DataTable
+        sda.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+    End Sub
+
+    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim items As String() = New String() {"", "Cusut", "Pregatit", "Matlasat"}
+        ComboBox1.DataSource = items
+        updateTable()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form1.Show()
+        Me.Close()
+
+    End Sub
+
+    Private Sub TextMasina_TextChangeed(sender As Object, e As EventArgs) Handles TextMasina.TextChanged
+        ' validare text box 1 cu OQ
+        If TextMasina.Text.Length < 4 Then
+
+        ElseIf TextMasina.Text.Length = 4 Then
+            TextDefect.Focus()
+        Else
+            MsgBox("Introdu cod Operator")
+            TextMasina.Focus()
+        End If
+    End Sub
+
+    Private Sub TextDefect_TextChangeed(sender As Object, e As EventArgs) Handles TextDefect.TextChanged
+        ' validare text box 1 cu OQ
+        If TextDefect.Text.Length < 4 Then
+
+        ElseIf TextDefect.Text.Length = 4 Then
+            Dim val As String
+            val = TextDefect.Text
+            If InStr(1, val, "D") > 0 Then
+                Dim dta As String 'string pentru SQL data
+                dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+                Label4.Text = dta 'Update in Label 
+                Dim dTime As String 'string pentru SQL time
+                dTime = Date.Now.ToString("hh:mm") 'Format time
+                Dim nu As String = "NULL"
+                Label5.Text = dTime ' update in label
+                Dim cant As Integer 'cantitate 1 intodeauna
+                cant = 1
+                Dim status As String = "Deschis"
+                Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+                con.Open()
+                Dim command As New SqlCommand("Insert into calitate.dbo.mentenanta (Data, Ora, zona, masina, defect, status) values('" & dta & "','" & dTime & "','" & ComboBox1.Text & "','" & TextMasina.Text & "','" & TextDefect.Text & "','" & status & "')", con)
+                command.ExecuteNonQuery()
+                con.Close()
+                updateTable()
+                TextMasina.Clear()
+                TextDefect.Clear()
+            End If
+        Else
+            MsgBox("Introdu cod Operator")
+            TextDefect.Focus()
+        End If
+    End Sub
+
+
+
+End Class

Form9.Designer.vb

@@ -0,0 +1,419 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form9
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Required by the Windows Form Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Windows Form Designer
+    'It can be modified using the Windows Form Designer.  
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form9))
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.TextUser = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.TextConst = New System.Windows.Forms.TextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Location = New System.Drawing.Point(19, 56)
+        Me.DataGridView1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.RowHeadersWidth = 51
+        Me.DataGridView1.RowTemplate.Height = 29
+        Me.DataGridView1.Size = New System.Drawing.Size(1054, 313)
+        Me.DataGridView1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label1.Location = New System.Drawing.Point(428, 14)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(173, 21)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Lista tichete Deschise"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label2.Location = New System.Drawing.Point(5, 19)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(35, 21)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "ID :"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label3.Location = New System.Drawing.Point(172, 19)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(50, 21)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = "Data:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label4.Location = New System.Drawing.Point(172, 39)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(41, 21)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Ora:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label5.Location = New System.Drawing.Point(5, 42)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(53, 21)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "Zona:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label6.Location = New System.Drawing.Point(7, 78)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(69, 21)
+        Me.Label6.TabIndex = 9
+        Me.Label6.Text = "Masina:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label7.Location = New System.Drawing.Point(7, 99)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(121, 21)
+        Me.Label7.TabIndex = 10
+        Me.Label7.Text = "Defect initial : "
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label8.Location = New System.Drawing.Point(46, 19)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(14, 21)
+        Me.Label8.TabIndex = 11
+        Me.Label8.Text = ":"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label9.Location = New System.Drawing.Point(222, 19)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(14, 21)
+        Me.Label9.TabIndex = 12
+        Me.Label9.Text = ":"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label10.Location = New System.Drawing.Point(214, 40)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(14, 21)
+        Me.Label10.TabIndex = 13
+        Me.Label10.Text = ":"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label11.Location = New System.Drawing.Point(57, 42)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(14, 21)
+        Me.Label11.TabIndex = 14
+        Me.Label11.Text = ":"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label12.Location = New System.Drawing.Point(77, 78)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(14, 21)
+        Me.Label12.TabIndex = 15
+        Me.Label12.Text = ":"
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label13.Location = New System.Drawing.Point(10, 118)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(14, 21)
+        Me.Label13.TabIndex = 16
+        Me.Label13.Text = ":"
+        '
+        'Button1
+        '
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button1.Location = New System.Drawing.Point(390, 541)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(210, 33)
+        Me.Button1.TabIndex = 17
+        Me.Button1.Text = "Update Info Tichet"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.GroupBox1.Controls.Add(Me.Label15)
+        Me.GroupBox1.Controls.Add(Me.Label14)
+        Me.GroupBox1.Controls.Add(Me.Label2)
+        Me.GroupBox1.Controls.Add(Me.Label8)
+        Me.GroupBox1.Controls.Add(Me.Label13)
+        Me.GroupBox1.Controls.Add(Me.Label3)
+        Me.GroupBox1.Controls.Add(Me.Label7)
+        Me.GroupBox1.Controls.Add(Me.Label12)
+        Me.GroupBox1.Controls.Add(Me.Label9)
+        Me.GroupBox1.Controls.Add(Me.Label11)
+        Me.GroupBox1.Controls.Add(Me.Label6)
+        Me.GroupBox1.Controls.Add(Me.Label4)
+        Me.GroupBox1.Controls.Add(Me.Label10)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Location = New System.Drawing.Point(19, 386)
+        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.GroupBox1.Size = New System.Drawing.Size(350, 157)
+        Me.GroupBox1.TabIndex = 18
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Info despre tichet"
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label15.Location = New System.Drawing.Point(172, 105)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(14, 21)
+        Me.Label15.TabIndex = 18
+        Me.Label15.Text = ":"
+        '
+        'Label14
+        '
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label14.Location = New System.Drawing.Point(172, 78)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(65, 21)
+        Me.Label14.TabIndex = 17
+        Me.Label14.Text = "Status: "
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.Red
+        Me.Button2.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Button2.Location = New System.Drawing.Point(867, 504)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(207, 67)
+        Me.Button2.TabIndex = 19
+        Me.Button2.Text = "Inchide Fereastra"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'TextUser
+        '
+        Me.TextUser.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextUser.Location = New System.Drawing.Point(446, 386)
+        Me.TextUser.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextUser.Name = "TextUser"
+        Me.TextUser.Size = New System.Drawing.Size(172, 29)
+        Me.TextUser.TabIndex = 20
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label16.Location = New System.Drawing.Point(382, 386)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(44, 21)
+        Me.Label16.TabIndex = 21
+        Me.Label16.Text = "User"
+        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label17.Location = New System.Drawing.Point(394, 417)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(153, 21)
+        Me.Label17.TabIndex = 23
+        Me.Label17.Text = "Defecte constatate"
+        '
+        'TextConst
+        '
+        Me.TextConst.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.TextConst.Location = New System.Drawing.Point(394, 444)
+        Me.TextConst.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.TextConst.Name = "TextConst"
+        Me.TextConst.Size = New System.Drawing.Size(207, 29)
+        Me.TextConst.TabIndex = 24
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label18.Location = New System.Drawing.Point(399, 477)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(94, 21)
+        Me.Label18.TabIndex = 25
+        Me.Label18.Text = "Status Nou"
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Font = New System.Drawing.Font("Segoe UI", 10.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(390, 502)
+        Me.ComboBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(210, 27)
+        Me.ComboBox1.TabIndex = 26
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Segoe UI", 13.8!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label19.Location = New System.Drawing.Point(19, 550)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(159, 25)
+        Me.Label19.TabIndex = 27
+        Me.Label19.Text = "Actualizat la ora:"
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Segoe UI", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point)
+        Me.Label20.Location = New System.Drawing.Point(194, 544)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(21, 32)
+        Me.Label20.TabIndex = 28
+        Me.Label20.Text = ":"
+        '
+        'FlowLayoutPanel1
+        '
+        Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.White
+        Me.FlowLayoutPanel1.BackgroundImage = CType(resources.GetObject("FlowLayoutPanel1.BackgroundImage"), System.Drawing.Image)
+        Me.FlowLayoutPanel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlowLayoutPanel1.Location = New System.Drawing.Point(19, 5)
+        Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
+        Me.FlowLayoutPanel1.Size = New System.Drawing.Size(219, 46)
+        Me.FlowLayoutPanel1.TabIndex = 29
+        '
+        'Form9
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.ClientSize = New System.Drawing.Size(1085, 580)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.FlowLayoutPanel1)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.ComboBox1)
+        Me.Controls.Add(Me.Label18)
+        Me.Controls.Add(Me.TextConst)
+        Me.Controls.Add(Me.Label17)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.TextUser)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.DataGridView1)
+        Me.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
+        Me.Name = "Form9"
+        Me.Text = "Administrare tichete mentenanta"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label14 As Label
+    Friend WithEvents TextUser As TextBox
+    Friend WithEvents Label16 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents TextConst As TextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents Label20 As Label
+    Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
+End Class

Form9.resx

@@ -0,0 +1,474 @@
+<root>
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="FlowLayoutPanel1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAABU0AAAHDCAYAAAAQkzvuAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAAFxEAABcRAcom8z8AAF9fSURBVHhe7d09suzIdSjcN4Ib1AwYirg+IzgBGRoAHRk3
+        nkOLdnvPpSmTbnu0ZdH/HA2ABiegiHaOq+gZ6Nu7+xRVRO86p1AFoJA7l7Gi++YpJDJRqASwkT//53/+
+        538AAAAAAHhXJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkA
+        AAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAA
+        gFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzK
+        RAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAA
+        AADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABg
+        VmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIR
+        AAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAA
+        ADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhV
+        mQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQA
+        AAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAA
+        zKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUm
+        AgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAA
+        AABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACz
+        KhOB7b19+fqb8C/vvgt/XPhL+M87LLf7Xfgp32q/8Iw4r67P24vfh+V5mGnLz6VfVfmynffjvPw+tlJ9
+        r77TO8Rxqo7nFvL68Q/fSbX/EUVd8npW1fleZTtU7YuxVd9zuHX+VJ9N2jIOl+fd4jxM1Xl78ff7/HfO
+        W1a5Oncu59Sfw/Wz5f+s9Ldw2TafX5fnqnOUVspEYL24QPz6/UKRF40/hUcvRFu4XMyyLD89RFZlZm5x
+        Xlyfs+lyzv4YqvPqWZfz8nKDdQlwuLl6wvvxrI733vI8ye8z27ufAnlV+WYUxyIfiqtjtrf8jV1+X8N9
+        H1HmPJ+qem3lcs5et0G/qcrCa8T3cQko5XeT39H1w331nW7lh3DZT+73p99QcH6wSp4z7+dOnkN7Pg9c
+        ztn8jVzO119XZWIO7+dAtp2X826v+/l7uEekjTIR+Fg0/HlDlBeAy818dbE4o3ygzjLnBdWN1UTi+84b
+        qTOfs5ebq7zxzzfVzs87vR+36pi+Sgakso2ZNhgedc/fW3VsXiHPj/ztn/77iDJmEKCqwxEu7Y8g2UHy
+        WIezPOB/5h9eSAQv+zjrvdX1/ZRAVVPx3WbHh0v7me1TdS6ckXOT4ZSJwD/Khv29gT/LDdFW8gE1b/Qy
+        SOUBoIn8Lt+/08uDaPXdj+Byfgryf+D9WJ1Vfn/T3RhHnfOcrY7Hq2XQ57Tfx6Ksr5RtT7afAqgbiuN5
+        fS915gDpvVyjJhPf86jPA1neDO46TwcV3931vf0rXzBuKa8D079o5/zKRJhdNNz59i5vLrIhrxr5rly4
+        BhXfWfbY6RjYvyaQsRDHItuq6lidTZ6X0zysRV3zt1gdh7M43fcR5clgRFXWV8tjpUfMA+K4zXYvlb29
+        XKMaie+y4zl8uZcSQD25/I5CPpfN0oZO+aKd8ysTYUbRSF9ujEYa4rCXfPPnwnVy8f1koLTTG+c13PSH
+        qP9ZA02VbFe+q+rRTdRzlJcXf6zK/wpRluxBU5XxLKYK/D8qjtHM16VrXvINKr6zmZ4Hso46S5xIfhfv
+        38ko9xF7yPbTeclplIkwi2yMg0Dpx366oaqOH8eL78ID6S/ljeWU52jUO9uv6pic2Z+runQSdRzpmpK/
+        n5c/mEQZzt47N2Xg3/VwIY5JBplcl27L45JttQDAScV3M3vHiUtnCS+GXiSOfb44zO+g+n5mleflaV7u
+        Mq8yEbqLBjgDTy5M6/z01q86nuwrjrvg/n1+urkK0zyYvte3OhZn1zpwWtT37LJteenvJvY/0vDD9oH/
+        e8RxmL031FoCUycT30UGqmYZ+nyv/E0baXaAOM6X+3svnD6Wx+d31TGEI5SJ0FU2uMEN/nNcuA4Sx1lw
+        /zHTBE+jjiO3Z3+q6jS6qFf+bqv6nt1LA6ex79HO5SkDp1HvS6/SbGer48J9BE9fJI67QNV9BE93Esc1
+        29FsA7Sj6+Q5qd3kcGUidBMNbPaGcHO0LReuncRxFdzfxk/B0+oYdxH1G71da/dAlnVa1HEkLwsEFmUZ
+        wTTDBqOuXuLtIwPQhu0fII6zgP9jsieu+/0N5HEM2tHn5O9X5x0OVSZCF9Go5sOrIc37MtfMRuJYCu7v
+        I49py94Si3qO6IeqXiOLOo06ZcLF4Q8jsc98kKzKMoLWPbGyfsFLvH1lEMD0RzuJYytQtY2ppj/aUhw3
+        5+D2Wo5W4pzKRBhdNKR5cXKTf5wMTHsL/aA4doKlx8jeEm1u+KMuow4DX2oVLIj6jP5glG3Rob+T2N/I
+        vXPbBf5T1Cvvo8z1eCwjeDaUxzIIVG0rrw96+d0pjlVOBZG9m6tjyfNa3ddzXmUijCwaz9F7+YzKcImV
+        4njpCX28PE9b9AyLeuQ0DlUdR9Mq6BT16fDC7ruqbnvJ/S32P5o2Iy6iLvmQL9D0OnqdPimOX57DngX2
+        JVj1iTg+eV3L33N1/NjOyxeypL8yEUYUDWb2uhKAej3D9T8Rx0hP6NcbflhP1KHTQ+FvqjqOKOrS4SHp
+        0EB27G/0njg/VvUaTdTDQ/55ZOBaIGClOGbO4eO0nfroGXFMPI8e72/VdwFbKRNhNNFYjt5LpZspVxX+
+        TBwXw3TOJQPXwz6URtk79QZrMTdV1CN/41X9RnTYyIHYV4eXSMP2Doyye8g/p/xODNe/QxwnI3deR2eJ
+        EMfBPf5refZkN2UijCIayLxAmXPrnFy8rsTxyKHUej+cTz5kDdnLMcrdqbdyi14CUY+R5+ZcOqwNj311
+        mNP5L1XdzizK7CH//PK+oU1P/K3FsXEOn8PUw/Wj7vniydoEr3fo1ELMo0yEEUTDqGfE+U0fOI1jYDGN
+        8xvyoXRRh+Et6zeiqEcu6lbWb0CHDdEv9j2kZb3OLMrrHmocAqeFOCZeRp/LsC+hnxF1Nn/ueWR7oHc+
+        mysT4eyiQcybfTdKY5g2cBp1zwCK83QMQz2URlk7DQO/GP5hK+rQ7eFp94eP2Edez6t9j2iI+f2inB7y
+        xzPUNWpPcRzy+mexsnOa5jyNeuZ5aH2C8/nP6vuCZ5SJcGbRGHqzPJ6p5juK+uaNlN6l4xnmZj/K2WkY
+        +MXwC0pEHbo9QO3+ncQ+8ppe7XtEp77WRfk85I9t+sBp1j8YBn1ueZ4eNif2K0T9nIfn1vr843hlIpxV
+        NIKdhj7OZooLWNQzg1mC+uMa4qE0ythx8bvhX65EHboNd979O8l9LPY5stPOaxpl85DfQ16jphx+GvXW
+        Q3oswy6O95GsV3Cff26HTS/EHMpEOKNoADv2rJpJ+xv9qJ8b+h5Of65G+Tqeax2CplW9RnZE0LTTMNtT
+        DguMcnnI7yVfzkyz6E7WNRi9M6ZWgdOoT8cX1l0NP3qJ8ygT4Wyi4TOHaQ8tVsheinoZ8tjPqR9Ko2wd
+        z7ehg6ZR/k5zc17s3nMy9tHpXP6xquMrRZm8zOtpivnio556SI+vxUizqId5dMdy2pEfjKdMhDOJRi8D
+        UgKmfQzfm+xa1McNfV+nfSiNsnU850YPmnYcDbF7z8lin0Nb1u+Vojwe8ntrOfz5IusX3P+PL7/Doefi
+        jfJrS8c0TY989lUmwplEg6cHXz8thulHPSxK1t931Xf/akU5Oxg9aNqxR9+uQdPIP1+KVvsd1rKOrxDl
+        MJx5Dnn/0XLao6iXYdC9DBs4jXILmI6r9YsljlMmwllEY2dYWU+nnPdtjaiDRcnmcLqH0ihPx2HgafSg
+        accHq72Dpu165y7reLQoQwZMuy1Ixm3D308tRZ0EqXoabi7eKK9zcWxTTGPC/spEOINo6LoGBvjZsBN0
+        R9ndRM3lVA+lUZ7s4VyVc3SjB007jorYO2jarjfZso5Hiv0LmM6pRW+qqEeev+6vehtmnskoq3NxfC3X
+        0uB4ZSKcQTZ0i4aPXn6ovvezi3K7iZrTaYbpR1m69sAfPWjacaqOvYOm7c7lZR2PEvsWMJ1Xtj1Dz92X
+        5Q/O3zmc/lofZTSarInldwuPKBPh1aKRM5fRHIbqHRHlFTCd12keSqMcXc/DYVfYjbLnA39Vp9H9qarv
+        ViL/dr1zl3U8Suzb/O9zG/alU5RdwHQ+px1tFmXrOppnVkMvQsY5lInwStG45c1Txx47/NIQc3FFOfOc
+        FDDlFHMjRTm6BkdGnrKj48r5addATOT/w2J/w1vW8QixX9cnhuxtmmUOAqbzybb/dOdrlCmnhvMM2suw
+        95acR5kIrxSNm8Wf5nL6i1mU0Q09Fy9fFKooUxfD9gaIsncdyrd30LTa59CWddxb7FPAlIuheptGeQVM
+        57brSIa1ojzOx54ETXlamQivEg2bXqbzOfXKhlm+RXmZ20vP19h/tpFVuYa3rOtIovxdX/bt9rARebdc
+        7HFZzz3F/sy7x7VheptmOYMAFacJaEVZ3O/3dJo1CRhXmQivEg2bB4D5nPYmP8rlBorKy3qbxr67DgMf
+        cmG4iyi/KRNWirw7zht32Eq9sa+WQWeeNsRc8VHOvyzKzZxOce2PcpjHtK9h53vmPMpEeJVo2Lx1ntPp
+        bvKjTAKm3PKy3qax766L5A0xv/EtUf6W165lPbcU+XfsnXvIeRz7MSqHWw4L3D8qyuj+imsvDWrF/rWn
+        vQ216DDnVCbCK0Sj9utFI8c8/lKdE68S5TGvLp95Se/o2G/Xc/NUc5utVdSng117AEX+HQMnh1zLYj9e
+        MPOR084PHWVzf8VSBixfOYJHr+fezGnK08pEeIVo1Lr2oOIOy/PhVaIspojgHi/pGRH77ToMfNg5p6Ls
+        XYdJ79prMvNf7K+D3duF2MefFvuEpVO+hIpyub/ilpeM4In9dp3yiP8laMrTykR4hWjUvOmb2++q8+JI
+        UQZzxHGvl8zDFfvt2sNs2JvaLPuiLl3sGniJ/DsOh9w1+B/5e8DnHqebIzrKlPdXhkDzkcN7m8Y+f1iU
+        gX5O2/OecZSJ8ArRqLmZmttLe0bE/nN6COcgaxwe6CvK0MXLhuY9K8redbjpbgHAyDvnkKv2Obo9F87K
+        Y+YBn3udJlAQZTFnJPc4tLdp7M9UERNYfu/wiDIRjhaNmvlMedniBbHvvKE3RxxrHX2D37Yn9LKuI4ny
+        d13UZM8AYNcek7sF/yNvo3FY4zQrRkdZuk4rw/YOeYEa+xHIn8PpF8ZjDGUiHC0aNUPOiFOhPj/2Fvu2
+        kiuP+LE6n/YS++vaTo6+cn7XgMCeAcCWcxsu67mVyNs9Emudol2NcujNxxqHjDqL/Tgv5zD0IqOcR5kI
+        R4tGzcWL9IrhzhYm4BmHnbOxr67t5CErju8lyt+yt8qynluK/Duey7sEqSJfw/J5yPJcOlqUQbCftfJ6
+        +qvqfNpK5v++n2r//DzyLl8GXxv1GvTy9TLooUyEo0WjdvbVYK8vHNkrMR/4npH1vc6z2ueMDl1BO/Zn
+        YQKeddhb7NhX1x7RpxlG+oiiPh1YOX+9XYL/kW/eM1T7g88c/iL6IvYtMMWjfl+dU1uJ/GdsU/O3mNfd
+        fP7M+ucLjfTwiJLYNn/jl3x+Fy7PuLmfs0x5tmsAnnmUiXC0aNRe+QB1uZBcgqHZ8OcF4PCG9n2/lwtP
+        lmm2G85Dh1HE/mafxzTPr5wn7/q8r2Rv3PxM/kbM/fqPDpsvKfb1ynZyT8P2BIiy5++jqtPodu39G/l3
+        bEc2D/5HnuZ75xkveyEV+zYHL4/a9b4q8p+h537WMe/Z8/79ZQtt5r7D5bk224Qjj/0PVZngEWUiHC0a
+        tiODgxl4uASJXnYhuVeUMR/K883gDAHUw+bgin2dvXfzXvI8yro/tbJubH85Lw0bPegFS+ynaxvwst5Q
+        z4qyd53eY9dgS7G/DjYP/keeXV+UcIyXTH0S+/1uUY7Z5e/4lurzPHmPekvkm89+1f46yHvEDJTucuy2
+        EuW7BFL3foY4dLFWeisT4WhFQ7elvCnJIOmpLyL3iDrkA3rnINUhbwVjP117h30kz5tdhjxFvnk8Z+5V
+        sntPydhHDoOq9j28ZV1HEuXPa0tZr8Htdk5H3jktSrXP0W0a/M/8Fvnzs2XQKc3wUvkRh68cHfvMgMjs
+        30feD+X9+l3PHfG5o4JII9ll5Fnk2/FeNX9veS8y5FD0KHee//miZevvZtdpHphLmQhHikZtjweDyw1L
+        y7lMol5dH9SjenWdtxL7mG1Rjd2CpUuxn/wt5wNsVY7Odh8CGfvoGkAZevhUlL/ry4Ldev9m3ot9tbCs
+        57Mizxnb0mt57cog0prg02WOvXwAzx5X0wdTl8dob7HPrm3iZ3661wpPP3dEHvliafbzd/N7g8gzg3PV
+        vkaWv7c2z7pZl5C/oy2uf6cfTco4ykQ4UjRq2ThWjd1aOUda20Dp0ntdq+Mwul2/v8i/bcC58JI3z7HP
+        2Ybm7T6tROyj6+/9sCk59hDlbznH77KeW4r8O7bBmz7gR35df++fycBTnh+bPexGXpcAVLW/GRw2yir2
+        1Xno8y0Z3NnlJVPkmwGkme5ZlzY9dyO/bvemhy6ee7SoXwa58/x/5OWB+UzZVJkIR4qG7dkbgtPP37KX
+        qHfHB6s9ezh1HRa6lA+eL/1N5P7DLL0kfqyOwZZiH10fnA5d/G1rRX062PVhI/LvGMDaNPgf+WUbXu2n
+        q5966VXHYiuRfz6Azxg8PWTO6NjPbKN48v7mqFE8ee7OuAjnpqN4Ir9Ox3CqoedZ37CmfXnJfM70VSbC
+        kbJhWzR098iblRy2NX3X+zgG3Ybw7Rk0nWG442mG6kQ5Zgqc7toWRf5dz91he0pE2TsO9Uu79v7N/Bf7
+        62Cz4H/kNVNvvbw+HNoGxP5y+P4s16V0yAr6uZ/Ffjt7yX1W7DOfe6rydLXZnLyRV6fr9dAvm58Rdb83
+        eNq6Fy7HKxPhSNGwrX3zlzcNUwzBv0cci27zw+01zGmG4Y6nu5GKMs0SON21N0/k37WXySG9oPaQZV/U
+        pYtd25HIv2N7sNkDWuQ1w8u9lG3aS158x36zV+QsPfeOmHO76wukpWy7XtrDL/d/VZ4ZbPK8F/l0OW55
+        Dk7/DBzHIL/Pj+4lphyByn7KRDhS0dDdksOqTOpciOPSaUjU5qs2R575gNQ9cHfaoTpRthl6Tu36YFrs
+        r4th2/Qoe9eeVbv10Ii8sy2u9jm6TYL/mc8i367+XNX/SFGGWQKnuw9TzX0s9tlR3mefIhAT5ZgpcLrJ
+        M0Hk02Vqjml7mS7Fscg2vOp9vfuUWcynTISjRMN2z9vpvKkdtjfSEeL4dJqna/PgU+a52Ec3p5/bKMrY
+        /aFqt6Bp5N12Lt5lXUcS5e86VHK3623mvdhXF5sE/yOfGebcfHnA9CLKMsM853tPtzFDoD+fQ07Vuy/K
+        M8tQ/U2ChJFPl44TelAu5DEJ1y/AzGfK5spEOEo0bB/dbOUFzpwkd4jj1CkouGnwKfLrPmxsiMngo5zd
+        e/vu9mAaeXd9KB195fyuw6h36/0bebfsIbWs5yMinxmGOJ8mYHoRZer+UtUcxc85XcD0Iso1w1QeT5+/
+        kUebtnVZN34WxyafMS4vHXefkoT5lIlwlGzY3hu4pbwRMBT/TnGsvrs6dqPbOmjauefO6R5APxLl7fxw
+        umfQtOtxG7o3QJS/5UuAZT23FPl3PJc3+e1HPt2Dd6e8XkW5vNB7UOTdvZfpaQOmKcqWwcDO5+5PlvVe
+        K/Lo8rJus4WxuopjlN+13rhsrkyEo0TDthxeonfpA+KYdXrY2ixoGnl17rkzXMApytz54XS3OZQi766B
+        /6F7AxT16UCvtPU2aYsjn05zky+d+mE/ytc6YL2s71Yi7849HU8dML2IMnZ/2ZKeCoLF9l2O0Q9V/YD9
+        lYlwlLgAXN9w6V36oDhugqaFyKtrsCkfrodcPTPK3bbn77KuW4m8uz6YDjG1RCXK3rWH1a4vYyL/63nH
+        unj6mhV5dF4sL1+UnfreLst3Vd52lvXdQuTbuZfpUPdY7+Wt6tHFU4tBxfad7qE8J8MLlIlwlGj8L73O
+        9C59Qhy/ThPCb7VSZueHoGGHnkTZ2z5oLeu6lci7a+/cYRf4i7J3Xb14196/xf46ePqaFXl0nkZmiPu7
+        KGfHgP5PlnXdQuTb9WVeXm+HuseK8nZfTf+p61Js3ymobJEjeIEyEY4SjX/epJp75ElxDDvdvG4SSIl8
+        DGk+qahD1yDg5j0AIs+c0qDa1/CWdR1JlL/rkMhNXlpVIu+uL7KeumbF9p2nLdl1uoctRVnbDnNe1vVZ
+        kWfnXqZDjoCIcndtQ9JTgcIiv9Hl882Qo81gVGUiHEWjv404jp3eoj4dNI08uj6ct5gEPurRNaC9ec/J
+        zHOxjy52mwP2CFH+vyzq08VuvX8z78W+WljWc63Io3MvsWFeikdZjYK4U+TZtf0banHNa1H2TiPOlh5+
+        +RLb/maRVxf53DfsFEcwmjIRGMviQjq6LYKmXW8edwtoHCnq0TVIsEfQtOuxGqYHWiXK33Io77KeW4r8
+        O/bke3phjshDAOoEorx69d8h8uv6UnqoeUyXouxdg4Pp4ZessW3nXtEpexjnM49Rm7CjMhEYR1wou90Q
+        PHXhj+27DnUctgfEUtSl6839HkHTrkNG/1TVdxRFfTrYdWXeyL/jy6yng/+Rh+lKTqKoQwvLej4j8vNS
+        +qSiDm0XhFrW9V6xbff5Xq/l95+/z1xY0EhO2FCZCIzj/eJYXTyHtKzfWpFHxxukfKhutWLmon5d7BE0
+        7doLbdi5eaPsXXta7dr7N/Nf7K+Dp4L/sX3XVfOH7Eke5daD/AORl5fSJxb16BrQjurVdf5MbNt2ruI7
+        ZHsmiAobKBOBccSFsNUNwbJ+a0UeHd+0D7/401LUqePD6R5B05YP8WHYXj1Z9kVduti192/k3zHY8tTK
+        8LF91yDHbguK7SnK3XJF+GU9HxV5dX0p3SKgFPXo+hImPXTPENvNHDRdyuejfBH/XRi+ZzUcqUwEthEX
+        pRyGnA/YKW9m8uK9lBewvFF/VKcg4VPDQ2P7jsGMNjf016JOee5W9R3ZHkHTaj8dDNtzOsqe7XZVp9E9
+        FQD8TLG/Dp76zcf2HV/y7TrNw56i7B2vS5v1+o28Or7Ea/NSOurSdl7eIGi6j/xN53NoHqd8htIjFQpl
+        IvCxvKi8X1wugdDsLXIJYnbsTXOUp27uY/uOq7IPPffjLVmvRT072DRoGvl1HQYe1avrPIIof9fegbv1
+        PMm8F/vq4uHgf267yKuLYa9ZUXZB0xsin47na7uX0lGfji9ikqDpcfJ3kW1hHrvsXb7bvQGMokwEfhYX
+        iuwpegmMXnqEVhcYtvHwvFKxbde5tlrNZXoR9ep4I7t10LRroOlvVX1HEeXveh3Yra2JvFsuxrGs5xqx
+        fdcFSoZdxTnKLmh6Q+TT8WVRx6mPul6fBE1f77pXaj4bt3w+gUqZCDOKxj8DpPkQc+k1Wl0w2NfDN7Cx
+        bccH0L9Ude0g6iZo+onIr+vN/tDndZS/5WiCZT23FPl3PJeNjPilH6u6jiLKL2h6Q+TTrQdju16mKerU
+        9b5B0PScrnul6pFKW2UizCAa9wyS5mTY+das5UPwgB5ePCK2ze+xynNkQy6mcY+oW8cb2a2Dpl2HgQ/d
+        u6eoTwe79v6N/Du2z08F/2P7jvNDDr0KeZS/Y9D06fY28sj75SrvkXWd+kjQ9EpsJ2h6vLze5/O1nqi0
+        USZCR9l4h+yNKEh6Xo/eFHWc/H7YxTTuEfXrOPR8014rkV/XHu+/r+o7gih71ykTdu39G/lbQOZKbNt1
+        wZZhf9spyu88LUQeHV/gdZ36qOs16tHng67ToIwi21QBVIZXJkIX2Ui/N9Ydb4TbWX5/94ptO94UtewF
+        cRH1a3djv6zjsyLPri93hh3CFWXv+gC2a+/fYn8dPDMyomtgY+gH46I+HTwdyI48ug3N32TKgjOKugma
+        XsntFvnwOtlpadj7P+ZWJsLIokHOHhz5YCtQOpaHe1bGth2Hfg67mMY9on6Cpp+o9tHBsp4jifJ3Heq3
+        Ww/ByLvrKvEPP/zFth3Po6HnM01FnTp4KkgR23ccmj90j+iPRN0ETa/Edh3P39HlS5i2v0F6KhNhRNEA
+        541Cx4UVZvHQm//YztD8AUUdc+XNqu6j2jRgEPl1ffAZfaGYji9o0m69PzLvxb5aWNZzjdi+43k0dO+9
+        KH/X4P5TL2Bj+xytVeU7snYLQF1E3boGCZ95SVXlx+sJnjKMMhFGkg1u0Kt0fA8NR4/tugXf0tCLadwj
+        6titp9WmAYPIr+sw8NEDKy2vNct6biny79ir8qkXW7F9x/No9AXeBPcLkUe3ubV3nb/5DIo6d/BM0LTr
+        /PBd5PfTenQd4ysT4eyicc3ehfkg1m2epZk99MAV23XsXdx21fyLqKOg6Qciv46BpjT0XL1FfTrYtfdv
+        5N9xEZmnfu9Ffh0M3WMoy7+oTwdP/bZj+44jedr3bCvq3MHDQbXYtuM1qKP8ntr2AmdsZSKcWTSoOVTI
+        6vf9PDpfUcfAefubhqhjt6Dgpr2DI7+uw8CH7Y0WZe86fHfX3r+Z/2J/HTwc/I9tDZ89oSh/xxdVzwb3
+        O47kab+Kd1Hn4S3ruEZs3/E87ipHYeh1yumUiXBG0YjmRU/P0r5W38jmNos8OvhbVdduop7dHlA3DQZG
+        fl2nHBk2sJJlX9Sli117/0b+HV9yflfV9R6xrWHgJxR16Pii6qmXebF9tx56M8wX37F3cFStru+9Ig+d
+        bcaR35W5TjmVMhHOJBrODIyZj6a55fd+j9iu43C69vOZpqhnt9/0w0GUSpF/F8P28omyd50yYdfev8X+
+        Onhmfr2O51GHlfPNM7sQ23c7JjPMF9/xpczTwe7Iw0LB4xl6Oid6KRPhLKLB7PqQyj96qHdlbNfxJmjT
+        4NtZRT27BU0360EZeXUdBh7Vq+s8gih/13nRduv9m3kv9tXFw8H/2LbjdWvoBd5SUacOHp4fPbY1n+mA
+        oo4d29yn25fIo+u1qLspOpJwfmUivFo0kjnnV9fhqfzSQ6uZxnYdp2sYel64e0U9u/2+N+tBGXl1vbkf
+        euqJKH/XEQ+79f6NvFvOJbes5xqxvTleTybK33We2WcWz+l4HWp/f5V1XNS5g4eeEZYiH1O8jUnglJcr
+        E+GVonHMIdfmnpnL6iFksY15mwZW1X1ky/o9I/Lr2sN+kwefV4nyt7wuLeu5pci/47n87OI6Hc+jYRd4
+        S1H+li+qlvVcI7Zv99td1rGjqGfHF1WbtC+RT8cpvWZhqD4vVSbCq0SjaM6ZOa0eMhXbdHzIab9IQYp6
+        dgt4b9qDMvLrOgx89MBKVafR7dr7N/LvuLjOw8H/2Lbly74wdA++KH/H4P5T9xOxfbce0bPcX3U8lzeb
+        ViHy6jpiZAYWh+JlykQ4WjSE+SBhOP68Vj9wxTZ6MA0q6tkt4L1pD8rIr+tN/bA3vFH2lj3Rwq69fyP/
+        jufyw8H/2LbreTTsAm8pym+e2YXYvluP6FnurzreG2/2Uiby6joVxwyyTXp4yhF4RpkIR8oGMAiYTmx5
+        TtwjtuvYg2mK4SdRz25DpDbtQRn5dZ2eZNjeaFH2rsP6du39W+yvg2cW12l5Hi3rOZqog+D+ldi2Y4/o
+        We6v2t0bL+v4rMizY2B5FkPPjc+4ykQ4SjR+GTDtGiDgPj9W58ZnYruOE7oPPXz5XlnPRb1Ht2kPyiL/
+        Fpb1HEmUv+tD1m69fyPvXy/21cXDwf/YtuN5NPxDbNSh433od1Vd7xHbduwRPcv9lWkV7hD56qwzril+
+        y5xLmQhHiEZPwJT00JCpIp8OppivJ+rZrSfElkPHug7ffejlyFlE+Tv2bE+79f7NvBf7amFZzzVi+449
+        Gkdf4M08swuxbcfg/iz3V92eq3aZViHyzd+91fTHlOf40FPCMJ4yEfYWjZ2AKRerh0zFNl0DS8MOX14j
+        6tnqDf+yfs+I/LoOAx96Prkof8teKct6biny/265vwaeXVyn43k0dK+fKH/X+4lfVfW9R2zbcY7XWe6v
+        qrqPbLf2JfL2LDquP1ffKeylTIQ9RUPn7R7XVt8QxTa/W+TRhZv68Ww6dCzy6zoMfOgb3KI+Heza+zfy
+        /9Nifx08u7hOlefohu7Bl+Vf1KeFZT3XiO079ohuf3+VdVzUuYOH55C+R+QvcDouvU05TJkIe4kGzir5
+        LK2+kY1tWgaWlvXsKOrZ7aZ+0x6UkV/XYeDD9kaLsnedm3PX3r+Z/2J/HTy8mExsa47XE4ryd7yfeDa4
+        3y6ItKxjR1HPjr37dw+M5T6CZ9PxmNuUw5SJsJdo4DoO+eE5q2+IYpuOPZiianV9O4l6drup3/SmLfLr
+        GGhKwwZWsuyLunSx62rSkX/HESUW11lY1nM0UQfzzC4U+Q1vWceOop7d7o0Pmws99pWderq+tO5q6Lny
+        GUuZCHuIxq3jG1CetDxP7hHbtQwsLevZUdSz202plfPv85uqviOIsnedMmHXXhrF/jp4OPgf23Y8j3ZZ
+        2fpIUQfzzF6JbXO4cpXn0Jb17Cjq2e1cPnyRudhnPqsarj+OXadvgIsyEbYWjVrLmzCe9rfqfPlMbrfI
+        p4VlPTuKena7Gd2sB2Xk1XX4blSvrvMIovwte7aH3Xr/Zt6LfXXx8FDR2NYcrydU1KmDhwMJsa0e0QOK
+        OmZPybLuA3vJ8OvYb96L6XU6BgtCcYgyEbYWjZq5Yqg89Ba5yKeFZT27iTq2e3myrOMzIr+ugaaHXo6c
+        RZS/65QJu80VF3m3XKxvWc81YntzvJ5MlL/rC/1nekQLmg4o6tixzX3ptD65/9D1+t+FIfocokyELUWD
+        1nVoI8976C1ykU8Hw/fY+UzUsdsUHZverEV+XacwGfrcLurTwrKeW4r8La6zENt3HPL58ByvZxDlF9xf
+        iO07/nbbB1aiju16si/r+CpRlmwnBE/Pa9jpnxhHmQhbiYas7XBTNrF6PsjYpus5NcNNfbfhTpsGAyM/
+        c2eeTJS9a0+0XXv/Rv4dhzZaXOeXXtoT7FlRfvPMLsT2La9Dy3p2E3XsNqLvdC9bo0zZ89SCxucz9Ms7
+        xlAmwlaiIfNmjo+sfuDKbRZ5tLGsaydRv47zbW06NDXy6zqH1shB098v6tLFrvOARf4dr/3PLK7T9bq1
+        2xQPR4jydwyAPNsjWtB0MFG/jp0JThsIi7Ll/WzeG5j39ByGniaGMZSJsIVoxNoGt9jG8py5R2wnaDqg
+        qF/H4NOmN/WRX9eXTMOubhpl77oI1K6B7GJ/HTyzuE7L4PuynqOJOnRsc58KIMT2gqaDifp1nNpniCHX
+        Uc5LADVfwFh1/zWGngKKMZSJsIVsxBaN2ozyAprHIeXDd96MXuRNTgYA1+ryZvOhIWSxXR6DKr/hLeva
+        SdSv4xv5TYemRn4/LPLvYtghvFH2rosY7vadRN5dp1B5+JjFth0DUcM/qBZ16uCpl3mxvaDpYKJ+3a5T
+        T00x8UpR9pzS5xJEtQjyMSwGxe7KRHhWNGBtA1sfyItjBkbzYrnnA2mXYPRDD1yxnaDpYKJuHYfmp19V
+        9X1UkX8XQwZNo9yd5+Te9Ny9Fnm3bKOX9VwjtjfH68lE+btel55qb2N7QdOBRN06zru96/QxR4v65DUx
+        O8rkbyuf4bq+IH+Z5TGHrZWJ8KxowGboZZq9SPNNYq6quNsD6NL7fqvyjObRlfO7rjCehgwufSbq1fE7
+        2/zNdrGPLkYNmrYcUh127cUT+Xf8vT+7uE7He6Jh5ypOUf6uL2Cfmmc2tm8ZNA0tV9iOenWcQmbYKX3W
+        iHpmwDvbofzN5feY1wlD/B+wPLawtTIRnhGNV9fVhi/yDWE+TB8WKL12VY7RPXRTFNt1vaFPXYOmHd+q
+        bzo0NfJr224u6zqKKHvXRR72XgSqYxv97OI6VZ6jGzqwEeVv+QJ2Wc+1Io+u91jt7q+iTtlbuluQbfqh
+        1nEM8nu99E4VTL1Py+cnzqNMhGdEw9VxNdL0U7C0qvNRYv+dekY81BsituscNB26504l6pQ9sau6jm7r
+        lfO79nqK6tV1Prsoe9eHlF2vY5F/x16VD//eY1tzvJ5QlF9wvxB5dL3HOu1q7I+KOnUcDdFqaP6W4tjk
+        teTSMzVf6hrm/78ETdlVmQiPikar41vPlIHgl/QsvRZl6HKD9PCb5Ni2c9C03c1i1KnrVB2bBrgjv7ZB
+        0zDczWyUuWuwP+06TDXy7/gg93DAJbZt+dte1nM0UYeO16an55mNPLreY3V8Kd2xrZ1iaP5W4nhlIDXv
+        V7JH6swLTwmasqsyER4VjVbHt54v7V16LcrS5Wb24d4QsW3noOnfqjqPKuojEHinzG+RfycjBk27Ds3f
+        fVXiYp8dPHwOx7bmeD2hrMOiTh08HRjMPBZ5drHplDqvFvXp+LxlFfQnxTHMIGqeG13vYW4RNGVXZSI8
+        Khqtbo30aQKmKcrT5fg+fGMf27ach+zKy3s0byXq0rWXaXpqsY2lyK/jA9DFUDezUd6uq2qnvecz7To3
+        78O/99i240Itwwegijp18HQvvcija9C0VUAu6tMx6G9o/obieOa9TN5bzjCMX9CUXZWJ8IhosLo9aJ5u
+        KE+UqcvQi4dv7GPbzj3yUouhSVmPRb1aWdb3WZFn5x7Up3r59Jkor+/iQZF/y9/9sp5rxPbmeD2ZKH/X
+        4P7TgYPIo/MLvBYr6Ec9unYeEPjaSRzb7sHTTTsywFKZCI+IBqvTjdYph0kX5RzVM712ugdNh3/THnXI
+        Fyidb84272UVeXYO1A01l1yUt/O5u2tP9si/43n81O89tu94Pg29qE6UX3D/hsin8z3W8ItBRR26rh0x
+        /JQfZxfHOM+dlsP2l3WFrZWJ8IhotDo1xKd72xll6tIz4qkbo9i+e9B0+CFkUYfOAcC0eWA78ux8zIYZ
+        yhtl7dzLaveXgbGPXDSx2vfInlpcp8ivg6F7hEX5O7a3mwSdIp/O91jDzxsfdeg6V+XwAe1RxLFuN/ph
+        WUfYWpkIj4hGq8ubz1M+4Ee5utzIPvsA2j1omoYaznwtyt512OO1zXtOZp6LfXQyzIuAKGvnXqa7P5TG
+        PjoORX9mDu6u16uhh0JG+TsG9ze7dy3y7mTYczfK3nnaozbz+Z9dHOtcLKr6DkallzK7KxNhrWiwOgVK
+        ThmwinJ1Cao89eAe23ebO7cyZG+IKHd+N13m3f3I5r2sIs/uvXNPP5dclLH7d7B7sKDYZwfPzMFtGPgJ
+        RR3MM/uBIu9Ohpou5iLK3XVYfrIA1MHimHe6Vx9mNBPjKhNhrWiwOk1Kfsq3nVGuLkNyng6eFHl2NNzw
+        xyhzx947lc2DT5Fn94DdqReOifJlz4uuD6TpiKH5XV9oPdwWx7Ydf9fDP6AWdepgs57kkVfHoPLFkFMg
+        Rbk7fyctFugaSRzzTufT0AsTMoYyEdaKBqtLQO+0PfyibB2GjW5ys5r5LPLtaKjeplHerqu5/sKy7luI
+        fDvPpZlOPXwqytf5gTQdMTS/5VD0ZT3XiO3N8XoyUf5uQ1MvNnvRGnl1fwE61PyZUd4/LcrfyeYvYSLP
+        HP348AiBGeRxfz/+HQzZe5yxlImwVjRYXeaBO+UQkShXl+kPNnnYiny6Bzguhrixj3J2D/hd2yWYHfma
+        q/dFolwzBPyPGJrf8Tg+u3Bhx2vV0A+oUX7zzH4i8uo+8iFfvA8xh2aUs/v91ebBzcjzcv4Kpt0Qx6bT
+        tWnohQkZQ5kIaxUN2KhOeYGNcnV5GN0kCBj5zDIMPJ162FKUb6aAadqll1XkO0PQNF+unepBNcozw8Jl
+        hwynjv0Yir5Q5NfB0D24ovwtX5Is6/mMyG+G69Hph/RGGY1AeUDkex0QzP8fdvGvvcQx6TRizyJi7K5M
+        hDWisep0c3XWnlBdJuze5MYl8uneC+La6QJNF1Gu2QKmaZcXK5HvDA+p6TQvpqIsGTCdYaqPQ65rsZ+O
+        vSofDqzEtuZ4PaEof8ehzpu+GIn8ZlhwM532XI6yzXB/tcu1qdhPXueHmpJhT3EsOr0stnI+hygTYY1o
+        sDpd2E93A5VlWpRxVJtd2CKvlisSfyCD5mfroTdjwDTt0ssq8u06z17l5e1slGGWgOlhi57EvrpM03Pt
+        4Qft2Lbli5BlPUcTdegY3N98BETk2Wl17VvyGnC60TxRphnur/bqZfpRQDB/+9MvOhXHoNOLo1NOq0c/
+        ZSKsEQ1Wp15/p+tpGmXqMhR9s6FQkdcMQ2qXThE4zTKEmaZHWNrthrvYV1cvfVDNfb+XoSpbN4cNQS32
+        3cHDAf7Y1hyvJ5R1WNSpg8178EeenRcfunaql9JRlllGUu3Vy/SedjfvYacc0p31Dp3uf/Qg5hBlIqwR
+        DVaXlfPTqeY0jfJ0Cg5u2kOvyH8GeaPzsl56se88H2fofXLT8phsqdpfYy85l2Of+UA1S8A0HTKXW+yn
+        64ush49fbGuO1xMq6tTB5gGoyHOmET15X/PSHoix/wxmdewFXdmtHYm8730mzfuAbKOnCp5GfTs9syfz
+        1XKIMhHWiAar00V+l0VeHhXl6XJsNx8iGnnOcnNZyR4gh93o5b7e91mVZSa7rJx/EfnPeE4f8qIq9pPT
+        H3R7WPjMYcPWYl+Goi/E9h1/z6dfPOcjUf6uc0dv/gIq8pxlXtOLl72Ujv1mgHqml3m7HefI+5HjmD1P
+        2wffoo7dpn0wnymHKRNhjWi0Oj0YHDb/22eiLJ2G9m3+8B55zrQYVGX3t+SZ9/s+ZrqZ/8iuL1Uy/8X+
+        ZpHDZfcaqpfB0lnbisMCALGvjsf42ZXzzfF6MlH+lr0nl/XcSuQ948iSw15Kx37y+jTby9I9e5k+O+Ih
+        v4vTTdO2hahXx+lihn6Jx1jKRFgjGq1uAZWXXzCjDN2GOm6+eE7mudjHrPL3l2/JNzvGkVeef5mnYOk/
+        2rVXZOa/2N9sMsiUD6xPD5OMPLJ9mHnu3UOHUcf+Oh7rp16SFPl18JKeeFuJ8ndsY3d72R95dwy03GPX
+        l9KR7+Ueq9p3d7v16Iy8tzpfN7+vfpWoQ3Z+6PpCfvjvh3GUibBG0YiNLi+WL5vjJvadN1OdglW73NBH
+        vrMNHbtXvinPm/0MGt0VfIrP5ZDFHLYjUPqxXV+oRP5eBPyvPA/zRv9yLuc5+ovzOdKyp07+LT+Tn52t
+        184thwa3Yn8dj/vDL0li224vPi+GHsIa5e8YPNiz5162r9U+Z7FZ8CzyyGOZ91kzzwu/94vnPX7fl3Mg
+        v7uXPRuulWUNeU/U9Z7+NCNDmUOZCGsUDVkHL5nbNPbbLWCadptXL/IWILlf3qjn8bpWfY7bdg1ERf5d
+        Ay0c69Bepin22fHB7OFASWxrjtcTijp0vO7tOkQ18p968ccr2cbl+fP3F3nV8brIv4cMtOXoCcfw55Ek
+        uwYdI/8jrkP5XeZ3mt/tSxcPq0SZ8tycoRfzYXO2QyoTYY2iIesi31ge9lYx9tV1GNRuwyci71mHjvEC
+        y/NvD9V+YaWje5l27fX/8HGMbTOwUuU5ssOD8Vsr6tTB3r333Gexhc4vnTOYnoHU/K2Uo2L2EPvJ3suz
+        jrI5XcCa3spEWKNoyDrJN6O7zpkS+XeeCH7XlQ0jfz3zOMohq3TGfma78WVbh4+SiH3qVbkQ23fs6fOS
+        EThbifJ3HWq+dzDKVEg8a/e2I/ZxxuD+pXdyymtCBjcvsqdqXjs/cgmIXmQemdfsPZf/Vp0DsKcyEdbI
+        xmvRmHWUddx0PpvIKy+I3YdQ7NoDIsU+Oq5QzPkc0ssq9pM3xtX+4R6HzzkZ+8xrY1WWkT31kiS27/jy
+        Y/fr+Z6i/HnPVdVrdLv/5mMfMwz3ZR8ZONx91F7so+tiR/zSyxdsZj5lIqwRjddsPaOyvhnYyDeAdw8P
+        iM9ehlHkEI5ZAn1H3MwLMnGEQwIGsZ+uD/bs7yVBrdzvohwdPPWSJLY3x+vJRPlbDjNf1nMPsR/XJR51
+        yHQxsZ+ObS6/dEgQHpbKRFgjGq/Zgqa35HGozDqM4pChfLGfrkPuOJfD3mwX+4bP7L7Ixi2x37zOVWUa
+        2cOL68S25ng9oSh/vrCu6jWyw4apxr46/s7Z166LlF0r9k1PQ494YFxlIqyRDdiiQYN02ANW7MvNPHs7
+        8nw2zIy1XhbQin13fDH48INZbNuyV96ynqOJOnS8TzhsntnYV46UqsoAlSMD+npCz0EvU16mTIQ1ogHr
+        OJ8Zzzl0ku7Yn3OQXS3PuT3F/pzPrPHSBXqK8nTwcBA6tjXH6wlFHToO3z2011Xszxzy3CN/a4etbh77
+        EjSdg16mvEyZCGtEI2YFc5YOn6Q79ulmnr38WJ1ze4n9Wa2Ye72050Xsu+v1/+H5uGNbc7yeUFGnDg69
+        14r96W3KPQ6d/zj250Vzf3qZ8lJlIqy1aNiY20t6pMR+TRPBXg4PGMQ+DdHnHi+dZzL3vyhPC8t6rhHb
+        m+P1ZKL8XXuiHf77j32aDomPHN5WxD7d//f3XfXdw1HKRFgrGjM3UVwc3ss0xX6zd17H4Xe83iseAvTo
+        4TMvD2RFGTo+rD41vUxuv8ivg6EfWKP8LXuiLet5hNivodDc8pKpYmK/gqa9HTrlG1TKRFgrGrTvFg0c
+        c3rpvGexfzdO7OElAYPYryknuOUUDxFRjj8vytXBUw/+RX4dvLRH87Oi/B3vDQ6dNuZa7Lvj757n5Mui
+        lwyfjv269+9t6OsPPZSJsFY0aL9eNHDM6dVDRfU2ZQ8vOa9jv15GUck27uE5N7cU5eg4yuSZlfO73gud
+        4nx7VJS/43QnL5tnNvbtXotrL51vMvYtaNrX0FPD0EeZCI+Ihq3jkDTud4qFIqIcAk1s7VW9JzyYUjls
+        VeLPRFk69oZ+eIqZ2NYcrycUdTDP7MZi/+61SHmP8tJrUuxf0LSnvL+w+BOnUCbCI6Jhs3rh3E7TEyXK
+        YlgzW3nZEMgU+/cwwLWXzBl9S1G+Dh7uWR7bdpyLuMPK+R1fPj3cI3orUQbrGczt5QHTFGUwB3xPp3lB
+        DGUiPCIaN72i5vXym/drUR4LFbCVlwYMYv/aVS5ON0ytKOPwlnVcI7bv+JLjJYu7bKmoUwcvn+cvyuD6
+        NK9TBExTlMM9fz9Wy+dUykR4VDRyekXN55TDJ6JMFipgC2dYodwwSP5cnRuvFGXKgElV1pE91bM8tu94
+        D3Sql6JrRfnNM7ujKIdefvM5TcA0RVmsq9HL6e53oEyER0VD563zfE45fCLKleeiYfo86xQBgyiHOaPn
+        dcoHiChXx949T/Usj+07Bk1/V9V1FFF+88zuLMrzp2X5aOtUAdOL93JV5WUsea9rHlNOp0yEZ0Rjp7fp
+        PE7dAyXKZ8gOz3r5EMiU5ViUizmctsdFlK3jOflUz/LYvuP9zynawEdl+Rf16eBvVV1fKcpkftP+Thkw
+        TVEu59/48vwSMOWUykR4VjR6evj1N8TiEFFOPSB4xpkWOHMuz+XUQ9SifB2DUU+9CMztF/kNb1nH0UQd
+        Op6np5tnNsqUo3uMiOgrn+tOGTBNUTYddsZ22oA8pDIRnhUNn15RvQ31NjDK6g00D1meS68U5fFQOo/T
+        z+kVZew4j9xTvSpj+24P7j9U9RxJ1EFw/yBRrt8Ew6T7Of2Q6ShfnntV2Tk/AVNOr0yELUQDqFdUT8Nd
+        3KK85jflEafrTR1l8lDa3zCLIBRlH91TPctj+25B0yFGlHwk6tBxIb3fV3U9gyiba1QvuajqEJ0kopzu
+        88cjYMoQykTYSjSEekX1c9qb9Y9Eud3IH6NT0OCsC/D8flFO+hiqfS3KP7Rl/daKPLqtJP7UHK9nEHXo
+        GDQ99TyzUT73Wz2cet2CpSzvovycm4ApwygTYSvRGObwPTdOfQwZML2I8ruR31fesHZ6QD3tA0OWbVFW
+        xpbt0nCrlEeZO70YfXpxncij21Dw76p6jiTq0HF4/ul7/kUZ3W+Na9TrUY4qq+rD+eQ5JmDKMMpE2FI2
+        iu+NY9VoMo6hA6YXWY9FvdjGT8M447+dpuU4e2+eHDZXlZuxZOBxyIeHKPdfruoxuqcX14k8uj20D71y
+        fso6LOo0uh+rep5RlNX9/3jyenSaBTDXirKbGu78hj7HmFOZCFuLxtHCUGNrETC9yPos6sdz8gbop54v
+        8d9Oi26d/qYuyihwOrZh5ourRNk79XjepGd55NNpXr3hH2yjDt3uP4eaZzbKK3A6jqGG41eiDvniyvl2
+        XvmMMOw9D/MqE2EP0UhmoMqFbDytAqYXUa98kHI+Pi+P4d97yS3+NrRLnc4uyipwOp783QzftkYdOgWk
+        Nvk+Ip82v8dl3UYU9chposr6DWqYheIuosz5HXSayqObfNHTZqh01KXjPMYdDB+UZ15lIuwlGkxvnMeR
+        39PwQ/M+EvVzPj5nGTDt9HD69PyGR4ryCpyOI3tatBmaFnXp0oZucr2LfLosBjX8yvkXRd1GNmTgIcqd
+        PQA7TefRRY4WaNfzL+rUadTT6PIeYbg5cuFamQh7ioYzA1Wdhq91NOwce2tFPfWAeNw/9MyKf3fqdfb0
+        /IZHizKbduLc8sFh+IV1lqJOLQL2y3o9I/LrEEgerg28JerS6Ro/9MvsKL9FDM8hg4pt7/Ojbhmk96z5
+        evmixHB8hlcmwt6yAQ3eAp7T0HPsPSLrG/SAWOcXQ1kjzfyGLxblNu3EObV9cIh65YvQqs4j2XRxnciv
+        QyC5zVDKqEunxWGGD3RFHfI6JaD1Gnl/0HLaraWop9Fkr9PyJTHzKhPhKNGgeuN8HnmBm3r4RNTfPEif
+        u3meRHqnIeLD/hai7F5KnUf2cGs9zUmKOo5+vm06FD3y6zBVSZv7gazLom7DWtZtVFEXL6uP13Io/kei
+        vgKnx9O7lHbKRDhSNKyG67+eC9y7OA55PhquX8sbz5u9XOJvnY5bh948+RLAw8Jr5DVtit48Keo6em/T
+        P1X1ekbmudjHaFoF+6M+HdrCoebavkfUKQPangH2lS+028yjvVbUXeD0GFO8JGZOZSK8QjS0ep0eL29U
+        XeAKcVycj/8ob4Y+DCQuPj+0Zd1GFXXJHm96nR5nqmDptaj3yEHCzYeiR55Dz6m3rM/ook4dRkK0WZzr
+        WtQrfyudplA4i6mDpdfiOOQ5pkPEPqa972EeZSK8SjS6+YBvuM7+XODuEMdIwOlnn/ZEjr+P3tPsWsfe
+        POaQ25c2NcQxGPWhdJeXh5HvqO3iD1V9RhZ16jBlQpt5ZitRP/dcz8selRmAFiwtvB+b6rixnvseplEm
+        wqtFI5wP+G6ctucC94A4Znk+zviGOm++75rIPT7XZs640GbV6KWoW66wL3i6nbxOTT0X9LU4FtmbZ8Rh
+        kLsFGCLv/M1V+zyzrj0aRx9BMsX9W9TTM8B6eV3PKXlMtfWJOEaz3tNvxbMk0ykT4SyiUXbjtA0P9huI
+        YzhTwCnPmbvn9YzPdprOoHVvnhR1FDx9nJ48H4jjkr0rhzq3lnXYWuxjtMDp5nO8nkXUbeRgyVTTKWV9
+        g2eAj+VIIPf3D4jjZt73dfJcM6UbUyoT4Wyikc4hOzk3j4vb/fKh1YP9DuKYZq/Krjfyd/cuvRbbdJpW
+        Y5o36FHXfCg1Jcp9PJzeKY7TSPPHHTIdR+wnrxuj3MOsvgaMIuo28tyGU/YijHrni5gOc9JuJc9fvUo3
+        kMcw5Et/L5FreVzy+HiWZGplIpxVNNp5ccseG9481y6BUm8CDxDH+XIj3yGYn3XIG6OHbsJju05Dnab7
+        /USd88VUPoR1+h6flb+JDJTmNcfD6QPiuI3QA/2w6ThiX6PM2di6DYz6jRg4/bGqy0ziGOT3ltepGQNc
+        l0Cp4NVO4th6vvzZ5Vny7tFm0F2ZCCOIxtxD/s/yAp8Ppi5uLxLH/hLMH7HH3iVY+tSN+FV+w1vWbTZx
+        DGZuW7PO+bCgR+lG4liePVB4+HQcsc+8Xpw58DNFYCbqOUJQ/6LlPLOPiuORL62zre4aQPXS7kXieM94
+        D3S59/EsCYUyEUYTjfwlaJW9/jq/gc6bqEuQVG/SE4rv5TqAmt9X9T2eQd4gbXIzHnnkEO9qHyNqt2r0
+        M+J4dG9b/x4kDXrw7CiO71mH2L5sOo7cdzjdg/mynJ1FfTNAMsLQ7z9X5efvbUveF48c5LoESTNYJ3B1
+        EvFdXAKoZ7+nXyvv57Ldy2uQex/4RJkIo8sLwPuFIC8Io95EZXA0L9J5I+iBflDxvV1u5s9ww3UJEG16
+        Qx755W+t2t+I9Ob5QByfDKJme5TndLZRIz1EZHnzmpAPQF46vUgc+7P1zH/5uRBluPSaO8P9ypRtYNQ7
+        7xvP3HOx/QKFW4jjdLlG5Xd51h7ued28dIBwfz+Q+K6yrc57iJGeL5fnm57LsFKZCB3FRSJ7w+WD2iWA
+        9cqbqbwpz/2nvLHLMmXZsowuZo3F95sPZpegU56He950Zd67v0mOvLMu1f5H5MF0pThm+ZCabVc+SFy3
+        r68IqF7a1SxHynJ5ID2x9+/oiPawtCzPq0WZLteIS9Dn6N/R9D0a4xhcv3jP76A6TkfzoudBcewy0HW5
+        /8/v84h25hKoynYt9/vTy7rgHr+Z+E7z/Lrc11/ajKOvZZfzLTnfYGNlIswmLip5wcuLy+XhbQuX/C48
+        uHNTnB+XwFO6Po8uN2Afyc9cn3eHDu2K/WUZqpu4EU2zcv5R4phen9vpElx91OVh4MJDQTPxnV6uyZcH
+        0d1U+z+jKOvlfL8Ef/YiOFeI45KB1Mt3UB23vbmH3Fgc0+tr0zO/q0seyfWIfxDnxPUz5hbXtMzjkp92
+        AQ5QJgLAveKmrdNclwIGAAAACJoC8Li3n3tqVMHHIS3rBwAAwJzKRAC4x9vPw4PKAOSAfqzqCAAAwHzK
+        RAC4x9vP80tWAcgRWTkfAACAn5SJAHCPt59XeK4CkCP6U1VHAAAA5lMmAsA93nqtnP9dVUcAAADmUyYC
+        wD3evnz9cRF4HJmV8wEAAPhJmQgAn3n78vXXi6Dj6H5V1RMAAID5lIkA8Jk3K+cDAADQVJkIAJ95+/L1
+        j4vA48isnA8AAMDflYkA8Jm3L1//vAg8jszK+QAAAPxdmQgAn3nrtXL+H6s6AgAAMKcyEQA+UwQeR2bl
+        fAAAAP6uTASAj7z1Wzn/11U9AQAAmFOZCAAfefvy9XeLoOPQlvUDAABgbmUiAHzkzcr5AAAANFYmAsBH
+        3r58/csi8DiyP1d1BAAAYF5lIgB85O3L178tAo8js3I+AAAA/6BMBICPFIHHkVk5HwAAgH9QJgLALW9f
+        vv5mEXQcnZXzAQAA+AdlIgDc8vbl6+8XQcehLesHAAAAZSIA3PLWa+X8v1V1BAAAYG5lIgDc8vbl638u
+        Ao8j+0tVRwAAAOZWJgLALW9fvv6wCDyOzMr5AAAA/EKZCAC3FIHHkf2uqiMAAHP59u3//jZ8H/4r/E/4
+        a/j38M/V54H+ykQAqLx9+fovi6Dj6H5T1RMAZvLt2//9/96DRNcycJQBJAGjJuK7rL7nYQKDUcbdyh/b
+        /7/3/G75Q7Ud0FuZCACVNyvnA0A73+pg1LX/V23HWOJ7HPp7jvLtUv7Y7g+LfG75t2p7oK8yEQAqb1++
+        /mkZeByYlfMBIHz7PBiVBE4HF9/h0N9zlG3z8sfn/yn899X2H8nP/VOVD9BTmQgAlTcr5wNAO9/uC0YJ
+        GA0uvr+hv+co1+blj89+Nix/yTB9mEiZCACVty9ff1wEHkdm5XwACN/uC0YlAaOBxfc39Pcc5dq8/PHZ
+        nA+1yuMWPa5hImUiACy9ffn6q0XQcXS/r+oJALP5dn8w6vtqe8YQ39/Q33OUa/Pyx2f/42q7ewiawkTK
+        RABYeuu3cv6/VPUEgNl8uz8Y9f9V2zOG/P4W3+ctp/yes1yLct5yd/njs2uH5wuawkTKRABYevvy9btF
+        0HFoy/oBwKy+DR5M4z75/S2+z1tmCpr+drHtZ/65ygfoqUwEgKW3L1//vAw8DuyHqo4AMKNvgwfTuE9+
+        f4vv85ZpgqYpP7/Y/pbvq+2BvspEAFh667Vy/n9WdQSAGX0bPJjGffL7W3yft8wWNP2n8Ner7Sv597tX
+        5Qd6KBMBYKkIPI7MyvkA8O7b4ME07pPf3+L7vGWqoGmKbTJw+v1VHtdyhX0BU5hQmQgA196+fP31Iug4
+        OivnA8C7b4MH07hPfn+L7/OW6YKmF7HtP4c/hFwg6t+CYClMrEwEgGtvVs4HgLa+DR5M4z75/S2+z1um
+        DZoCXCsTAeDa25evf1wEHYe2rB8AzCyDTIug0y03g1HxtxzenL3zcojzf4Xr7f475D5ymPNpeu9lOd7L
+        k+XO8i3ntbyUO+uUvQ9ftnJ67vu9DFmWLNP1Mb6UM+vx22r79P6Z6/rdsnnQMfIcuvxHizrkufmv4da5
+        mU5zflaiPL99L1f+7pff+UWm5d9+ahuqfOCVykQAuPbWa+X8H6s6AsCs3oMWy2BG5RfBqEjLYFgGbarP
+        f+Q/wr8u8ztC7vd9/1W5PpPH6pDgTuznEoj+bJGipSzjL47te3r1+aVNgo6Rz9Dlf4Uoe56bj/yeLvJY
+        /6HK+wix72wPMgBaBUjvkYHgrP+pAsDMq0wEgGtvX77+bRF4HJmV8wHgyrcHg1Hx7+xFlkGO6rP3yn3f
+        7F24pdhPBqQeDeYsZXBqt6Bv5J3BxmePbQaf/t6rN/7/sKBj5DFM+ePzl56QKfeZZT+052bsK8/Ne+t3
+        jzzPD+u5GfvKXqXPBHsr+b2YU5aXKhMB4FoReBzZn6o6AsCsvj0QjIr/3zpA8v+uy7SlyDt7PD7as/Qz
+        /17t81GRX5Z1y+BZBnd/CjzFf1d/z2vFtsOVPz+/2P7aPwRu9xD5Z3Cw2vcW8rzfrfyZd9iz/Bl4P+Sl
+        ClTKRAC4ePvy9TeLoOPovqvqCQCz+rYyGBX/3TpgevH9smzPijyzB9xWvUtvyeP3dGAq8siyPts7s/JT
+        4DHsEnS8iO2GLH9+frH90t8Dt1vKPN/zrva5pb3Kn9/3EeVPL5tygLmViQBw8fbl6+8WQcfRWTkfAK58
+        WxGMCjl0ufrbVr6vyviIyGuvIF7lr1UZ7hXb713WyxD06m9Lq4Omsc2w5c/PL7avfF9t+6jI76iA6cWm
+        gdPI68jf1sVL5kBmbmUiAFy8NVs5P/yqqicAzOrb/cGoo4Ik31flXCPyeEVQ5/uqLJ+J7Y4KoN17PNYG
+        HUcv/73n/2ZznEZe9+5zS08F9i8in1f8tlLu0wJRHKpMBICLty9f/7IIOo7MyvkAsPDtNQGczzw8x2ls
+        m0G8vYfk37J68Z3YZq/5Vh+1Nug4evnvPf83mXc381nke6Sn5uCN7XN1/FcETC9WfbfwrDIRAC7evnz9
+        YRF4HJmV8wFgIQMRi8DEGTzcqyy2eyaIl8fimV6TGay9exh0fDZXTa/yeaW7A1Px2aHLn/Lzi+1v+b7a
+        fo3II4OOVd5Heri3Zmx7hrZi9YsJeFSZCAAXReBxZFbOB4CFb9sEQjLImQtEZS+6a8/kvbpXWWzzb4s8
+        7pHzZf5ihe5Iyx6rmd/aOtzdIzE+u7ZHbB7nX5Q3/n0p6xaLdK0Jmg5d/pSfX2x/y+rzcSnyeKR+eczy
+        RcD17yqP4aPB/f+oyvaZ2C73W+V3jzzG1+VPj7YN/1WVD/ZQJgJAevvy9V8WQcfR/bGqJwDM7NvjwYuU
+        AZ0MgNzsXZl/C394/2yVx0dWLf4Sn18TxMug01297uJz2aPy3vLfFdSJz60N8N5V3vxMeOY7vSs4GJ8b
+        uvwX+fnF9rc8FTSN7R/pZZrB0Y9+W5nnIz2rV/U2jc/nb3jt7/eetuHR8lsUikOUiQCQ3voFTa2cDwAL
+        3x4PUN0ddEzx2Qy8rO0dd3evuPhsBmarPCpZjlWricfncwGcKq/KL3quLsVn1hz3R8r7aK/Ne4OmQ5f/
+        Ij+/2P6WZ4OmGQCt8r3lD1U+lfhsBierPG5ZNbdpfH5t/vl9f/obuIjPrvntpu+rfGBrZSIApLd+K+f/
+        uqonAMzs27rg18WquTsvcpuwNnB6b2/Qe+uRPeBWlz3FdvcG8j4coh9/X9Pr8JnyPvLdfhocjM8MXf5r
+        +fnF9rc8GzRd0wt69YJNsc2aIPOqIe7x+TW9TB9tG9YElf+7ygO2ViYCQHprFjRd1g8AWBU0unZ3L7Kl
+        3HaR12c+nSM0PrMmiHd3D76l2PbeIekf9pCNv6/pufdMefO4rAl4pXuCpkOX/1p+frH9LQ8HTWPb3YPM
+        uc37tlWelXtfRqztBfpQ2xDbrS3/w20Q3KtMBID09uXrX5aBx4FZOR8ACt/WB01X94JbijzW9Ir7a5XH
+        tfjMvUG8pxaRie0zsFPlu/RhgC3+fu88jk8vehN5rB1afU/QdOjyX8vPL7a/5Zmg6ZrA490LiS3Ftmt6
+        a961Cn18bs2cow+XPcX2a8r/cDAe7lUmAkDKQOMi8DiyP1d1BIDZfbs/aHTx0FDra5HHqkWEltsvxWfu
+        HfL/fbX9Gov8blpudy3+fm+Pui0C1Gt6OaZ7gqZDl/9afn6x/S3PBE3XBH6f6cWdC5ZVeVbuCnDG5+79
+        rvNzT7UNsf2aXuhPBWjhHmUiAKS3XkFTK+cDQOHbuqDp91Uej4i81gzF/XC17OLzt9zVu+6W2P7uoM5y
+        24v425og4CZDkCOfNfPIfhgcjL8PXf6l/Pxi+1ueCZre3Vtzue1aVZ43fF9tfy0+syaI+X2Vx1qLPD/y
+        fbU9bKlMBID01itoauV8ACh8Wxc03WxIbOS1ybDf+Nua3nUfBl8/EtuuWsRquf1F/O3u8i63fVTktaan
+        42dB06HLv5SfX2x/yzNB03v38elUFJ+JPO5dcOrT+sRn1kwrsEnbEPnc+xt7+PuAe5WJAJDevnz9cRF4
+        HJmV8wGgkMGHRTDiI3ctHnOPyGtNIOyjoOmawM4jC+xkb7ss65rVz28GdOJv99Z7s6BQ5LUmsPzhfuPv
+        Q5d/KT+/2P6Wh+uT2y7yuuXpY5Z5LPK85dN9xWfW/EYffiFxLfI57FjBZ8pEAEhF4HFYy7oBAD/L4MMi
+        GHHTcttnRH5rgp03V6OPv60Kvn4iF6jK45HWDAlf+r4qa4q/5X6qbZY2CwpFXmuG1H+43/j70OVfys8v
+        tr/l4frktou8bnn6mGUeizxv+XRf8Zk1C7Y9PddxinwOO1bwmTIRAFIVfBzU36r6AQCrghRPDx2+Fvlt
+        0nsw/rYmsHOUm73u4m/3Tkvw9CJK14r8b/kwGBV/H7r8S/n5xfa3PByky20Xed3ydCAw81jkecun+8rP
+        LLa5abntoyKvw44VfKZMBID01mdO079U9QMAXhekiPy2CpreHdg5yIfB5fj7veXddHXwIv9bPvye8++L
+        z99yyvIv5ecX29/y8Pmf2y7yuuXp31jmscjzlk/3lZ9ZbPORTabuiHzuXSDu6WMFnykTASC99QmaWjkf
+        AG7I4MMiGHHLpkGKyK9j0DQDPh+uGB9/v7e8N6ckeETkt8n3nH9ffP6WU5Z/KT+/2P6Wh8//3HaR1y1P
+        /8Yyj0Wet3y6r/zMYpuPPD2naeSRi61VeVeePlbwmTIRANJbn6Dp76r6AQCrAiP/XW3/qMivW9A0F4r6
+        MGCa4jOHBdCuZX6L/G/5cL/598Xnbzll+Zfy84vtb3m4PrntIq9bnj5mmcciz1s+3Vd85t6pGNLTPYsj
+        j39b5PmRTc8vqJSJAJDevnz98yL4OKrfVPUDAFYFWeLjdR6PiPzWBE1vzo8Zf7u7/DvJ3qX/Hu5aCCc+
+        d295t55DdpNgWv598flbTln+pfz8YvtbHg7S5baLvG55OhCYeSzyvOXTfcVn7l30Kz39fUcea4K0Tx8r
+        +EyZCADp7cvXPy6Cj0Na1gsA+F/fXrBCdoq81gRNb/Zii7+9aiGoDPBkUGnVMYnP313e5bbPiPw2mSsy
+        /j50+Zfy84vtb3k4SJfbLvK65elAYOaxyPOWT/cVn/nDYpvPPDxEP7b950Ven3n6WMFnykQASG9fvv5u
+        GYAckJXzAeAD39b1Jnt63sKLyGvNfv+tyiPF39bks0YGny4yUJj7ySDSU8fgPZ9qf5VPh/vfq8j7lg+D
+        UfH3ocu/lJ9fbH/Lw0G63HaR1y1PBwIzj0Wet3y6r/jM2kDmX8NDL1Ziu3vLffH0sYLPlIkAkN6+fP31
+        IgA5IivnA8AHvq2bR3CzFdEjrzU9RG+uzB1/W1P+zYK+j4oyrOm9t8nxjnzWLLDz4T7j70OXfyk+L2j6
+        gfhcztVbbX/L91U+H8ltrra/l6ApuysTAeDi7cvXHxZByNFYOR8APvBtXW+yzeapjLzuDcZ8uABV/P23
+        i89/ZLOg76OiDGvKu8nxjnw2mQohxd+HLv9SfF7Q9APxuUd6cufUFZ/2OI3PZNuzZh7Ta4Km7K5MBICL
+        ty9f/7QIQo7m91W9AID/9e3++SLTzV6f94o81vQO/b7K41p85t4A7H9V2x8tyrHmeD/dOzbyWBP4ujkV
+        wkV8ZujyX4vPC5p+ID63ppfvtTxHcoG0X0zREGkZBM+/rTmPlgRN2V2ZCAAXb1++/mYRhBzNv1T1AgD+
+        17d1w2O/r/JYI/K4N7CT7gnirSn/qqDaHqIMa8q7RSAt55qs8q58Og9pfGbo8l+LzwuafiI+mwHOKo9X
+        evpYwWfKRAC49vbl698WgchhLOsCAPzSt3U9P9PDC/zEtmv29eHQ/Iv43Jrh29kr9aHFarYS+197vB8O
+        9Ma2a6ZfuPd4D13+a7HNvUHGh3spx7ajB02zt+kzvUL3sPq7hrXKRAC49jbuKvo/VPUBAH7p2/1D3NND
+        gcfYJufDXBN8+fcqn0p8dk35H17l+5bML+T8jHfNqRmfW1PePGYPBapju3uDaOk/qjwq8dmhy38R26zJ
+        /6GpKWK7oYOmKT6/5sXEIZZlhK2ViQCw9Pbl638uApIj+M+qLgDAL31bv+BLBh7vDoTlZ8Pa3mp3B6ni
+        s2tWdU9Z/qfnZ02RTwaULkHEe4Oma4/36sBjfH7tMflDlU8lPjt0+S9imzX1WB2UTbHd8EHTFNus/T4e
+        cffUD8vywdbKRABYevt5btMfrwKSI7ByPgDc6dvjQ3Az6HQz+Bh/y3zzM2vz/r7K7yOxzZrejynLlGV7
+        qNdpbJdBpGWQ6t6gaR6XR8p7V2AwPrc6qFnlc0t8fujyX8R2a/eTvYnXBn9bBE1TbLdn4DTnTr37+1iW
+        DbZWJgJA5e3L198vgpJnZ+V8AFjh23MBkQzWXIIeF9lr7JFAbG7zyPD/R4cQ5/6yrDlXZxkAzvSQ+We9
+        MnB2q153z9+Zn11se6/sJZvf1T+UNf/9nr5m4aSLu4K912KbocufYrvsAV3l95n8/vOcv1YGU9//VuWx
+        dPqgaYpt83fwyO/6I9+/5y1oymmUiQBwy9uXr39cBCbPzMr5ALDSt/uDLnt6ZuGgV6/0/a9VuW6Jz2cA
+        tsrnSA8FqVNsN3T5U2y7tsfsLeV3H+mtgqYpts+exlv91v4e8M7/X/ztpss2sJcyEQA+8vbl63eL4OQp
+        LcsNAHzu28+9/bbuRbbG3Ys/3RJ5PNJTcSur5kmNzz8yzH1rq+cCvYhthy5/iu3vDtR9Ypqg6UXkk+1F
+        Bk8faTOyd/eyt/HdvcWvt4M9lIkA8Jm3n1fUP/Mcpz9W5QYAPvft5yHLrwicfl+VZ63IJwN5rwic/ldV
+        ns/Edq863un7qkxrRB6jlz/Ply3Kfytoem+PzC2CpoftaynyzPPgMn3FMnibxzfTMlCaUzCUPYPf/3a9
+        3U3LbWFrZSIA3OPty9dfhb9cBSrPxMr5APCEb8cHwjYN4kR+rwicPtNj8xWBxzw+Dw9rvxb5jF7+u4N1
+        tyzzvIi/3Tv36xZB08P2tYcol+H5nEaZCABrvH35+i8ZpLwKWJ7Bn6qyAgD3+/ZzIOyIodffV/t/VuSb
+        gdOj5tz8a1WGNSKPo453yl5/mwQcLyK/0cufvSCrfd3jw17G+ffF5yubBDIjn3teFpw1aPqynrKwVCYC
+        wCPevnz9dQYrww/vgctX+q4qIwCwzrd9A4/ZM/HhRZ/uFfvI3mt79oLcssfjEYHeh1aav0fkPXr5H53f
+        9MMyxd/v6Ym7VdD0sH1tLcp1b+/w/6i2hy2ViQDwrLcvX3+TgcuQw/dfEUS1cj4AbOjbz8N+t+xFmL36
+        Nu0p+JHc1/s+q7I8I3vGbV6PyHPr451+sfDOXmI/w5Y/9pFBxzWB3++rfJbic5/1xN0skBl55b4+CkCe
+        LmgaZcpFpaqyVnYLnMNFmQgAW3v7ef7THMb/+/DH8OeQQ/ovtg6s/qoqBwDwnG8/z/147wrdSxkwyp58
+        hwTuKrnv9zI8E9DLbTNYekQA75njnQ4rayX2O2z5c58hz5UMoC7rkOXK9NU9pWObPCa57TKouXkgM/LM
+        fWWweVn+1fuKbXbtFR75r+nl+9sqD9hSmQgAAAAf+fZzQOk6IFMNB870/HsGQ04X5MgyvZetCoqlrFOm
+        pwzcvawesd97j3fKcuZnXxacXsqyvJdpyPLz03eY39EuPTwj3/wtLs+HW/67ygO2ViYCAAAAwMVV0DJf
+        MmwW0I68MmD62Rys176v8oGtlYkAAAAAcLEIXGaQ8+lpE2L7nPt2TcA06YHMIcpEAAAAALgogpcXOTdr
+        Tqnwr9V2S/G5y1QNj8wrfMpV/+mpTAQAAACAiyKAeUsGQy/z0y6t7VW6pJcphykTAQAAAOCiCGAebZdF
+        qOCWMhEAAAAALr793FO0CmYe4a9VmWBPZSIAAAAAXHz7eR7SKqC5txzS/09VmWBPZSIAAAAAXPt2fG/T
+        nB/1t1VZYG9lIgAAAABc+/bt//5TyNXyqwDn1nI/epjyMmUiAAAAACxlIPM9oFkFOrdi0SderkwEAAAA
+        gFsysBlyvtEq6Pmo78M/V/uDo5WJAAAAAPCRbz/3Os3g6TM9T3Pe0n8PgqWcSpkIAAAAAPfKoGfIFfYz
+        AJoLRlWB1ExP+Zn8rEApp1UmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQA
+        AAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAA
+        wKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZl
+        IgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAA
+        AABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAw
+        qzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkI
+        AAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAAZlUmAgAAAADMqkwEAAAA
+        AJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoTAQAAAABmVSYCAAAAAMyq
+        TAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAAAACzKhMBAAAAAGZVJgIA
+        AAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZlYkAAAAAALMqEwEAAAAA
+        ZlUmAgAAAADMqkwEAAAAAJhVmQgAAAAAMKsyEQAAAABgVmUiAAAAAMCsykQAAAAAgFmViQAAAAAAsyoT
+        AQAAAABmVSYCAAAAAMyqTAQAAAAAmFWZCAAAAAAwqzIRAAAAAGBWZSIAAAAAwKzKRAAAAACAWZWJAAAA
+        AACzKhMBAAAAAGZVJgIAAAAAzKpMBAAAAACYVZkIAAAAADCrMhEAAAAAYFZlIgAAAADArMpEAAAAAIBZ
+        lYkAAAAAALMqEwEAAAAA5vQ//+f/By4PBi+rkyMlAAAAAElFTkSuQmCC
+</value>
+  </data>
+</root>

Form9.vb

@@ -0,0 +1,107 @@
+Imports DocumentFormat.OpenXml.Wordprocessing
+Imports Microsoft.Data.SqlClient
+Imports System.Data.DataTable
+Imports System.Timers
+
+Public Class Form9
+    'setari pentru server
+    Dim DataString As String = My.Settings.subnet
+    Dim surce As String = My.Settings.serverName
+    Dim catalog As String = My.Settings.serverdatabase
+    Dim user As String = My.Settings.serverUser
+    Dim pass As String = My.Settings.serverUserpass
+    Dim timeout As String = My.Settings.timeout
+    Dim encrypt As String = My.Settings.encrypt
+    Dim trust As String = My.Settings.cert
+    Dim reason As String = My.Settings.reason
+    Dim subnet As String = My.Settings.subnet
+    Dim rowIdval As String ' gasirea randului din datagrid
+    Dim rowData As String
+    Dim rowOra As String
+    Dim rowZona As String
+    Dim rowmasina As String
+    Dim rowdefect As String
+    Dim rowstatus As String
+    Dim Timer1 As System.Timers.Timer
+
+
+
+
+    Private Sub Form9_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'updateTable()
+        Dim items As String() = New String() {"", "In Lucru", "Inchis"}
+        ComboBox1.DataSource = items
+        updateTable()
+
+
+    End Sub
+
+    Private Sub updateTable()
+        ' updateul tabelului din datagrid care se face dupa fiecare conexiune la server
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                                     "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                                     "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open()
+        Dim command As New SqlCommand("select top 14 * from dbo.mentenanta order by id desc", con)
+        Dim sda As New SqlDataAdapter(command)
+        Dim dt As New DataTable
+        sda.Fill(dt)
+        DataGridView1.DataSource = dt
+        con.Close()
+        Dim LTime As String 'string pentru SQL time
+        LTime = Date.Now.ToString("hh:mm") 'Format time
+        Label20.Text = LTime
+
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
+
+        Dim selectRow As Integer = e.RowIndex ' gasirea indezului din datagrid 
+        If selectRow >= 0 Then 'gasirea id din randul selectat din datagrid
+            Dim selectedCellValue As String = DataGridView1.Rows(selectRow).Cells("id").Value.ToString()
+            rowIdval = selectedCellValue ' devinirea valorii lui rowIdVal pe baza selectarii din datagrid
+            Dim selectedCellValue1 As String = DataGridView1.Rows(selectRow).Cells("Data").Value.ToString()
+            rowData = selectedCellValue1 ' devinirea valorii lui rowData pe baza selectarii din datagrid
+            Dim selectedCellValue2 As String = DataGridView1.Rows(selectRow).Cells("Ora").Value.ToString()
+            rowOra = selectedCellValue2 ' devinirea valorii lui rowOra pe baza selectarii din datagrid
+            Dim selectedCellValue3 As String = DataGridView1.Rows(selectRow).Cells("zona").Value.ToString()
+            rowZona = selectedCellValue3 ' devinirea valorii lui rowzona pe baza selectarii din datagrid
+            Dim selectedCellValue4 As String = DataGridView1.Rows(selectRow).Cells("masina").Value.ToString()
+            rowmasina = selectedCellValue4 ' devinirea valorii lui rowzona pe baza selectarii din datagrid
+            Dim selectedCellValue5 As String = DataGridView1.Rows(selectRow).Cells("defect").Value.ToString()
+            rowdefect = selectedCellValue5 ' devinirea valorii lui rowzona pe baza selectarii din datagrid
+            Dim selectedCellValue6 As String = DataGridView1.Rows(selectRow).Cells("status").Value.ToString()
+            rowstatus = selectedCellValue6 ' devinirea valorii lui rowzona pe baza selectarii din datagrid
+            Label8.Text = rowIdval
+            Label9.Text = rowData
+            Label10.Text = rowOra
+            Label11.Text = rowZona
+            Label12.Text = rowmasina
+            Label13.Text = rowdefect
+            Label15.Text = rowstatus
+
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form1.Show() 'inchiderea formularului
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        ' incarcare informatii noi in tabelul pentru mentenanta
+        Dim dta As String 'string pentru SQL data
+        dta = Date.Now.ToString("yyyy.MM.dd") ' format string
+        Dim dTime As String 'string pentru SQL time
+        dTime = Date.Now.ToString("hh:mm") 'Format time
+
+        Dim con As New SqlConnection("Data Source=" & surce & "; Initial Catalog=" & catalog & "; User ID=" & user &
+                             "; Password=" & pass & "; Connect Timeout=" & timeout & "; Encrypt=" & encrypt &
+                             "; TrustServerCertificate=" & trust & "; ApplicationIntent=" & reason & "; MultiSubnetFailover=" & subnet & "")
+        con.Open()
+        Dim command As New SqlCommand("update calitate.dbo.mentenanta set  status = '" & ComboBox1.Text & "', datastart = '" & dta & "', Orastart = '" & dTime & "', constatare = '" & TextConst.Text & "', operator = '" & TextUser.Text & "' where  id ='" & rowIdval & "' ", con)
+        command.ExecuteNonQuery()
+        con.Close()
+        updateTable()
+    End Sub
+End Class

Management_Resurse_Companie.vbproj

@@ -0,0 +1,117 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>WinExe</OutputType>
+    <TargetFramework>net6.0-windows</TargetFramework>
+    <StartupObject>Sub Main</StartupObject>
+    <UseWindowsForms>true</UseWindowsForms>
+    <MyType>WindowsForms</MyType>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <COMReference Include="Microsoft.Office.Core">
+      <WrapperTool>tlbimp</WrapperTool>
+      <VersionMinor>8</VersionMinor>
+      <VersionMajor>2</VersionMajor>
+      <Guid>2df8d04c-5bfa-101b-bde5-00aa0044de52</Guid>
+      <Lcid>0</Lcid>
+      <Isolated>false</Isolated>
+      <EmbedInteropTypes>true</EmbedInteropTypes>
+    </COMReference>
+    <COMReference Include="Microsoft.Office.Interop.Excel">
+      <WrapperTool>tlbimp</WrapperTool>
+      <VersionMinor>9</VersionMinor>
+      <VersionMajor>1</VersionMajor>
+      <Guid>00020813-0000-0000-c000-000000000046</Guid>
+      <Lcid>0</Lcid>
+      <Isolated>false</Isolated>
+      <EmbedInteropTypes>true</EmbedInteropTypes>
+    </COMReference>
+  </ItemGroup>
+
+  <ItemGroup>
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Windows.Forms" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Compile Update="Form10.vb" />
+    <Compile Update="Form18.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form17.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form16.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form2 - Copy.vb" />
+    <Compile Update="Form13.vb" />
+    <Compile Update="Form7.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form6.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="My Project\Application.Designer.vb">
+      <DesignTime>True</DesignTime>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Update="My Project\Resources.Designer.vb">
+      <DesignTime>True</DesignTime>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Update="My Project\Settings.Designer.vb">
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+    </Compile>
+  </ItemGroup>
+
+  <ItemGroup>
+    <None Update="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Update="My Project\Settings.settings">
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+
+  <ItemGroup>
+    <Folder Include="My Project\DataSources\" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="ClosedXML" Version="0.100.3" />
+    <PackageReference Include="Microsoft.Data.SqlClient" Version="5.1.0" />
+    <PackageReference Include="Microsoft.Office.Interop.Excel" Version="15.0.4795.1001" />
+    <PackageReference Include="Microsoft.Windows.Compatibility" Version="7.0.0" />
+    <PackageReference Include="Syncfusion.XlsIO.Net.Core" Version="20.4.0.44" />
+    <PackageReference Include="System.Data.SQLite.Core" Version="1.0.117" />
+    <PackageReference Include="System.Runtime.InteropServices" Version="4.3.0" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <Reference Include="MessagingToolkit.Barcode">
+      <HintPath>..\..\report print\waredata.com_RECEIPT\MessagingToolkit.Barcode.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Office.Interop.Excel">
+      <HintPath>..\..\Microsoft.Office.Interop.Excel.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+
+  <ItemGroup>
+    <EmbeddedResource Update="My Project\Resources.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
+  </ItemGroup>
+
+</Project>

Management_Resurse_Companie.vbproj.user

@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <ItemGroup>
+    <Compile Update="Form1.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form10.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form11.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form12.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form14.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form15.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form2.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form3.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form4.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form5.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form13.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form8.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Update="Form9.vb">
+      <SubType>Form</SubType>
+    </Compile>
+  </ItemGroup>
+</Project>

Management_resurse_companie.sln

@@ -0,0 +1,29 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 17
+VisualStudioVersion = 17.4.33213.308
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Management_Resurse_Companie", "Management_Resurse_Companie.vbproj", "{ACC1025E-F27D-47DA-8A60-0F0DC5E42C14}"
+EndProject
+Project("{54435603-DBB4-11D2-8724-00A0C9A8B90C}") = "Instal Management resurse Companie", "..\Quality scan\Quality scan.vdproj", "{4FC93D3C-AC39-4F1B-A8F8-B764FB6C7793}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{ACC1025E-F27D-47DA-8A60-0F0DC5E42C14}.Debug|Any CPU.ActiveCfg = Release|Any CPU
+		{ACC1025E-F27D-47DA-8A60-0F0DC5E42C14}.Debug|Any CPU.Build.0 = Release|Any CPU
+		{ACC1025E-F27D-47DA-8A60-0F0DC5E42C14}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{ACC1025E-F27D-47DA-8A60-0F0DC5E42C14}.Release|Any CPU.Build.0 = Release|Any CPU
+		{4FC93D3C-AC39-4F1B-A8F8-B764FB6C7793}.Debug|Any CPU.ActiveCfg = Release
+		{4FC93D3C-AC39-4F1B-A8F8-B764FB6C7793}.Release|Any CPU.ActiveCfg = Release
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {FA120826-0D16-428A-9C10-3402C8677093}
+	EndGlobalSection
+EndGlobal

UpgradeLog.htm

@@ -0,0 +1,274 @@
+<!DOCTYPE html>
+<!-- saved from url=(0014)about:internet -->
+ <html xmlns:msxsl="urn:schemas-microsoft-com:xslt"><head><meta content="en-us" http-equiv="Content-Language" /><meta content="text/html; charset=utf-16" http-equiv="Content-Type" /><title _locID="ConversionReport0">
+          Migration Report
+        </title><style> 
+                    /* Body style, for the entire document */
+                    body
+                    {
+                        background: #F3F3F4;
+                        color: #1E1E1F;
+                        font-family: "Segoe UI", Tahoma, Geneva, Verdana, sans-serif;
+                        padding: 0;
+                        margin: 0;
+                    }
+
+                    /* Header1 style, used for the main title */
+                    h1
+                    {
+                        padding: 10px 0px 10px 10px;
+                        font-size: 21pt;
+                        background-color: #E2E2E2;
+                        border-bottom: 1px #C1C1C2 solid; 
+                        color: #201F20;
+                        margin: 0;
+                        font-weight: normal;
+                    }
+
+                    /* Header2 style, used for "Overview" and other sections */
+                    h2
+                    {
+                        font-size: 18pt;
+                        font-weight: normal;
+                        padding: 15px 0 5px 0;
+                        margin: 0;
+                    }
+
+                    /* Header3 style, used for sub-sections, such as project name */
+                    h3
+                    {
+                        font-weight: normal;
+                        font-size: 15pt;
+                        margin: 0;
+                        padding: 15px 0 5px 0;
+                        background-color: transparent;
+                    }
+
+                    /* Color all hyperlinks one color */
+                    a
+                    {
+                        color: #1382CE;
+                    }
+
+                    /* Table styles */ 
+                    table
+                    {
+                        border-spacing: 0 0;
+                        border-collapse: collapse;
+                        font-size: 10pt;
+                    }
+
+                    table th
+                    {
+                        background: #E7E7E8;
+                        text-align: left;
+                        text-decoration: none;
+                        font-weight: normal;
+                        padding: 3px 6px 3px 6px;
+                    }
+
+                    table td
+                    {
+                        vertical-align: top;
+                        padding: 3px 6px 5px 5px;
+                        margin: 0px;
+                        border: 1px solid #E7E7E8;
+                        background: #F7F7F8;
+                    }
+
+                    /* Local link is a style for hyperlinks that link to file:/// content, there are lots so color them as 'normal' text until the user mouse overs */
+                    .localLink
+                    {
+                        color: #1E1E1F;
+                        background: #EEEEED;
+                        text-decoration: none;
+                    }
+
+                    .localLink:hover
+                    {
+                        color: #1382CE;
+                        background: #FFFF99;
+                        text-decoration: none;
+                    }
+
+                    /* Center text, used in the over views cells that contain message level counts */ 
+                    .textCentered
+                    {
+                        text-align: center;
+                    }
+
+                    /* The message cells in message tables should take up all avaliable space */
+                    .messageCell
+                    {
+                        width: 100%;
+                    }
+
+                    /* Padding around the content after the h1 */ 
+                    #content 
+                    {
+	                    padding: 0px 12px 12px 12px; 
+                    }
+
+                    /* The overview table expands to width, with a max width of 97% */ 
+                    #overview table
+                    {
+                        width: auto;
+                        max-width: 75%; 
+                    }
+
+                    /* The messages tables are always 97% width */
+                    #messages table
+                    {
+                        width: 97%;
+                    }
+
+                    /* All Icons */
+                    .IconSuccessEncoded, .IconInfoEncoded, .IconWarningEncoded, .IconErrorEncoded
+                    {
+                        min-width:18px;
+                        min-height:18px; 
+                        background-repeat:no-repeat;
+                        background-position:center;
+                    }
+
+                    /* Success icon encoded */
+                    .IconSuccessEncoded
+                    {
+                        /* Note: Do not delete the comment below. It is used to verify the correctness of the encoded image resource below before the product is released */
+                        /* [---XsltValidateInternal-Base64EncodedImage:IconSuccess#Begin#background-image: url(data:image/png;base64,#Separator#);#End#] */
+                        background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAA7EAAAOxAGVKw4bAAABcElEQVR4Xq2TsUsCURzHv15g8ZJcBWlyiYYgCIWcb9DFRRwMW5TA2c0/QEFwFkxxUQdxVlBwCYWOi6IhWgQhBLHJUCkhLr/BW8S7gvrAg+N+v8/v+x68Z8MGy+XSCyABQAXgBgHGALoASkIIDWSLeLBetdHryMjd5IxQPWT4rn1c/P7+xxp72Cs9m5SZ0Bq2vPnbPFafK2zDvmNHypdC0BPkLlQhxJsCAhQoZwdZU5mwxh720qGo8MzTxTTKZDPCx2HoVzp6lz0Q9tKhyx0kGs8Ny+TkWRKk8lCROwEduhyg9l/6lunOPSfmH3NUH6uQ0KHLAe7JYvJjevm+DAMGJHToKtigE+vwvIidxLamb8IBY9e+C5LiXREkfho3TSd06HJA13/oh6T51MTsfQbHrsMynQ5dDihFjiK8JJAU9AKIWTp76dCVN7HWHrajmUEGvyF9nkbAE6gLIS7kTUyuf2gscLoJrElZo/Mvj+nPz/kLTmfnEwP3tB0AAAAASUVORK5CYII=);
+                    }
+
+                    /* Information icon encoded */
+                    .IconInfoEncoded
+                    {
+                        /* Note: Do not delete the comment below. It is used to verify the correctness of the encoded image resource below before the product is released */
+                        /* [---XsltValidateInternal-Base64EncodedImage:IconInformation#Begin#background-image: url(data:image/png;base64,#Separator#);#End#] */
+                        background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAABHElEQVR4Xs2TsUoDQRRF7wwoziokjZUKadInhdhukR9YP8DMX1hYW+QvdsXa/QHBbcXC7W0CamWTQnclFutceIQJwwaWNLlwm5k5d94M76mmaeCrrmsLYOocY12FcxZFUeozCqKqqgYA8uevv1H6VuPxcwlfk5N92KHBxfFeCSAxxswlYAW/Xr989x/mv9gkhtyMDhcAxgzRsp7flj8B/HF1RsMXq+NZMkopaHe7lbKxQUEIGbKsYNoGn969060hZBkQex/W8oRQwsQaW2o3Ago2SVcJUzAgY3N0lTCZZm+zPS8HB51gMmS1DEYyOz9acKO1D8JWTlafKIMxdhvlfdyT94Vv5h7P8Ky7nQzACmhvKq3zk3PjW9asz9D/1oigecsioooAAAAASUVORK5CYII=);
+                    }
+
+                    /* Warning icon encoded */
+                    .IconWarningEncoded
+                    {
+                        /* Note: Do not delete the comment below. It is used to verify the correctness of the encoded image resource below before the product is released */
+                        /* [---XsltValidateInternal-Base64EncodedImage:IconWarning#Begin#background-image: url(data:image/png;base64,#Separator#);#End#] */
+                        background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAA7EAAAOxAGVKw4bAAAAx0lEQVR4XpWSMQ7CMAxFf4xAyBMLCxMrO8dhaBcuwdCJS3RJBw7SA/QGTCxdWJgiQYWKXJWKIXHIlyw5lqr34tQgEOdcBsCOx5yZK3hCCKdYXneQkh4pEfqzLfu+wVDSyyzFoJjfz9NB+pAF+eizx2Vruts0k15mPgvS6GYvpVtQhB61IB/dk6AF6fS4Ben0uIX5odtFe8Q/eW1KvFeH4e8khT6+gm5B+t3juyDt7n0jpe+CANTd+oTUjN/U3yVaABnSUjFz/gFq44JaVSCXeQAAAABJRU5ErkJggg==);
+                    }
+
+                    /* Error icon encoded */
+                    .IconErrorEncoded
+                    {
+                        /* Note: Do not delete the comment below. It is used to verify the correctness of the encoded image resource below before the product is released */
+                        /* [---XsltValidateInternal-Base64EncodedImage:IconError#Begin#background-image: url(data:image/png;base64,#Separator#);#End#] */
+                        background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAABQElEQVR4XqWTvUoEQRCE6wYPZUA80AfwAQz23uCMjA7MDRQEIzPBVEyNTQUFIw00vcQTTMzuAh/AxEQQT8HF/3G/oGGnEUGuoNnd6qoZuqltyKEsyzVJq5I6rnUp6SjGeGhESikzzlc1eL7opfuVbrqbU1Zw9NCgtQMaZpY0eNnaaL2fHusvTK5vKu7sjSS1Y4y3QUA6K3e3Mau5UFDyMP7tYF9o8cAHZv68vipoIJg971PZIZ5HiwdvYGGvFVFHmGmZ2MxwmQYPXubPl9Up0tfoMQGetXd6mRbvhBw+boZ6WF7Mbv1+GsHRk0fQmPAH1GfmZirbCfDJ61tw3Px8/8pZsPAG4jlVhcPgZ7adwNWBB68lkRQWFiTgFlbnLY3DGGM7izIJIyT/jjIvEJw6fdJTc6krDzh6aMwMP9bvDH4ADSsa9uSWVJkAAAAASUVORK5CYII=);
+                    }
+                 </style><script type="text/javascript" language="javascript"> 
+          
+            // Startup 
+            // Hook up the the loaded event for the document/window, to linkify the document content
+            var startupFunction = function() { linkifyElement("messages"); };
+            
+            if(window.attachEvent)
+            {
+              window.attachEvent('onload', startupFunction);
+            }
+            else if (window.addEventListener) 
+            {
+              window.addEventListener('load', startupFunction, false);
+            }
+            else 
+            {
+              document.addEventListener('load', startupFunction, false);
+            } 
+            
+            // Toggles the visibility of table rows with the specified name 
+            function toggleTableRowsByName(name)
+            {
+               var allRows = document.getElementsByTagName('tr');
+               for (i=0; i < allRows.length; i++)
+               {
+                  var currentName = allRows[i].getAttribute('name');
+                  if(!!currentName && currentName.indexOf(name) == 0)
+                  {
+                      var isVisible = allRows[i].style.display == ''; 
+                      isVisible ? allRows[i].style.display = 'none' : allRows[i].style.display = '';
+                  }
+               }
+            }
+            
+            function scrollToFirstVisibleRow(name) 
+            {
+               var allRows = document.getElementsByTagName('tr');
+               for (i=0; i < allRows.length; i++)
+               {
+                  var currentName = allRows[i].getAttribute('name');
+                  var isVisible = allRows[i].style.display == ''; 
+                  if(!!currentName && currentName.indexOf(name) == 0 && isVisible)
+                  {
+                     allRows[i].scrollIntoView(true); 
+                     return true; 
+                  }
+               }
+               
+               return false;
+            }
+            
+            // Linkifies the specified text content, replaces candidate links with html links 
+            function linkify(text)
+            {
+                 if(!text || 0 === text.length)
+                 {
+                     return text; 
+                 }
+
+                 // Find http, https and ftp links and replace them with hyper links 
+                 var urlLink = /(http|https|ftp)\:\/\/[a-zA-Z0-9\-\.]+(:[a-zA-Z0-9]*)?\/?([a-zA-Z0-9\-\._\?\,\/\\\+&%\$#\=~;\{\}])*/gi;
+                 
+                 return text.replace(urlLink, '<a href="$&">$&</a>') ;
+            }
+            
+            // Linkifies the specified element by ID
+            function linkifyElement(id)
+            {
+                var element = document.getElementById(id);
+                if(!!element)
+                {
+                  element.innerHTML = linkify(element.innerHTML); 
+                }
+            }
+            
+            function ToggleMessageVisibility(projectName)
+            {
+              if(!projectName || 0 === projectName.length)
+              {
+                return; 
+              }
+              
+              toggleTableRowsByName("MessageRowClass" + projectName);
+              toggleTableRowsByName('MessageRowHeaderShow' + projectName);
+              toggleTableRowsByName('MessageRowHeaderHide' + projectName); 
+            }
+            
+            function ScrollToFirstVisibleMessage(projectName)
+            {
+              if(!projectName || 0 === projectName.length)
+              {
+                return; 
+              }
+              
+              // First try the 'Show messages' row
+              if(!scrollToFirstVisibleRow('MessageRowHeaderShow' + projectName))
+              {
+                // Failed to find a visible row for 'Show messages', try an actual message row 
+                scrollToFirstVisibleRow('MessageRowClass' + projectName); 
+              }
+            }
+           </script></head><body><h1 _locID="ConversionReport">
+          Migration Report - </h1><div id="content"><h2 _locID="OverviewTitle">Overview</h2><div id="overview"><table><tr><th></th><th _locID="ProjectTableHeader">Project</th><th _locID="PathTableHeader">Path</th><th _locID="ErrorsTableHeader">Errors</th><th _locID="WarningsTableHeader">Warnings</th><th _locID="MessagesTableHeader">Messages</th></tr><tr><td class="IconErrorEncoded" /><td><strong><a href="#Instal Excell">Instal Excell</a></strong></td><td>..\Instal Excell\Instal Excell.vdproj</td><td class="textCentered"><a href="#Instal ExcellError">1</a></td><td class="textCentered"><a>0</a></td><td class="textCentered"><a href="#">0</a></td></tr><tr><td class="IconSuccessEncoded" /><td><strong><a href="#Quality_Scan">Quality_Scan</a></strong></td><td>Quality_Scan.vbproj</td><td class="textCentered"><a>0</a></td><td class="textCentered"><a>0</a></td><td class="textCentered"><a href="#">0</a></td></tr><tr><td class="IconSuccessEncoded" /><td><strong><a href="#Solution"><span _locID="OverviewSolutionSpan">Solution</span></a></strong></td><td>Quality_Scan.sln</td><td class="textCentered"><a>0</a></td><td class="textCentered"><a>0</a></td><td class="textCentered"><a href="#" onclick="ScrollToFirstVisibleMessage('Solution'); return false;">1</a></td></tr></table></div><h2 _locID="SolutionAndProjectsTitle">Solution and projects</h2><div id="messages"><a name="Instal Excell" /><h3>Instal Excell</h3><table><tr id="Instal ExcellHeaderRow"><th></th><th class="messageCell" _locID="MessageTableHeader">Message</th></tr><tr name="ErrorRowClassInstal Excell"><td class="IconErrorEncoded"><a name="Instal ExcellError" /></td><td class="messageCell"><strong>..\Instal Excell\Instal Excell.vdproj:
+        </strong><span>The application which this project type is based on was not found. Please try this link for further information: 54435603-dbb4-11d2-8724-00a0c9a8b90c</span></td></tr></table><a name="Quality_Scan" /><h3>Quality_Scan</h3><table><tr id="Quality_ScanHeaderRow"><th></th><th class="messageCell" _locID="MessageTableHeader">Message</th></tr><tr><td class="IconInfoEncoded" /><td class="messageCell" _locID="NoMessagesRow">Quality_Scan logged no messages.
+                  </td></tr></table><a name="Solution" /><h3 _locID="ProjectDisplayNameHeader">Solution</h3><table><tr id="SolutionHeaderRow"><th></th><th class="messageCell" _locID="MessageTableHeader">Message</th></tr><tr name="MessageRowHeaderShowSolution"><td class="IconInfoEncoded" /><td class="messageCell"><a _locID="ShowAdditionalMessages" href="#" name="SolutionMessage" onclick="ToggleMessageVisibility('Solution'); return false;">
+          Show 1 additional messages
+        </a></td></tr><tr name="MessageRowClassSolution" style="display: none"><td class="IconInfoEncoded"><a name="SolutionMessage" /></td><td class="messageCell"><strong>Quality_Scan.sln:
+        </strong><span>The solution file does not require migration.</span></td></tr><tr style="display: none" name="MessageRowHeaderHideSolution"><td class="IconInfoEncoded" /><td class="messageCell"><a _locID="HideAdditionalMessages" href="#" name="SolutionMessage" onclick="ToggleMessageVisibility('Solution'); return false;">
+          Hide 1 additional messages
+        </a></td></tr></table></div></div></body></html>

bin/Debug/net6.0-windows/Quality_Scan.dll.config

@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+
+
+    <configSections>
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="Quality_Scan.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
+    </configSections>
+    <userSettings>
+        <Quality_Scan.My.MySettings>
+            <setting name="serverName" serializeAs="String">
+                <value>PH-OMEN\SQLEXPRESS</value>
+            </setting>
+            <setting name="serverPort" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="serverUser" serializeAs="String">
+                <value>sa</value>
+            </setting>
+            <setting name="serverUserpass" serializeAs="String">
+                <value>Recticel@123</value>
+            </setting>
+            <setting name="serverdatabase" serializeAs="String">
+                <value>calitate</value>
+            </setting>
+            <setting name="adminPass" serializeAs="String">
+                <value>Aquinos@123</value>
+            </setting>
+            <setting name="subnet" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="reason" serializeAs="String">
+                <value>ReadWrite</value>
+            </setting>
+            <setting name="cert" serializeAs="String">
+                <value>False</value>
+            </setting>
+            <setting name="timeout" serializeAs="String">
+                <value>30</value>
+            </setting>
+            <setting name="encrypt" serializeAs="String">
+                <value>False</value>
+            </setting>
+        </Quality_Scan.My.MySettings>
+    </userSettings>
+</configuration>

bin/Debug/net6.0-windows/Quality_Scan.runtimeconfig.json

@@ -0,0 +1,15 @@
+{
+  "runtimeOptions": {
+    "tfm": "net6.0",
+    "frameworks": [
+      {
+        "name": "Microsoft.NETCore.App",
+        "version": "6.0.0"
+      },
+      {
+        "name": "Microsoft.WindowsDesktop.App",
+        "version": "6.0.0"
+      }
+    ]
+  }
+}