Integry/SmartEnterprise_v1
19
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First commit

Browse Source
This commit is contained in:
Giuseppe Scorrano
2017-12-18 15:32:16 +01:00
commit 554dc87e48
161 changed files with 20595 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Smart Enterprise.sln Normal file
View File

@@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 10.00
# Visual Studio 2008
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Smart Enterprise", "Terminalino\Smart Enterprise.vbproj", "{877E142A-E14D-40D4-81F8-47B7CDB05ABD}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.Build.0 = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.Deploy.0 = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.ActiveCfg = Release|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.Build.0 = Release|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.Deploy.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

2
Smart Enterprise.sln.DotSettings.user Normal file
View File

@@ -0,0 +1,2 @@
<wpf:ResourceDictionary xml:space="preserve" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:s="clr-namespace:System;assembly=mscorlib" xmlns:ss="urn:shemas-jetbrains-com:settings-storage-xaml" xmlns:wpf="http://schemas.microsoft.com/winfx/2006/xaml/presentation">
<s:Int64 x:Key="/Default/Environment/SearchAndNavigation/DefaultOccurencesGroupingIndex/@EntryValue">2</s:Int64></wpf:ResourceDictionary>

BIN
Smart Enterprise.suo Normal file
View File

Binary file not shown.

1
Terminalino/ClassDiagram1.cd Normal file
View File

@@ -0,0 +1 @@

372
Terminalino/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,372 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public 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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.lblDescrizione = New System.Windows.Forms.Label
Me.txtQta = New System.Windows.Forms.TextBox
Me.txtBarcode = New System.Windows.Forms.TextBox
Me.lbUMShow = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.lbQtaCnf = New System.Windows.Forms.Label
Me.lbUntMisOrig = New System.Windows.Forms.Label
Me.lbUM = New System.Windows.Forms.Label
Me.lblCodMart = New System.Windows.Forms.Label
Me.lklblSub = New System.Windows.Forms.LinkLabel
Me.lklblAdd = New System.Windows.Forms.LinkLabel
Me.lblPresent = New System.Windows.Forms.Label
Me.lbColli = New System.Windows.Forms.Label
Me.txtColli = New System.Windows.Forms.TextBox
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.btInviaOnly = New System.Windows.Forms.Button
Me.btCloseNoInvia = New System.Windows.Forms.Button
Me.btAddModNote = New System.Windows.Forms.Button
Me.lblLastInsEt = New System.Windows.Forms.Label
Me.lblLastIns = New System.Windows.Forms.Label
Me.lblTotQta = New System.Windows.Forms.Label
Me.asyncAudioStartup = New System.Windows.Forms.Timer
Me.Panel1 = New System.Windows.Forms.Panel
Me.lbl_H = New System.Windows.Forms.Label
Me.Panel2 = New System.Windows.Forms.Panel
Me.lbl_I = New System.Windows.Forms.Label
Me.Panel3 = New System.Windows.Forms.Panel
Me.lbl_L = New System.Windows.Forms.Label
Me.lblMerceDaRic = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'lblDescrizione
'
Me.lblDescrizione.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblDescrizione.Location = New System.Drawing.Point(15, 45)
Me.lblDescrizione.Name = "lblDescrizione"
Me.lblDescrizione.Size = New System.Drawing.Size(209, 70)
Me.lblDescrizione.Text = "-"
Me.lblDescrizione.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtQta
'
Me.txtQta.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtQta.Location = New System.Drawing.Point(123, 203)
Me.txtQta.Name = "txtQta"
Me.txtQta.Size = New System.Drawing.Size(98, 39)
Me.txtQta.TabIndex = 4
'
'txtBarcode
'
Me.txtBarcode.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtBarcode.Location = New System.Drawing.Point(15, 4)
Me.txtBarcode.Name = "txtBarcode"
Me.txtBarcode.Size = New System.Drawing.Size(209, 39)
Me.txtBarcode.TabIndex = 7
'
'lbUMShow
'
Me.lbUMShow.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbUMShow.Location = New System.Drawing.Point(6, 212)
Me.lbUMShow.Name = "lbUMShow"
Me.lbUMShow.Size = New System.Drawing.Size(111, 20)
Me.lbUMShow.Text = "Quantità:"
Me.lbUMShow.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(7, 245)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(172, 20)
Me.Label1.Text = "Quantità per confezione:"
'
'lbQtaCnf
'
Me.lbQtaCnf.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lbQtaCnf.Location = New System.Drawing.Point(181, 245)
Me.lbQtaCnf.Name = "lbQtaCnf"
Me.lbQtaCnf.Size = New System.Drawing.Size(52, 17)
Me.lbQtaCnf.Text = "-"
'
'lbUntMisOrig
'
Me.lbUntMisOrig.Location = New System.Drawing.Point(17, 184)
Me.lbUntMisOrig.Name = "lbUntMisOrig"
Me.lbUntMisOrig.Size = New System.Drawing.Size(100, 20)
Me.lbUntMisOrig.Text = "lbUntMisOrig"
Me.lbUntMisOrig.Visible = False
'
'lbUM
'
Me.lbUM.Location = New System.Drawing.Point(13, 192)
Me.lbUM.Name = "lbUM"
Me.lbUM.Size = New System.Drawing.Size(100, 20)
Me.lbUM.Text = "lbUM"
Me.lbUM.Visible = False
'
'lblCodMart
'
Me.lblCodMart.Location = New System.Drawing.Point(13, 187)
Me.lblCodMart.Name = "lblCodMart"
Me.lblCodMart.Size = New System.Drawing.Size(100, 20)
Me.lblCodMart.Text = "lblCodMart"
Me.lblCodMart.Visible = False
'
'lklblSub
'
Me.lklblSub.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.lklblSub.Font = New System.Drawing.Font("Arial", 14.0!, System.Drawing.FontStyle.Regular)
Me.lklblSub.ForeColor = System.Drawing.Color.White
Me.lklblSub.Location = New System.Drawing.Point(7, 85)
Me.lklblSub.Name = "lklblSub"
Me.lklblSub.Size = New System.Drawing.Size(110, 90)
Me.lklblSub.TabIndex = 11
Me.lklblSub.Text = "Sovrascrivi Quantità Precedente ( 1 )"
Me.lklblSub.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.lklblSub.Visible = False
'
'lklblAdd
'
Me.lklblAdd.BackColor = System.Drawing.Color.Green
Me.lklblAdd.Font = New System.Drawing.Font("Arial", 14.0!, System.Drawing.FontStyle.Regular)
Me.lklblAdd.ForeColor = System.Drawing.Color.White
Me.lklblAdd.Location = New System.Drawing.Point(123, 85)
Me.lklblAdd.Name = "lklblAdd"
Me.lklblAdd.Size = New System.Drawing.Size(110, 90)
Me.lklblAdd.TabIndex = 21
Me.lklblAdd.Text = "Aggiungi A Quantità Precedente ( 2 )"
Me.lklblAdd.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.lklblAdd.Visible = False
'
'lblPresent
'
Me.lblPresent.Location = New System.Drawing.Point(98, 230)
Me.lblPresent.Name = "lblPresent"
Me.lblPresent.Size = New System.Drawing.Size(34, 14)
Me.lblPresent.Text = "0"
Me.lblPresent.Visible = False
'
'lbColli
'
Me.lbColli.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbColli.Location = New System.Drawing.Point(13, 174)
Me.lbColli.Name = "lbColli"
Me.lbColli.Size = New System.Drawing.Size(104, 20)
Me.lbColli.Text = "Colli:"
Me.lbColli.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtColli
'
Me.txtColli.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtColli.Location = New System.Drawing.Point(123, 165)
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(98, 39)
Me.txtColli.TabIndex = 31
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(98, 131)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(0, 0)
'
'btInviaOnly
'
Me.btInviaOnly.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btInviaOnly.Location = New System.Drawing.Point(2, 197)
Me.btInviaOnly.Name = "btInviaOnly"
Me.btInviaOnly.Size = New System.Drawing.Size(78, 68)
Me.btInviaOnly.TabIndex = 100
Me.btInviaOnly.Text = "Chiudi"
'
'btCloseNoInvia
'
Me.btCloseNoInvia.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btCloseNoInvia.Location = New System.Drawing.Point(81, 197)
Me.btCloseNoInvia.Name = "btCloseNoInvia"
Me.btCloseNoInvia.Size = New System.Drawing.Size(79, 68)
Me.btCloseNoInvia.TabIndex = 101
Me.btCloseNoInvia.Text = "Sospendi"
'
'btAddModNote
'
Me.btAddModNote.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btAddModNote.Location = New System.Drawing.Point(161, 197)
Me.btAddModNote.Name = "btAddModNote"
Me.btAddModNote.Size = New System.Drawing.Size(55, 68)
Me.btAddModNote.TabIndex = 113
Me.btAddModNote.Text = "Note"
'
'lblLastInsEt
'
Me.lblLastInsEt.Location = New System.Drawing.Point(7, 108)
Me.lblLastInsEt.Name = "lblLastInsEt"
Me.lblLastInsEt.Size = New System.Drawing.Size(100, 20)
Me.lblLastInsEt.Text = "Ultima lettura:"
'
'lblLastIns
'
Me.lblLastIns.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblLastIns.Location = New System.Drawing.Point(7, 128)
Me.lblLastIns.Name = "lblLastIns"
Me.lblLastIns.Size = New System.Drawing.Size(209, 66)
Me.lblLastIns.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'lblTotQta
'
Me.lblTotQta.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblTotQta.Location = New System.Drawing.Point(13, 171)
Me.lblTotQta.Name = "lblTotQta"
Me.lblTotQta.Size = New System.Drawing.Size(224, 20)
Me.lblTotQta.Text = "lblTotQta"
'
'asyncAudioStartup
'
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Gainsboro
Me.Panel1.Controls.Add(Me.lbl_H)
Me.Panel1.Location = New System.Drawing.Point(217, 197)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(21, 22)
'
'lbl_H
'
Me.lbl_H.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_H.ForeColor = System.Drawing.Color.Silver
Me.lbl_H.Location = New System.Drawing.Point(3, 3)
Me.lbl_H.Name = "lbl_H"
Me.lbl_H.Size = New System.Drawing.Size(15, 15)
Me.lbl_H.Text = "H"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.Gainsboro
Me.Panel2.Controls.Add(Me.lbl_I)
Me.Panel2.Location = New System.Drawing.Point(217, 220)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(21, 22)
'
'lbl_I
'
Me.lbl_I.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_I.ForeColor = System.Drawing.Color.Silver
Me.lbl_I.Location = New System.Drawing.Point(4, 2)
Me.lbl_I.Name = "lbl_I"
Me.lbl_I.Size = New System.Drawing.Size(15, 15)
Me.lbl_I.Text = "I"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.Gainsboro
Me.Panel3.Controls.Add(Me.lbl_L)
Me.Panel3.Location = New System.Drawing.Point(217, 243)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(21, 22)
'
'lbl_L
'
Me.lbl_L.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_L.ForeColor = System.Drawing.Color.Silver
Me.lbl_L.Location = New System.Drawing.Point(3, 2)
Me.lbl_L.Name = "lbl_L"
Me.lbl_L.Size = New System.Drawing.Size(15, 15)
Me.lbl_L.Text = "L"
'
'lblMerceDaRic
'
Me.lblMerceDaRic.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblMerceDaRic.Location = New System.Drawing.Point(15, 120)
Me.lblMerceDaRic.Name = "lblMerceDaRic"
Me.lblMerceDaRic.Size = New System.Drawing.Size(209, 30)
Me.lblMerceDaRic.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblTotQta)
Me.Controls.Add(Me.btAddModNote)
Me.Controls.Add(Me.btCloseNoInvia)
Me.Controls.Add(Me.btInviaOnly)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.lbColli)
Me.Controls.Add(Me.lblPresent)
Me.Controls.Add(Me.lblCodMart)
Me.Controls.Add(Me.lbUM)
Me.Controls.Add(Me.lbUntMisOrig)
Me.Controls.Add(Me.lbQtaCnf)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbUMShow)
Me.Controls.Add(Me.txtBarcode)
Me.Controls.Add(Me.txtQta)
Me.Controls.Add(Me.lblLastInsEt)
Me.Controls.Add(Me.lblLastIns)
Me.Controls.Add(Me.lklblSub)
Me.Controls.Add(Me.lklblAdd)
Me.Controls.Add(Me.lblDescrizione)
Me.Controls.Add(Me.lblMerceDaRic)
Me.Controls.Add(Me.txtColli)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.Text = "-"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblDescrizione As System.Windows.Forms.Label
Friend WithEvents txtQta As System.Windows.Forms.TextBox
Friend WithEvents txtBarcode As System.Windows.Forms.TextBox
Friend WithEvents lbUMShow As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lbQtaCnf As System.Windows.Forms.Label
Friend WithEvents lbUntMisOrig As System.Windows.Forms.Label
Friend WithEvents lbUM As System.Windows.Forms.Label
Friend WithEvents lblCodMart As System.Windows.Forms.Label
Friend WithEvents lklblSub As System.Windows.Forms.LinkLabel
Friend WithEvents lklblAdd As System.Windows.Forms.LinkLabel
Friend WithEvents lblPresent As System.Windows.Forms.Label
Friend WithEvents lbColli As System.Windows.Forms.Label
Friend WithEvents txtColli As System.Windows.Forms.TextBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents btInviaOnly As System.Windows.Forms.Button
Friend WithEvents btCloseNoInvia As System.Windows.Forms.Button
Friend WithEvents btAddModNote As System.Windows.Forms.Button
Friend WithEvents lblLastInsEt As System.Windows.Forms.Label
Friend WithEvents lblLastIns As System.Windows.Forms.Label
Friend WithEvents lblTotQta As System.Windows.Forms.Label
Public WithEvents asyncAudioStartup As System.Windows.Forms.Timer
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents lbl_H As System.Windows.Forms.Label
Friend WithEvents lbl_I As System.Windows.Forms.Label
Friend WithEvents lbl_L As System.Windows.Forms.Label
Friend WithEvents lblMerceDaRic As System.Windows.Forms.Label
End Class

1513
Terminalino/Form1.resx Normal file
View File

File diff suppressed because it is too large Load Diff

1420
Terminalino/Form1.vb Normal file
View File

File diff suppressed because it is too large Load Diff

374
Terminalino/Form1_pickOrd.Designer.vb generated Normal file
View File

@@ -0,0 +1,374 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form1_pickOrd
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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_pickOrd))
Me.txtBarcode = New System.Windows.Forms.TextBox
Me.lblDescrizione = New System.Windows.Forms.Label
Me.btAddModNote = New System.Windows.Forms.Button
Me.btCloseNoInvia = New System.Windows.Forms.Button
Me.btInviaOnly = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.lblPresent = New System.Windows.Forms.Label
Me.lblCodMart = New System.Windows.Forms.Label
Me.lbUM = New System.Windows.Forms.Label
Me.lbUntMisOrig = New System.Windows.Forms.Label
Me.lbUMShow = New System.Windows.Forms.Label
Me.txtQta = New System.Windows.Forms.TextBox
Me.lblLastInsEt = New System.Windows.Forms.Label
Me.lblLastIns = New System.Windows.Forms.Label
Me.lklblSub = New System.Windows.Forms.LinkLabel
Me.lklblAdd = New System.Windows.Forms.LinkLabel
Me.lblQtaOrd = New System.Windows.Forms.Label
Me.lbColli = New System.Windows.Forms.Label
Me.txtColli = New System.Windows.Forms.TextBox
Me.lblRigaOrd = New System.Windows.Forms.Label
Me.lbQtaCnf = New System.Windows.Forms.Label
Me.lblTotQta = New System.Windows.Forms.Label
Me.asyncAudioAlert = New System.Windows.Forms.Timer
Me.asyncAudioStartup = New System.Windows.Forms.Timer
Me.Panel2 = New System.Windows.Forms.Panel
Me.lbl_I = New System.Windows.Forms.Label
Me.Panel3 = New System.Windows.Forms.Panel
Me.lbl_L = New System.Windows.Forms.Label
Me.Panel1 = New System.Windows.Forms.Panel
Me.lbl_H = New System.Windows.Forms.Label
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'txtBarcode
'
Me.txtBarcode.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtBarcode.Location = New System.Drawing.Point(15, 4)
Me.txtBarcode.Name = "txtBarcode"
Me.txtBarcode.Size = New System.Drawing.Size(209, 39)
Me.txtBarcode.TabIndex = 9
'
'lblDescrizione
'
Me.lblDescrizione.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Bold)
Me.lblDescrizione.Location = New System.Drawing.Point(15, 44)
Me.lblDescrizione.Name = "lblDescrizione"
Me.lblDescrizione.Size = New System.Drawing.Size(209, 100)
Me.lblDescrizione.Text = "-"
Me.lblDescrizione.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btAddModNote
'
Me.btAddModNote.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btAddModNote.Location = New System.Drawing.Point(161, 197)
Me.btAddModNote.Name = "btAddModNote"
Me.btAddModNote.Size = New System.Drawing.Size(55, 68)
Me.btAddModNote.TabIndex = 129
Me.btAddModNote.Text = "Note"
'
'btCloseNoInvia
'
Me.btCloseNoInvia.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btCloseNoInvia.Location = New System.Drawing.Point(81, 197)
Me.btCloseNoInvia.Name = "btCloseNoInvia"
Me.btCloseNoInvia.Size = New System.Drawing.Size(79, 68)
Me.btCloseNoInvia.TabIndex = 128
Me.btCloseNoInvia.Text = "Sospendi"
'
'btInviaOnly
'
Me.btInviaOnly.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btInviaOnly.Location = New System.Drawing.Point(2, 197)
Me.btInviaOnly.Name = "btInviaOnly"
Me.btInviaOnly.Size = New System.Drawing.Size(78, 68)
Me.btInviaOnly.TabIndex = 127
Me.btInviaOnly.Text = "Chiudi"
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(98, 131)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(0, 0)
'
'lblPresent
'
Me.lblPresent.Location = New System.Drawing.Point(98, 230)
Me.lblPresent.Name = "lblPresent"
Me.lblPresent.Size = New System.Drawing.Size(34, 14)
Me.lblPresent.Text = "0"
Me.lblPresent.Visible = False
'
'lblCodMart
'
Me.lblCodMart.Location = New System.Drawing.Point(13, 187)
Me.lblCodMart.Name = "lblCodMart"
Me.lblCodMart.Size = New System.Drawing.Size(100, 20)
Me.lblCodMart.Text = "lblCodMart"
Me.lblCodMart.Visible = False
'
'lbUM
'
Me.lbUM.Location = New System.Drawing.Point(13, 192)
Me.lbUM.Name = "lbUM"
Me.lbUM.Size = New System.Drawing.Size(100, 20)
Me.lbUM.Text = "lbUM"
Me.lbUM.Visible = False
'
'lbUntMisOrig
'
Me.lbUntMisOrig.Location = New System.Drawing.Point(17, 184)
Me.lbUntMisOrig.Name = "lbUntMisOrig"
Me.lbUntMisOrig.Size = New System.Drawing.Size(100, 20)
Me.lbUntMisOrig.Text = "lbUntMisOrig"
Me.lbUntMisOrig.Visible = False
'
'lbUMShow
'
Me.lbUMShow.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbUMShow.Location = New System.Drawing.Point(6, 212)
Me.lbUMShow.Name = "lbUMShow"
Me.lbUMShow.Size = New System.Drawing.Size(111, 20)
Me.lbUMShow.Text = "Quantità:"
Me.lbUMShow.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtQta
'
Me.txtQta.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtQta.Location = New System.Drawing.Point(123, 203)
Me.txtQta.Name = "txtQta"
Me.txtQta.Size = New System.Drawing.Size(98, 39)
Me.txtQta.TabIndex = 123
'
'lblLastInsEt
'
Me.lblLastInsEt.Location = New System.Drawing.Point(7, 108)
Me.lblLastInsEt.Name = "lblLastInsEt"
Me.lblLastInsEt.Size = New System.Drawing.Size(100, 20)
Me.lblLastInsEt.Text = "Ultima lettura:"
'
'lblLastIns
'
Me.lblLastIns.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblLastIns.Location = New System.Drawing.Point(7, 128)
Me.lblLastIns.Name = "lblLastIns"
Me.lblLastIns.Size = New System.Drawing.Size(209, 66)
Me.lblLastIns.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'lklblSub
'
Me.lklblSub.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.lklblSub.Font = New System.Drawing.Font("Arial", 14.0!, System.Drawing.FontStyle.Regular)
Me.lklblSub.ForeColor = System.Drawing.Color.White
Me.lklblSub.Location = New System.Drawing.Point(7, 85)
Me.lklblSub.Name = "lklblSub"
Me.lklblSub.Size = New System.Drawing.Size(110, 90)
Me.lklblSub.TabIndex = 124
Me.lklblSub.Text = "Sovrascrivi Quantità Precedente ( 1 )"
Me.lklblSub.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.lklblSub.Visible = False
'
'lklblAdd
'
Me.lklblAdd.BackColor = System.Drawing.Color.Green
Me.lklblAdd.Font = New System.Drawing.Font("Arial", 14.0!, System.Drawing.FontStyle.Regular)
Me.lklblAdd.ForeColor = System.Drawing.Color.White
Me.lklblAdd.Location = New System.Drawing.Point(123, 85)
Me.lklblAdd.Name = "lklblAdd"
Me.lklblAdd.Size = New System.Drawing.Size(110, 90)
Me.lklblAdd.TabIndex = 125
Me.lklblAdd.Text = "Aggiungi A Quantità Precedente ( 2 )"
Me.lklblAdd.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.lklblAdd.Visible = False
'
'lblQtaOrd
'
Me.lblQtaOrd.Location = New System.Drawing.Point(120, 121)
Me.lblQtaOrd.Name = "lblQtaOrd"
Me.lblQtaOrd.Size = New System.Drawing.Size(100, 20)
Me.lblQtaOrd.Visible = False
'
'lbColli
'
Me.lbColli.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbColli.Location = New System.Drawing.Point(13, 174)
Me.lbColli.Name = "lbColli"
Me.lbColli.Size = New System.Drawing.Size(104, 20)
Me.lbColli.Text = "Colli:"
Me.lbColli.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtColli
'
Me.txtColli.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtColli.Location = New System.Drawing.Point(123, 165)
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(98, 39)
Me.txtColli.TabIndex = 140
'
'lblRigaOrd
'
Me.lblRigaOrd.Location = New System.Drawing.Point(137, 174)
Me.lblRigaOrd.Name = "lblRigaOrd"
Me.lblRigaOrd.Size = New System.Drawing.Size(100, 20)
Me.lblRigaOrd.Visible = False
'
'lbQtaCnf
'
Me.lbQtaCnf.Location = New System.Drawing.Point(7, 62)
Me.lbQtaCnf.Name = "lbQtaCnf"
Me.lbQtaCnf.Size = New System.Drawing.Size(100, 20)
Me.lbQtaCnf.Text = "lbQtaCnf"
Me.lbQtaCnf.Visible = False
'
'lblTotQta
'
Me.lblTotQta.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblTotQta.Location = New System.Drawing.Point(6, 175)
Me.lblTotQta.Name = "lblTotQta"
Me.lblTotQta.Size = New System.Drawing.Size(224, 20)
Me.lblTotQta.Text = "lblTotQta"
'
'asyncAudioAlert
'
'
'asyncAudioStartup
'
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.Gainsboro
Me.Panel2.Controls.Add(Me.lbl_I)
Me.Panel2.Location = New System.Drawing.Point(217, 220)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(21, 22)
'
'lbl_I
'
Me.lbl_I.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_I.ForeColor = System.Drawing.Color.Silver
Me.lbl_I.Location = New System.Drawing.Point(4, 2)
Me.lbl_I.Name = "lbl_I"
Me.lbl_I.Size = New System.Drawing.Size(15, 15)
Me.lbl_I.Text = "I"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.Gainsboro
Me.Panel3.Controls.Add(Me.lbl_L)
Me.Panel3.Location = New System.Drawing.Point(217, 243)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(21, 22)
'
'lbl_L
'
Me.lbl_L.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_L.ForeColor = System.Drawing.Color.Silver
Me.lbl_L.Location = New System.Drawing.Point(3, 2)
Me.lbl_L.Name = "lbl_L"
Me.lbl_L.Size = New System.Drawing.Size(15, 15)
Me.lbl_L.Text = "L"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Gainsboro
Me.Panel1.Controls.Add(Me.lbl_H)
Me.Panel1.Location = New System.Drawing.Point(217, 197)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(21, 22)
'
'lbl_H
'
Me.lbl_H.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lbl_H.ForeColor = System.Drawing.Color.Silver
Me.lbl_H.Location = New System.Drawing.Point(3, 3)
Me.lbl_H.Name = "lbl_H"
Me.lbl_H.Size = New System.Drawing.Size(15, 15)
Me.lbl_H.Text = "H"
'
'Form1_pickOrd
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.lblTotQta)
Me.Controls.Add(Me.lbQtaCnf)
Me.Controls.Add(Me.lblRigaOrd)
Me.Controls.Add(Me.lbColli)
Me.Controls.Add(Me.lblQtaOrd)
Me.Controls.Add(Me.btAddModNote)
Me.Controls.Add(Me.btCloseNoInvia)
Me.Controls.Add(Me.btInviaOnly)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.lblPresent)
Me.Controls.Add(Me.lblCodMart)
Me.Controls.Add(Me.lbUM)
Me.Controls.Add(Me.lbUntMisOrig)
Me.Controls.Add(Me.lbUMShow)
Me.Controls.Add(Me.txtQta)
Me.Controls.Add(Me.lblLastInsEt)
Me.Controls.Add(Me.lblLastIns)
Me.Controls.Add(Me.lklblSub)
Me.Controls.Add(Me.lklblAdd)
Me.Controls.Add(Me.txtBarcode)
Me.Controls.Add(Me.lblDescrizione)
Me.Controls.Add(Me.txtColli)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1_pickOrd"
Me.Text = "-"
Me.Panel2.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtBarcode As System.Windows.Forms.TextBox
Friend WithEvents lblDescrizione As System.Windows.Forms.Label
Friend WithEvents btAddModNote As System.Windows.Forms.Button
Friend WithEvents btCloseNoInvia As System.Windows.Forms.Button
Friend WithEvents btInviaOnly As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents lblPresent As System.Windows.Forms.Label
Friend WithEvents lblCodMart As System.Windows.Forms.Label
Friend WithEvents lbUM As System.Windows.Forms.Label
Friend WithEvents lbUntMisOrig As System.Windows.Forms.Label
Friend WithEvents lbUMShow As System.Windows.Forms.Label
Friend WithEvents txtQta As System.Windows.Forms.TextBox
Friend WithEvents lblLastInsEt As System.Windows.Forms.Label
Friend WithEvents lblLastIns As System.Windows.Forms.Label
Friend WithEvents lklblSub As System.Windows.Forms.LinkLabel
Friend WithEvents lklblAdd As System.Windows.Forms.LinkLabel
Friend WithEvents lblQtaOrd As System.Windows.Forms.Label
Friend WithEvents lbColli As System.Windows.Forms.Label
Friend WithEvents txtColli As System.Windows.Forms.TextBox
Friend WithEvents lblRigaOrd As System.Windows.Forms.Label
Friend WithEvents lbQtaCnf As System.Windows.Forms.Label
Friend WithEvents lblTotQta As System.Windows.Forms.Label
Public WithEvents asyncAudioAlert As System.Windows.Forms.Timer
Public WithEvents asyncAudioStartup As System.Windows.Forms.Timer
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents lbl_I As System.Windows.Forms.Label
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents lbl_L As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents lbl_H As System.Windows.Forms.Label
End Class

1516
Terminalino/Form1_pickOrd.resx Normal file
View File

File diff suppressed because it is too large Load Diff

1112
Terminalino/Form1_pickOrd.vb Normal file
View File

File diff suppressed because it is too large Load Diff

82
Terminalino/Form2.Designer.vb generated Normal file
View File

@@ -0,0 +1,82 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public 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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.DataGrid1 = New System.Windows.Forms.DataGrid
Me.lblDescrizione = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.lbTotali = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'DataGrid1
'
Me.DataGrid1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.DataGrid1.Font = New System.Drawing.Font("Arial", 11.0!, System.Drawing.FontStyle.Regular)
Me.DataGrid1.Location = New System.Drawing.Point(3, 16)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(234, 191)
Me.DataGrid1.TabIndex = 1
'
'lblDescrizione
'
Me.lblDescrizione.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblDescrizione.Location = New System.Drawing.Point(3, 210)
Me.lblDescrizione.Name = "lblDescrizione"
Me.lblDescrizione.Size = New System.Drawing.Size(234, 58)
Me.lblDescrizione.Text = "-"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(2, -1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 17)
Me.Label1.Text = "Lista art."
'
'lbTotali
'
Me.lbTotali.Font = New System.Drawing.Font("Tahoma", 10.0!, System.Drawing.FontStyle.Bold)
Me.lbTotali.Location = New System.Drawing.Point(69, -1)
Me.lbTotali.Name = "lbTotali"
Me.lbTotali.Size = New System.Drawing.Size(168, 17)
Me.lbTotali.Text = "Totale"
'
'Form2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.lbTotali)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblDescrizione)
Me.Controls.Add(Me.DataGrid1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form2"
Me.Text = "-"
Me.ResumeLayout(False)
End Sub
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents lblDescrizione As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lbTotali As System.Windows.Forms.Label
End Class

126
Terminalino/Form2.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

159
Terminalino/Form2.vb Normal file
View File

@@ -0,0 +1,159 @@
Imports System.Xml
Imports System.Data
Public Class Form2
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Private Sub List_loader()
Try
DataGrid1.TableStyles.Clear()
Refresh()
Dim barcode, descrizione, qta, colli, untMis As String
Dim count As Integer = 0
Dim totPz As Double = 0
Dim totKg As Double = 0
Dim messageTable As New DataTable()
messageTable.Columns.Add("Barcode")
messageTable.Columns.Add("U.M.")
messageTable.Columns.Add("Qta")
messageTable.Columns.Add("Colli")
messageTable.Columns.Add("Descrizione")
Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle
Dim gridColumn1 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn1.Width = 110
gridColumn1.MappingName = "Barcode"
gridColumn1.HeaderText = "Barcode"
myGridTableStyle.GridColumnStyles.Add(gridColumn1)
Dim gridColumn2 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn2.Width = 30
gridColumn2.MappingName = "U.M."
gridColumn2.HeaderText = "UM"
myGridTableStyle.GridColumnStyles.Add(gridColumn2)
Dim gridColumn3 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn3.Width = 30
gridColumn3.MappingName = "Qta"
gridColumn3.HeaderText = "Qta"
myGridTableStyle.GridColumnStyles.Add(gridColumn3)
Dim gridColumn4 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
If G_um = "COLLI" Then gridColumn4.Width = 30 Else gridColumn4.Width = 0
gridColumn4.MappingName = "Colli"
gridColumn4.HeaderText = "Colli"
myGridTableStyle.GridColumnStyles.Add(gridColumn4)
Dim gridColumn5 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn5.Width = 0
gridColumn5.MappingName = "Descrizione"
gridColumn5.HeaderText = "Descrizione"
myGridTableStyle.GridColumnStyles.Add(gridColumn5)
' Popolamento datatable
'docWR = New System.Xml.XmlDocument()
'docWR.Load(FileListaXML)
Dim clsArticoli As System.Xml.XmlNodeList = docWR.SelectNodes("/ROOT/ROW")
For Each clsNodoArt As System.Xml.XmlNode In clsArticoli
count = count + 1
barcode = clsNodoArt.Attributes("BARCODE").InnerText
qta = clsNodoArt.SelectSingleNode("QTA").InnerText
If Not IsNothing(clsNodoArt.SelectSingleNode("COLLI")) Then
colli = clsNodoArt.SelectSingleNode("COLLI").InnerText
Else
colli = 0
End If
untMis = clsNodoArt.SelectSingleNode("UNT_MIS").InnerText
descrizione = clsNodoArt.SelectSingleNode("DESC").InnerText
messageTable.Rows.Add(New String() {barcode, untMis, qta, colli, descrizione})
' CALCOLO TOTALE NELLE POSSIBILI DIVERSE UNITA DI MISURA
If untMis.ToUpper() = "KG" Then
totKg += Convert.ToDouble(qta)
ElseIf untMis.ToUpper() = "PZ" Then
totPz += Convert.ToDouble(qta)
End If
Next
If count > 0 Then
Dim dTotali As String = ""
If totKg > 0 Then dTotali += totKg.ToString + " KG"
If totPz > 0 Then
If dTotali.Length > 0 Then dTotali += " + "
dTotali += totPz.ToString + " PZ"
End If
dTotali = "TOTALE: " + dTotali
lbTotali.Text = dTotali
DataGrid1.TableStyles.Add(myGridTableStyle) ' attacco stile al datagrid
DataGrid1.DataSource = messageTable ' riempimento datagrid dal datatable
ShowDescrizione()
DataGrid1.Focus()
Else
MsgBox("Non ci sono articoli registrati", MsgBoxStyle.OkOnly, ProgramName)
Me.Close()
End If
Catch ex As Exception
utility.WriteLog(ex.ToString)
MsgBox(ex.ToString)
Me.Close()
End Try
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = ProgramName
List_loader()
End Sub
Private Sub DataGrid1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGrid1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
Dim i, j As Integer
i = DataGrid1.CurrentCell.RowNumber
j = DataGrid1.CurrentCell.ColumnNumber
If j = 1 Then j = 0
Dim barcode As String = DataGrid1.Item(i, j)
formResult = barcode
Me.Close()
'Form1.selectallOnQtaDefault()
ElseIf Asc(e.KeyChar) = Keys.Delete Or Asc(e.KeyChar) = Keys.Back Then
If MsgBox("Sei sicuro di eliminare questa riga?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Dim i, j As Integer
i = DataGrid1.CurrentCell.RowNumber
j = DataGrid1.CurrentCell.ColumnNumber
If j = 1 Then j = 0
Dim barcode As String = DataGrid1.Item(i, j)
Dim Node As XmlNode = docWR.SelectSingleNode("/ROOT/ROW[@BARCODE='" + barcode + "']")
If Node IsNot Nothing Then
Node.ParentNode.RemoveChild(Node)
docWR.Save(FileListaXML)
End If
List_loader()
End If
ElseIf Asc(e.KeyChar) = Keys.Escape Then
Me.Close()
End If
End Sub
Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
ShowDescrizione()
End Sub
Private Sub ShowDescrizione()
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
DataGrid1.Select(i)
Dim descrizione, qta, untMis As String
descrizione = DataGrid1.Item(i, 4)
untMis = DataGrid1.Item(i, 1)
qta = DataGrid1.Item(i, 2)
lblDescrizione.Text = descrizione + " " + qta + " " + untMis + " "
End Sub
End Class

133
Terminalino/FormBarcode.Designer.vb generated Normal file
View File

@@ -0,0 +1,133 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class FormBarcode
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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(FormBarcode))
Me.txtBarcode = New System.Windows.Forms.TextBox
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.btInviaOnly = New System.Windows.Forms.Button
Me.btCloseNoInvia = New System.Windows.Forms.Button
Me.asyncAudioStartup = New System.Windows.Forms.Timer
Me.lblLastInsEt = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.lblTotBarcode = New System.Windows.Forms.Label
Me.lblLastRead = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'txtBarcode
'
Me.txtBarcode.Font = New System.Drawing.Font("Tahoma", 20.0!, System.Drawing.FontStyle.Regular)
Me.txtBarcode.Location = New System.Drawing.Point(15, 4)
Me.txtBarcode.Name = "txtBarcode"
Me.txtBarcode.Size = New System.Drawing.Size(209, 39)
Me.txtBarcode.TabIndex = 7
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(98, 131)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(0, 0)
'
'btInviaOnly
'
Me.btInviaOnly.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btInviaOnly.Location = New System.Drawing.Point(2, 197)
Me.btInviaOnly.Name = "btInviaOnly"
Me.btInviaOnly.Size = New System.Drawing.Size(117, 68)
Me.btInviaOnly.TabIndex = 100
Me.btInviaOnly.Text = "Chiudi"
'
'btCloseNoInvia
'
Me.btCloseNoInvia.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btCloseNoInvia.Location = New System.Drawing.Point(121, 197)
Me.btCloseNoInvia.Name = "btCloseNoInvia"
Me.btCloseNoInvia.Size = New System.Drawing.Size(117, 68)
Me.btCloseNoInvia.TabIndex = 101
Me.btCloseNoInvia.Text = "Sospendi"
'
'asyncAudioStartup
'
'
'lblLastInsEt
'
Me.lblLastInsEt.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.lblLastInsEt.Location = New System.Drawing.Point(15, 61)
Me.lblLastInsEt.Name = "lblLastInsEt"
Me.lblLastInsEt.Size = New System.Drawing.Size(107, 20)
Me.lblLastInsEt.Text = "Ultima lettura:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(15, 165)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(165, 20)
Me.Label1.Text = "Numero barcode letti:"
'
'lblTotBarcode
'
Me.lblTotBarcode.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lblTotBarcode.Location = New System.Drawing.Point(164, 165)
Me.lblTotBarcode.Name = "lblTotBarcode"
Me.lblTotBarcode.Size = New System.Drawing.Size(54, 20)
Me.lblTotBarcode.Text = "Label2"
'
'lblLastRead
'
Me.lblLastRead.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Bold)
Me.lblLastRead.Location = New System.Drawing.Point(15, 81)
Me.lblLastRead.Name = "lblLastRead"
Me.lblLastRead.Size = New System.Drawing.Size(209, 20)
Me.lblLastRead.Text = "Label3"
'
'FormBarcode
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.SystemColors.Window
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.lblLastRead)
Me.Controls.Add(Me.lblTotBarcode)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblLastInsEt)
Me.Controls.Add(Me.btCloseNoInvia)
Me.Controls.Add(Me.btInviaOnly)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.txtBarcode)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FormBarcode"
Me.Text = "-"
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtBarcode As System.Windows.Forms.TextBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents btInviaOnly As System.Windows.Forms.Button
Friend WithEvents btCloseNoInvia As System.Windows.Forms.Button
Public WithEvents asyncAudioStartup As System.Windows.Forms.Timer
Friend WithEvents lblLastInsEt As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblTotBarcode As System.Windows.Forms.Label
Friend WithEvents lblLastRead As System.Windows.Forms.Label
End Class

1513
Terminalino/FormBarcode.resx Normal file
View File

File diff suppressed because it is too large Load Diff

252
Terminalino/FormBarcode.vb Normal file
View File

@@ -0,0 +1,252 @@
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Threading
Imports System.Globalization
Public Class FormBarcode
Dim countList As Integer = 0
Dim _blockIns As Boolean
Dim trd As Thread
Dim barcodeList As New Dictionary(Of String, Integer)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = ProgramName
nameGestione = "LBARCODE"
utility.ChkSettings(nameGestione)
FileListaXML = ""
lblLastRead.Text = ""
lblTotBarcode.Text = "0"
If Not ChkOpenList(DefaultNameFileLista) Is Nothing Then
If File.Exists(FileListaXML) Then
Dim fs As FileStream = New FileStream(FileListaXML, FileMode.Open, System.IO.FileAccess.Read)
Dim streamReader As StreamReader = New StreamReader(fs)
Dim lines = streamReader.ReadToEnd()
streamReader.Close()
fs.Close()
If (lines.Length > 0) Then
Dim array As String() = lines.Split("|")
For Each barcode As String In array
barcodeList.Add(barcode, 1)
Next
lblTotBarcode.Text = barcodeList.Count
End If
End If
Me.Text = Path.GetFileNameWithoutExtension(FileListaXML)
Inizializza()
Else
Me.Close()
End If
End Sub
Public Function ChkOpenList(ByVal file_lista_name)
FileListaXML = nameGestione.Substring(0, 2) + "_" + file_lista_name
Dim result As String = 1
Dim appPath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\"
For i = 1 To 99
Dim fileName As String = FileListaXML + "_" + i.ToString + ".TXT"
If File.Exists(appPath + fileName) Then
Dim frm As Form_ListOutputsBarcode
frm = New Form_ListOutputsBarcode()
frm.ShowDialog()
result = frm.Result()
Exit For
End If
Next
FileListaXML = appPath + FileListaXML + "_" + result + ".TXT"
Return result
End Function
Private Sub txtBarcode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBarcode.KeyPress
If Asc(e.KeyChar) = 13 Then
If txtBarcode.Text <> "" Then
Dim barcode = utility.deletePreambleChar(txtBarcode.Text)
If barcodeList.ContainsKey(barcode) Then
utility.playAlert()
MsgBox("Attenzione: barcode già inserito")
Inizializza()
Else
barcodeList.Add(barcode, 1)
asyncAudioStartup.Enabled = True
Inizializza()
lblTotBarcode.Text = barcodeList.Count
lblLastRead.Text = barcode
saveFileThread()
End If
End If
End If
End Sub
Private Sub saveFileThread()
Dim tws As New ThreadSaveFileTxt(barcodeList, FileListaXML)
trd = New Thread(New ThreadStart(AddressOf tws.callSave))
trd.IsBackground = True
trd.Start()
trd.Join()
End Sub
Public Sub Inizializza()
txtBarcode.Text = ""
btInviaOnly.Visible = True
btCloseNoInvia.Visible = True
'btAddModNote.Visible = True
txtBarcode.Focus()
End Sub
Private Sub InviaEChiudi()
Dim esito As Integer = Invia()
If esito = 1 Then
File.Delete(FileListaXML)
Me.Close()
End If
End Sub
Private Function Invia()
saveFileThread()
If OfflineMode Then ' SALVATAGGIO FILE OUTPUT IN LOCALE
Return 1
Else ' INVIO FILE OUTPUT DIRETTO SU SERVER CON WS
Return RemoveSave()
End If
End Function
Private Function RemoveSave()
Dim userName As String = DefaultUser
Dim password As String = DefaultPassword
Dim profileDB As String = DefaultProfileDB
Dim strText As String = Nothing
For Each key As String In barcodeList.Keys
strText += key + "|"
Next
strText = strText.Substring(0, strText.Length - 1).Trim()
Dim array As String() = Endpoint.Split(":")
If chkConnect Then
If Not utility.CheckPortOpen(array(0), Integer.Parse(array(1))) Then
MsgBox("Connessione al server non riuscita, verificare la connettivita' o disponibilita.")
Return -1
End If
End If
Dim status As Integer = 0
Dim response As String = Nothing
Dim parser As JSONObject = Nothing
Dim message As String
Dim retId As Integer
Dim url As String = "http://" + EndpointREST + "/ems-api/importStocksSlim2k?profileDb=" + profileDB
utility.callRestWs(url, strText, userName, password, status, response, parser)
If (Not IsNothing(parser) And parser.GetJsonArray().Count > 0) Then
Dim item As JSONObject = parser.GetJsonArray().Item(0)
Dim esito As JSONValue = item.GetProperty("esito")
retId = esito.Value
If esito.Value = 1 Then
Dim entity As JSONObject = item.GetProperty("entity").Value
Dim numCollo As String = entity.GetProperty("numCollo").Value
Dim serCollo As String = entity.GetProperty("serCollo").Value
Dim dataCollo As String = entity.GetProperty("dataCollo").Value
Dim Dt As DateTime = DateTime.ParseExact(dataCollo, "dd/MM/yyyy hh:mm:ss", CultureInfo.InvariantCulture)
dataCollo = Dt.ToString("dd/MM/yyyy")
message = "Collo n. " + numCollo + " serie " + serCollo + " del " + dataCollo + " creato da WS con successo"
MsgBox(message)
Return 1
Else
Dim errorMsg As JSONValue = parser.GetProperty("errorMessage")
utility.WriteLog(errorMsg.Value)
message = "Errore nel salvataggio WS"
MsgBox(message)
Return -1
End If
End If
End Function
Private Sub selectButton(ByVal button As String, ByVal focus As Boolean)
Dim fontSelected = New System.Drawing.Font("Tahoma", 12, FontStyle.Regular)
If focus Then fontSelected = New System.Drawing.Font("Tahoma", 12, FontStyle.Bold)
Dim bt As Control = selectControl(button)
bt.Font = fontSelected
End Sub
Private Function selectControl(ByVal controlName As String)
Dim ctlRet As Control = Nothing
For Each ctl As Control In Me.Controls
If ctl.Name = controlName Then
ctlRet = ctl
Exit For
End If
Next
Return ctlRet
End Function
Private Sub btGotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles btCloseNoInvia.GotFocus, btInviaOnly.GotFocus
selectButton(CType(sender, Button).Name, True)
End Sub
Private Sub btLostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles btCloseNoInvia.LostFocus, btInviaOnly.LostFocus
selectButton(CType(sender, Button).Name, False)
End Sub
Private Sub btCloseNoInvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCloseNoInvia.Click
Me.Close()
End Sub
Private Sub btInviaOnly_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btInviaOnly.Click
btInviaOnly.Enabled = False
InviaEChiudi()
btInviaOnly.Enabled = True
End Sub
Private Sub btAddModNote_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
utility.addModNote()
txtBarcode.Focus()
End Sub
Private Sub btCloseNoInvia_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btCloseNoInvia.KeyPress
If Asc(e.KeyChar) = 13 Then
Me.Close()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
txtBarcode.Focus()
End If
End Sub
Private Sub btInviaOnly_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btInviaOnly.KeyPress
If Asc(e.KeyChar) = 13 Then
btInviaOnly.Enabled = False
InviaEChiudi()
btInviaOnly.Enabled = True
ElseIf Asc(e.KeyChar) = Keys.Escape Then
txtBarcode.Focus()
End If
End Sub
Private Sub btAddModNote_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Asc(e.KeyChar) = 13 Then
utility.addModNote()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
txtBarcode.Focus()
End If
End Sub
Private Sub asyncAudioStartup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles asyncAudioStartup.Tick
asyncAudioStartup.Enabled = False
utility.playStartup()
End Sub
End Class

70
Terminalino/Form_ListOutputs.Designer.vb generated Normal file
View File

@@ -0,0 +1,70 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form_ListOutputs
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.DataGrid1 = New System.Windows.Forms.DataGrid
Me.Label1 = New System.Windows.Forms.Label
Me.lblNote = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'DataGrid1
'
Me.DataGrid1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.DataGrid1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular)
Me.DataGrid1.Location = New System.Drawing.Point(3, 72)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(234, 170)
Me.DataGrid1.TabIndex = 2
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(3, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(227, 68)
Me.Label1.Text = "Sono già presenti le seguenti liste non ancora inviate." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Selezionarne una già esi" & _
"stente o crearne una nuova per proseguire."
'
'lblNote
'
Me.lblNote.Location = New System.Drawing.Point(3, 245)
Me.lblNote.Name = "lblNote"
Me.lblNote.Size = New System.Drawing.Size(227, 18)
Me.lblNote.Text = "lblNote"
'
'Form_ListOutputs
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.lblNote)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.DataGrid1)
Me.Name = "Form_ListOutputs"
Me.Text = "Form_ListOutputs"
Me.ResumeLayout(False)
End Sub
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblNote As System.Windows.Forms.Label
End Class

126
Terminalino/Form_ListOutputs.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

125
Terminalino/Form_ListOutputs.vb Normal file
View File

@@ -0,0 +1,125 @@
Imports System.Data
Imports System.IO
Imports System.Xml
Public Class Form_ListOutputs
Private formResult As String
Dim firstFreeId As Integer
Dim appPath As String
Public Function Result() As String
Return formResult
End Function
Private Sub Form_ListOutputs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = ProgramName
Inizializza()
ShowDescrizione()
End Sub
Private Sub Inizializza()
firstFreeId = -1
lblNote.Text = ""
' Create a DataTable
Dim messageTable As New DataTable()
messageTable.Columns.Add("Filename")
messageTable.Columns.Add("Righe")
messageTable.Columns.Add("id")
messageTable.Columns.Add("note")
Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle
Dim gridColumn1 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn1.Width = 150
gridColumn1.MappingName = "Filename"
gridColumn1.HeaderText = "Filename"
myGridTableStyle.GridColumnStyles.Add(gridColumn1)
Dim gridColumn2 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn2.Width = 50
gridColumn2.MappingName = "Righe"
gridColumn2.HeaderText = "Righe"
myGridTableStyle.GridColumnStyles.Add(gridColumn2)
Dim gridColumn3 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn3.Width = 0
gridColumn3.MappingName = "id"
gridColumn3.HeaderText = "id"
myGridTableStyle.GridColumnStyles.Add(gridColumn3)
Dim gridColumn4 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn4.Width = 0
gridColumn4.MappingName = "note"
gridColumn4.HeaderText = "note"
myGridTableStyle.GridColumnStyles.Add(gridColumn4)
' Popolamento datatable
appPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\"
For i = 1 To 99
Dim fileName As String = appPath + FileListaXML + "_" + i.ToString + ".XML"
If (File.Exists(fileName)) Then
docWR = New System.Xml.XmlDocument()
docWR.Load(fileName)
Dim root As XmlElement = docWR.DocumentElement
Dim childNode As XmlNode = docWR.SelectSingleNode("/ROOT/ANNOTAZIONI")
Dim note = childNode.InnerText
Dim nodeList As XmlNodeList = root.SelectNodes("/ROOT/ROW")
messageTable.Rows.Add(New String() {FileListaXML + "_" + i.ToString, nodeList.Count, i, note})
ElseIf firstFreeId < 0 Then
firstFreeId = i
End If
Next
messageTable.Rows.Add(New String() {"Crea Nuova Lista", "+", firstFreeId, ""})
DataGrid1.TableStyles.Add(myGridTableStyle)
DataGrid1.DataSource = messageTable
End Sub
Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
ShowDescrizione()
End Sub
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
formResult = DataGrid1.Item(i, 2)
Me.Close()
End Sub
Private Sub DataGrid1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGrid1.KeyPress
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
If Asc(e.KeyChar) = 13 Then
i = DataGrid1.CurrentCell.RowNumber
formResult = DataGrid1.Item(i, 2)
Me.Close()
ElseIf Asc(e.KeyChar) = 27 Then
'formResult = firstFreeId
formResult = Nothing
Me.Close()
ElseIf Asc(e.KeyChar) = 8 Then
If DataGrid1.Item(i, 1) <> "+" Then ' CONTROLLA CHE NON SIA LA RIGA "CREA NUOVA LISTA"
If MsgBox("Sei sicuro di eliminare la lista selezionata?", MsgBoxStyle.YesNo) = vbYes Then
deleteList()
Inizializza()
End If
End If
End If
End Sub
Private Sub deleteList()
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
Dim toDelete As String = FileListaXML + "_" + DataGrid1.Item(i, 2)
Dim fileName As String = appPath + toDelete + ".XML"
If (File.Exists(fileName)) Then File.Delete(fileName)
End Sub
Private Sub ShowDescrizione()
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
Dim annotazioni As String = DataGrid1.Item(i, 3)
lblNote.Text = "Note: " + annotazioni
End Sub
End Class

70
Terminalino/Form_ListOutputsBarcode.Designer.vb generated Normal file
View File

@@ -0,0 +1,70 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form_ListOutputsBarcode
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.DataGrid1 = New System.Windows.Forms.DataGrid
Me.Label1 = New System.Windows.Forms.Label
Me.lblNote = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'DataGrid1
'
Me.DataGrid1.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.DataGrid1.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular)
Me.DataGrid1.Location = New System.Drawing.Point(3, 72)
Me.DataGrid1.Name = "DataGrid1"
Me.DataGrid1.Size = New System.Drawing.Size(234, 170)
Me.DataGrid1.TabIndex = 2
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(3, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(227, 68)
Me.Label1.Text = "Sono già presenti le seguenti liste non ancora inviate." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Selezionarne una già esi" & _
"stente o crearne una nuova per proseguire."
'
'lblNote
'
Me.lblNote.Location = New System.Drawing.Point(3, 245)
Me.lblNote.Name = "lblNote"
Me.lblNote.Size = New System.Drawing.Size(227, 18)
Me.lblNote.Text = "lblNote"
'
'Form_ListOutputs
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.lblNote)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.DataGrid1)
Me.Name = "Form_ListOutputs"
Me.Text = "Form_ListOutputs"
Me.ResumeLayout(False)
End Sub
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblNote As System.Windows.Forms.Label
End Class

126
Terminalino/Form_ListOutputsBarcode.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

119
Terminalino/Form_ListOutputsBarcode.vb Normal file
View File

@@ -0,0 +1,119 @@
Imports System.Data
Imports System.IO
Imports System.Xml
Public Class Form_ListOutputsBarcode
Private formResult As String
Dim firstFreeId As Integer
Dim appPath As String
Public Function Result() As String
Return formResult
End Function
Private Sub Form_ListOutputs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = ProgramName
Inizializza()
ShowDescrizione()
End Sub
Private Sub Inizializza()
firstFreeId = -1
lblNote.Text = ""
' Create a DataTable
Dim messageTable As New DataTable()
messageTable.Columns.Add("Filename")
messageTable.Columns.Add("Righe")
messageTable.Columns.Add("id")
messageTable.Columns.Add("note")
Dim myGridTableStyle As DataGridTableStyle = New DataGridTableStyle
Dim gridColumn1 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn1.Width = 150
gridColumn1.MappingName = "Filename"
gridColumn1.HeaderText = "Filename"
myGridTableStyle.GridColumnStyles.Add(gridColumn1)
Dim gridColumn2 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn2.Width = 50
gridColumn2.MappingName = "Righe"
gridColumn2.HeaderText = "Righe"
myGridTableStyle.GridColumnStyles.Add(gridColumn2)
Dim gridColumn3 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn3.Width = 0
gridColumn3.MappingName = "id"
gridColumn3.HeaderText = "id"
myGridTableStyle.GridColumnStyles.Add(gridColumn3)
Dim gridColumn4 As DataGridTextBoxColumn = New DataGridTextBoxColumn()
gridColumn4.Width = 0
gridColumn4.MappingName = "note"
gridColumn4.HeaderText = "note"
myGridTableStyle.GridColumnStyles.Add(gridColumn4)
' Popolamento datatable
appPath = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\"
For i = 1 To 99
Dim fileName As String = appPath + FileListaXML + "_" + i.ToString + ".TXT"
If (File.Exists(fileName)) Then
messageTable.Rows.Add(New String() {FileListaXML + "_" + i.ToString, 1, i, ""})
ElseIf firstFreeId < 0 Then
firstFreeId = i
End If
Next
messageTable.Rows.Add(New String() {"Crea Nuova Lista", "+", firstFreeId, ""})
DataGrid1.TableStyles.Add(myGridTableStyle)
DataGrid1.DataSource = messageTable
End Sub
Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
ShowDescrizione()
End Sub
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
formResult = DataGrid1.Item(i, 2)
Me.Close()
End Sub
Private Sub DataGrid1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGrid1.KeyPress
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
If Asc(e.KeyChar) = 13 Then
i = DataGrid1.CurrentCell.RowNumber
formResult = DataGrid1.Item(i, 2)
Me.Close()
ElseIf Asc(e.KeyChar) = 27 Then
'formResult = firstFreeId
formResult = Nothing
Me.Close()
ElseIf Asc(e.KeyChar) = 8 Then
If DataGrid1.Item(i, 1) <> "+" Then ' CONTROLLA CHE NON SIA LA RIGA "CREA NUOVA LISTA"
If MsgBox("Sei sicuro di eliminare la lista selezionata?", MsgBoxStyle.YesNo) = vbYes Then
deleteList()
Inizializza()
End If
End If
End If
End Sub
Private Sub deleteList()
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
Dim toDelete As String = FileListaXML + "_" + DataGrid1.Item(i, 2)
Dim fileName As String = appPath + toDelete + ".XML"
If (File.Exists(fileName)) Then File.Delete(fileName)
End Sub
Private Sub ShowDescrizione()
Dim i As Integer
i = DataGrid1.CurrentCell.RowNumber
Dim annotazioni As String = DataGrid1.Item(i, 3)
lblNote.Text = "Note: " + annotazioni
End Sub
End Class

70
Terminalino/HttpUtility.vb Normal file
View File

@@ -0,0 +1,70 @@
Imports System.Text
Imports System.Globalization
Public Class HttpUtility
Dim s_entityEndingChars() As Char = {";"c, "&"c}
Public Function HtmlDecode(ByVal s As String)
If IsNothing(s) Then
Return Nothing
End If
If (s.IndexOf("&") < 0) Then
Return s
End If
Dim sb = New System.Text.StringBuilder()
Dim output = New System.Text.StringBuilder()
HtmlDecode(s, output)
Return sb.ToString()
End Function
Public Sub HtmlDecode(ByVal s As String, ByRef sb As StringBuilder)
If Not IsNothing(s) Then
If (s.IndexOf("&") < 0) Then
sb.Append(s)
Else
Dim length = s.Length
Dim i As Integer
For i = 0 To i < s.Length
Dim ch = s.Chars(i)
If (ch = "&") Then
Dim num3 = s.IndexOfAny(s_entityEndingChars, i + 1)
If (num3 > 0) And (s.Chars(num3) = ";") Then
Dim entity = s.Substring(i + 1, (num3 - i) - 1)
If (entity.Length > 1) And (entity.Chars(0) = "#") Then
Try
If (entity.Chars(1) = "x") Or (entity.Chars(1) = "X") Then
ch = ChrW(Integer.Parse(entity.Substring(2), NumberStyles.AllowHexSpecifier))
Else
ch = ChrW(Integer.Parse(entity.Substring(1)))
i = num3
End If
Catch ex As FormatException
i = i + 1
Catch ex As ArgumentException
i = i + 1
End Try
Else
'i = num3
'Dim ch2 As Char = HtmlEntities.Lookup(entity)
'If Not ch2 = "\0" Then
' ch = ch2
'Else
' sb.Append("&")
' sb.Append(entity)
' sb.Append(";")
'End If
End If
End If
End If
sb.Append(ch)
Next
End If
End If
End Sub
End Class

97
Terminalino/Login.Designer.vb generated Normal file
View File

@@ -0,0 +1,97 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Login
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.txtpassword = New System.Windows.Forms.TextBox
Me.txtUsername = New System.Windows.Forms.TextBox
Me.btLogin = New System.Windows.Forms.Button
Me.Timer1 = New System.Windows.Forms.Timer
Me.btOffline = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.SuspendLayout()
'
'txtpassword
'
Me.txtpassword.Location = New System.Drawing.Point(57, 42)
Me.txtpassword.Name = "txtpassword"
Me.txtpassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtpassword.Size = New System.Drawing.Size(124, 23)
Me.txtpassword.TabIndex = 5
'
'txtUsername
'
Me.txtUsername.Location = New System.Drawing.Point(57, 13)
Me.txtUsername.Name = "txtUsername"
Me.txtUsername.Size = New System.Drawing.Size(124, 23)
Me.txtUsername.TabIndex = 4
'
'btLogin
'
Me.btLogin.Location = New System.Drawing.Point(57, 80)
Me.btLogin.Name = "btLogin"
Me.btLogin.Size = New System.Drawing.Size(124, 56)
Me.btLogin.TabIndex = 3
Me.btLogin.Text = "Login"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'btOffline
'
Me.btOffline.Location = New System.Drawing.Point(57, 179)
Me.btOffline.Name = "btOffline"
Me.btOffline.Size = New System.Drawing.Size(124, 54)
Me.btOffline.TabIndex = 6
Me.btOffline.Text = "Offline"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ScrollBar
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(240, 151)
'
'Login
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.btOffline)
Me.Controls.Add(Me.txtpassword)
Me.Controls.Add(Me.txtUsername)
Me.Controls.Add(Me.btLogin)
Me.Controls.Add(Me.Panel1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Login"
Me.Text = "Login"
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtpassword As System.Windows.Forms.TextBox
Friend WithEvents txtUsername As System.Windows.Forms.TextBox
Friend WithEvents btLogin As System.Windows.Forms.Button
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents btOffline As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
End Class

129
Terminalino/Login.resx Normal file
View File

@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

199
Terminalino/Login.vb Normal file
View File

@@ -0,0 +1,199 @@
Imports System.Xml
Imports System.IO
Imports System.Xml.Serialization
Public Class Login
'Private action As String = "no_login"
Private formResult As String = "-1"
Public Function Result() As String
Return formResult
End Function
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'txtUsername.Text = "CENTRALE22"
'txtpassword.Text = "gf192168110001"
' txtpassword.Text = "shops01"
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT")
Dim auto_authentication As String
auto_authentication = utility.readCreateNodeIfNotExist("N", "AUTO_AUTH", childNode, docConfig)
If Not DefaultUser = Nothing Then
txtUsername.Text = DefaultUser
If auto_authentication = "S" Then txtpassword.Text = DefaultPassword
End If
End Sub
Private Sub Login()
Try
'Dim ws As New WS_Retail.WS_Retail()
'Dim ret_class As WS_Retail.return_class
Dim userName As String = txtUsername.Text
Dim password As String = txtpassword.Text
Dim profileDB, codMdep As String
checkVarObbl(Endpoint, "ENDPOINT", False)
'Endpoint = "93.63.158.38:8086"
If (userName <> DefaultUser Or password <> DefaultPassword) Then
Dim status As Integer = 0
Dim response As String = Nothing
Dim parser As JSONObject = Nothing
Dim xmlreturned As String = ""
Dim strText = "<ROOT><PARAMETER><USERNAME>" + userName + "</USERNAME><PASSWORD>" + password + "</PASSWORD></PARAMETER></ROOT>"
Dim url As String = "http://" + EndpointREST + "/ems-api/loginRetail"
utility.callRestWs(url, utility.stringToBase64(strText), userName, password, status, response, parser)
If (Not IsNothing(parser)) Then
Dim esito As JSONValue = parser.GetProperty("esito")
If (esito.Value = 1) Then
'action = "login_ok"
Dim fileItem As JSONValue = parser.GetProperty("xml")
Dim fileXml As JSONObject = fileItem.Value
Dim fileb64Content As JSONValue = fileXml.GetProperty("fileb64Content")
xmlreturned = utility.base64ToString(fileb64Content.Value())
Dim docXmlRet As System.Xml.XmlDocument
docXmlRet = New System.Xml.XmlDocument()
docXmlRet.LoadXml(xmlreturned)
Dim childNode As XmlNode = docXmlRet.SelectSingleNode("/ROOT/USERS")
userName = childNode.Attributes.ItemOf("USER_NAME").InnerText
profileDB = childNode.SelectSingleNode("PROFILE_DB").InnerText
codMdep = childNode.SelectSingleNode("COD_MDEP").InnerText
Dim docConfig As System.Xml.XmlDocument
docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + (FileConfig))
childNode = docConfig.SelectSingleNode("/ROOT")
utility.updateNodeIfNotExist(userName, "DEFAULTUSER", childNode, docConfig) ' childNode.SelectSingleNode("DEFAULTUSER").InnerText = userName
utility.updateNodeIfNotExist(password, "DEFAULTPASSWORD", childNode, docConfig)
utility.updateNodeIfNotExist(profileDB, "DEFAULTPROFILEDB", childNode, docConfig)
utility.updateNodeIfNotExist(codMdep, "DEFAULTCODMDEP", childNode, docConfig)
docConfig.Save(G_strDir + "\" + FileConfig)
DefaultCodMDep = codMdep
DefaultUser = userName
DefaultPassword = password
DefaultProfileDB = profileDB
formResult = "1"
Me.Close()
Else
Dim errorMsg As JSONValue = parser.GetProperty("errorMessage")
MsgBox(errorMsg.Value)
utility.WriteLog(errorMsg.Value)
proseguiOffline_1()
End If
Else
formResult = "-1"
'Me.Close()
End If
Else
'action = "login_ok"
formResult = "1"
Me.Close()
End If
Catch ex As Exception
'MsgBox("Catch Login: " + ex.ToString)
utility.WriteLog(ex.ToString)
proseguiOffline_1()
End Try
End Sub
Private Sub btLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLogin.Click
Login()
End Sub
Private Sub txtUsername_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUsername.KeyDown
If e.KeyCode = Keys.Down Then txtpassword.Focus()
End Sub
Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown
If e.KeyCode = Keys.Up Then
txtUsername.Focus()
ElseIf e.KeyCode = Keys.Down Then
btLogin.Focus()
End If
End Sub
Private Sub txtUsername_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUsername.KeyPress
If Asc(e.KeyChar) = 13 Then
txtUsername.Text = utility.deletePreambleChar(txtUsername.Text)
txtpassword.Focus()
End If
End Sub
Private Sub txtpassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpassword.KeyPress
If Asc(e.KeyChar) = 13 Then
txtpassword.Text = utility.deletePreambleChar(txtpassword.Text)
btLogin.Focus()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
txtUsername.Focus()
End If
End Sub
Private Sub btLogin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btLogin.KeyPress
If Asc(e.KeyChar) = 13 Then
Login()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
txtpassword.Focus()
End If
End Sub
Private Sub btOffline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOffline.Click
proseguiOffline_2()
End Sub
Private Sub proseguiOffline_1()
If (MsgBox("Errore di autenticazione, procedere in modalità offline?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes) Then
'action = "login_ok"
proseguiOffline_2()
Else
'action = "no_login"
End If
End Sub
Private Sub proseguiOffline_2()
'checkVarObbl(FileDataXML, "FILE_XML_ARTICOLI", True)
checkVarObbl(FileOutputXML, "FILE_XML_OUTPUT", False)
formResult = "1"
OfflineMode = True
Me.Close()
End Sub
Private Sub checkVarObbl(ByVal value As String, ByVal nodeName As String, ByVal checkFile As Boolean)
If value Is Nothing Then
MsgBox("Nodo " + nodeName + " assente")
Me.Close()
Else
If value.Length = 0 Then
MsgBox("Nodo " + nodeName + " vuoto")
Me.Close()
Else
If checkFile Then
If Not File.Exists(value) Then
MsgBox("Il file " + nodeName + " '" + value + "' non esiste")
Me.Close()
End If
End If
End If
End If
End Sub
'Private Sub Login_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
' If (action = "no_login") Then
' formResult = -1
' End If
'End Sub
End Class

224
Terminalino/Menu.Designer.vb generated Normal file
View File

@@ -0,0 +1,224 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Menu
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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(Menu))
Me.lnkOrdAcquisto = New System.Windows.Forms.LinkLabel
Me.lnkAccMerci = New System.Windows.Forms.LinkLabel
Me.lnkInventario = New System.Windows.Forms.LinkLabel
Me.Timer1 = New System.Windows.Forms.Timer
Me.lnkEsci = New System.Windows.Forms.LinkLabel
Me.pb_setOrdini = New System.Windows.Forms.PictureBox
Me.pb_setAccettazione = New System.Windows.Forms.PictureBox
Me.pb_setInventario = New System.Windows.Forms.PictureBox
Me.pb_setPickOrd = New System.Windows.Forms.PictureBox
Me.lnkPickOrd = New System.Windows.Forms.LinkLabel
Me.pb_barcode = New System.Windows.Forms.PictureBox
Me.pbSettingAdd = New System.Windows.Forms.PictureBox
Me.pb_setDocInt = New System.Windows.Forms.PictureBox
Me.lnkDocInt = New System.Windows.Forms.LinkLabel
Me.lnkReadBarcode = New System.Windows.Forms.LinkLabel
Me.SuspendLayout()
'
'lnkOrdAcquisto
'
Me.lnkOrdAcquisto.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkOrdAcquisto.ForeColor = System.Drawing.Color.Black
Me.lnkOrdAcquisto.Location = New System.Drawing.Point(2, 9)
Me.lnkOrdAcquisto.Name = "lnkOrdAcquisto"
Me.lnkOrdAcquisto.Size = New System.Drawing.Size(199, 29)
Me.lnkOrdAcquisto.TabIndex = 0
Me.lnkOrdAcquisto.Text = "1. Ordini di Acquisto"
Me.lnkOrdAcquisto.Visible = False
'
'lnkAccMerci
'
Me.lnkAccMerci.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkAccMerci.ForeColor = System.Drawing.Color.Black
Me.lnkAccMerci.Location = New System.Drawing.Point(3, 50)
Me.lnkAccMerci.Name = "lnkAccMerci"
Me.lnkAccMerci.Size = New System.Drawing.Size(199, 30)
Me.lnkAccMerci.TabIndex = 1
Me.lnkAccMerci.Text = "2. Accettazione Merci"
Me.lnkAccMerci.Visible = False
'
'lnkInventario
'
Me.lnkInventario.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkInventario.ForeColor = System.Drawing.Color.Black
Me.lnkInventario.Location = New System.Drawing.Point(3, 92)
Me.lnkInventario.Name = "lnkInventario"
Me.lnkInventario.Size = New System.Drawing.Size(124, 31)
Me.lnkInventario.TabIndex = 2
Me.lnkInventario.Text = "3. Inventario"
Me.lnkInventario.Visible = False
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'lnkEsci
'
Me.lnkEsci.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.lnkEsci.ForeColor = System.Drawing.Color.Black
Me.lnkEsci.Location = New System.Drawing.Point(92, 244)
Me.lnkEsci.Name = "lnkEsci"
Me.lnkEsci.Size = New System.Drawing.Size(148, 20)
Me.lnkEsci.TabIndex = 6
Me.lnkEsci.Text = "Premere 0 per uscire"
Me.lnkEsci.Visible = False
'
'pb_setOrdini
'
Me.pb_setOrdini.Image = CType(resources.GetObject("pb_setOrdini.Image"), System.Drawing.Image)
Me.pb_setOrdini.Location = New System.Drawing.Point(205, 4)
Me.pb_setOrdini.Name = "pb_setOrdini"
Me.pb_setOrdini.Size = New System.Drawing.Size(32, 34)
Me.pb_setOrdini.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_setOrdini.Visible = False
'
'pb_setAccettazione
'
Me.pb_setAccettazione.Image = CType(resources.GetObject("pb_setAccettazione.Image"), System.Drawing.Image)
Me.pb_setAccettazione.Location = New System.Drawing.Point(206, 46)
Me.pb_setAccettazione.Name = "pb_setAccettazione"
Me.pb_setAccettazione.Size = New System.Drawing.Size(32, 34)
Me.pb_setAccettazione.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_setAccettazione.Visible = False
'
'pb_setInventario
'
Me.pb_setInventario.Image = CType(resources.GetObject("pb_setInventario.Image"), System.Drawing.Image)
Me.pb_setInventario.Location = New System.Drawing.Point(206, 89)
Me.pb_setInventario.Name = "pb_setInventario"
Me.pb_setInventario.Size = New System.Drawing.Size(32, 34)
Me.pb_setInventario.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_setInventario.Visible = False
'
'pb_setPickOrd
'
Me.pb_setPickOrd.Image = CType(resources.GetObject("pb_setPickOrd.Image"), System.Drawing.Image)
Me.pb_setPickOrd.Location = New System.Drawing.Point(206, 131)
Me.pb_setPickOrd.Name = "pb_setPickOrd"
Me.pb_setPickOrd.Size = New System.Drawing.Size(32, 34)
Me.pb_setPickOrd.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_setPickOrd.Visible = False
'
'lnkPickOrd
'
Me.lnkPickOrd.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkPickOrd.ForeColor = System.Drawing.Color.Black
Me.lnkPickOrd.Location = New System.Drawing.Point(3, 134)
Me.lnkPickOrd.Name = "lnkPickOrd"
Me.lnkPickOrd.Size = New System.Drawing.Size(199, 31)
Me.lnkPickOrd.TabIndex = 3
Me.lnkPickOrd.Text = "4. Picking da Ordine"
Me.lnkPickOrd.Visible = False
'
'pb_barcode
'
Me.pb_barcode.Image = CType(resources.GetObject("pb_barcode.Image"), System.Drawing.Image)
Me.pb_barcode.Location = New System.Drawing.Point(168, 89)
Me.pb_barcode.Name = "pb_barcode"
Me.pb_barcode.Size = New System.Drawing.Size(32, 34)
Me.pb_barcode.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
'
'pbSettingAdd
'
Me.pbSettingAdd.Image = CType(resources.GetObject("pbSettingAdd.Image"), System.Drawing.Image)
Me.pbSettingAdd.Location = New System.Drawing.Point(130, 89)
Me.pbSettingAdd.Name = "pbSettingAdd"
Me.pbSettingAdd.Size = New System.Drawing.Size(32, 34)
Me.pbSettingAdd.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
'
'pb_setDocInt
'
Me.pb_setDocInt.Image = CType(resources.GetObject("pb_setDocInt.Image"), System.Drawing.Image)
Me.pb_setDocInt.Location = New System.Drawing.Point(205, 171)
Me.pb_setDocInt.Name = "pb_setDocInt"
Me.pb_setDocInt.Size = New System.Drawing.Size(32, 34)
Me.pb_setDocInt.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pb_setDocInt.Visible = False
'
'lnkDocInt
'
Me.lnkDocInt.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkDocInt.ForeColor = System.Drawing.Color.Black
Me.lnkDocInt.Location = New System.Drawing.Point(2, 174)
Me.lnkDocInt.Name = "lnkDocInt"
Me.lnkDocInt.Size = New System.Drawing.Size(199, 31)
Me.lnkDocInt.TabIndex = 4
Me.lnkDocInt.Text = "5. Documenti interni"
Me.lnkDocInt.Visible = False
'
'lnkReadBarcode
'
Me.lnkReadBarcode.Font = New System.Drawing.Font("Tahoma", 15.0!, System.Drawing.FontStyle.Regular)
Me.lnkReadBarcode.ForeColor = System.Drawing.Color.Black
Me.lnkReadBarcode.Location = New System.Drawing.Point(2, 212)
Me.lnkReadBarcode.Name = "lnkReadBarcode"
Me.lnkReadBarcode.Size = New System.Drawing.Size(199, 28)
Me.lnkReadBarcode.TabIndex = 5
Me.lnkReadBarcode.Text = "6. Lettura barcode"
'
'Menu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.lnkReadBarcode)
Me.Controls.Add(Me.pb_setDocInt)
Me.Controls.Add(Me.lnkDocInt)
Me.Controls.Add(Me.pbSettingAdd)
Me.Controls.Add(Me.pb_barcode)
Me.Controls.Add(Me.pb_setPickOrd)
Me.Controls.Add(Me.lnkPickOrd)
Me.Controls.Add(Me.pb_setInventario)
Me.Controls.Add(Me.pb_setAccettazione)
Me.Controls.Add(Me.pb_setOrdini)
Me.Controls.Add(Me.lnkEsci)
Me.Controls.Add(Me.lnkInventario)
Me.Controls.Add(Me.lnkAccMerci)
Me.Controls.Add(Me.lnkOrdAcquisto)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Menu"
Me.Text = "Menu"
Me.ResumeLayout(False)
End Sub
Friend WithEvents lnkOrdAcquisto As System.Windows.Forms.LinkLabel
Friend WithEvents lnkAccMerci As System.Windows.Forms.LinkLabel
Friend WithEvents lnkInventario As System.Windows.Forms.LinkLabel
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents lnkEsci As System.Windows.Forms.LinkLabel
Friend WithEvents pb_setOrdini As System.Windows.Forms.PictureBox
Friend WithEvents pb_setAccettazione As System.Windows.Forms.PictureBox
Friend WithEvents pb_setInventario As System.Windows.Forms.PictureBox
Friend WithEvents pb_setPickOrd As System.Windows.Forms.PictureBox
Friend WithEvents lnkPickOrd As System.Windows.Forms.LinkLabel
Friend WithEvents pb_barcode As System.Windows.Forms.PictureBox
Friend WithEvents pbSettingAdd As System.Windows.Forms.PictureBox
Friend WithEvents pb_setDocInt As System.Windows.Forms.PictureBox
Friend WithEvents lnkDocInt As System.Windows.Forms.LinkLabel
Friend WithEvents lnkReadBarcode As System.Windows.Forms.LinkLabel
End Class

1115
Terminalino/Menu.resx Normal file
View File

File diff suppressed because it is too large Load Diff

355
Terminalino/Menu.vb Normal file
View File

@@ -0,0 +1,355 @@
Imports System.IO
Imports System.Xml
Public Class Menu
Dim frmSplash As splash = New splash()
Dim enableOrdini As Boolean
Dim enableAccettazione As Boolean
Dim enableInventario As Boolean
Dim enablePickOrd
Public Sub ReadConfig()
Try
G_strDir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
G_version = System.Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString
If (System.IO.File.Exists(G_strDir + "\" + FileConfig)) Then
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + (FileConfig))
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT")
idTerm = childNode.SelectSingleNode("ID_DISP").InnerText
If Not childNode.SelectSingleNode("FILE_XML_ARTICOLI") Is Nothing Then FileDataXML = childNode.SelectSingleNode("FILE_XML_ARTICOLI").InnerText
If Not childNode.SelectSingleNode("FILE_XML_OUTPUT") Is Nothing Then FileOutputXML = childNode.SelectSingleNode("FILE_XML_OUTPUT").InnerText
FileOutputXML = utility.readCreateNodeIfNotExist("\", "FILE_XML_OUTPUT", childNode, docConfig)
Dim appPath As String = Path.GetDirectoryName(FileOutputXML) + "\"
childNode.SelectSingleNode("FILE_XML_OUTPUT").InnerText = Path.GetDirectoryName(FileOutputXML) + "\"
DefaultCodMDep = utility.readCreateNodeIfNotExist("00", "DEFAULTCODMDEP", childNode, docConfig)
Endpoint = utility.readCreateNodeIfNotExist(Nothing, "ENDPOINT", childNode, docConfig)
EndpointREST = utility.readCreateNodeIfNotExist(Nothing, "ENDPOINT_REST", childNode, docConfig)
DefaultUser = utility.readCreateNodeIfNotExist("", "DEFAULTUSER", childNode, docConfig)
DefaultPassword = utility.readCreateNodeIfNotExist("", "DEFAULTPASSWORD", childNode, docConfig)
DefaultProfileDB = utility.readCreateNodeIfNotExist("", "DEFAULTPROFILEDB", childNode, docConfig)
gDaysCacheDelete = Val(utility.readCreateNodeIfNotExist("2", "DEL_CACHE_AFTER_DAYS", childNode, docConfig))
childNode = docConfig.SelectSingleNode("/ROOT/SET_" + FileOutputOrdini)
If utility.chkXmlAttr("S", "ENABLED", childNode, docConfig) = "S" Then enableOrdini = True Else enableOrdini = False
childNode = docConfig.SelectSingleNode("/ROOT/SET_" + FileOutputAccettazione)
If utility.chkXmlAttr("S", "ENABLED", childNode, docConfig) = "S" Then enableAccettazione = True Else enableAccettazione = False
childNode = docConfig.SelectSingleNode("/ROOT/SET_" + FileOutputInventario)
If utility.chkXmlAttr("S", "ENABLED", childNode, docConfig) = "S" Then enableInventario = True Else enableInventario = False
childNode = docConfig.SelectSingleNode("/ROOT/SET_" + FileOutputPickOrd)
If utility.chkXmlAttr("S", "ENABLED", childNode, docConfig) = "S" Then enablePickOrd = True Else enablePickOrd = False
docConfig.Save(G_strDir + "\" + FileConfig)
Else
MsgBox("File config non trovato")
Application.Exit()
End If
Catch ex As Exception
utility.WriteLog(ex.ToString)
MsgBox("Errore nel caricamento file di configurazione")
Application.Exit()
End Try
End Sub
Public Sub loader()
Try
Dim result As String = 1
Dim defaultOffline As String
Dim docConfig = New System.Xml.XmlDocument()
Timer1.Enabled = False
frmSplash.Close()
If System.IO.File.Exists(G_strDir + "\" + FileConfig) Then
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT")
defaultOffline = utility.readCreateNodeIfNotExist("N", "DEFAULTOFFLINE", childNode, docConfig)
docConfig.Save(G_strDir + "\" + FileConfig)
If (defaultOffline.ToUpper = "S") Then
OfflineMode = True
Else
Dim frmLogin As Login
frmLogin = New Login()
frmLogin.ShowDialog()
result = frmLogin.Result()
If (result = "-1") Then
Application.Exit()
End If
End If
vis_invis()
lnkOrdAcquisto.Focus()
Else
MsgBox("File config.xml non trovato")
Application.Exit()
End If
Catch ex As Exception
MsgBox("Catch loader: " + ex.ToString)
utility.WriteLog(ex.ToString)
Application.Exit()
End Try
End Sub
Private Sub vis_invis()
lnkAccMerci.Visible = Not lnkAccMerci.Visible
lnkOrdAcquisto.Visible = Not lnkOrdAcquisto.Visible
lnkInventario.Visible = Not lnkInventario.Visible
lnkEsci.Visible = Not lnkEsci.Visible
lnkPickOrd.Visible = Not lnkPickOrd.Visible
lnkDocInt.Visible = Not lnkDocInt.Visible
pb_setInventario.Visible = Not pb_setInventario.Visible
pb_setOrdini.Visible = Not pb_setOrdini.Visible
pb_setAccettazione.Visible = Not pb_setAccettazione.Visible
pb_setPickOrd.Visible = Not pb_setPickOrd.Visible
pb_setDocInt.Visible = Not pb_setDocInt.Visible
End Sub
Dim thread As Threading.Thread
Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tws As New ThreadTime
thread = New Threading.Thread(AddressOf tws.checkDate)
thread.IsBackground = True
thread.Start()
Timer1.Enabled = True
frmSplash.Show()
docRD = New System.Xml.XmlDocument()
docRD = Nothing
ReadConfig()
Me.Text = "Integry Smart Enterprise " + G_version
utility.cache_delete()
If Not enableOrdini Then
lnkOrdAcquisto.Enabled = False
pb_setOrdini.Enabled = False
End If
If Not enableAccettazione Then
lnkAccMerci.Enabled = False
pb_setAccettazione.Enabled = False
End If
If Not enableInventario Then
lnkInventario.Enabled = False
pb_setInventario.Enabled = False
End If
If Not enablePickOrd Then
lnkPickOrd.Enabled = False
pb_setPickOrd.Enabled = False
End If
End Sub
Private Sub Menu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
gestione_KeyPress(e.KeyChar)
End Sub
Private Sub gestione_KeyPress(ByVal key As String)
If key = "1" And enableOrdini Then
openOrdiniAcquisto()
ElseIf key = "2" And enableAccettazione Then
openAccMerci()
ElseIf key = "3" And enableInventario Then
openInventario()
ElseIf key = "4" And enablePickOrd Then
openPickOrd()
ElseIf key = "5" Then
openDocumentiInterni()
ElseIf key = "6" Then
openLetturaBarcode()
ElseIf key = "0" Then ' or Convert.ToDouble(key) = Keys.Escape
Application.Exit()
End If
End Sub
Private Sub openDocumentiInterni()
gAccettazione = False
gOrdini = False
gInventario = False
gPickOrd = False
gDocInterni = True
Prosegui()
End Sub
Private Sub openLetturaBarcode()
gAccettazione = False
gOrdini = False
gInventario = True
gPickOrd = False
gDocInterni = False
gInventario = False
Dim frm As FormBarcode
frm = New FormBarcode()
frm.ShowDialog()
End Sub
Private Sub openInventario()
gAccettazione = False
gOrdini = False
gInventario = True
gPickOrd = False
gDocInterni = False
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_INVENTARIO")
If Not IsNothing(childNode.Attributes.ItemOf("BARCODE_LEN")) Then
barcodeLength = childNode.Attributes.ItemOf("BARCODE_LEN").InnerText
End If
If Not IsNothing(childNode.Attributes.ItemOf("PRECODE")) Then
precode = childNode.Attributes.ItemOf("PRECODE").InnerText
End If
If Not IsNothing(childNode.Attributes.ItemOf("ZONA_OBBL")) Then
If childNode.Attributes.ItemOf("ZONA_OBBL").InnerText.Equals("S") Then
chkZonaObbl = True
Else
chkZonaObbl = False
End If
End If
If Not IsNothing(childNode.Attributes.ItemOf("CHK_CONNECT")) Then
If childNode.Attributes.ItemOf("CHK_CONNECT").InnerText.Equals("S") Then
chkConnect = True
Else
chkConnect = False
End If
End If
Prosegui()
End Sub
Private Sub openOrdiniAcquisto()
gAccettazione = False
gOrdini = True
gInventario = False
gPickOrd = False
gDocInterni = False
Prosegui()
End Sub
Private Sub openAccMerci()
gAccettazione = True
gOrdini = False
gInventario = False
gPickOrd = False
gDocInterni = False
Prosegui()
End Sub
Private Sub openPickOrd()
gAccettazione = False
gOrdini = False
gInventario = False
gPickOrd = True
gDocInterni = False
Prosegui_pickOrd()
End Sub
Private Sub Prosegui()
Dim frm As Form1
frm = New Form1()
frm.ShowDialog()
End Sub
Private Sub Prosegui_pickOrd()
Dim frm As Form1_pickOrd
frm = New Form1_pickOrd()
frm.ShowDialog()
End Sub
Private Sub openSettings(ByVal gestione)
Dim frmPopupPassword As frmPopupPassword
frmPopupPassword = New frmPopupPassword()
frmPopupPassword.ShowDialog()
Dim result As String = frmPopupPassword.Result()
frmPopupPassword = Nothing
If result = "1718" Then
Dim frmSettings As frmSettings
frmSettings = New frmSettings(gestione)
frmSettings.ShowDialog()
ElseIf result <> "0" Then
MessageBox.Show("Password non corretta")
End If
End Sub
Private Sub lnkAccMerci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles lnkAccMerci.KeyPress, lnkInventario.KeyPress, lnkOrdAcquisto.KeyPress, lnkDocInt.KeyPress, lnkPickOrd.KeyPress, lnkEsci.KeyPress
gestione_KeyPress(e.KeyChar)
End Sub
Private Sub lnkAccMerci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkAccMerci.Click
openAccMerci()
End Sub
Private Sub lnkOrdAcquisto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkOrdAcquisto.Click
openOrdiniAcquisto()
End Sub
Private Sub lnkInventario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkInventario.Click
openInventario()
End Sub
Private Sub lnkPickOrd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkPickOrd.Click
openPickOrd()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
loader()
End Sub
Private Sub lnkEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkEsci.Click
Application.Exit()
End Sub
Private Sub pb_setOrdini_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_setOrdini.Click
openSettings(FileOutputOrdini)
End Sub
Private Sub pb_setAccettazione_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_setAccettazione.Click
openSettings(FileOutputAccettazione)
End Sub
Private Sub pb_setInventario_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_setInventario.Click
openSettings(FileOutputInventario)
End Sub
Private Sub pb_setPickOrd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_setPickOrd.Click
openSettings(FileOutputPickOrd)
End Sub
Private Sub pb_barcode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_barcode.Click
Dim frmPopupPassword As frmPopupPassword
frmPopupPassword = New frmPopupPassword()
frmPopupPassword.ShowDialog()
Dim result As String = frmPopupPassword.Result()
frmPopupPassword = Nothing
If result = "1718" Then
Dim frmSettingsBarcode As frmSettingsBarcode = New frmSettingsBarcode()
frmSettingsBarcode.ShowDialog()
ElseIf result <> "0" Then
MessageBox.Show("Password non corretta")
End If
End Sub
Private Sub pbSettingAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbSettingAdd.Click
Dim frmSettingsZona As frmSettingsZona
frmSettingsZona = New frmSettingsZona()
frmSettingsZona.ShowDialog()
End Sub
Private Sub LinkLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkDocInt.Click
openDocumentiInterni()
End Sub
Private Sub pb_setDocInt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pb_setDocInt.Click
openSettings(FileOutputDocInterni)
End Sub
Private Sub lnkReadBarcode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkReadBarcode.Click
openLetturaBarcode()
End Sub
End Class

65
Terminalino/Module1.vb Normal file
View File

@@ -0,0 +1,65 @@
Imports System.IO
Imports System.Xml
Module Module1
Public docRD As System.Xml.XmlDocument
Public docWR As System.Xml.XmlDocument
Public FileDataXML As String
Public FileOutputXML As String
Public FileListaXML As String = ""
Public DefaultNameFileLista As String = "LISTA"
Public FileOutputOrdini As String = "ORDINI"
Public FileOutputAccettazione As String = "ACCETTAZIONE"
Public FileOutputInventario As String = "INVENTARIO"
Public FileOutputPickOrd As String = "PICKING_ORDINE"
Public FileOutputDocInterni As String = "DLAV"
Public DefaultNodeArtName As String = "ROW"
Public nameGestione As String
Public nodeName As String
Public FileExpXML As String
Public precode As String = ""
Public barcodeLength As String = ""
Public zona As String = Nothing
Public idInventario As String = Nothing
Public zoneInvetariate As String = Nothing
Public tipoDoc As String = Nothing
Public G_strDir As String
Public G_version As String
Public G_incrementMode As String
Public G_hybridMode As String
Public G_um As String
Public G_freeRead As String
Public OfflineMode As Boolean = False
Public gOrdini = False
Public gAccettazione = False
Public gInventario = False
Public gPickOrd = False
Public gDocInterni = False
Public chkConnect = False
Public chkZonaObbl = False
Public DefaultUser As String
Public DefaultPassword As String
Public DefaultProfileDB As String
Public DefaultCodMDep As String
Public Endpoint As String
Public EndpointREST As String
Public FileLOG As String = "log.txt"
Public FileConfig As String = "config.xml"
Public idTerm As String
Public gDaysCacheDelete As Integer
Public ProgramName As String = "Integry Smart Enterprise"
End Module

40
Terminalino/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,40 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Smart Enterprise")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Integry")>
<Assembly: AssemblyProduct("Smart Enterprise")>
<Assembly: AssemblyCopyright("Copyright © 2016")>
<Assembly: AssemblyTrademark("")>
<Assembly: CLSCompliant(True)>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("eac05043-86e2-47f6-8c60-785ea4d03a7e")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.3.5")>
'Below attribute is to suppress FxCop warning "CA2232 : Microsoft.Usage : Add STAThreadAttribute to assembly"
' as Device app does not support STA thread.
<Assembly: System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Usage", "CA2232:MarkWindowsFormsEntryPointsWithStaThread")>

67
Terminalino/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,67 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.8009
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Smart_Enterprise.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
Friend ReadOnly Property alert() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("alert", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
End Module
End Namespace

124
Terminalino/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,124 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="alert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\alert.wav;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

BIN
Terminalino/Resources/alert.wav Normal file
View File

Binary file not shown.

86
Terminalino/SelectFiltroDoc.Designer.vb generated Normal file
View File

@@ -0,0 +1,86 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class SelectFiltroDoc
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.Label3 = New System.Windows.Forms.Label
Me.txtTipoDoc = New System.Windows.Forms.TextBox
Me.Panel1 = New System.Windows.Forms.Panel
Me.btCancel = New System.Windows.Forms.Button
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.White
Me.Label3.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.Label3.Location = New System.Drawing.Point(17, 9)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(126, 21)
Me.Label3.Text = "Tipo documento"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtTipoDoc
'
Me.txtTipoDoc.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.txtTipoDoc.Location = New System.Drawing.Point(3, 33)
Me.txtTipoDoc.Name = "txtTipoDoc"
Me.txtTipoDoc.Size = New System.Drawing.Size(147, 26)
Me.txtTipoDoc.TabIndex = 3
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.btCancel)
Me.Panel1.Controls.Add(Me.txtTipoDoc)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(153, 113)
'
'btCancel
'
Me.btCancel.Location = New System.Drawing.Point(5, 88)
Me.btCancel.Name = "btCancel"
Me.btCancel.Size = New System.Drawing.Size(66, 20)
Me.btCancel.TabIndex = 4
Me.btCancel.Text = "Annulla"
'
'SelectFiltroDoc
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.Gainsboro
Me.ClientSize = New System.Drawing.Size(159, 119)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SelectFiltroDoc"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtTipoDoc As System.Windows.Forms.TextBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btCancel As System.Windows.Forms.Button
End Class

126
Terminalino/SelectFiltroDoc.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

63
Terminalino/SelectFiltroDoc.vb Normal file
View File

@@ -0,0 +1,63 @@
Imports System.Xml
Imports System.IO
Public Class SelectFiltroDoc
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Private Sub SelectFiltroDoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Refresh()
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.Location = New System.Drawing.Point(X, Y)
txtTipoDoc.Focus()
End Sub
Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
formResult = Nothing
Me.Close()
End Sub
Private Function verificaTipoDoc(ByVal codDtip As String)
Dim userName As String = DefaultUser
Dim password As String = DefaultPassword
Dim profileDB As String = DefaultProfileDB
Dim status As Integer = 0
Dim response As String = Nothing
Dim parser As JSONObject = Nothing
Dim url As String = "http://" + EndpointREST + "/ems-api/verificaTipoDoc?profileDb=" + profileDB + "&codDtip=" + codDtip
utility.callRestWs(url, Nothing, userName, password, status, response, parser)
Return parser
End Function
Private Sub txtTipoDoc_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTipoDoc.KeyPress
If Asc(e.KeyChar) = 13 Then
txtTipoDoc.Text = utility.deletePreambleChar(txtTipoDoc.Text)
If txtTipoDoc.Text.Length > 0 Then
Dim parser As JSONObject = verificaTipoDoc(txtTipoDoc.Text)
If Not IsNothing(parser) Then
Dim esito As JSONValue = parser.GetProperty("esito")
If esito.Value = 1 Then
formResult = txtTipoDoc.Text
Me.Close()
ElseIf esito.Value = -1 Then
MsgBox("Tipo documento non trovato o inattivo")
txtTipoDoc.SelectAll()
End If
End If
ElseIf Asc(e.KeyChar) = Keys.Escape Then
formResult = Nothing
Me.Close()
End If
End If
End Sub
End Class

133
Terminalino/SelectFiltroInv.Designer.vb generated Normal file
View File

@@ -0,0 +1,133 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class SelectFiltroInv
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.txtNumInv = New System.Windows.Forms.TextBox
Me.Panel1 = New System.Windows.Forms.Panel
Me.Button1 = New System.Windows.Forms.Button
Me.Label2 = New System.Windows.Forms.Label
Me.txtZona = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.btCancel = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'txtNumInv
'
Me.txtNumInv.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.txtNumInv.Location = New System.Drawing.Point(3, 30)
Me.txtNumInv.Name = "txtNumInv"
Me.txtNumInv.Size = New System.Drawing.Size(147, 26)
Me.txtNumInv.TabIndex = 1
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtZona)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.txtNumInv)
Me.Panel1.Controls.Add(Me.btCancel)
Me.Panel1.Location = New System.Drawing.Point(2, 2)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(157, 150)
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(78, 124)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(72, 20)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Ok"
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.White
Me.Label2.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.Label2.Location = New System.Drawing.Point(6, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(144, 25)
Me.Label2.Text = "Zona"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtZona
'
Me.txtZona.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.txtZona.Location = New System.Drawing.Point(3, 89)
Me.txtZona.Name = "txtZona"
Me.txtZona.Size = New System.Drawing.Size(147, 26)
Me.txtZona.TabIndex = 6
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.White
Me.Label3.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.Label3.Location = New System.Drawing.Point(6, 6)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(144, 21)
Me.Label3.Text = "Cod. inventario"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btCancel
'
Me.btCancel.Location = New System.Drawing.Point(4, 124)
Me.btCancel.Name = "btCancel"
Me.btCancel.Size = New System.Drawing.Size(72, 20)
Me.btCancel.TabIndex = 2
Me.btCancel.Text = "Annulla"
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(-2, -18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 37)
Me.Label1.Text = "Leggi codice consegna"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'SelectFiltroInv
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.Gainsboro
Me.ClientSize = New System.Drawing.Size(160, 154)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "SelectFiltroInv"
Me.Text = "SelectFiltroInv"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtNumInv As System.Windows.Forms.TextBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btCancel As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtZona As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

126
Terminalino/SelectFiltroInv.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

84
Terminalino/SelectFiltroInv.vb Normal file
View File

@@ -0,0 +1,84 @@
Public Class SelectFiltroInv
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Public Sub New()
InitializeComponent()
End Sub
Public Sub New(ByVal hideInv As Boolean)
InitializeComponent()
Label3.Visible = Not hideInv
txtNumInv.Visible = Not hideInv
If hideInv Then
txtZona.Focus()
End If
End Sub
Private Sub frmSelectClie_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
'If txtOrder.Text = "" Then
'formResult = False
'End If
End Sub
Private Sub frmLoadOrd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Refresh()
'Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
'Private WithEvents backgroundWorker1 As System.ComponentModel.BackgroundWorker
Me.Location = New System.Drawing.Point(X, Y)
If txtNumInv.Visible Then
txtNumInv.Focus()
End If
End Sub
Private Sub txtClie_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumInv.KeyPress
If Asc(e.KeyChar) = 13 Then
'If txtOrder.Text.Length > 0 Then
formResult = utility.deletePreambleChar(txtNumInv.Text)
'End If
txtZona.Focus()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
formResult = Nothing
Me.Close()
End If
End Sub
Private Sub btCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btCancel.Click
formResult = Nothing
Me.Close()
End Sub
Private Sub txtDest_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtZona.KeyPress
zona = txtZona.Text
If Asc(e.KeyChar) = 13 Then
If chkZonaObbl And txtZona.Text.Length = 0 Then
MsgBox("Zona Obbligatoria")
Else
Me.Close()
End If
ElseIf Asc(e.KeyChar) = Keys.Escape Then
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If chkZonaObbl And txtZona.Text.Length = 0 Then
MsgBox("Zona Obbligatoria")
Else
If IsNothing(formResult) Then
formResult = ""
End If
zona = txtZona.Text
Me.Close()
End If
End Sub
Private Sub txtZona_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtZona.GotFocus
formResult = utility.deletePreambleChar(txtNumInv.Text)
End Sub
End Class

22
Terminalino/Smart Enterprise.sln Normal file
View File

@@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 10.00
# Visual Studio 2008
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Smart Enterprise", "Smart Enterprise.vbproj", "{877E142A-E14D-40D4-81F8-47B7CDB05ABD}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.Build.0 = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Debug|Any CPU.Deploy.0 = Debug|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.ActiveCfg = Release|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.Build.0 = Release|Any CPU
{877E142A-E14D-40D4-81F8-47B7CDB05ABD}.Release|Any CPU.Deploy.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
Terminalino/Smart Enterprise.suo Normal file
View File

Binary file not shown.

333
Terminalino/Smart Enterprise.vbproj Normal file
View File

@@ -0,0 +1,333 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="3.5">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{877E142A-E14D-40D4-81F8-47B7CDB05ABD}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Smart_Enterprise.Menu</StartupObject>
<RootNamespace>Smart_Enterprise</RootNamespace>
<AssemblyName>Smart Enterprise</AssemblyName>
<ProjectTypeGuids>{68B1623D-7FB9-47D8-8664-7ECEA3297D4F};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</ProjectTypeGuids>
<PlatformFamilyName>WindowsCE</PlatformFamilyName>
<PlatformID>E2BECB1F-8C8C-41ba-B736-9BE7D946A398</PlatformID>
<OSVersion>5.00</OSVersion>
<MyType>WindowsForms</MyType>
<DeployDirSuffix>Smart Enterprise</DeployDirSuffix>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
<OptionExplicit>On</OptionExplicit>
<OptionCompare>Binary</OptionCompare>
<OptionStrict>Off</OptionStrict>
<OptionInfer>On</OptionInfer>
<NativePlatformName>Windows CE</NativePlatformName>
<FormFactorID>
</FormFactorID>
<ApplicationIcon>icon.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>$(PlatformFamilyName)=TRUE</DefineConstants>
<DocumentationFile>Smart Enterprise.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<FileAlignment>512</FileAlignment>
<GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
<NoStdLib>true</NoStdLib>
<NoConfig>true</NoConfig>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DefineConstants>$(PlatformFamilyName)=TRUE</DefineConstants>
<DocumentationFile>Smart Enterprise.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<FileAlignment>512</FileAlignment>
<GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
<NoStdLib>true</NoStdLib>
<NoConfig>true</NoConfig>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Windows.Forms.DataGrid" />
<Reference Include="System.Xml" />
<Reference Include="System.Data" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1_pickOrd.Designer.vb">
<DependentUpon>Form1_pickOrd.vb</DependentUpon>
</Compile>
<Compile Include="Form1_pickOrd.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormBarcode.Designer.vb">
<DependentUpon>FormBarcode.vb</DependentUpon>
</Compile>
<Compile Include="FormBarcode.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form_ListOutputs.Designer.vb">
<DependentUpon>Form_ListOutputs.vb</DependentUpon>
</Compile>
<Compile Include="Form_ListOutputs.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form_ListOutputsBarcode.Designer.vb">
<DependentUpon>Form_ListOutputsBarcode.vb</DependentUpon>
</Compile>
<Compile Include="Form_ListOutputsBarcode.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLoaderWS.Designer.vb">
<DependentUpon>frmLoaderWS.vb</DependentUpon>
</Compile>
<Compile Include="frmLoaderWS.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLoadOrd.Designer.vb">
<DependentUpon>frmLoadOrd.vb</DependentUpon>
</Compile>
<Compile Include="frmLoadOrd.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettings.Designer.vb">
<DependentUpon>frmSettings.vb</DependentUpon>
</Compile>
<Compile Include="frmSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsBarcode.Designer.vb">
<DependentUpon>frmSettingsBarcode.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsBarcode.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsZona.Designer.vb">
<DependentUpon>frmSettingsZona.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsZona.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="HttpUtility.vb" />
<Compile Include="Login.Designer.vb">
<DependentUpon>Login.vb</DependentUpon>
</Compile>
<Compile Include="Login.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="Form2.Designer.vb">
<DependentUpon>Form2.vb</DependentUpon>
</Compile>
<Compile Include="Form2.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Menu.Designer.vb">
<DependentUpon>Menu.vb</DependentUpon>
</Compile>
<Compile Include="Menu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Module1.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="SelectFiltroDoc.Designer.vb">
<DependentUpon>SelectFiltroDoc.vb</DependentUpon>
</Compile>
<Compile Include="SelectFiltroDoc.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="SelectFiltroInv.Designer.vb">
<DependentUpon>SelectFiltroInv.vb</DependentUpon>
</Compile>
<Compile Include="SelectFiltroInv.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="splash.Designer.vb">
<DependentUpon>splash.vb</DependentUpon>
</Compile>
<Compile Include="splash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="TerminalinoCommons\frmAddModNote.Designer.vb">
<DependentUpon>frmAddModNote.vb</DependentUpon>
</Compile>
<Compile Include="TerminalinoCommons\frmAddModNote.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="TerminalinoCommons\frmPopupPassword.Designer.vb">
<DependentUpon>frmPopupPassword.vb</DependentUpon>
</Compile>
<Compile Include="TerminalinoCommons\frmPopupPassword.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="TerminalinoCommons\JsonModule.vb" />
<Compile Include="TerminalinoCommons\ROW.vb" />
<Compile Include="TerminalinoCommons\ThreadSaveFile.vb" />
<Compile Include="TerminalinoCommons\ThreadTime.vb" />
<Compile Include="ThreadSaveFileTxt.vb" />
<Compile Include="utility.vb" />
<Compile Include="Web References\WS_Retail\Reference.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Reference.map</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1_pickOrd.resx">
<DependentUpon>Form1_pickOrd.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="FormBarcode.resx">
<DependentUpon>FormBarcode.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Form_ListOutputs.resx">
<DependentUpon>Form_ListOutputs.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Form_ListOutputsBarcode.resx">
<DependentUpon>Form_ListOutputsBarcode.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLoaderWS.resx">
<DependentUpon>frmLoaderWS.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmLoadOrd.resx">
<DependentUpon>frmLoadOrd.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettings.resx">
<DependentUpon>frmSettings.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsBarcode.resx">
<DependentUpon>frmSettingsBarcode.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsZona.resx">
<DependentUpon>frmSettingsZona.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Login.resx">
<DependentUpon>Login.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Form2.resx">
<DependentUpon>Form2.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Menu.resx">
<DependentUpon>Menu.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="SelectFiltroDoc.resx">
<DependentUpon>SelectFiltroDoc.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="SelectFiltroInv.resx">
<DependentUpon>SelectFiltroInv.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="splash.resx">
<DependentUpon>splash.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="TerminalinoCommons\frmAddModNote.resx">
<DependentUpon>frmAddModNote.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="TerminalinoCommons\frmPopupPassword.resx">
<DependentUpon>frmPopupPassword.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<Content Include="icon.ico" />
<None Include="Resources\alert.wav" />
<None Include="splash.png" />
</ItemGroup>
<ItemGroup>
<WebReferences Include="Web References\" />
</ItemGroup>
<ItemGroup>
<WebReferenceUrl Include="http://192.168.2.205:8080/axis2/services/WS_Retail%3fwsdl">
<UrlBehavior>Static</UrlBehavior>
<RelPath>Web References\WS_Retail\</RelPath>
<UpdateFromURL>http://192.168.2.205:8080/axis2/services/WS_Retail%3fwsdl</UpdateFromURL>
<ServiceLocationURL>
</ServiceLocationURL>
<CachedDynamicPropName>
</CachedDynamicPropName>
<CachedAppSettingsObjectName>
</CachedAppSettingsObjectName>
<CachedSettingsPropName>
</CachedSettingsPropName>
</WebReferenceUrl>
</ItemGroup>
<ItemGroup>
<None Include="Web References\WS_Retail\Reference.map">
<Generator>MSDiscoCodeGenerator</Generator>
<LastGenOutput>Reference.vb</LastGenOutput>
</None>
<None Include="Web References\WS_Retail\return_class.datasource">
<DependentUpon>Reference.map</DependentUpon>
</None>
<None Include="Web References\WS_Retail\WS_Retail.wsdl" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.CompactFramework.VisualBasic.targets" />
<ProjectExtensions>
<VisualStudio>
<FlavorProperties GUID="{F184B08F-C81C-45F6-A57F-5ABD9991F28F}">
<HostingProcess disable="1" />
</FlavorProperties>
</VisualStudio>
</ProjectExtensions>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

6
Terminalino/Smart Enterprise.vbproj.user Normal file
View File

@@ -0,0 +1,6 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<DeployDeviceID>81551346-886F-43a2-B707-A91FAE1B33A7</DeployDeviceID>
<NETCFDeploy>true</NETCFDeploy>
</PropertyGroup>
</Project>

1
Terminalino/TerminalinoCommons/.svn/entries Normal file
View File

@@ -0,0 +1 @@
12

1
Terminalino/TerminalinoCommons/.svn/format Normal file
View File

@@ -0,0 +1 @@
12

48
Terminalino/TerminalinoCommons/.svn/pristine/07/07ac618e666f05d4a4353c84b1b65ffc08f5ad29.svn-base Normal file
View File

@@ -0,0 +1,48 @@
Public Class frmAddModNote
Private formResult As String
Private note As String
Public Property annotazioni() As String
Get
Return note
End Get
Set(ByVal Value As String)
note = Value
End Set
End Property
Public Function Result() As String
Return formResult
End Function
Private Sub frmAddModNote_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtNoteLista.Text = note
txtNoteLista.Focus()
End Sub
Private Sub btOkAct()
formResult = txtNoteLista.Text
Me.Close()
End Sub
Private Sub btAnnullaAct()
formResult = Nothing
Me.Close()
End Sub
Private Sub btOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOk.Click
btOkAct()
End Sub
Private Sub btAnnulla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAnnulla.Click
btAnnullaAct()
End Sub
Private Sub txtNoteLista_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNoteLista.KeyPress
If Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = Keys.Down Then btOk.Focus()
End Sub
Private Sub btOk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btOk.KeyPress
If Asc(e.KeyChar) = 13 Then btOkAct()
End Sub
Private Sub btAnnulla_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btAnnulla.KeyPress
If Asc(e.KeyChar) = 13 Then btAnnullaAct()
End Sub
End Class

126
Terminalino/TerminalinoCommons/.svn/pristine/28/28c56e9c55708b0ce92e8e44e255125bd0b54ccd.svn-base Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

39
Terminalino/TerminalinoCommons/.svn/pristine/57/573f71019e9e3218d63cf3213b6fbb26100634a5.svn-base Normal file
View File

@@ -0,0 +1,39 @@
Imports System.Xml
Public Class ThreadSaveFile
' State information used in the task.
Private root As XmlElement
Private doc As XmlDocument
Private FileListaXML As String
Private isWorking As Boolean = False
' The constructor obtains the state information.
Public Sub New(ByRef root As XmlElement, ByRef doc As XmlDocument, ByVal FileListaXML As String)
Me.root = root
Me.doc = doc
Me.FileListaXML = FileListaXML
End Sub
Public Sub callSave()
If Not isWorking Then
isWorking = True
docWR.Save(FileListaXML)
isWorking = False
Else
Threading.Thread.Sleep(500)
End If
End Sub
Public Sub callLoad()
If Not isWorking Then
isWorking = True
doc = New System.Xml.XmlDocument()
doc.Load(FileListaXML)
isWorking = False
Else
Threading.Thread.Sleep(500)
End If
End Sub
End Class

70
Terminalino/TerminalinoCommons/.svn/pristine/5f/5f8430c3a4a164786b1f320ff64603237116a23f.svn-base Normal file
View File

@@ -0,0 +1,70 @@
Public Class ROW
Public Property pBARCODE() As Integer
Get
Return BARCODE
End Get
Set(ByVal value As Integer)
BARCODE = value
End Set
End Property
Public BARCODE As String
Public COD_MART As String
Public QTA As String
Public COLLI As String
Public DT_INS As String
Public DESC As String
Public UNT_MIS As String
End Class
'Public mstrIdDisp As String
'Public mstrGestione As String
'Public mstrAnnotazioni As String
'Public mstrCodMdep As String
'Public mstrDtCreate As String
'Public Property ID_DISP() As String
' Get
' ID_DISP = mstrIdDisp
' End Get
' Set(ByVal Value As String)
' mstrIdDisp = Value
' End Set
'End Property
'Public Property GESTIONE() As String
' Get
' GESTIONE = mstrGestione
' End Get
' Set(ByVal Value As String)
' mstrGestione = Value
' End Set
'End Property
'Public Property ANNOTAZIONI() As String
' Get
' ANNOTAZIONI = mstrAnnotazioni
' End Get
' Set(ByVal Value As String)
' mstrAnnotazioni = Value
' End Set
'End Property
'Public Property COD_MDEP() As String
' Get
' COD_MDEP = mstrCodMdep
' End Get
' Set(ByVal Value As String)
' mstrCodMdep = Value
' End Set
'End Property
'Public Property DT_CREATE() As String
' Get
' DT_CREATE = mstrDtCreate
' End Get
' Set(ByVal Value As String)
' mstrDtCreate = Value
' End Set
'End Property

216
Terminalino/TerminalinoCommons/.svn/pristine/6c/6c08e51c0b263956b6ce52056b9087333fff3ba5.svn-base Normal file
View File

@@ -0,0 +1,216 @@
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
Imports System.Globalization
Imports System.Xml
Imports System.Text.RegularExpressions
Public Class ThreadTime
Public Shared Function getTimeRest()
Try
G_strDir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
G_version = System.Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString
If (System.IO.File.Exists(G_strDir + "\" + FileConfig)) Then
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + (FileConfig))
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT")
Endpoint = utility.readCreateNodeIfNotExist(Nothing, "ENDPOINT", childNode, docConfig)
Else
MsgBox("File config non trovato")
Application.Exit()
End If
Dim urlEndpoint = "http://" + Endpoint + "/ems-api/engine/currentTime"
Dim request As WebRequest = WebRequest.Create(urlEndpoint)
request.Method = "GET"
Dim ipPort As String = urlEndpoint
If ipPort.IndexOf("http://") <> -1 Then
ipPort = Regex.Replace(ipPort, "http://", "")
ipPort = ipPort.Substring(0, ipPort.IndexOf("/"))
End If
Dim array As String() = ipPort.Split(":")
If Not utility.CheckPortOpen(array(0), Integer.Parse(array(1))) Then
MsgBox("Connessione al server non riuscita, verificare la connettivita' o disponibilita.")
Return ""
End If
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Dim statusCode = (CType(response, HttpWebResponse)).StatusCode
' Get the stream containing content returned by the server.
Dim dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As StreamReader = New StreamReader(dataStream)
' Read the content.
Dim responseFromServer = reader.ReadToEnd()
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()
Return responseFromServer
Catch ex As WebException
If (CType(ex.Response, HttpWebResponse)).StatusCode = HttpStatusCode.Unauthorized Then
MsgBox("Servizio non autorizzato, controllare che siano corrette data e ora del terminale")
Return ""
End If
utility.WriteLog(ex.ToString)
Catch ex As Exception
utility.WriteLog(ex.ToString)
Return ""
End Try
End Function
Public Sub checkDate()
Dim dateTime As String = getTimeRest()
Dim netTime As DateTime
Dim SecDiff As Integer
If dateTime = "" Then
netTime = GetTime()
SecDiff = Math.Abs(SecondsDifference(Now, netTime.ToLocalTime()))
Else
netTime = New DateTime(Integer.Parse(dateTime.Substring(1, 4)), Integer.Parse(dateTime.Substring(6, 2)), Integer.Parse(dateTime.Substring(9, 2)), Integer.Parse(dateTime.Substring(12, 2)), Integer.Parse(dateTime.Substring(15, 2)), Integer.Parse(dateTime.Substring(18, 2)), DateTimeKind.Local)
SecDiff = Math.Abs(SecondsDifference(Now, netTime))
End If
If (SecDiff > THRESHOLD_SECONDS) Then
ChangeDate(netTime.ToLocalTime())
End If
End Sub
Private Const THRESHOLD_SECONDS As Integer = 60 'Number of seconds
Public Shared warn As String = ""
Private Shared Servers() As String = {"time.nist.gov", "time-a.nist.gov", "time-b.nist.gov", "time-c.nist.gov", "time-d.nist.gov", "time-nw.nist.gov"}
Public Shared LastHost As String = ""
Public Shared LastSysTime As DateTime
Public Function GetTime() As DateTime
Dim host As String
Dim result As DateTime = Nothing
LastHost = ""
For Each host In Servers
LastHost = host
result = GetNISTTime(host)
If Not IsNothing(result) And result <> DateTime.MinValue Then
Exit For
End If
Next
If result = DateTime.MinValue Then
'No server in list was successful so use system time
warn = "Non è stato possibile sincronizzare la data/ora, controllare manualmente."
If warn <> "" Then
MsgBox(warn)
End If
result = DateTime.UtcNow().ToLocalTime()
End If
Return result
End Function
Public Shared Function SecondsDifference(ByVal dt1 As DateTime, ByVal dt2 As DateTime) As Integer
Dim span As TimeSpan = dt1.Subtract(dt2)
Return span.Seconds + (span.Minutes * 60) + (span.Hours * 360)
End Function
Private Shared Function GetNISTTime(ByVal host As String) As DateTime
'Returns DateTime.MinValue if host unreachable or does not produce time
Dim timeStr As String
Try
Dim reader As New StreamReader(New TcpClient(host, 13).GetStream)
LastSysTime = DateTime.UtcNow()
timeStr = reader.ReadToEnd()
reader.Close()
Catch ex As SocketException
'Couldn't connect to server, transmission error
'utility.WriteLog("Sync ntp [" & host & "]")
Return DateTime.MinValue
Catch ex As Exception
'Some other error, such as Stream under/overflow
'Return DateTime.UtcNow().ToLocalTime()
Return Nothing
End Try
If timeStr = "" Then
Return DateTime.UtcNow().ToLocalTime()
End If
'Parse timeStr
If (timeStr.Substring(38, 9) <> "UTC(NIST)") Then
'This signature should be there
Return DateTime.UtcNow().ToLocalTime()
End If
If (timeStr.Substring(30, 1) <> "0") Then
'Server reports non-optimum status, time off by as much as 5 seconds
Return DateTime.UtcNow().ToLocalTime() 'Try a different server
End If
Dim jd As Integer = Integer.Parse(timeStr.Substring(1, 5))
Dim yr As Integer = Integer.Parse(timeStr.Substring(7, 2))
Dim mo As Integer = Integer.Parse(timeStr.Substring(10, 2))
Dim dy As Integer = Integer.Parse(timeStr.Substring(13, 2))
Dim hr As Integer = Integer.Parse(timeStr.Substring(16, 2))
Dim mm As Integer = Integer.Parse(timeStr.Substring(19, 2))
Dim sc As Integer = Integer.Parse(timeStr.Substring(22, 2))
If (jd < 15020) Then
'Date is before 1900
Return DateTime.MinValue
End If
If (jd > 51544) Then yr += 2000 Else yr += 1900
Return New DateTime(yr, mo, dy, hr, mm, sc).ToLocalTime()
End Function
Private Structure SYSTEMTIME
Public year As Short
Public month As Short
Public dayOfWeek As Short
Public day As Short
Public hour As Short
Public minute As Short
Public second As Short
Public milliseconds As Short
End Structure
<DllImport("coredll.dll")> Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean
End Function
Private Sub ChangeDate(ByVal dtUpdate As DateTime)
Dim st As SYSTEMTIME
st.year = dtUpdate.ToLocalTime().Year
st.month = dtUpdate.ToLocalTime().Month
st.dayOfWeek = dtUpdate.ToLocalTime().DayOfWeek
st.day = dtUpdate.ToLocalTime().Day
st.hour = dtUpdate.ToLocalTime().Hour
st.minute = dtUpdate.ToLocalTime().Minute
st.second = dtUpdate.ToLocalTime().Second
st.milliseconds = dtUpdate.ToLocalTime().Millisecond
'Set the new time...
SetLocalTime(st)
End Sub
End Class

81
Terminalino/TerminalinoCommons/.svn/pristine/6e/6e307ce689efe36ecd49e5feccca9e168acd14a1.svn-base Normal file
View File

@@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmAddModNote
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.txtNoteLista = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.btOk = New System.Windows.Forms.Button
Me.btAnnulla = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'txtNoteLista
'
Me.txtNoteLista.Location = New System.Drawing.Point(42, 79)
Me.txtNoteLista.Multiline = True
Me.txtNoteLista.Name = "txtNoteLista"
Me.txtNoteLista.Size = New System.Drawing.Size(153, 82)
Me.txtNoteLista.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(42, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(153, 54)
Me.Label1.Text = "Inserisci le annotazioni per la lista corrente:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btOk
'
Me.btOk.Location = New System.Drawing.Point(12, 197)
Me.btOk.Name = "btOk"
Me.btOk.Size = New System.Drawing.Size(102, 47)
Me.btOk.TabIndex = 2
Me.btOk.Text = "OK"
'
'btAnnulla
'
Me.btAnnulla.Location = New System.Drawing.Point(120, 197)
Me.btAnnulla.Name = "btAnnulla"
Me.btAnnulla.Size = New System.Drawing.Size(102, 47)
Me.btAnnulla.TabIndex = 3
Me.btAnnulla.Text = "Annulla"
'
'frmAddModNote
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.btAnnulla)
Me.Controls.Add(Me.btOk)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtNoteLista)
Me.Name = "frmAddModNote"
Me.Text = "frmAddModNote"
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtNoteLista As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btOk As System.Windows.Forms.Button
Friend WithEvents btAnnulla As System.Windows.Forms.Button
End Class

97
Terminalino/TerminalinoCommons/.svn/pristine/b4/b4e10119e998f586457574b4ad9b34c15c63be41.svn-base Normal file
View File

@@ -0,0 +1,97 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmPopupPassword
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.Panel1 = New System.Windows.Forms.Panel
Me.btCancel = New System.Windows.Forms.Button
Me.txtPassword = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.btnOK = New System.Windows.Forms.Button
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.btCancel)
Me.Panel1.Controls.Add(Me.txtPassword)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.btnOK)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(184, 185)
'
'btCancel
'
Me.btCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btCancel.Location = New System.Drawing.Point(5, 151)
Me.btCancel.Name = "btCancel"
Me.btCancel.Size = New System.Drawing.Size(174, 31)
Me.btCancel.TabIndex = 3
Me.btCancel.Text = "Annulla"
'
'txtPassword
'
Me.txtPassword.Location = New System.Drawing.Point(29, 52)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(124, 23)
Me.txtPassword.TabIndex = 1
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Tahoma", 10.0!, System.Drawing.FontStyle.Bold)
Me.Label1.Location = New System.Drawing.Point(3, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(176, 22)
Me.Label1.Text = "INSERIRE PASSWORD"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(5, 117)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(174, 31)
Me.btnOK.TabIndex = 2
Me.btnOK.Text = "OK"
'
'frmPopupPassword
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(190, 190)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmPopupPassword"
Me.Text = "frmPopupPassword"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btCancel As System.Windows.Forms.Button
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnOK As System.Windows.Forms.Button
End Class

41
Terminalino/TerminalinoCommons/.svn/pristine/c1/c12c475da6701532e28ffff0559af3fc43ba2fd3.svn-base Normal file
View File

@@ -0,0 +1,41 @@
Public Class frmPopupPassword
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If Asc(e.KeyChar) = 13 Then
If txtPassword.Text.Length > 0 Then
act_ok()
End If
ElseIf Asc(e.KeyChar) = Keys.Escape Then
act_cancel()
End If
End Sub
Private Sub act_ok()
formResult = txtPassword.Text
Me.Close()
End Sub
Private Sub act_cancel()
formResult = "0"
Me.Close()
End Sub
Private Sub frmPopupPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.Location = New System.Drawing.Point(X, Y)
txtPassword.Focus()
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
act_ok()
End Sub
Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
act_cancel()
End Sub
End Class

222
Terminalino/TerminalinoCommons/.svn/pristine/e1/e1ad8b254ecdd06e3d75f519f5bf4f6f305d4741.svn-base Normal file
View File

@@ -0,0 +1,222 @@
Imports System.Text.RegularExpressions
Public Class JSONObject
#Region "Shared Variables"
Private Shared ReadOnly reProp As New Regex("(?<=(^|\,)\s*)([^\:]+)\s*\:\s*([^\,]+)", RegexOptions.Compiled)
Private Shared ReadOnly reReplaced As New Regex("^\$\[\d+\]$", RegexOptions.Compiled)
#End Region
#Region "Shared Functions"
Private Shared Function TokenizeJSON(ByVal json As String, ByVal l As List(Of String)) As String
Dim r As String = String.Empty
Dim nestable As String = "()[]{}"
Dim stringable As String = """'"
Dim nested As New Stack(Of Char)
Dim stringing As Char? = Nothing
Dim start As Integer = -1
l.Clear()
For i As Integer = 0 To json.Length - 1
Dim c As Char = json(i)
If stringing IsNot Nothing Then
If stringing = c Then
stringing = Nothing
If nested.Count = 0 Then
r &= "$[" & l.Count.ToString() & "]"
l.Add(json.Substring(start, i - start + 1))
End If
End If
ElseIf stringable.IndexOf(c) > -1 Then
stringing = c
If nested.Count = 0 Then start = i
ElseIf nestable.IndexOf(c) Mod 2 = 0 Then
If nested.Count = 0 Then start = i
nested.Push(c)
ElseIf nested.Count > 0 Then
If nestable.IndexOf(nested.Peek()) + 1 = nestable.IndexOf(c) Then
nested.Pop()
If nested.Count = 0 Then
r &= "$[" & l.Count.ToString() & "]"
l.Add(json.Substring(start, i - start + 1))
End If
End If
Else
r &= If(c = "\" OrElse c = "$", "\" & c, c)
End If
Next
Return r
End Function
Private Shared Function ParseJSONObject(ByVal json As String) As Dictionary(Of String, String)
Dim r As New Dictionary(Of String, String)
Dim l As New List(Of String)
'Trim any leading or trailing object delimiters found in JSON objects.
json = json.TrimStart(" "c).TrimEnd(" "c)
json = json.Substring(1).Substring(0, json.Length - 2)
'Tokenize the JSON object.
json = TokenizeJSON(json, l)
'Parse the JSON object.
For Each m As Match In reProp.Matches(json)
Dim name As String = m.Groups(2).Value.TrimStart()
Dim value As String = m.Groups(3).Value
If reReplaced.IsMatch(name) Then name = l(Integer.Parse(name.Substring(2, name.Length - 3)))
If reReplaced.IsMatch(value) Then value = l(Integer.Parse(value.Substring(2, value.Length - 3)))
name = name.Trim("'"c, """"c)
r.Add(name, value)
Next
'Return the result.
Return r
End Function
Private Shared Function ParseJSONArray(ByVal json As String) As String()
Dim l As New List(Of String)
Dim r As New List(Of String)
'Trim any leading or trailing array delimiters found in JSON objects, but only one on each side.
json = json.Trim()
json = json.Substring(1, json.Length - 2)
'Tokenize the JSON array.
json = TokenizeJSON(json, l)
'Parse and return the JSON array.
For Each x As String In json.Split(",")
x = x.Trim()
If reReplaced.IsMatch(x) Then
r.Add(l(Integer.Parse(x.Substring(2, x.Length - 3))))
Else
r.Add(x)
End If
Next
Return r.ToArray()
End Function
#End Region
#Region "Variables"
Private ReadOnly _properties As Dictionary(Of String, String)
Private ReadOnly list As New List(Of JSONObject)
#End Region
#Region "Constructor"
Public Sub New(ByVal json As String)
If json.Substring(0, 1) = "{" Then
_properties = JSONObject.ParseJSONObject(json)
ElseIf json.Substring(0, 1) = "[" Then
For Each x As String In JSONObject.ParseJSONArray(json)
Dim obj As JSONObject = New JSONObject(x)
list.Add(obj)
Next
End If
End Sub
#End Region
#Region "Methods"
Public Sub Destroy()
_properties.Clear()
list.Clear()
GC.Collect()
End Sub
Public Function GetJsonArray() As List(Of JSONObject)
Return list
End Function
Public Function GetArray(ByVal name As String) As List(Of JSONObject)
If _properties.ContainsKey(name) Then
list.Clear()
Dim prop As String = _properties(name)
For Each x As String In JSONObject.ParseJSONArray(prop)
Dim obj As JSONObject = New JSONObject(x)
list.Add(obj)
Next
End If
Return list
End Function
Public Function GetProperty(ByVal name As String) As JSONValue
If _properties.ContainsKey(name) Then Return Evaluate(_properties(name))
Return New JSONValue(JSONType.undefined, Nothing)
End Function
Private Function Evaluate(ByVal json As String) As JSONValue
Dim intValue As Integer
Dim floatValue As Double
json = json.TrimStart("("c).TrimEnd(")"c)
If json <> String.Empty Then
If json(0) = "{"c Then
Return New JSONValue(JSONType.object, New JSONObject(json))
ElseIf json(0) = "["c Then
For Each x As String In JSONObject.ParseJSONArray(json)
list.Add(New JSONObject(x))
Next
ElseIf json(0) = "'"c OrElse json(0) = """"c Then
Return New JSONValue(JSONType.string, json.Substring(1, json.Length - 2))
ElseIf Integer.Parse(json) Then
intValue = Integer.Parse(json)
Return New JSONValue(JSONType.int, intValue)
ElseIf Double.Parse(json) Then
floatValue = Double.Parse(json)
Return New JSONValue(JSONType.double, floatValue)
ElseIf json = "true" Then
Return New JSONValue(JSONType.bool, True)
ElseIf json = "false" Then
Return New JSONValue(JSONType.bool, False)
ElseIf json = "null" Then
Return New JSONValue(JSONType.null, Nothing)
End If
End If
Return New JSONValue(JSONType.undefined, Nothing)
End Function
#End Region
End Class
Public Class JSONValue
Private _type As JSONType
Private _value As Object
Public Sub New(ByVal type As JSONType, ByVal value As Object)
_type = type
_value = value
End Sub
Public ReadOnly Property Type() As JSONType
Get
Return _type
End Get
End Property
Public ReadOnly Property Value() As Object
Get
Return _value
End Get
End Property
Public Sub Destroy()
_value = String.Empty
End Sub
End Class
Public Enum JSONType
bool
int
[double]
[string]
[object]
array
null
undefined
End Enum

BIN
Terminalino/TerminalinoCommons/.svn/wc.db Normal file
View File

Binary file not shown.

0
Terminalino/TerminalinoCommons/.svn/wc.db-journal Normal file
View File

222
Terminalino/TerminalinoCommons/JsonModule.vb Normal file
View File

@@ -0,0 +1,222 @@
Imports System.Text.RegularExpressions
Public Class JSONObject
#Region "Shared Variables"
Private Shared ReadOnly reProp As New Regex("(?<=(^|\,)\s*)([^\:]+)\s*\:\s*([^\,]+)", RegexOptions.Compiled)
Private Shared ReadOnly reReplaced As New Regex("^\$\[\d+\]$", RegexOptions.Compiled)
#End Region
#Region "Shared Functions"
Private Shared Function TokenizeJSON(ByVal json As String, ByVal l As List(Of String)) As String
Dim r As String = String.Empty
Dim nestable As String = "()[]{}"
Dim stringable As String = """'"
Dim nested As New Stack(Of Char)
Dim stringing As Char? = Nothing
Dim start As Integer = -1
l.Clear()
For i As Integer = 0 To json.Length - 1
Dim c As Char = json(i)
If stringing IsNot Nothing Then
If stringing = c Then
stringing = Nothing
If nested.Count = 0 Then
r &= "$[" & l.Count.ToString() & "]"
l.Add(json.Substring(start, i - start + 1))
End If
End If
ElseIf stringable.IndexOf(c) > -1 Then
stringing = c
If nested.Count = 0 Then start = i
ElseIf nestable.IndexOf(c) Mod 2 = 0 Then
If nested.Count = 0 Then start = i
nested.Push(c)
ElseIf nested.Count > 0 Then
If nestable.IndexOf(nested.Peek()) + 1 = nestable.IndexOf(c) Then
nested.Pop()
If nested.Count = 0 Then
r &= "$[" & l.Count.ToString() & "]"
l.Add(json.Substring(start, i - start + 1))
End If
End If
Else
r &= If(c = "\" OrElse c = "$", "\" & c, c)
End If
Next
Return r
End Function
Private Shared Function ParseJSONObject(ByVal json As String) As Dictionary(Of String, String)
Dim r As New Dictionary(Of String, String)
Dim l As New List(Of String)
'Trim any leading or trailing object delimiters found in JSON objects.
json = json.TrimStart(" "c).TrimEnd(" "c)
json = json.Substring(1).Substring(0, json.Length - 2)
'Tokenize the JSON object.
json = TokenizeJSON(json, l)
'Parse the JSON object.
For Each m As Match In reProp.Matches(json)
Dim name As String = m.Groups(2).Value.TrimStart()
Dim value As String = m.Groups(3).Value
If reReplaced.IsMatch(name) Then name = l(Integer.Parse(name.Substring(2, name.Length - 3)))
If reReplaced.IsMatch(value) Then value = l(Integer.Parse(value.Substring(2, value.Length - 3)))
name = name.Trim("'"c, """"c)
r.Add(name, value)
Next
'Return the result.
Return r
End Function
Private Shared Function ParseJSONArray(ByVal json As String) As String()
Dim l As New List(Of String)
Dim r As New List(Of String)
'Trim any leading or trailing array delimiters found in JSON objects, but only one on each side.
json = json.Trim()
json = json.Substring(1, json.Length - 2)
'Tokenize the JSON array.
json = TokenizeJSON(json, l)
'Parse and return the JSON array.
For Each x As String In json.Split(",")
x = x.Trim()
If reReplaced.IsMatch(x) Then
r.Add(l(Integer.Parse(x.Substring(2, x.Length - 3))))
Else
r.Add(x)
End If
Next
Return r.ToArray()
End Function
#End Region
#Region "Variables"
Private ReadOnly _properties As Dictionary(Of String, String)
Private ReadOnly list As New List(Of JSONObject)
#End Region
#Region "Constructor"
Public Sub New(ByVal json As String)
If json.Substring(0, 1) = "{" Then
_properties = JSONObject.ParseJSONObject(json)
ElseIf json.Substring(0, 1) = "[" Then
For Each x As String In JSONObject.ParseJSONArray(json)
Dim obj As JSONObject = New JSONObject(x)
list.Add(obj)
Next
End If
End Sub
#End Region
#Region "Methods"
Public Sub Destroy()
_properties.Clear()
list.Clear()
GC.Collect()
End Sub
Public Function GetJsonArray() As List(Of JSONObject)
Return list
End Function
Public Function GetArray(ByVal name As String) As List(Of JSONObject)
If _properties.ContainsKey(name) Then
list.Clear()
Dim prop As String = _properties(name)
For Each x As String In JSONObject.ParseJSONArray(prop)
Dim obj As JSONObject = New JSONObject(x)
list.Add(obj)
Next
End If
Return list
End Function
Public Function GetProperty(ByVal name As String) As JSONValue
If _properties.ContainsKey(name) Then Return Evaluate(_properties(name))
Return New JSONValue(JSONType.undefined, Nothing)
End Function
Private Function Evaluate(ByVal json As String) As JSONValue
Dim intValue As Integer
Dim floatValue As Double
json = json.TrimStart("("c).TrimEnd(")"c)
If json <> String.Empty Then
If json(0) = "{"c Then
Return New JSONValue(JSONType.object, New JSONObject(json))
ElseIf json(0) = "["c Then
For Each x As String In JSONObject.ParseJSONArray(json)
list.Add(New JSONObject(x))
Next
ElseIf json(0) = "'"c OrElse json(0) = """"c Then
Return New JSONValue(JSONType.string, json.Substring(1, json.Length - 2))
ElseIf Integer.Parse(json) Then
intValue = Integer.Parse(json)
Return New JSONValue(JSONType.int, intValue)
ElseIf Double.Parse(json) Then
floatValue = Double.Parse(json)
Return New JSONValue(JSONType.double, floatValue)
ElseIf json = "true" Then
Return New JSONValue(JSONType.bool, True)
ElseIf json = "false" Then
Return New JSONValue(JSONType.bool, False)
ElseIf json = "null" Then
Return New JSONValue(JSONType.null, Nothing)
End If
End If
Return New JSONValue(JSONType.undefined, Nothing)
End Function
#End Region
End Class
Public Class JSONValue
Private _type As JSONType
Private _value As Object
Public Sub New(ByVal type As JSONType, ByVal value As Object)
_type = type
_value = value
End Sub
Public ReadOnly Property Type() As JSONType
Get
Return _type
End Get
End Property
Public ReadOnly Property Value() As Object
Get
Return _value
End Get
End Property
Public Sub Destroy()
_value = String.Empty
End Sub
End Class
Public Enum JSONType
bool
int
[double]
[string]
[object]
array
null
undefined
End Enum

70
Terminalino/TerminalinoCommons/ROW.vb Normal file
View File

@@ -0,0 +1,70 @@
Public Class ROW
Public Property pBARCODE() As Integer
Get
Return BARCODE
End Get
Set(ByVal value As Integer)
BARCODE = value
End Set
End Property
Public BARCODE As String
Public COD_MART As String
Public QTA As String
Public COLLI As String
Public DT_INS As String
Public DESC As String
Public UNT_MIS As String
End Class
'Public mstrIdDisp As String
'Public mstrGestione As String
'Public mstrAnnotazioni As String
'Public mstrCodMdep As String
'Public mstrDtCreate As String
'Public Property ID_DISP() As String
' Get
' ID_DISP = mstrIdDisp
' End Get
' Set(ByVal Value As String)
' mstrIdDisp = Value
' End Set
'End Property
'Public Property GESTIONE() As String
' Get
' GESTIONE = mstrGestione
' End Get
' Set(ByVal Value As String)
' mstrGestione = Value
' End Set
'End Property
'Public Property ANNOTAZIONI() As String
' Get
' ANNOTAZIONI = mstrAnnotazioni
' End Get
' Set(ByVal Value As String)
' mstrAnnotazioni = Value
' End Set
'End Property
'Public Property COD_MDEP() As String
' Get
' COD_MDEP = mstrCodMdep
' End Get
' Set(ByVal Value As String)
' mstrCodMdep = Value
' End Set
'End Property
'Public Property DT_CREATE() As String
' Get
' DT_CREATE = mstrDtCreate
' End Get
' Set(ByVal Value As String)
' mstrDtCreate = Value
' End Set
'End Property

39
Terminalino/TerminalinoCommons/ThreadSaveFile.vb Normal file
View File

@@ -0,0 +1,39 @@
Imports System.Xml
Public Class ThreadSaveFile
' State information used in the task.
Private root As XmlElement
Private doc As XmlDocument
Private FileListaXML As String
Private isWorking As Boolean = False
' The constructor obtains the state information.
Public Sub New(ByRef root As XmlElement, ByRef doc As XmlDocument, ByVal FileListaXML As String)
Me.root = root
Me.doc = doc
Me.FileListaXML = FileListaXML
End Sub
Public Sub callSave()
If Not isWorking Then
isWorking = True
docWR.Save(FileListaXML)
isWorking = False
Else
Threading.Thread.Sleep(500)
End If
End Sub
Public Sub callLoad()
If Not isWorking Then
isWorking = True
doc = New System.Xml.XmlDocument()
doc.Load(FileListaXML)
isWorking = False
Else
Threading.Thread.Sleep(500)
End If
End Sub
End Class

216
Terminalino/TerminalinoCommons/ThreadTime.vb Normal file
View File

@@ -0,0 +1,216 @@
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
Imports System.Globalization
Imports System.Xml
Imports System.Text.RegularExpressions
Public Class ThreadTime
Public Shared Function getTimeRest()
Try
G_strDir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
G_version = System.Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString
If (System.IO.File.Exists(G_strDir + "\" + FileConfig)) Then
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + (FileConfig))
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT")
Endpoint = utility.readCreateNodeIfNotExist(Nothing, "ENDPOINT", childNode, docConfig)
Else
MsgBox("File config non trovato")
Application.Exit()
End If
Dim urlEndpoint = "http://" + Endpoint + "/ems-api/engine/currentTime"
Dim request As WebRequest = WebRequest.Create(urlEndpoint)
request.Method = "GET"
Dim ipPort As String = urlEndpoint
If ipPort.IndexOf("http://") <> -1 Then
ipPort = Regex.Replace(ipPort, "http://", "")
ipPort = ipPort.Substring(0, ipPort.IndexOf("/"))
End If
Dim array As String() = ipPort.Split(":")
If Not utility.CheckPortOpen(array(0), Integer.Parse(array(1))) Then
MsgBox("Connessione al server non riuscita, verificare la connettivita' o disponibilita.")
Return ""
End If
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Dim statusCode = (CType(response, HttpWebResponse)).StatusCode
' Get the stream containing content returned by the server.
Dim dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As StreamReader = New StreamReader(dataStream)
' Read the content.
Dim responseFromServer = reader.ReadToEnd()
' Clean up the streams.
reader.Close()
dataStream.Close()
response.Close()
Return responseFromServer
Catch ex As WebException
If (CType(ex.Response, HttpWebResponse)).StatusCode = HttpStatusCode.Unauthorized Then
MsgBox("Servizio non autorizzato, controllare che siano corrette data e ora del terminale")
Return ""
End If
utility.WriteLog(ex.ToString)
Catch ex As Exception
utility.WriteLog(ex.ToString)
Return ""
End Try
End Function
Public Sub checkDate()
Dim dateTime As String = getTimeRest()
Dim netTime As DateTime
Dim SecDiff As Integer
If dateTime = "" Then
netTime = GetTime()
SecDiff = Math.Abs(SecondsDifference(Now, netTime.ToLocalTime()))
Else
netTime = New DateTime(Integer.Parse(dateTime.Substring(1, 4)), Integer.Parse(dateTime.Substring(6, 2)), Integer.Parse(dateTime.Substring(9, 2)), Integer.Parse(dateTime.Substring(12, 2)), Integer.Parse(dateTime.Substring(15, 2)), Integer.Parse(dateTime.Substring(18, 2)), DateTimeKind.Local)
SecDiff = Math.Abs(SecondsDifference(Now, netTime))
End If
If (SecDiff > THRESHOLD_SECONDS) Then
ChangeDate(netTime.ToLocalTime())
End If
End Sub
Private Const THRESHOLD_SECONDS As Integer = 60 'Number of seconds
Public Shared warn As String = ""
Private Shared Servers() As String = {"time.nist.gov", "time-a.nist.gov", "time-b.nist.gov", "time-c.nist.gov", "time-d.nist.gov", "time-nw.nist.gov"}
Public Shared LastHost As String = ""
Public Shared LastSysTime As DateTime
Public Function GetTime() As DateTime
Dim host As String
Dim result As DateTime = Nothing
LastHost = ""
For Each host In Servers
LastHost = host
result = GetNISTTime(host)
If Not IsNothing(result) And result <> DateTime.MinValue Then
Exit For
End If
Next
If result = DateTime.MinValue Then
'No server in list was successful so use system time
warn = "Non è stato possibile sincronizzare la data/ora, controllare manualmente."
If warn <> "" Then
MsgBox(warn)
End If
result = DateTime.UtcNow().ToLocalTime()
End If
Return result
End Function
Public Shared Function SecondsDifference(ByVal dt1 As DateTime, ByVal dt2 As DateTime) As Integer
Dim span As TimeSpan = dt1.Subtract(dt2)
Return span.Seconds + (span.Minutes * 60) + (span.Hours * 360)
End Function
Private Shared Function GetNISTTime(ByVal host As String) As DateTime
'Returns DateTime.MinValue if host unreachable or does not produce time
Dim timeStr As String
Try
Dim reader As New StreamReader(New TcpClient(host, 13).GetStream)
LastSysTime = DateTime.UtcNow()
timeStr = reader.ReadToEnd()
reader.Close()
Catch ex As SocketException
'Couldn't connect to server, transmission error
'utility.WriteLog("Sync ntp [" & host & "]")
Return DateTime.MinValue
Catch ex As Exception
'Some other error, such as Stream under/overflow
'Return DateTime.UtcNow().ToLocalTime()
Return Nothing
End Try
If timeStr = "" Then
Return DateTime.UtcNow().ToLocalTime()
End If
'Parse timeStr
If (timeStr.Substring(38, 9) <> "UTC(NIST)") Then
'This signature should be there
Return DateTime.UtcNow().ToLocalTime()
End If
If (timeStr.Substring(30, 1) <> "0") Then
'Server reports non-optimum status, time off by as much as 5 seconds
Return DateTime.UtcNow().ToLocalTime() 'Try a different server
End If
Dim jd As Integer = Integer.Parse(timeStr.Substring(1, 5))
Dim yr As Integer = Integer.Parse(timeStr.Substring(7, 2))
Dim mo As Integer = Integer.Parse(timeStr.Substring(10, 2))
Dim dy As Integer = Integer.Parse(timeStr.Substring(13, 2))
Dim hr As Integer = Integer.Parse(timeStr.Substring(16, 2))
Dim mm As Integer = Integer.Parse(timeStr.Substring(19, 2))
Dim sc As Integer = Integer.Parse(timeStr.Substring(22, 2))
If (jd < 15020) Then
'Date is before 1900
Return DateTime.MinValue
End If
If (jd > 51544) Then yr += 2000 Else yr += 1900
Return New DateTime(yr, mo, dy, hr, mm, sc).ToLocalTime()
End Function
Private Structure SYSTEMTIME
Public year As Short
Public month As Short
Public dayOfWeek As Short
Public day As Short
Public hour As Short
Public minute As Short
Public second As Short
Public milliseconds As Short
End Structure
<DllImport("coredll.dll")> Private Shared Function SetLocalTime(ByRef time As SYSTEMTIME) As Boolean
End Function
Private Sub ChangeDate(ByVal dtUpdate As DateTime)
Dim st As SYSTEMTIME
st.year = dtUpdate.ToLocalTime().Year
st.month = dtUpdate.ToLocalTime().Month
st.dayOfWeek = dtUpdate.ToLocalTime().DayOfWeek
st.day = dtUpdate.ToLocalTime().Day
st.hour = dtUpdate.ToLocalTime().Hour
st.minute = dtUpdate.ToLocalTime().Minute
st.second = dtUpdate.ToLocalTime().Second
st.milliseconds = dtUpdate.ToLocalTime().Millisecond
'Set the new time...
SetLocalTime(st)
End Sub
End Class

81
Terminalino/TerminalinoCommons/frmAddModNote.Designer.vb generated Normal file
View File

@@ -0,0 +1,81 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmAddModNote
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.txtNoteLista = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.btOk = New System.Windows.Forms.Button
Me.btAnnulla = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'txtNoteLista
'
Me.txtNoteLista.Location = New System.Drawing.Point(42, 79)
Me.txtNoteLista.Multiline = True
Me.txtNoteLista.Name = "txtNoteLista"
Me.txtNoteLista.Size = New System.Drawing.Size(153, 82)
Me.txtNoteLista.TabIndex = 0
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(42, 22)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(153, 54)
Me.Label1.Text = "Inserisci le annotazioni per la lista corrente:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btOk
'
Me.btOk.Location = New System.Drawing.Point(12, 197)
Me.btOk.Name = "btOk"
Me.btOk.Size = New System.Drawing.Size(102, 47)
Me.btOk.TabIndex = 2
Me.btOk.Text = "OK"
'
'btAnnulla
'
Me.btAnnulla.Location = New System.Drawing.Point(120, 197)
Me.btAnnulla.Name = "btAnnulla"
Me.btAnnulla.Size = New System.Drawing.Size(102, 47)
Me.btAnnulla.TabIndex = 3
Me.btAnnulla.Text = "Annulla"
'
'frmAddModNote
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.ControlBox = False
Me.Controls.Add(Me.btAnnulla)
Me.Controls.Add(Me.btOk)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtNoteLista)
Me.Name = "frmAddModNote"
Me.Text = "frmAddModNote"
Me.ResumeLayout(False)
End Sub
Friend WithEvents txtNoteLista As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btOk As System.Windows.Forms.Button
Friend WithEvents btAnnulla As System.Windows.Forms.Button
End Class

126
Terminalino/TerminalinoCommons/frmAddModNote.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

48
Terminalino/TerminalinoCommons/frmAddModNote.vb Normal file
View File

@@ -0,0 +1,48 @@
Public Class frmAddModNote
Private formResult As String
Private note As String
Public Property annotazioni() As String
Get
Return note
End Get
Set(ByVal Value As String)
note = Value
End Set
End Property
Public Function Result() As String
Return formResult
End Function
Private Sub frmAddModNote_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtNoteLista.Text = note
txtNoteLista.Focus()
End Sub
Private Sub btOkAct()
formResult = txtNoteLista.Text
Me.Close()
End Sub
Private Sub btAnnullaAct()
formResult = Nothing
Me.Close()
End Sub
Private Sub btOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOk.Click
btOkAct()
End Sub
Private Sub btAnnulla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAnnulla.Click
btAnnullaAct()
End Sub
Private Sub txtNoteLista_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNoteLista.KeyPress
If Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = Keys.Down Then btOk.Focus()
End Sub
Private Sub btOk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btOk.KeyPress
If Asc(e.KeyChar) = 13 Then btOkAct()
End Sub
Private Sub btAnnulla_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles btAnnulla.KeyPress
If Asc(e.KeyChar) = 13 Then btAnnullaAct()
End Sub
End Class

97
Terminalino/TerminalinoCommons/frmPopupPassword.Designer.vb generated Normal file
View File

@@ -0,0 +1,97 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmPopupPassword
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.Panel1 = New System.Windows.Forms.Panel
Me.btCancel = New System.Windows.Forms.Button
Me.txtPassword = New System.Windows.Forms.TextBox
Me.Label1 = New System.Windows.Forms.Label
Me.btnOK = New System.Windows.Forms.Button
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.btCancel)
Me.Panel1.Controls.Add(Me.txtPassword)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.btnOK)
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(184, 185)
'
'btCancel
'
Me.btCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btCancel.Location = New System.Drawing.Point(5, 151)
Me.btCancel.Name = "btCancel"
Me.btCancel.Size = New System.Drawing.Size(174, 31)
Me.btCancel.TabIndex = 3
Me.btCancel.Text = "Annulla"
'
'txtPassword
'
Me.txtPassword.Location = New System.Drawing.Point(29, 52)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(124, 23)
Me.txtPassword.TabIndex = 1
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Tahoma", 10.0!, System.Drawing.FontStyle.Bold)
Me.Label1.Location = New System.Drawing.Point(3, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(176, 22)
Me.Label1.Text = "INSERIRE PASSWORD"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(5, 117)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(174, 31)
Me.btnOK.TabIndex = 2
Me.btnOK.Text = "OK"
'
'frmPopupPassword
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(190, 190)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmPopupPassword"
Me.Text = "frmPopupPassword"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btCancel As System.Windows.Forms.Button
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnOK As System.Windows.Forms.Button
End Class

126
Terminalino/TerminalinoCommons/frmPopupPassword.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

41
Terminalino/TerminalinoCommons/frmPopupPassword.vb Normal file
View File

@@ -0,0 +1,41 @@
Public Class frmPopupPassword
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If Asc(e.KeyChar) = 13 Then
If txtPassword.Text.Length > 0 Then
act_ok()
End If
ElseIf Asc(e.KeyChar) = Keys.Escape Then
act_cancel()
End If
End Sub
Private Sub act_ok()
formResult = txtPassword.Text
Me.Close()
End Sub
Private Sub act_cancel()
formResult = "0"
Me.Close()
End Sub
Private Sub frmPopupPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.Location = New System.Drawing.Point(X, Y)
txtPassword.Focus()
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
act_ok()
End Sub
Private Sub btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
act_cancel()
End Sub
End Class

51
Terminalino/ThreadSaveFileTxt.vb Normal file
View File

@@ -0,0 +1,51 @@
Imports System.Xml
Imports System.IO
Public Class ThreadSaveFileTxt
' State information used in the task.
Private FileListaXML As String
Private root As Dictionary(Of String, Integer)
Private isWorking As Boolean = False
' The constructor obtains the state information.
Public Sub New(ByRef root As Dictionary(Of String, Integer), ByVal FileListaXML As String)
Me.root = root
Me.FileListaXML = FileListaXML
End Sub
Public Sub callSave()
If Not isWorking Then
isWorking = True
Dim line As String = ""
For Each key As String In root.Keys
line += key + "|"
Next
line = line.Substring(0, line.Length - 1).Trim()
Dim fs As FileStream = New FileStream(FileListaXML, FileMode.OpenOrCreate, System.IO.FileAccess.Write)
fs.SetLength(0) ' elimina il contenuto esistente
Dim m_streamWriter As StreamWriter = New StreamWriter(fs)
m_streamWriter.BaseStream.Seek(0, SeekOrigin.Begin)
m_streamWriter.WriteLine(line)
m_streamWriter.Flush()
m_streamWriter.Close()
isWorking = False
Else
Threading.Thread.Sleep(500)
End If
End Sub
'Public Sub callLoad()
' If Not isWorking Then
' isWorking = True
' doc = New System.Xml.XmlDocument()
' doc.Load(FileListaXML)
' isWorking = False
' Else
' Threading.Thread.Sleep(500)
' End If
'End Sub
End Class

BIN
Terminalino/Thumbs.db Normal file
View File

Binary file not shown.

6
Terminalino/Web References/WS_Retail/Reference.map Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Results>
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://192.168.2.205:8080/axis2/services/WS_Retail?wsdl" filename="WS_Retail.wsdl" />
</Results>
</DiscoveryClientResultsFile>

399
Terminalino/Web References/WS_Retail/Reference.vb Normal file
View File

@@ -0,0 +1,399 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:2.0.50727.5477
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
'
'This source code was auto-generated by Microsoft.CompactFramework.Design.Data, Version 2.0.50727.5477.
'
Namespace WS_Retail
'''<remarks/>
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="WS_RetailSoap11Binding", [Namespace]:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES")> _
Partial Public Class WS_Retail
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
'''<remarks/>
Public Sub New()
MyBase.New
Me.Url = "http://192.168.2.205:8080/axis2/services/WS_Retail.WS_RetailHttpSoap11Endpoint/"
End Sub
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:Import", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function Import(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal valueXML() As Byte) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("Import", New Object() {profileDB, userName, password, valueXML})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginImport(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal valueXML() As Byte, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("Import", New Object() {profileDB, userName, password, valueXML}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndImport(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:saveDocFromPicking", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function saveDocFromPicking(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal inputValue() As Byte) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("saveDocFromPicking", New Object() {profileDB, userName, password, inputValue})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginsaveDocFromPicking(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal inputValue() As Byte, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("saveDocFromPicking", New Object() {profileDB, userName, password, inputValue}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndsaveDocFromPicking(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:saveTerminalino", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function saveTerminalino(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal inputValue() As Byte) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("saveTerminalino", New Object() {profileDB, userName, password, inputValue})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginsaveTerminalino(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal inputValue() As Byte, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("saveTerminalino", New Object() {profileDB, userName, password, inputValue}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndsaveTerminalino(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:getElencoArticoli", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function getElencoArticoli(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal filtroXML As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal chiaveGriglia As String) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("getElencoArticoli", New Object() {profileDB, userName, password, filtroXML, chiaveGriglia})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BegingetElencoArticoli(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal filtroXML As String, ByVal chiaveGriglia As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("getElencoArticoli", New Object() {profileDB, userName, password, filtroXML, chiaveGriglia}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndgetElencoArticoli(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:getConfigPV", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function getConfigPV(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("getConfigPV", New Object() {userName, password})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BegingetConfigPV(ByVal userName As String, ByVal password As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("getConfigPV", New Object() {userName, password}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndgetConfigPV(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:exportOrdAcquisto", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function exportOrdAcquisto(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal gestione As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal dataOrd As String, ByVal numOrd As Integer, <System.Xml.Serialization.XmlIgnoreAttribute()> ByVal numOrdSpecified As Boolean) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("exportOrdAcquisto", New Object() {profileDB, userName, password, gestione, dataOrd, numOrd, numOrdSpecified})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginexportOrdAcquisto(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal gestione As String, ByVal dataOrd As String, ByVal numOrd As Integer, ByVal numOrdSpecified As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("exportOrdAcquisto", New Object() {profileDB, userName, password, gestione, dataOrd, numOrd, numOrdSpecified}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndexportOrdAcquisto(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:fatturaDaScontrino", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function fatturaDaScontrino(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal codAnag As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal dataDoc As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal codCassa As String, ByVal idScontr As Integer, <System.Xml.Serialization.XmlIgnoreAttribute()> ByVal idScontrSpecified As Boolean) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("fatturaDaScontrino", New Object() {profileDB, userName, password, codAnag, dataDoc, codCassa, idScontr, idScontrSpecified})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginfatturaDaScontrino(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal codAnag As String, ByVal dataDoc As String, ByVal codCassa As String, ByVal idScontr As Integer, ByVal idScontrSpecified As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("fatturaDaScontrino", New Object() {profileDB, userName, password, codAnag, dataDoc, codCassa, idScontr, idScontrSpecified}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndfatturaDaScontrino(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:saveDoc", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function saveDoc(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> ByVal inputValue() As Byte) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("saveDoc", New Object() {profileDB, userName, password, inputValue})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginsaveDoc(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal inputValue() As Byte, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("saveDoc", New Object() {profileDB, userName, password, inputValue}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndsaveDoc(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
'''<remarks/>
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("urn:exportOrdFromPicking", RequestNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", ResponseNamespace:="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
Public Function exportOrdFromPicking(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal profileDB As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal userName As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal password As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal chiaveOrdine As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal gestione As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal dataOrd As String, ByVal numOrd As Integer, <System.Xml.Serialization.XmlIgnoreAttribute()> ByVal numOrdSpecified As Boolean) As <System.Xml.Serialization.XmlElementAttribute("return", IsNullable:=true)> return_class
Dim results() As Object = Me.Invoke("exportOrdFromPicking", New Object() {profileDB, userName, password, chiaveOrdine, gestione, dataOrd, numOrd, numOrdSpecified})
Return CType(results(0),return_class)
End Function
'''<remarks/>
Public Function BeginexportOrdFromPicking(ByVal profileDB As String, ByVal userName As String, ByVal password As String, ByVal chiaveOrdine As String, ByVal gestione As String, ByVal dataOrd As String, ByVal numOrd As Integer, ByVal numOrdSpecified As Boolean, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("exportOrdFromPicking", New Object() {profileDB, userName, password, chiaveOrdine, gestione, dataOrd, numOrd, numOrdSpecified}, callback, asyncState)
End Function
'''<remarks/>
Public Function EndexportOrdFromPicking(ByVal asyncResult As System.IAsyncResult) As return_class
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),return_class)
End Function
End Class
'''<remarks/>
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://UTILITY/xsd")> _
Partial Public Class return_class
Private errorTextField As String
Private fileXMLField As String
Private fileXMLImportExportField As String
Private returnBooleanField As Boolean
Private returnBooleanFieldSpecified As Boolean
Private returnByteField() As Byte
Private returnDateField As System.Nullable(Of Date)
Private returnDateFieldSpecified As Boolean
Private returnDoubleField As Double
Private returnDoubleFieldSpecified As Boolean
Private returnIdField As Integer
Private returnIdFieldSpecified As Boolean
Private returnIntField As Integer
Private returnIntFieldSpecified As Boolean
Private returnStringField As String
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property errorText() As String
Get
Return Me.errorTextField
End Get
Set
Me.errorTextField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property fileXML() As String
Get
Return Me.fileXMLField
End Get
Set
Me.fileXMLField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property fileXMLImportExport() As String
Get
Return Me.fileXMLImportExportField
End Get
Set
Me.fileXMLImportExportField = value
End Set
End Property
'''<remarks/>
Public Property returnBoolean() As Boolean
Get
Return Me.returnBooleanField
End Get
Set
Me.returnBooleanField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property returnBooleanSpecified() As Boolean
Get
Return Me.returnBooleanFieldSpecified
End Get
Set
Me.returnBooleanFieldSpecified = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary", IsNullable:=true)> _
Public Property returnByte() As Byte()
Get
Return Me.returnByteField
End Get
Set
Me.returnByteField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(DataType:="date", IsNullable:=true)> _
Public Property returnDate() As System.Nullable(Of Date)
Get
Return Me.returnDateField
End Get
Set
Me.returnDateField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property returnDateSpecified() As Boolean
Get
Return Me.returnDateFieldSpecified
End Get
Set
Me.returnDateFieldSpecified = value
End Set
End Property
'''<remarks/>
Public Property returnDouble() As Double
Get
Return Me.returnDoubleField
End Get
Set
Me.returnDoubleField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property returnDoubleSpecified() As Boolean
Get
Return Me.returnDoubleFieldSpecified
End Get
Set
Me.returnDoubleFieldSpecified = value
End Set
End Property
'''<remarks/>
Public Property returnId() As Integer
Get
Return Me.returnIdField
End Get
Set
Me.returnIdField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property returnIdSpecified() As Boolean
Get
Return Me.returnIdFieldSpecified
End Get
Set
Me.returnIdFieldSpecified = value
End Set
End Property
'''<remarks/>
Public Property returnInt() As Integer
Get
Return Me.returnIntField
End Get
Set
Me.returnIntField = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlIgnoreAttribute()> _
Public Property returnIntSpecified() As Boolean
Get
Return Me.returnIntFieldSpecified
End Get
Set
Me.returnIntFieldSpecified = value
End Set
End Property
'''<remarks/>
<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> _
Public Property returnString() As String
Get
Return Me.returnStringField
End Get
Set
Me.returnStringField = value
End Set
End Property
End Class
End Namespace

540
Terminalino/Web References/WS_Retail/WS_Retail.wsdl Normal file
View File

@@ -0,0 +1,540 @@
<?xml version="1.0" encoding="utf-8"?>
<wsdl:definitions xmlns:ax265="http://UTILITY/xsd" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:ns="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:ns1="http://org.apache.axis2/xsd" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" targetNamespace="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
<wsdl:documentation>WS_Retail</wsdl:documentation>
<wsdl:types>
<xs:schema xmlns:ax266="http://UTILITY/xsd" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://WEBSERVICES.WINGEST.WINGEST_TEXTILES">
<xs:import namespace="http://UTILITY/xsd" />
<xs:element name="saveTerminalino">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="inputValue" nillable="true" type="xs:base64Binary" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="saveTerminalinoResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="saveDocFromPicking">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="inputValue" nillable="true" type="xs:base64Binary" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="saveDocFromPickingResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="saveDoc">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="inputValue" nillable="true" type="xs:base64Binary" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="saveDocResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="getElencoArticoli">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="filtroXML" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="chiaveGriglia" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="getElencoArticoliResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="getConfigPV">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="getConfigPVResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="fatturaDaScontrino">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="codAnag" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="dataDoc" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="codCassa" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="idScontr" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="fatturaDaScontrinoResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="exportOrdFromPicking">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="chiaveOrdine" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="gestione" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="dataOrd" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="numOrd" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="exportOrdFromPickingResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="exportOrdAcquisto">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="gestione" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="dataOrd" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="numOrd" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="exportOrdAcquistoResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Import">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="profileDB" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="userName" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="password" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="valueXML" nillable="true" type="xs:base64Binary" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="ImportResponse">
<xs:complexType>
<xs:sequence>
<xs:element minOccurs="0" name="return" nillable="true" type="ax266:return_class" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:schema>
<xs:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://UTILITY/xsd">
<xs:complexType name="return_class">
<xs:sequence>
<xs:element minOccurs="0" name="errorText" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="fileXML" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="fileXMLImportExport" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="returnBoolean" type="xs:boolean" />
<xs:element minOccurs="0" name="returnByte" nillable="true" type="xs:base64Binary" />
<xs:element minOccurs="0" name="returnDate" nillable="true" type="xs:date" />
<xs:element minOccurs="0" name="returnDouble" type="xs:double" />
<xs:element minOccurs="0" name="returnId" type="xs:int" />
<xs:element minOccurs="0" name="returnInt" type="xs:int" />
<xs:element minOccurs="0" name="returnString" nillable="true" type="xs:string" />
</xs:sequence>
</xs:complexType>
</xs:schema>
</wsdl:types>
<wsdl:message name="ImportRequest">
<wsdl:part name="parameters" element="ns:Import" />
</wsdl:message>
<wsdl:message name="ImportResponse">
<wsdl:part name="parameters" element="ns:ImportResponse" />
</wsdl:message>
<wsdl:message name="saveDocFromPickingRequest">
<wsdl:part name="parameters" element="ns:saveDocFromPicking" />
</wsdl:message>
<wsdl:message name="saveDocFromPickingResponse">
<wsdl:part name="parameters" element="ns:saveDocFromPickingResponse" />
</wsdl:message>
<wsdl:message name="saveTerminalinoRequest">
<wsdl:part name="parameters" element="ns:saveTerminalino" />
</wsdl:message>
<wsdl:message name="saveTerminalinoResponse">
<wsdl:part name="parameters" element="ns:saveTerminalinoResponse" />
</wsdl:message>
<wsdl:message name="getElencoArticoliRequest">
<wsdl:part name="parameters" element="ns:getElencoArticoli" />
</wsdl:message>
<wsdl:message name="getElencoArticoliResponse">
<wsdl:part name="parameters" element="ns:getElencoArticoliResponse" />
</wsdl:message>
<wsdl:message name="getConfigPVRequest">
<wsdl:part name="parameters" element="ns:getConfigPV" />
</wsdl:message>
<wsdl:message name="getConfigPVResponse">
<wsdl:part name="parameters" element="ns:getConfigPVResponse" />
</wsdl:message>
<wsdl:message name="exportOrdAcquistoRequest">
<wsdl:part name="parameters" element="ns:exportOrdAcquisto" />
</wsdl:message>
<wsdl:message name="exportOrdAcquistoResponse">
<wsdl:part name="parameters" element="ns:exportOrdAcquistoResponse" />
</wsdl:message>
<wsdl:message name="fatturaDaScontrinoRequest">
<wsdl:part name="parameters" element="ns:fatturaDaScontrino" />
</wsdl:message>
<wsdl:message name="fatturaDaScontrinoResponse">
<wsdl:part name="parameters" element="ns:fatturaDaScontrinoResponse" />
</wsdl:message>
<wsdl:message name="saveDocRequest">
<wsdl:part name="parameters" element="ns:saveDoc" />
</wsdl:message>
<wsdl:message name="saveDocResponse">
<wsdl:part name="parameters" element="ns:saveDocResponse" />
</wsdl:message>
<wsdl:message name="exportOrdFromPickingRequest">
<wsdl:part name="parameters" element="ns:exportOrdFromPicking" />
</wsdl:message>
<wsdl:message name="exportOrdFromPickingResponse">
<wsdl:part name="parameters" element="ns:exportOrdFromPickingResponse" />
</wsdl:message>
<wsdl:portType name="WS_RetailPortType">
<wsdl:operation name="Import">
<wsdl:input wsaw:Action="urn:Import" message="ns:ImportRequest" />
<wsdl:output wsaw:Action="urn:ImportResponse" message="ns:ImportResponse" />
</wsdl:operation>
<wsdl:operation name="saveDocFromPicking">
<wsdl:input wsaw:Action="urn:saveDocFromPicking" message="ns:saveDocFromPickingRequest" />
<wsdl:output wsaw:Action="urn:saveDocFromPickingResponse" message="ns:saveDocFromPickingResponse" />
</wsdl:operation>
<wsdl:operation name="saveTerminalino">
<wsdl:input wsaw:Action="urn:saveTerminalino" message="ns:saveTerminalinoRequest" />
<wsdl:output wsaw:Action="urn:saveTerminalinoResponse" message="ns:saveTerminalinoResponse" />
</wsdl:operation>
<wsdl:operation name="getElencoArticoli">
<wsdl:input wsaw:Action="urn:getElencoArticoli" message="ns:getElencoArticoliRequest" />
<wsdl:output wsaw:Action="urn:getElencoArticoliResponse" message="ns:getElencoArticoliResponse" />
</wsdl:operation>
<wsdl:operation name="getConfigPV">
<wsdl:input wsaw:Action="urn:getConfigPV" message="ns:getConfigPVRequest" />
<wsdl:output wsaw:Action="urn:getConfigPVResponse" message="ns:getConfigPVResponse" />
</wsdl:operation>
<wsdl:operation name="exportOrdAcquisto">
<wsdl:input wsaw:Action="urn:exportOrdAcquisto" message="ns:exportOrdAcquistoRequest" />
<wsdl:output wsaw:Action="urn:exportOrdAcquistoResponse" message="ns:exportOrdAcquistoResponse" />
</wsdl:operation>
<wsdl:operation name="fatturaDaScontrino">
<wsdl:input wsaw:Action="urn:fatturaDaScontrino" message="ns:fatturaDaScontrinoRequest" />
<wsdl:output wsaw:Action="urn:fatturaDaScontrinoResponse" message="ns:fatturaDaScontrinoResponse" />
</wsdl:operation>
<wsdl:operation name="saveDoc">
<wsdl:input wsaw:Action="urn:saveDoc" message="ns:saveDocRequest" />
<wsdl:output wsaw:Action="urn:saveDocResponse" message="ns:saveDocResponse" />
</wsdl:operation>
<wsdl:operation name="exportOrdFromPicking">
<wsdl:input wsaw:Action="urn:exportOrdFromPicking" message="ns:exportOrdFromPickingRequest" />
<wsdl:output wsaw:Action="urn:exportOrdFromPickingResponse" message="ns:exportOrdFromPickingResponse" />
</wsdl:operation>
</wsdl:portType>
<wsdl:binding name="WS_RetailSoap11Binding" type="ns:WS_RetailPortType">
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="Import">
<soap:operation soapAction="urn:Import" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDocFromPicking">
<soap:operation soapAction="urn:saveDocFromPicking" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveTerminalino">
<soap:operation soapAction="urn:saveTerminalino" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getElencoArticoli">
<soap:operation soapAction="urn:getElencoArticoli" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getConfigPV">
<soap:operation soapAction="urn:getConfigPV" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdAcquisto">
<soap:operation soapAction="urn:exportOrdAcquisto" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDoc">
<soap:operation soapAction="urn:saveDoc" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="fatturaDaScontrino">
<soap:operation soapAction="urn:fatturaDaScontrino" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdFromPicking">
<soap:operation soapAction="urn:exportOrdFromPicking" style="document" />
<wsdl:input>
<soap:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:binding name="WS_RetailSoap12Binding" type="ns:WS_RetailPortType">
<soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
<wsdl:operation name="Import">
<soap12:operation soapAction="urn:Import" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDocFromPicking">
<soap12:operation soapAction="urn:saveDocFromPicking" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveTerminalino">
<soap12:operation soapAction="urn:saveTerminalino" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getElencoArticoli">
<soap12:operation soapAction="urn:getElencoArticoli" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getConfigPV">
<soap12:operation soapAction="urn:getConfigPV" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdAcquisto">
<soap12:operation soapAction="urn:exportOrdAcquisto" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDoc">
<soap12:operation soapAction="urn:saveDoc" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="fatturaDaScontrino">
<soap12:operation soapAction="urn:fatturaDaScontrino" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdFromPicking">
<soap12:operation soapAction="urn:exportOrdFromPicking" style="document" />
<wsdl:input>
<soap12:body use="literal" />
</wsdl:input>
<wsdl:output>
<soap12:body use="literal" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:binding name="WS_RetailHttpBinding" type="ns:WS_RetailPortType">
<http:binding verb="POST" />
<wsdl:operation name="Import">
<http:operation location="WS_Retail/Import" />
<wsdl:input>
<mime:content part="Import" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="Import" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDocFromPicking">
<http:operation location="WS_Retail/saveDocFromPicking" />
<wsdl:input>
<mime:content part="saveDocFromPicking" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="saveDocFromPicking" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveTerminalino">
<http:operation location="WS_Retail/saveTerminalino" />
<wsdl:input>
<mime:content part="saveTerminalino" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="saveTerminalino" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getElencoArticoli">
<http:operation location="WS_Retail/getElencoArticoli" />
<wsdl:input>
<mime:content part="getElencoArticoli" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="getElencoArticoli" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="getConfigPV">
<http:operation location="WS_Retail/getConfigPV" />
<wsdl:input>
<mime:content part="getConfigPV" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="getConfigPV" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdAcquisto">
<http:operation location="WS_Retail/exportOrdAcquisto" />
<wsdl:input>
<mime:content part="exportOrdAcquisto" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="exportOrdAcquisto" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="saveDoc">
<http:operation location="WS_Retail/saveDoc" />
<wsdl:input>
<mime:content part="saveDoc" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="saveDoc" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="fatturaDaScontrino">
<http:operation location="WS_Retail/fatturaDaScontrino" />
<wsdl:input>
<mime:content part="fatturaDaScontrino" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="fatturaDaScontrino" type="text/xml" />
</wsdl:output>
</wsdl:operation>
<wsdl:operation name="exportOrdFromPicking">
<http:operation location="WS_Retail/exportOrdFromPicking" />
<wsdl:input>
<mime:content part="exportOrdFromPicking" type="text/xml" />
</wsdl:input>
<wsdl:output>
<mime:content part="exportOrdFromPicking" type="text/xml" />
</wsdl:output>
</wsdl:operation>
</wsdl:binding>
<wsdl:service name="WS_Retail">
<wsdl:port name="WS_RetailHttpSoap11Endpoint" binding="ns:WS_RetailSoap11Binding">
<soap:address location="http://192.168.2.205:8080/axis2/services/WS_Retail.WS_RetailHttpSoap11Endpoint/" />
</wsdl:port>
<wsdl:port name="WS_RetailHttpSoap12Endpoint" binding="ns:WS_RetailSoap12Binding">
<soap12:address location="http://192.168.2.205:8080/axis2/services/WS_Retail.WS_RetailHttpSoap12Endpoint/" />
</wsdl:port>
<wsdl:port name="WS_RetailHttpEndpoint" binding="ns:WS_RetailHttpBinding">
<http:address location="http://192.168.2.205:8080/axis2/services/WS_Retail.WS_RetailHttpEndpoint/" />
</wsdl:port>
</wsdl:service>
</wsdl:definitions>

10
Terminalino/Web References/WS_Retail/return_class.datasource Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
This file is automatically generated by Visual Studio .Net. It is
used to store generic object data source configuration information.
Renaming the file extension or editing the content of this file may
cause the file to be unrecognizable by the program.
-->
<GenericObjectDataSource DisplayName="return_class" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TypeInfo>Smart_Enterprise.WS_Retail.return_class, Web References.WS_Retail.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
</GenericObjectDataSource>

BIN
Terminalino/barcode.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 516 B

BIN
Terminalino/barcode_1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 467 B

BIN
Terminalino/bin/Debug/Smart Enterprise.exe Normal file
View File

Binary file not shown.

BIN
Terminalino/bin/Debug/Smart Enterprise.pdb Normal file
View File

Binary file not shown.

114
Terminalino/bin/Debug/Smart Enterprise.xml Normal file
View File

@@ -0,0 +1,114 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
SmartEnterprise
</name>
</assembly>
<members>
<member name="M:Smart_Enterprise.WS_Retail.WS_Retail.#ctor">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.Import(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginImport(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndImport(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveDocFromPicking(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveDocFromPicking(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveDocFromPicking(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveTerminalino(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveTerminalino(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveTerminalino(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.getElencoArticoli(System.String,System.String,System.String,System.String,System.String)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BegingetElencoArticoli(System.String,System.String,System.String,System.String,System.String,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndgetElencoArticoli(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.getConfigPV(System.String,System.String)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BegingetConfigPV(System.String,System.String,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndgetConfigPV(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.exportOrdAcquisto(System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginexportOrdAcquisto(System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndexportOrdAcquisto(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.fatturaDaScontrino(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginfatturaDaScontrino(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndfatturaDaScontrino(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveDoc(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveDoc(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveDoc(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.exportOrdFromPicking(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginexportOrdFromPicking(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndexportOrdFromPicking(System.IAsyncResult)">
<remarks/>
</member><member name="T:Smart_Enterprise.WS_Retail.WS_Retail">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.errorText">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.fileXML">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.fileXMLImportExport">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnBoolean">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnBooleanSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnByte">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDate">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDateSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDouble">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDoubleSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnId">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnIdSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnInt">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnIntSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnString">
<remarks/>
</member><member name="T:Smart_Enterprise.WS_Retail.return_class">
<remarks/>
</member><member name="P:Smart_Enterprise.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member><member name="P:Smart_Enterprise.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member><member name="T:Smart_Enterprise.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
</members>
</doc>

BIN
Terminalino/bin/Release/Smart Enterprise.exe Normal file
View File

Binary file not shown.

BIN
Terminalino/bin/Release/Smart Enterprise.pdb Normal file
View File

Binary file not shown.

114
Terminalino/bin/Release/Smart Enterprise.xml Normal file
View File

@@ -0,0 +1,114 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
SmartEnterprise
</name>
</assembly>
<members>
<member name="P:Smart_Enterprise.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member><member name="P:Smart_Enterprise.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member><member name="T:Smart_Enterprise.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.#ctor">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.Import(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginImport(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndImport(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveDocFromPicking(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveDocFromPicking(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveDocFromPicking(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveTerminalino(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveTerminalino(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveTerminalino(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.getElencoArticoli(System.String,System.String,System.String,System.String,System.String)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BegingetElencoArticoli(System.String,System.String,System.String,System.String,System.String,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndgetElencoArticoli(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.getConfigPV(System.String,System.String)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BegingetConfigPV(System.String,System.String,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndgetConfigPV(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.exportOrdAcquisto(System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginexportOrdAcquisto(System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndexportOrdAcquisto(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.fatturaDaScontrino(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginfatturaDaScontrino(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndfatturaDaScontrino(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.saveDoc(System.String,System.String,System.String,System.Byte[])">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginsaveDoc(System.String,System.String,System.String,System.Byte[],System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndsaveDoc(System.IAsyncResult)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.exportOrdFromPicking(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.BeginexportOrdFromPicking(System.String,System.String,System.String,System.String,System.String,System.String,System.Int32,System.Boolean,System.AsyncCallback,System.Object)">
<remarks/>
</member><member name="M:Smart_Enterprise.WS_Retail.WS_Retail.EndexportOrdFromPicking(System.IAsyncResult)">
<remarks/>
</member><member name="T:Smart_Enterprise.WS_Retail.WS_Retail">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.errorText">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.fileXML">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.fileXMLImportExport">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnBoolean">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnBooleanSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnByte">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDate">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDateSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDouble">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnDoubleSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnId">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnIdSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnInt">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnIntSpecified">
<remarks/>
</member><member name="P:Smart_Enterprise.WS_Retail.return_class.returnString">
<remarks/>
</member><member name="T:Smart_Enterprise.WS_Retail.return_class">
<remarks/>
</member>
</members>
</doc>

20
Terminalino/config.xml Normal file
View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<ROOT>
<ID_DISP>1</ID_DISP>
<FILE_XML_ARTICOLI>\My Documents\ARTICOLI.XML</FILE_XML_ARTICOLI>
<FILE_XML_OUTPUT>\My Documents\</FILE_XML_OUTPUT>
<ENDPOINT>192.168.2.208:8080</ENDPOINT>
<ENDPOINT_REST>192.168.2.208:8080</ENDPOINT_REST>
<DEFAULTUSER>CENTRALE28P</DEFAULTUSER>
<DEFAULTPASSWORD>gf192168110028</DEFAULTPASSWORD>
<DEFAULTPROFILEDB>MURGIA</DEFAULTPROFILEDB>
<DEFAULTCODMDEP>FO</DEFAULTCODMDEP>
<NODE_NAME>ARTICOLO</NODE_NAME>
<SET_ORDINI INCREMENTAL_MODE="S" UM="COLLI" FREE_READING="N" ENABLED="S" />
<SET_ACCETTAZIONE INCREMENTAL_MODE="N" UM="PEZZI" FREE_READING="N" ENABLED="S" />
<SET_INVENTARIO INCREMENTAL_MODE="S" UM="PEZZI" FREE_READING="N" ENABLED="S" />
<SET_PICKING_ORDINE INCREMENTAL_MODE="S" UM="PEZZI" FREE_READING="N" ENABLED="S" />
<SET_DOC_INTERNI INCREMENTAL_MODE="S" UM="PEZZI" FREE_READING="N" ENABLED="S" />
<DEFAULTOFFLINE>N</DEFAULTOFFLINE>
<DEL_CACHE_AFTER_DAYS>2</DEL_CACHE_AFTER_DAYS>
</ROOT>

BIN
Terminalino/download.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

96
Terminalino/frmLoadOrd.Designer.vb generated Normal file
View File

@@ -0,0 +1,96 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmLoadOrd
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.txtOrder = New System.Windows.Forms.TextBox
Me.btCancel = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.Label2 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(7, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(144, 37)
Me.Label1.Text = "Leggi codice griglia/ordine"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'txtOrder
'
Me.txtOrder.Location = New System.Drawing.Point(3, 43)
Me.txtOrder.Name = "txtOrder"
Me.txtOrder.Size = New System.Drawing.Size(147, 23)
Me.txtOrder.TabIndex = 1
'
'btCancel
'
Me.btCancel.Location = New System.Drawing.Point(4, 95)
Me.btCancel.Name = "btCancel"
Me.btCancel.Size = New System.Drawing.Size(72, 20)
Me.btCancel.TabIndex = 2
Me.btCancel.Text = "Annulla"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtOrder)
Me.Panel1.Controls.Add(Me.btCancel)
Me.Panel1.Location = New System.Drawing.Point(3, 1)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(153, 122)
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 7.0!, System.Drawing.FontStyle.Italic)
Me.Label2.Location = New System.Drawing.Point(4, 68)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(144, 26)
Me.Label2.Text = "Lasciare vuoto per caricare anagrafica completa"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'frmLoadOrd
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.Gainsboro
Me.ClientSize = New System.Drawing.Size(157, 123)
Me.ControlBox = False
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmLoadOrd"
Me.Text = "frmLoadOrd"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtOrder As System.Windows.Forms.TextBox
Friend WithEvents btCancel As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class

126
Terminalino/frmLoadOrd.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

37
Terminalino/frmLoadOrd.vb Normal file
View File

@@ -0,0 +1,37 @@
Public Class frmLoadOrd
Private formResult As String
Public Function Result() As String
Return formResult
End Function
Private Sub frmLoadOrd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'txtOrder.Text = "33005201403030"
Me.Refresh()
'Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
'Private WithEvents backgroundWorker1 As System.ComponentModel.BackgroundWorker
Me.Location = New System.Drawing.Point(X, Y)
txtOrder.Focus()
End Sub
Private Sub txtOrder_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtOrder.KeyPress
If Asc(e.KeyChar) = 13 Then
'If txtOrder.Text.Length > 0 Then
formResult = txtOrder.Text
'End If
Me.Close()
ElseIf Asc(e.KeyChar) = Keys.Escape Then
formResult = Nothing
Me.Close()
End If
End Sub
Private Sub btCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btCancel.Click
formResult = Nothing
Me.Close()
End Sub
End Class

92
Terminalino/frmLoaderWS.Designer.vb generated Normal file
View File

@@ -0,0 +1,92 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmLoaderWS
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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(frmLoaderWS))
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.Attendere = New System.Windows.Forms.Label
Me.Ca = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer
Me.Panel1 = New System.Windows.Forms.Panel
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(53, 11)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(49, 48)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
'
'Attendere
'
Me.Attendere.BackColor = System.Drawing.Color.White
Me.Attendere.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular)
Me.Attendere.Location = New System.Drawing.Point(6, 61)
Me.Attendere.Name = "Attendere"
Me.Attendere.Size = New System.Drawing.Size(147, 20)
Me.Attendere.Text = "Attendere..."
Me.Attendere.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Ca
'
Me.Ca.BackColor = System.Drawing.Color.White
Me.Ca.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Regular)
Me.Ca.Location = New System.Drawing.Point(6, 84)
Me.Ca.Name = "Ca"
Me.Ca.Size = New System.Drawing.Size(147, 28)
Me.Ca.Text = "Caricamento articoli da file in corso"
Me.Ca.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'Timer1
'
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(153, 113)
'
'frmLoaderWS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.Gainsboro
Me.ClientSize = New System.Drawing.Size(159, 119)
Me.ControlBox = False
Me.Controls.Add(Me.Ca)
Me.Controls.Add(Me.Attendere)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmLoaderWS"
Me.Text = "frmLoaderWS"
Me.ResumeLayout(False)
End Sub
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Attendere As System.Windows.Forms.Label
Friend WithEvents Ca As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents Panel1 As System.Windows.Forms.Panel
End Class

371
Terminalino/frmLoaderWS.resx Normal file
View File

@@ -0,0 +1,371 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAIAAABMXPacAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEAAA
CxABrSO9dQAANsZJREFUeF7tfQd0Y9l5HuNI6zg5shM7ju049onsxMpxybFkx6pWtyRrVW1ZXVqVlXZX
1VWKZEm2JTdJjtVW1q60fadwODPsnSB67x0gWECAKOzojeTs5vv/e9/DA4ezFbuc5Og7Hy/ve3gEgf+7
f7n3PTwMPPxDnCp+KMAp44cCnDJ+KMApo58CtNvtTCbj8XhNZrPJZDIKGpWOlifuVEmPmo/vBLFf/OEj
/3mXZpfLnUgktra3j46O5Ku8ztA3AWD6mdnZiYlJcHx8Ymx8/HHy2J+c+AwTY2PcGVM61Fc6J3BiHK9n
cnJkdMxgNJbLZflaryf0R4Dl5dWR0dHRsbFz589funR5cmoaYnQ5w9TuOUZ6dI77or0mAe4oh4k/1Dy5
cgAwNz09Mzw8cn5wcPDChcmpqenp6b29PfmKrxv0QYBKpQrrXx4eHhq66PV6i8XNfaBU6pK3mdTsiR37
+3ugBruCuyq72NkBe7ANboMSCDJbjE2QUdykTj5fSKVSCzrdhQtD8AloUK/X5eu+PtAHAXw+3/jEBIZZ
JBptNBrFYjGdXl9dWyMqWAFXwJXlZS2XU2BqeSmVWlpKJZeWiMmlRCKZSCbjiUQsHo/F4tFYLBKNRSLR
cDQSDkdC4XAoFA6GQsFgKBAM+gMBvz/g8/u9Pp/X63N7PC63G6Hf4XShxaNr6fRGLochcmFoCLER+ePK
lSvypV8HeLICHB4eTs/MXLp8GXGgVq1mslkYEdYUNkWPN6mFTYVZJWFc/MS7VmZDR8nQkQhIhg4rhg4c
N7TH64Wtydwut9PpcjiddofTZnfYbHaLzWaxWE1mC/IwQr9uUY/nnJ2bgxMgFiFFwU3lq78O8GQFqFYp
/mBwORwO9DGolzHMBTHGlSFPI10d7KSNMtihSoJUASAGj3qSpEePMA98KKEd9QHtqPe63TTwMehZDJfd
QUpYoYTVqjcYF/UGZIDBC0MYKwiVyMl4SfINnDaerAClUvny5WEIEAgE0EecEcGHYo4MO0RVCRl2mIoY
qSRBuojQg9yiG3+iQgnhExR/emXw+fzkE5CB44+T44/D4bTbHdAAfrCo16MWQjYWR8IVRkZGkTXkezhV
9EeAwaEhv99fKpdhesRcateoJa4yFUmgRG8mICBPCjFUt5Bhit2iRwkOUCI0QQMiohNCEyzrQ1zq5gBy
BYcTfonZgN4AD5iBAIhIKApQmw4PD6MsQsaSb+P08KQFKEsPgADlSiVNWAchAyg6QhX8kCosBqVljWfA
G0gGUkKTkGWAkjKQEpAB2ViJS5yKu97QdQWvl7zB7WFXcGJWiCg0OzePBIDytFarQb+LFy9hAgHnOPWE
3A8Bhofh1BCgAgHWgQy1GW7XM/hBB5R6QIM0aSBdZHVNyiAoskWqq0QiCSU4LgkNODQd8wZtUNKWQyCy
AgQwGIxz8wtUBU1MlEolzBnNZgs2EZdOPSH3IwQNDyO/QQAkYVRBmUyW2mwWGlA/k01DhgyUIKpidMnR
SRujKDStSCWUJNFN1+AJQSlEMgSEDJpiCbEIIQiRZ35+4eKlS5eGhzGHQKGMZ1hY0EEDTB7xL+SbOQ30
0wPg3dnsRnaDgFYyuyFVIXaVIDE4WMEvIMOqCFAiOnGAYiWUjM0yoHZKLJEMUgkRlFgGNTEIV5CJwR9A
PjCRAKb5BR0EADFrw8wOzxkJR+EBiEXDo6OYPMr387SjDwJgWAkPgAAbmPMoQP+YEkwCxCAlunoobsEa
qNEJYghXUDME+UTXIY7nhp6IxFMHeACiDUIQJsPkqYMXMPzhqRAeAx+Ogp2oSyenpvHi5Vt6etGfECQ8
ALP8XC6fyyskoCVCF6GHgBBDRCpyC45RIjoJt4AGgjI0KRmClOC4JLM0eYPMDdAAhAZitizKJAhAOYCm
Y4soFs6dOw8BGo1mPp+H3tASldLQ0EUkZFRKh6exYtrHEBSAAPl8IV8o4O1RhyjBeghJCCyG4h+KGBqH
YDGUCkqyK4Myh+BiSa1ZT0gM4bAqwIJuEdN1eMDW1nar1dre2cYLgLT4c/gHzZAnJ51Op3xXTyP6JACV
oSRAoYARVkQjySBJSBUpiSIGuwWLoQ1TImEIJVQZukrI9CBzA8nA3iBTNLlCT2JAFWS2WA0mE1IuEsDl
4ZFyuXxwcICXvbW1hWAIRXHwzMwsNBgbH0eakW/s6UI/QhDmAfCAQIBX4jaLm5vUEjVKCPaIIWUghxBu
QWKoAYpl4NAklBAyyKAk1vU4KHFuEAVrNz/LUjUShQAWqw1OgCQ8dPEiTFyr11H71xuN/f19vEg8P2Ia
cgbKIUrIIyOFYkG+t6cFfcoB8AASoEmrwbQgrLIH0IZa1obkwXslQhLIIZ0DP6oSgCIGhScYi31CpAfK
0iI9kBjkEOQOmDYIGcBoNOpyuWhFyGwRRef09Ey73cHLhhPUavW9vT38d0rISylMGi6Sh4wgFj2dCbmf
IajZbCLCytV5WqDfhhgCheKmhmT3fKGYY1fgiFTgiETMUkSioJQBsxvrlBsoImEyAa7RQjecIL1C1l9T
nGBlSWbmVGJpKU5ZgcJROBJ1ON0WGzzACg9AkJmbmxfnJh966KF2u12t1jAtwAuAVyGOmS0WuDK8RK83
HB09TTPkvggwIjyg1WzRSRJ5tqSLXGFzwZ2YskenbJFpbsFJ0VrDk5bwhKAZDAmOm4NjJsHAqCkwYvSP
GvwjBt+I3jtM9KC9vOi5vOi+rHNf0rkuLrguzjsvzjmH5hwX5uwXZm2Ds7Yzk6a7L87+4ML0Hecm7zo3
MnhhELWQfN0PP4xA1Gy1ypUKXmE2t4GwBs3gKEjUExOTPp9PHvcUo08hiHMAVxfA8bNX+eKWyZ9acCUW
3HEoQa2LOO+KzTuJc6AjNuuIztmjaGfR2iOztgjaaVsYnLKGpq2hKWtwyhyYtAQm0Zr9Eyb/uMk3ZvSN
GbzjRu+Y3jO66B5edI2AOuewzjU4Zbp/ZP6+y3N3D83cNzg2eH4QtaZ83YzDw0PkrVKphMCI5I84hryN
EITxNDI6ikAnj3sq0VcB2u1jJxR36Gwigc42Yi+32MdH0IN8spFOLbLPiBOLnEdErkDWEMmCMjfilaaa
FfkBP5wfGLTYRNM4rpVA5AC/3+f1eNwut06nO3eeVkPl61aAZIDijZJBsYgEg5QuZmeoWaEB9svjnjL0
UwDkN3FqV0CanH+xHKoe1JLJ1UC1JQ0vWjY8F1EyRYvCSRg+L8pW4FjBqlarsD1yw9JyCvMAvCqPx+ty
uzETPnf+vNFkkq9bAZJBp9PB3BgvCU+OxI5kYLc72AnG5hcW8Kg89KlB35JwIBDAa93bo1Ptygl3QSGG
hkIMBaQESyHyNmmgVFCQ4Vj9yi5ABSuiNhVILANpIAskXm3lGQNycpjnwz6f3+P1Lur15wcHJyenoBb+
I8pQmF6+B0a708EUAR6Hv0Uy0C3q5ezM5ZJHPDXoUxK+IAWgqx4QU8UFEBqwCsplEBBBKrGnxiigqwTJ
IH1CyEBxqIjCifyAXUFGIuENXVdgGcR0IZlcwlwMThAIBhFVMKgRVc6fHzxz5ixiEUodjG6T2RIIhiAb
9Ib1URchK6DFC0ZOnpmdxfGUDFbX5Lt9CtAnD+AQBAFgfBV0aUr3mhT2BukZ6MoOyUBKcC4g7KoXm/Q6
BGUECkrCGwiiclUm0nIKLTUQZSVmxZiLcSAKen0+i9U6NTMzMjaGFzx4YejM2bMPniFCEUQn7ITFDQYj
/gRKIznjFaJqwuwMseipu6irbwIID8CmClZBtATlGiHpHF0x2BVUJeAHJAN5Q68MlBu2IIMISr2rGqoM
8jyECEGYG5MG0UiQNYAfIBY5nJgbW8Xq0MzM7PjEBMY4ZmB4C9ABqoAIPrNzc6iI8C+mZ2ZGx0YRwZ6i
c2d9zgFk+EoFP9zSBn5wjKQCoYEKNVsIDTQOoQQllgGxSKZoBs3mFBnIFZAY2BUgAOfhVdIA82FekxAa
eJEP+Gylw+W0O+iUvdliM5nMmHlBj9m5+cmpabjIxUuX4BUIVpBnfHwC7258YhI1lXzPfUU/QxBKukq1
WqmAPRAyqNAqAcAt4AqKDOwQJEM3LrE3dGWgiLTVzc+cGFgGZQ2DiiKUQ9AAM2ReI4rG4ko+CPn8Aa9X
njFGYrDxlRMWixU0my0Qw2g2L+oNmDOPsekRnTA1Q/4YHqGFPPm2+4d+CCBOykOAw0PUcyqk+VmSeq3a
qNfQ1muirdaqYAWsVsssGvlMpVwSlD5D2XyPSOLsgpg90ARCFrGsCKdqcgzhFEgRkANCIByhLkJRtLqy
vJxaWkom4vEYrVSHQ3SqIEDn8On0vRtw0QVFTofdgegEJaxWuqAIHUQe1K9jo2OctydsNrt82/1DPz0A
JQTsXqvBthKwLlAqVzY2dzOFHWJxJ1vYzhS21/Mqt8B0DtxcAzcEi8RscTVbAFcyheVMnrieA1PpDXBp
LQsmVzNgYiUTX1mPL6/HU+lYag2MLq1GkquRxHIovhyMpQKRpC8c9wSjLn/E7glYXT6zw2u0ufQWh85k
0xltCwarzmiFTyA02e12q81us9ngHJhDYIYMJYQfwPnkO+8T+pmEIQCsX6tjlNP4ppbGe21nrzTjSg1b
4iOgFW1sxCza6DAxNmyJXbbEL5tjl0yRy+boJRMYIRojF41owxcN4SFDaEgfHNJTe4EYuLAYuKDzD+r8
58EF3zlw3nduzguenfOAD866H5xxPTjtfHDK+cCU4/4pO3HSdt+k9d5x6z1jlrtHTXcNG35wefF7Q/Pf
PT97z+V5p0teYeeAR/CVRRj1sXgc6R1vc3R0rO9O0LcQRAIcHakCyJY75Up1LbeznN0CU8TNVEawuJTZ
BFPrxSVmEkyDhUQ6n1iTjK+COeZGbGUjupwFI2AqE0mth8Gl9dBSOpRMBxJrgfgqMbbij634YsveSMob
WfKGl9zhpDuUdAUTrmDcGYw7/FG7LwLavBGrN2z1hMyugN0bjERjSBWiXnKJyx2RKzxeRDpkhUuXLqM6
6u9nPfrpAXhl9V5IBer1ZqPeajbQqmzUBWuUGyg9yNzA6YFyA6cH5BDK4JrEwNVst3KSWUEpmLhipSTN
pRLnA0rQolIl8GSBFi8oP8iTbHw6gdLEEp1kFidzQuFIgGcPSNderw/Jf2FBhxA0Nz9/dHgo33w/0B8B
6KoIFgDzF7KqaIldkIWJpAgLw4lYgTC2gCiWADK5qJSEzYlcI3G1ylZXCiQ5ZetdvZClES8fqSc7qUaS
F2HA/GLhiE+rLYuLLeQJNXGZBcuAt4Z/1BXg6PoTQISgo6MrEIDRhAYqFEkkyCU0MgBIGCJdC0gZFCWE
BoAY96yEogHL0J08kwZEjQa0fKSZJZADQABx3RGfyZEXWIhrLOSZffFxBOXqChD/iC/tusyndK4rAZRT
khAAc0Vh8aZs+LcGQhXhGRx3uhoICBnIG3plYFdQvUFMoWnSoMwVujLQREGZrLEGNFGQS3jKVBkWR2Cx
8+XTVPM4nEi5dEE1t8jALhdf3iuJHOCBlpgSDw1dvK49gM4xNVtNRgOEAKLfBfdldJI+cTwuaSBkkFNr
NSJ1wxHJwK6wJ2SQfrBNGsAP5LoF5QGtBhsY5gaDcX5BNze/AGIOrFvUY/KlNxgN/AFNkwWw8nyAKlGI
lMluiBM189enAMgBQoCWgiaoiAFIJYQqDBmXqCPBGpAMKF5plqbRQOBRXEF6A/uB1AB+IDSgRQuxcIR8
EIsnjEbzvE63sLAorK/XG/VGsr7JjOkwWZ+NT6bHnAAFKZRTBbhyPYYgRYB2uy0VEAIIJXrFYJfougVr
oHiD4gdSCRZAkYG9oVzp1YBk2BUa7InFbbmeStUQr1sc8wMkA6RZk9kCux8b+zaj0WMx+axmn80SsIPW
oNMedNgibkcpv6GbHBu/cM4yPyPfeZ/QDwF4KfFqAU6ElIAhFWAxpDeQGKwESSDFYAl6NOiGI/YDcgWG
eoJh+5gfiNJIWbxLKAIsMvUGBCSj1Wz6e0PwdYvpGxfTr6d27UZ9+kb9+hv06TcY1t/u2nn1dPLlE9HX
zC59IFL/UFSwoeVN0eaXVpqdx7lm2o8QpAggrvU4hhZLctBpHx500HbZbneILTzMbRMdtOQwrA6HLQ5a
5CA0XWBxSBeaK8gilhaRaB2JFaG1I14+YkE0C0ecGggclVKpFEI7m91An7o3mSxmk8tiep8hNTBbHZip
DEyVBqbKA1PooGVO7A9MV4iztQHjIfNowKQQm2idD/+SpVI/7DnR9qjokwCchLUCwO4SnXat0YyubfqX
iwFigVvq+FMFP9rlgm8570spXMqBXjAJbngUuhNZdyJDjEs6YxlXbN0ZTYMOMLLmCK85Iqv28Ko9tGIN
LksGUhY/uGTyJU2+hMmbmDK6H7g0c+/g+D2DY/deGL9vaPL+i5PnL03+wWR4YLb8Ulf1XKFzafPgIrEz
VDy4UOwMFjrnCx3sP5fvnM13zuQ6D+Y6D+Ta9+fa9220sfmZZGNAV/+f9krj6OkXQKmCxAlugMzOLXfa
lVrDEsku+NO6Xi7415jpBd/agm913r8271ub965Sn9s5zwpzGZwF3alZl+DSrHNp2rk04yJOO5NTDjAx
6UhM2ePghDU2YY2C49YI0RIZM4fAEVNoxBg8O2W7/cHxb957GfzWfZe/ff/wtx8YvuOB4dcPByDAJ+P0
wTHr9oF958C2c4COZYto3jowbXWMWx3DZkdf7CwWO7pCZ6HQmcvT5tdSzVMSQJOEVQGOATJU681qrQEl
VJZlW0enXK2DpQpY03K/XAX3wFIF3AX3y4I7e2Bpe3cf3AJ39jaJu8Xt3eLWTgHc3M4Xt8BccTNX2Nwo
FLO5QiZXWN/IR2JJvdEyp9PPLejndYYFvVFnMFoMxpsWlwZmSh+PN2Llo+fOl56vKzNLL9ByUbunLNoX
LpZ+VVcaWDxFD6CliKAQ4ODgQNhdC+w6xAMHaHEAbfJB5B/ENmUFdhnkA0oanMrVfMDJgNI152mRDESC
pmRQo+xM6VlN0ApEbkaJqlwQI3LBysqKzW4Xt1xB3Ullp83qsVs/bFwemC5DgETl6EWL5VcYKq8woGUa
r+owX858paH8XH2ZBaiejgBiHoBNMjKDzX4yyOQK1FRBBlcAw181gxMFUkOWRtxycURg25Pl2fhkf6qL
ulMEmqaR6cn4VJguLy9bbXbUnTztErW/1W2zaQV4yWL5VYbyq4zUvtpYEZ1XoSN2CvKeVxrLv2csP08K
cKo5AJvS/ArIHRg07BnUZwHEprA+IExPHe7zvEGOfnX6ptappAFDCnBcAy6GpABCA01turW9TB5Anx8m
GtkFrDaPHQKkSIAYCfBSffnVsC+sbyD7HuOrmdAAj6KDPb91agJo5gHYJGMfcrA5EG0XMLfaOQahASCs
L6BqAOtzy+WomD9TKcpOcJIfYEwQKQLJKYIyR4MApMHKyiqmt3wzCTOVoDTxFQLAA0ofizXi5aOX68uv
Ycu+xlh5LbEMYo9oVSX4ANr526cpwEkhCDgUSkg9eiANr4GwvlYD6ivQ+gErQThxpqZZvFP8QGjAZ/mF
E6ysrjocTtgdGoDIADab3Wu33awIgCT8Cj2ZFXydqUJER5I2xUMqsf+39aeVhNkDVAFgdAFYWbT8W3a4
lZBpWAO2v4Q0vAbkBVdpAFylgWYdGxOz7skbEYjID1alAHQZBA1/sr/d67ALAW6DAKWjV+lh+vLriZXf
Z77eWAapjw7vgd3RR+dGU/l3DKebA64SQAVsLVqNEj2Q5mdI8ws/uEoGrQaafMCxiOfFEIBaEqDrB+QK
vRqsrq45nCwAL7ux/XsEiJYOX6Mv30iW7fINbGghCe/BAWXsxOYbTZXnn7IAShImGx8eHh0diQ5A/aPD
K0dHV/CbiT6BHsIjghSoII4gRCGqpSrNphVdNBVqVw1owcsVFJbUZTwhBa1SCGeQQoDr6TR9dEmsNdts
Drvd4XD4XY6bTSsQ4NZoI1I6RNyHWZllas3lN5qhAbWanUTsfJOp8kIpwNNfhoqJmCKAsK2AVODwCNZt
tDr1ZqfRbNdVNtR+S3SqjVa13qo1mtxpgpV6gyjnbpisNUrVGlhGSzM1mqbJyRrN1Mo0WaNpWmkH3KM5
Gk3TMEHb3gUxQeM52vZSatVsc+iNZqIJqdhqstCtnj5oIA+AAOH9Q4SXN5Fly282gxXBN2n6tIkDzMS3
mMsvMogccDoCjIhzwtiUtu9FvdWxJ/L6cNYARjbQ6kPcB0NZfThDrWAwQ+TOYmB9UbRMzQKGWMNYlQsY
XnAFFCsWtGjhTvGiRXehgtYqQHuCGRtacN8xOHX7mbHbz4x+9+z4985OfO/85F3nJ944RmtBt7AACDVv
MVeY5bfKTuWt3b76qNz/ouskBxxdkQFGgALQ0VG7c5DY2A2nt8PrO9SubVGb3g6tbQlynxhc3QKxJ7i6
Sf2VTTAA8vqdn8jrd7yKpy7eiZU7XrPLusE4Ldu54oLrzti6IyYW7NbskTV7eG3eHhqcWHxweAY8MzJ7
bnT+3Nj8pbG5t03FB2ZYgL1DRJg/tFT+gIxb+QML95UWOyXFJu0vv8R4imWopgqCAACbXXRl/6GHrjzM
ROehK1oeaYk8IYisAHJH9g/FMgYvZYsO5wbOCtSKWQMVq5wYuimBEzTVR7xqTflgI5v1eL3ibBeiP12B
5XKFve6PWlYHZkq3RBqhvcM3mypvs5xMyCBa0QH/yFJ5qek6ywFkei0VyEQs+jJHUEfUSAJcHEkgC4tW
puHe0ojSsFoXUSYWhWm3LqLrLZTClAsiSsSZTMbt9ljppnJ2TIntkMDlCnjcHzWvIgd8NNII7h1i4L+d
LYtW5Tusx3eiD77DUnm5qXJdCCBGPQD7Xt05BmF6LWBr0aqgOoghFi9IAI0GohhiDUQxpGogBCAN1IUK
ZXa2vw4BPF4Unyg/6bQvXwcRhACWNSFAYO/gD81k7ndaZfsuhegLwujvZKKD/a+QApxKCDpJAC2kvYVb
8C/eInAVejKkAgx1KQkQGgiQBhR7CEIDrkhJgN5yVEwOOACV6I5ZEEBcm072p0tR3EGvRwjwkUg9sHvw
NjOZ9d2grYr2PUxtB1RVwZ5XnloIQhLW5ABh8RMhHUGBVEDBSd7Q1eDYtFm1vgA0UJaLWAKpgZBB1YDA
ApQzmazb49FeFORyu0OKADdH6v7dA4zr99iq77VViFZubZX3iU2xH3YXrbXyflv1VacWgrgKIgGCQWw+
hCT7eCDNz5CGZ/DEjDtsfW57IDUgCg2EAkosovwrNZACsAYiGWSRhOEBDrrXK11zQhdieUJeLwtQvjnc
gADvspBZBW+yVWF6bV9svk/pY+fvmSFA7fRyAHmAFEBAGvgagLllT6tBNxxRR86LWQMBrR+oJxXYBwiK
BlIARYMTnCCb3aAPi9FNLeXwZwHYA2ZKN4frvp2D91gqH7BXtfygjVs7NIDFKzdRR/Y/aKu8hgQ4rSSs
WY7mMrMLaeNrQ1i+R4WTIBXQZgJFAEAqoCbkbiySGmizcblc0QrA9oc/eMM+7y0cgj4cbnh3DjG6YesP
ncDKh3v34DDseZ0FAjROLwlrBDgRfCxalb2bmCKIVjtdEJ0TZwnkLGJyQPMDdWbAk4NWR5kZ8ORAKEJp
QZkZVPO5fMDvx7BH7PG43XR3Rb8vFvDdakvDA4QAGN0w682gQ0N79SO9m3SMo/pRe/X1JMCphCA1B2hC
EIa26AgcHl3JbFVXCuWVYnm1UNIQm+UVZROd5cL+cn6fWursgan8fiq3t5TbX0a7wZSd3aXsLtpkdieR
2SZyJ76+JRhLb8XWNmNrxSi4WoisFsIr+chKPrySswUS4wvm4Wn95Wn98IxhZM44NmeemTe9az4JAT4U
rnt2DjG0YeuPKryFKTrqThzwERxmr97qqN5IApxKGdorACCtrkGrc2iJFRYCWV1wg4lOVkebGgYyaBeC
mflAZiGwPg/6mdTPzHF/zsekTpq5PudNz3nXZkHP6gzoXp0mrki6lqddqSlXatIJLk04khP2BHhh3nPH
hZnbz0585+zk7ecmv3t+6nvnZ+4enHnDWGRgtvyhUN2zfYBxfavzKjqqtzlrt2n23MK8zVF9o/W0csBV
HiBaLeAQteZBtdGpNpmNToXYPoF1asv1VqneorZGVDrN/apgg1ip71Xq+xXulGvgbrm2U6oKbu9XtvbK
23tltJu75eJuaXNnvwhu7xW295IraYvdpTdb9WabwWI3WR1mu9PlcH3ISEsRH2QBEFU+5jyBHyfW0KIP
JQQ/4ay96RQFEPcN1XjACU4gHroK2N9LmQx684HMAZSq8aMmA+RrkQxEJlDTgMwEVKPSJE1mgu7nomqF
QgEZiz6e6nZ7vR7kAL/fHwv6OQeUIYBr6wCD/RMu4iddtU+iAyvTJvWxBx3sYTGqH3fVPuWqvkUKcJqr
oT1lKPflptgvFt+0oDKoF7IS6oWshHhmgEIIHXl2X1sU0dLc1SUp10MohkRFpJSkuVze5w+g/KcpANdA
Hq8v4vfdYqUkLATAAP8ULOsm437ahb5g7dMKxR7ogZ1/7K6+1XZaHqCWocpErAtlUxypbqqAxUV7Ncjw
Gj2EAICcHBCFAFoNjpekpAHJIFVQBKjl8nmfz08C0BSMi1ASwH8rC/CBYN25eYAB/sduWJb4J0pH9AXF
JrT5tLv6p+7aH56mAMIDWAABYd/joP3XeOga3iBaXqVQNDg6kgIokwNVA8wMxBqRVgFhfUA7LyMB+LbS
igCkQCQgBbgpWHdsHmB0w6x/BnqY2r6n9qds9D+lDonx557a2+zV0xRAXYpQoY536j8GCKNr0SMAfvX4
AQUiIQAgBADY/nKpjiUgFbSL1WJ9Ip8v+Pm20koEggP4or0CwKx/4TmBn2GiA6MTWZXPempvP10B1Bxw
DLCsaE8E7KvtkNV7wWbvQvUDGL1rfgjAGrDZJYQPACc6AQnAHgAKB0BEigUDt9rWhQD24gHG+2e8ZNnP
qu1VxAGkh7f2v721d0gBTumM2LUEAIQrUEdA7O1VRdr7KsDooiXrdwXocQUB4QHAMQEAVQMIQBrAAwok
AExPAnAG9vkCqgDvD9RtxQOMcZj1c2zcz3nr6HTpo03sVw/4S2/tXY5T9IBHFODaIGlkh3SRFIp0KaQA
IIaQQkJEJlKBdejwL5EQuCTqCiHPGKgyFApFKkM9MvzD/NAjHgrcJgQIkgCf9dY/76v9JbHObe0LvrpK
sYkWx3zeV/+ir/5uKcAplqG9OeAYYMsjYUzq0C9uUdJThw3KZy7ZztK0Cine87UtnHhRg1IZymHnoE0G
Vz7s1KYkzNcNof5vNfgkAVjnT40jByD+VGtgbSNf4DKUQpCLvunE5/X5o4HALSzA+4J1a6GDof1FP1mW
29qXfPW/8te/pJB28n6h0F/56u91QoDaKQkgTshcW4DO4ZFvZdueLCrctCeKRPRFJ1GwJYq2REFs2uIF
WzxvjxdA9K3xPDZBdKyxHFoL2lgOrSXKnWjOHN0wRzYsEWrN4ayJmAGNIXCdGEwbQ2lDMK0PrE1YQveN
Lt5zaVbw3svz94/ozo/q3jqVGJgtvzdAAmCAw+LgX5/IQI8ef+Ovv99ZO00PeDQBroTSu97lbe/Ktgft
MtotQe5jj9zsMrWppTtVdKNd2nQtoVNE61oqEJMFp8pEwRnPOxN5RzwH2mPgBmiLZm2xrC2aAa2RdXDW
Hjk7rr9/GHaff2Bk/szo4pkx/cVJ/dtmkiSAv24pdDDkvxyo/02AWpVf4RY7JaUYNey/iTzgVHIACUAX
Zj1yCHpCoJRwnL3rEyIxMJWLWbiVKxNoaZpAixMcm+SyxObmZigUQvHpRexB/kX6CgaTkdDH7BmEoPf4
6+Z8B5aFWf8WDIINbpVN3i/EEO3fBeofdAkPuD4mYo8KkWrFL+2eY+A00QORfGVLuUGC0rAGXBDR1Exk
Y84NIhNTKi4WN4OhEDKwLEEpBwcSoeBtdsoB7/XXTPnOl/31vwsS/575D0orOqB4FKaHGP8YrH/IfVoC
PLYkfCKkmXutLwyt7WuhCgBI23NmlnY/OBCGlgVPA4lXnf8SxOURuVwerxa2p0kY258ECEsB3s0CYKT/
Q6j+j6HGP1LLDGo61G/gANIjVP9qqH6z+zSrIHHn3CcqwEmArUWrBYwuWgE2PtehCjDYN7e26EZAgPiG
h57v6+PveUgtx2IJr5/vXykmAUIA8gAKQRDAkOvAsjAr+LVQA/x6uPG1cP1rYe5gD202vhoiQpJ/CtU/
cqoC9CxHPy4IcwPaPgBDqx0Vwu5qh6yvCUMQACFnZ4e+I4zvlktf9QnTgrAx7ExE1NcQGvA8IOAPBhPh
EHtA+d0+EgCWha3/SeH/iTDRYar7hR7/HK7f4jn1HPCEBACEoYUC1PAeWFnsBtj4BGF3tQOwAMIJuhog
yKTT66EQaYBXhRZjHBqIVipBd/QmAdDHnAARKRGSArzLV9PnOrAsLP7PkcY3lFYlNgWFJJDhm5HGrd5T
zQFPpgqSZob15W8C7K9KIKyvQtqeQVZnUABSYhEKn2q1ur6+Tn7gp2/Vgw5xvy8V8C75QU/S7036PAmf
G0QnFfAtB/25SODTDlqMe6evtrjRhnFhVvBb0ZOJh1RJsHmbtw4Bnuuoynf1mNEfD3jCIUiAzKwooWx3
IQ0vwHbHbwx8AamAAhaAak9okE6nUe0gwqPSvMuVuN2RvMMZV/k9Rwy8wxG705X4vjt5n3fpzZa8IkAH
9v12tPGdWJPaaON20caa34kpO7klJfjRj/nqA7raL5kr0zsH+r3Da1G3dzixfbB30L2lyinngMcPUqqH
V5+8VK5eadZr+dxGMhGPhIJfdq48Y6FMN0OZRVtGqOFbovRyGu3+Wz01XbYt7P7dGNjktvEvsSao7KHO
7dEmjvk27WcPmNqnZzZ0NGxTa+wMmDsDpoMB65UB18MfiDb2DvDKJZ4OARBLyo3Ofq29X9dQbKptrcWt
7OzVWntVhdRvqtytNHYraJs7lQaxXN8u1UXLrG3tS27uVfNb+8nVrMMb9NodXzcEf2J2e2CuMjBX+snF
8gvt1efZKoLPtVVB6lsrfx5tLGQ7GOnC4t+L9/AOpaPo0YRboPP5YOO5lspzrfQ84G9yC/6OvfoccxX/
cUDfGDA0v7zalkZR8HQk4VbnyBjNz/gzc4EsOMsdtLN+tCqxyfTR/hm0CqnvXQdn0PrQptFBOy25NuXp
pXtt0o12ddK1MulanXAuD+r837+kv/f81BcuGn92MjcwW/kZffl7yy1P4cCS75hzHUx90RE05g/G1jv/
wra+k/n9ROP7CbTEO7l/J1OIgSOhwb3Jpn6jAyJ8gbpsZyHbxjNPZdovs1cH9M1nLlbvyZ3wbShPhwBH
Vx7aKjUL+/XCfoMpOj2b+b36tVnL79Zyu9UctWq/urEDVsAsuA2W0Wa2ypKbJWZ5vbi/ltsJJdMmZ8Bs
tA4aPc9bLCIE3TBXvslT+wEZuiGGNiz7g0TzriS1sK/YFMROLX/Ax3w/3hAy/AueIYZNIQnFq9tjjR/E
G58P1p9tQFBq/6SxOr51IM3Ri//ncgCgjf5UOz185QiUlZOaAw4PQFod4nWhTrtV2t9Lr60lQwGz1/9q
48bANJJB6UZ79btRCuLfiTa/y4GFBr5i97uTkvckm/cuNe9ZQtsSm1IJ6RYsAz8JsgIy8x1Iy97asxZK
A6bDZ1uqjvI17/PXBwEuPdpy9GOHrHtOgiiCBFD8iFZAFkAKRCV64nlKvNqV1dVYIODx+d5uxryXNHiZ
rcoDlgbvnfGGGO9au99Hdqf2vqUWkzpCCVBoAN6RIA3gCnfFmx/y1H4UOd98+L9cjWT9ke413YcQJL7/
oz8CXFsDYXoBaXiAi1Gei5EMPBvrzgZYAKkBnRmjc2OtUqm0srIahsP6vB+3rEIAlJ6/Zal8K9a4j60J
6yt2b92/1Lw/1Xxwqfkg2lRL5f0gK4EjhTfgD5Et0N6daP6Rq/qv2fqv9dW3249yE7/+5IC+eIAwtPJL
/hYWp861NJACSNN3BRATAsUJhABiSXR/vwQ/CAeDUb/nS7bUM+f2UYD+irH89WjjDNsUloXpH0i1zqRa
55Zbg8utC6vtodXW0ErrwgptYueZFB0gHEJocG+ydVei+VpHdWChOmBsvz/SeCyz4v7kgCezFKGFMLoW
ZGxtqwB2Fy0LINEjAHvAMQH4QpVWo9Gkj2lsbESjkWTAd7tr6cfn95ASfl5f+ttI48IyjW4M8/PLraHV
9qXV1vBaezQtOZJuYxM7oQQOEN4Ad4GLIAq90FrBdAzl5mdSzUe3PaMvAjzB1dCrIa3OOLYJCNMLaAUA
hAACJwoAKBoQGs1mtVrL5/PRaDQV8p/xJn5BtwMN/r2u9LlQfZjtCyuPrLXH0+3J9fZ0piM4lelgEzvx
EA4YXGmdYRe5PdH8DXN5YLH5TH39G5njxf4joD8e0K8qiCNPTyag6MOmF62AtLoG0vYMRQCAWml+jQDi
bAFQq1ahQSwWWw4FpgLxX9NvQ4MfnS/9SbA+s94Spp/JdOY2OvMo7cFcZ4H7Mxl6aIy8oTW+1v5GvPFL
KDf1rWcZ6ucKj++rD68vAQTY5idAml/i0T2A22M5QAigaFCvV6uVQqG4tJRajUWs4fiLTUXkgx+ZK30k
UMesioy+0THkDzA7M+U7zANDnnbOZSFDR5dpfzXe/NnF0oCx85/NVd3uycX+I+A6SsLXhhpOyTd6qFkF
elhMAmgeoDlFzFcNyVPE5BHyKmo+OUznh0mOeg1ThMz6+loiHojG32wtoC4amN1/p69mynXsxQNr8QCt
Y/PADmKzQGJAFVu+85V481m60oD56Ncc9UDlidzUuz8CPHIZenB0JZUvxbL7j8poZg/kPnUU7srO+q6W
kXW6AUhkfQcUd/+gm36I+36s8p1AlNt90B0/5O166XYf6l16+S4f8ra8ttCK0R1JJWKpRPzDjhxpML3/
OlfVUuwEtg89Wwe+7UMvd1ybRPfmwWcjjRvmywOWo5f7GtnW47xntIL+CXDtENQ+OHItbZqieXOsIGiK
EtVNDfM4DDRGctSJKKR+TiUeNUY2TJENQ2QDHUOYboEjb36jcJHvfCNvdRPIqHe7oRveaG9y4xV3uKEP
M+m9S6vp9MpSci2Z+Jwn+yOz+wNTpRc7qobiwdL+YWj3MLx7GNw5DO8cQpLbwvWB+QqK/beFGuXHeb9o
LfqQA+QnZK7tAXh1ncMrkOGxsAV2DolqR2GzfaBhpwG2JOutNlHeCqpVU0h3faKbPVFbrtVLfIvefbon
b22vRPfk3eV78u7wrXh390u7u3uZbHZ1ebmwvHR7tPBvF0oDk/u/bqnMFjpr5aPI3mEKSuwcvsNfI+sb
O59INA6uPHHrA/1Lwk9hDlDA0zQmzQo49EtyTuYLhJSLhZCYkZrVNMAJgEE5gPOAvNOHuHpdXjxRqVT2
9/eLm5v5XK69tz22vv+zetLgF43l89l2rnLk3j54nRtTrdrAYuMrqy35wp4Eno4Q9LggK56TQHbWgMsf
CRQ/olUKHkqvGgvLK6PZyuLmQVX1HpcA3gWTbmYD8M12d3Z3dzulHVN29zmmfWjwE4vlf0i1XmCvDuga
z9SdvLb8BNA/D+APaj9JUGVzDUir90JYH6Dy8+gI1t/a2qJvqeKv1hZfMb+6yten0NeFgfyVYQzx1VVL
3MejdBiOpj/iL6inLxujdjeXcafzL7Lt0/cKzOwPLDR+yli71tryE0B/BHjkKuhxQQRUaXUGDK12VMDo
opXWZ2DMw2jBYDgYDIGBYMjPV0WoF0Z4/X55TYrP5/HSNSleH123goND4XA4EolEY7FEIplIJulr3SAQ
xFkprq+tFrdevrg+sFD/L4Z9+14/v2X++gpBwtAC6qaw+EkQ9qclUUWAJsZvkL78izUIsQzQIEgC8DVC
fH2KuDiFlUCfrl7BcbB/FOaPxeMJSLAEBcj+8BlyjMrO9tj0zLvGPffobHhZ4tX2Bf0QoE/L0cfiD/bA
xugIY6sdAEYXrYAqAGI/PACDmUzPxKui8R0IpII+YsC7JC9OISb9bmwuB/0r4cBaJLgeC2cT0Y1kLJ9K
FJaThZXk5moK3Flf7ezvmCZGF88/4JmfEq+2X+hjDnjSAmhx1R5hegFpeAVyOfroCAIggJMANPxJBhrb
waDNH/qBK36nK3EHka5JuVNcnOLgPl+Wcpc3dbdv+R7/yn2B1fuCa/eH0veH0w+E1x+MrJ+NZUfWdv9+
yvKlywtfnXMs7LSOXWzy+Fi6ktbM2q4pgHzfJ0Gagb9jfW9v/1E/oPEYIZ9dA/wL2btKANEK8OgniBDE
HsBOQGkgGA0GBz3xgTm+ZoQuPBEXpIhv51EuSJkURLUjWqUzAZaoHcekDMcjD1cHFjtEfXtAL1rRuQZ7
rlLhi1OcD38+1a1fuwIce5/a90bLWnJ9USylyDVF7CwWN0UIwruVT/REIV6AFvQ6ZFfzwrQCUPHZKwCS
cCgso5AiwAVP7Ib5vWfMl37dQteJPJ/5Akf1hU7ii5zVFzurL3ERf9dVe6mb+DLmyz21V3hqr2S+yltn
ys4rvfVXeOqv8OKY+stAd/2l7vrvuusvAV31F4PO2ouctRcyX+CoPd9B7U/rywOG5l8tXyWAeIfizQhb
CytT8czTExTLKJD39qhARqlXKBRyuVyxWES+EgIgnYmnemIQViZcpQSbvQdkfvlqBSVECBLRn+IPBX8I
EIAAz5zb+xl9eXqjYyt2LIWOo9jxbB0Edg4ju4eJvcPl0lG6fLhRPSrUrmw3ruw3r1RaVxqdh9oHDx0d
PfQwXF2bd9G/8vDhET2KYyptOn6nfgV/i2dIV47wbHjO6O4hnt+7deAsHuA/GvIdY67zWvogTfOvV3oF
EG8S7wemxwAXdq9WqzC6sPjm5iYsvrGxkclkUBKgNkOhgIIB8Hg8wyMjQxcv6Q0G8YxPGMLcV4OtfRxk
ffxwK83PHoBCXgx8YX2UOOGAf9AdFQIMpdvvd1d/31x5m63yPkf1Zmf1E+7qn3npk45fDtDV59+M0iUq
9yTpNMtFOiHTmlhvz2TpHMCCej4giz1t7B9Nty+utM4u0wl6/NW3onTNOp7nC/76n3trn3TX8Pz4L39k
rb7RUnm1ufJiU+WndCV4wMkC4A2IgY/Yolp/e3sbwxyDXTV9MpmE3VE0o3jjj5j7xscnRkfH6PvWN/v5
fet4VbKnaKPtCyBAERXAdXO5PIp4KuWZqCmXE/GRIJ34/U/68mC6/Xpr5bm60kvp+xkqbzLRXT9vstFt
mD7tog9kf4k/GPP1MF0YekecLnp4YKl1brk9yGeDxTnh88uts6kW9uNRHIMj/yncwF/hb/EMeJ5bHXQv
uXda6LbH+C8v05d/Z7H867ryf50v/Zu5xyCAGP6Ylx8TAJPFVCqFsR+NIq4GYXq3243KWqfTjY6NIgpN
TE3lCwXxvH2HMDNeJKUjDTqCvNqPF7+7t1coFOGsKrZyG/MrhRvmSYDz6faNtsrzFssvM9BXY8BA77RK
AT7loo+9f8FHH/v6Wqj+zQhdXHUneQM0aJ5J0Ug/B9PT6Xg6aQwv+X6CLk3EkTgef/VFHz0DngfP9gF7
VQjwOiN9zdLz9eXfWCw9e6H0Y49dgKs9QCtAiK86hgAuF33z/fjExPTMzIWhoYuIRYt6t8dDhSBqcHlX
GP7mXpUOAt2zU96502E0mgwGo16PP72K4hsf9foF+vJT3dzc3Mzc3Cw4y20vp6dnpqamJyYnx8bHx8aI
o2PjU2Oj35rQPWN2FyHocqb9elv1N+EBBvKAN5vJA95vq9ziqHzSVf0Ld+0L3tpX/PWvBuv/HK7fHqXL
hO5ONO9LNh9cIrufRbtEV6lgz93xxp10fW7jG2E6Hn/1RW8Nz/ApJ91C7gM2EuAtJvqCE4j92/ryr+pK
v6Ar3YBizNB49BCkrguKlJvP5zGUMMc5pgGiEHIAXMFut09OTY2OjeHNIxbBG1CYDl64oLQXkCSgjeSl
S93NS8yLtAfJHFOKXo5o+8PDI4h1sKlqXOoLW6OVRp9ASCROyM70+Ni3J/U3zO3esFD+NUvlJ3Xlfzdf
+vGF8n9YKP+UrvzTuvLP6Mo/t1j++cXyL+jLv6gv/1d9+dmG8i8byv/NWPnvxvKvmCrPYf4Phc8xVcFf
oUcrOOaXDZVnGyr4K/wtngHP83OLJTwnnvk/6ui//MRC+VkL5R+bL90wX/pXc+UBY+tkAYQGcOpjeZhX
B+l7uEQqhjdks9k0fw4LKYG/CD8BVZAYMK4xPMfGxsigQxdhdkH4BYwL82msOUzmVi2On+HhUVhXNeU4
TDcxNT2NcT03Nz83Pz+Ldm4OrmCkr55loqP2FcKZrFYbfQKSb0UA+jzuB+2hZxgaAxb+1k3z1Tzo2USp
bkIrOidSPKoeo+kfe6qraTkccD38uVRTWB8gAQBooMpApYVSjGqrflGSQhVRlYrFW4Qp/mKWHXRwDPbn
NjZ4DVKsPtICJPq0svhogK5QVwRudKA3/gVeABc7EuLVPl60rzz8QKFzd65zT/70eXfhMFDtvhEpgAqh
hIDQQ4W0AQMKCXAi7AJ75BM9foj/qP5rtPKB/69xXIDHCGEmFXLvD/H48QQF+CH6g4cf/r80txeHkZYE
3gAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

191
Terminalino/frmLoaderWS.vb Normal file
View File

@@ -0,0 +1,191 @@
Imports System.IO
Public Class frmLoaderWS
Dim chiaveGriglia As String = ""
Dim mode As String = ""
Dim fileNameLista As String
Public Sub New(ByVal value As String, ByVal value2 As String)
InitializeComponent()
chiaveGriglia = value
mode = value2
End Sub
Public Sub New(ByVal value As String, ByVal value2 As String, ByVal fileName As String)
InitializeComponent()
chiaveGriglia = value
mode = value2
fileNameLista = fileName
End Sub
Private Sub frmLoaderWS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If OfflineMode Then Ca.Text = "Caricamento articoli da file in corso" Else Ca.Text = "Caricamento articoli da WS in corso"
Dim X As Integer = (Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2
Dim Y As Integer = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2
Me.Location = New System.Drawing.Point(X, Y)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim outputEncoded As Boolean = True
If mode = "inv" Then
'If Form1.load_ws_elencoArticoliWithFiltro(chiaveGriglia, idInventario) = False Then
' Form1.Close()
'End If
outputEncoded = False
Dim parser As JSONObject = getElencoArticoli(chiaveGriglia, Nothing, outputEncoded)
parseResponse(parser, outputEncoded)
ElseIf mode = "acc" Then
Dim filtro As String = "<ROOT><PARAMETER><GESTIONE>A</GESTIONE></PARAMETER></ROOT>"
Dim parser As JSONObject = getElencoArticoli(filtro, chiaveGriglia, outputEncoded)
parseResponse(parser, outputEncoded)
ElseIf mode = "on" Then
Dim filtro As String = Nothing
Dim parser As JSONObject = getElencoArticoli(filtro, chiaveGriglia, outputEncoded)
parseResponse(parser, outputEncoded)
ElseIf mode = "dl" Then
'If Form1.load_ws_elencoArticoliWithFiltro(chiaveGriglia, "") = False Then
' Form1.Close()
'End If
outputEncoded = False
Dim parser As JSONObject = getElencoArticoli(chiaveGriglia, Nothing, outputEncoded)
parseResponse(parser, outputEncoded)
Else
If Form1.load_offline_articoli() = False Then
Form1.Close()
End If
End If
Me.Close()
End Sub
Private Sub parseResponse(ByVal parser As JSONObject, ByVal outputEncoded As Boolean)
Dim prefix_gestione = nameGestione.Substring(0, 2)
Dim path_cache_file As String = G_strDir + "/CACHE"
Dim cache_filename As String = nameGestione.Substring(0, 2) + "_" + fileNameLista + ".XML"
If (Not IsNothing(parser)) Then
Dim esito As JSONValue = parser.GetProperty("esito")
If esito.Value = 1 Then
Dim fileItem As JSONValue = parser.GetProperty("xml")
parser.Destroy()
Dim fileXml As JSONObject = fileItem.Value
fileItem.Destroy()
Dim fileContent As JSONValue
If outputEncoded Then
fileContent = fileXml.GetProperty("fileb64Content")
Else
fileContent = fileXml.GetProperty("fileContent")
End If
fileXml.Destroy()
Dim xmlreturned As String = ""
If Not IsNothing(fileContent) And Not IsNothing(fileContent.Value()) Then
If Not Directory.Exists(path_cache_file) Then Directory.CreateDirectory(path_cache_file)
If outputEncoded Then
xmlreturned = utility.base64ToString(fileContent.Value())
Else
xmlreturned = fileContent.Value().ToString().Replace("|", """")
End If
fileContent.Destroy()
docRD = New System.Xml.XmlDocument()
docRD.LoadXml(xmlreturned)
xmlreturned = String.Empty
GC.Collect()
If Not Directory.Exists(path_cache_file) Then
Directory.CreateDirectory(path_cache_file)
End If
docRD.Save(path_cache_file + "/" + cache_filename)
If Not Directory.Exists(path_cache_file) Then Directory.CreateDirectory(path_cache_file)
docRD.Save(path_cache_file + "/" + cache_filename)
Form1.Close()
End If
ElseIf esito.Value = -1 Then
Dim errorMsg As JSONValue = parser.GetProperty("errorMessage")
MsgBox(errorMsg.Value)
End If
End If
End Sub
Public Function escapeChar(ByVal str As String)
Return str.Replace("&", "&&")
End Function
Function URLEncode(ByVal EncodeStr As String) As String
Dim i As Integer
Dim erg As String
erg = EncodeStr
' *** First replace '%' chr
erg = Replace(erg, "%", Chr(1))
' *** then '+' chr
erg = Replace(erg, "+", Chr(2))
For i = 0 To 255
Select Case i
' *** Allowed 'regular' characters
Case 37, 43, 48 To 57, 65 To 90, 97 To 122
Case 1 ' *** Replace original %
erg = Replace(erg, Chr(i), "%25")
Case 2 ' *** Replace original +
erg = Replace(erg, Chr(i), "%2B")
Case 32
erg = Replace(erg, Chr(i), "+")
Case 3 To 15
erg = Replace(erg, Chr(i), "%0" & Hex(i))
Case Else
erg = Replace(erg, Chr(i), "%" & Hex(i))
End Select
Next
URLEncode = erg
End Function
Private Function getElencoArticoli(ByVal filtroXml As String, ByVal chiaveGriglia As String, ByVal outputEncoded As Boolean)
Dim userName As String = DefaultUser
Dim password As String = DefaultPassword
Dim profileDB As String = DefaultProfileDB
Dim status As Integer = 0
Dim response As String = Nothing
Dim parser As JSONObject = Nothing
Dim chiave As String = ""
If Not IsNothing(chiaveGriglia) Then
chiave = "&chiaveGriglia=" + URLEncode(chiaveGriglia)
End If
Dim outEnc As String
If outputEncoded Then
outEnc = "true"
Else
outEnc = "false"
End If
Dim url As String = "http://" + EndpointREST + "/ems-api/getElencoArticoli?outputEncoded=" + outEnc + "&profileDb=" + profileDB + chiave
utility.callRestWs(url, filtroXml, userName, password, status, response, parser)
Return parser
End Function
End Class

168
Terminalino/frmSettings.Designer.vb generated Normal file
View File

@@ -0,0 +1,168 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmSettings
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.btSalva = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.radPezzi = New System.Windows.Forms.RadioButton
Me.radColli = New System.Windows.Forms.RadioButton
Me.chk_freeRead = New System.Windows.Forms.CheckBox
Me.Label2 = New System.Windows.Forms.Label
Me.chk_legacyMode = New System.Windows.Forms.RadioButton
Me.chk_incremMode = New System.Windows.Forms.RadioButton
Me.Panel2 = New System.Windows.Forms.Panel
Me.chk_manuale = New System.Windows.Forms.RadioButton
Me.Label1 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'btSalva
'
Me.btSalva.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btSalva.Location = New System.Drawing.Point(146, 5)
Me.btSalva.Name = "btSalva"
Me.btSalva.Size = New System.Drawing.Size(88, 39)
Me.btSalva.TabIndex = 2
Me.btSalva.Text = "Salva"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ScrollBar
Me.Panel1.Controls.Add(Me.btSalva)
Me.Panel1.Location = New System.Drawing.Point(-1, 220)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(241, 48)
'
'radPezzi
'
Me.radPezzi.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.radPezzi.Location = New System.Drawing.Point(10, 137)
Me.radPezzi.Name = "radPezzi"
Me.radPezzi.Size = New System.Drawing.Size(213, 22)
Me.radPezzi.TabIndex = 4
Me.radPezzi.Text = "Pezzi/KG"
'
'radColli
'
Me.radColli.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.radColli.Location = New System.Drawing.Point(11, 158)
Me.radColli.Name = "radColli"
Me.radColli.Size = New System.Drawing.Size(213, 20)
Me.radColli.TabIndex = 6
Me.radColli.Text = "Colli"
'
'chk_freeRead
'
Me.chk_freeRead.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Regular)
Me.chk_freeRead.Location = New System.Drawing.Point(3, 179)
Me.chk_freeRead.Name = "chk_freeRead"
Me.chk_freeRead.Size = New System.Drawing.Size(230, 33)
Me.chk_freeRead.TabIndex = 8
Me.chk_freeRead.Text = "Modalità lettura libera"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Regular)
Me.Label2.Location = New System.Drawing.Point(3, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(166, 28)
Me.Label2.Text = "Input Quantità:"
'
'chk_legacyMode
'
Me.chk_legacyMode.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.chk_legacyMode.Location = New System.Drawing.Point(3, 47)
Me.chk_legacyMode.Name = "chk_legacyMode"
Me.chk_legacyMode.Size = New System.Drawing.Size(227, 22)
Me.chk_legacyMode.TabIndex = 18
Me.chk_legacyMode.Text = "Manuale + Lettura Barcode"
'
'chk_incremMode
'
Me.chk_incremMode.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.chk_incremMode.Location = New System.Drawing.Point(3, 25)
Me.chk_incremMode.Name = "chk_incremMode"
Me.chk_incremMode.Size = New System.Drawing.Size(178, 22)
Me.chk_incremMode.TabIndex = 17
Me.chk_incremMode.Text = "Incrementale (+1)"
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.White
Me.Panel2.Controls.Add(Me.chk_manuale)
Me.Panel2.Controls.Add(Me.chk_incremMode)
Me.Panel2.Controls.Add(Me.chk_legacyMode)
Me.Panel2.Location = New System.Drawing.Point(7, 33)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(230, 75)
'
'chk_manuale
'
Me.chk_manuale.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.chk_manuale.Location = New System.Drawing.Point(4, 4)
Me.chk_manuale.Name = "chk_manuale"
Me.chk_manuale.Size = New System.Drawing.Size(205, 20)
Me.chk_manuale.TabIndex = 19
Me.chk_manuale.Text = "Manuale + Enter"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(7, 111)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(193, 27)
Me.Label1.Text = "Gestisci quantità in:"
'
'frmSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.chk_freeRead)
Me.Controls.Add(Me.radColli)
Me.Controls.Add(Me.radPezzi)
Me.Controls.Add(Me.Panel1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettings"
Me.Text = "-"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btSalva As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents radPezzi As System.Windows.Forms.RadioButton
Friend WithEvents radColli As System.Windows.Forms.RadioButton
Friend WithEvents chk_freeRead As System.Windows.Forms.CheckBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents chk_legacyMode As System.Windows.Forms.RadioButton
Friend WithEvents chk_incremMode As System.Windows.Forms.RadioButton
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents chk_manuale As System.Windows.Forms.RadioButton
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

126
Terminalino/frmSettings.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

108
Terminalino/frmSettings.vb Normal file
View File

@@ -0,0 +1,108 @@
Imports System.IO
Imports System.Xml
Public Class frmSettings
Dim gestione As String
Public Sub New(ByVal strTextBox As String)
InitializeComponent()
gestione = strTextBox
End Sub
Private Sub frmSettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Impostazioni gestione " + gestione
utility.ChkSettings(gestione)
If G_incrementMode = "S" Then
chk_incremMode.Checked = True
ElseIf G_hybridMode = "S" Then
chk_legacyMode.Checked = True
Else
chk_manuale.Checked = True
End If
If G_freeRead = "S" Then chk_freeRead.Checked = True Else chk_freeRead.Checked = False
If G_um = "PEZZI" Then
radPezzi.Checked = True
radColli.Checked = False
Else
radPezzi.Checked = False
radColli.Checked = True
End If
'If gestione = FileOutputPickOrd Then
' radPezzi.Checked = True
' radPezzi.Enabled = False
' radColli.Enabled = False
' lblQta.Enabled = False
' lblPezzi.Enabled = False
' lblColli.Enabled = False
'End If
End Sub
Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_" + gestione)
If chk_manuale.Checked Then
G_incrementMode = "N"
G_hybridMode = "N"
ElseIf chk_incremMode.Checked Then
G_incrementMode = "S"
G_hybridMode = "N"
ElseIf chk_legacyMode.Checked Then
G_incrementMode = "N"
G_hybridMode = "S"
End If
childNode.Attributes.ItemOf("INCREMENTAL_MODE").InnerText = G_incrementMode
childNode.Attributes.ItemOf("HYBRID_MODE").InnerText = G_hybridMode
If chk_freeRead.Checked Then G_freeRead = "S" Else G_freeRead = "N"
childNode.Attributes.ItemOf("FREE_READING").InnerText = G_freeRead
If radPezzi.Checked Then G_um = "PEZZI" Else G_um = "COLLI"
childNode.Attributes.ItemOf("UM").InnerText = G_um
docConfig.Save(G_strDir + "\" + FileConfig)
Me.Close()
End Sub
Private Sub compatVerify()
If radColli.Checked And chk_incremMode.Checked Then
chk_freeRead.Checked = False
chk_freeRead.Enabled = False
Else
chk_freeRead.Enabled = True
End If
End Sub
Private Sub chk_freeRead_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chk_freeRead.CheckStateChanged
compatVerify()
End Sub
Private Sub chk_incremMode_CheckStateChanged(ByVal sender As Object, ByVal e As System.EventArgs)
compatVerify()
End Sub
Private Sub radColli_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radColli.CheckedChanged
compatVerify()
End Sub
Private Sub radPezzi_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radPezzi.CheckedChanged
compatVerify()
End Sub
Private Sub chk_manuale_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_manuale.CheckedChanged
compatVerify()
End Sub
Private Sub chk_legacyMode_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_legacyMode.CheckedChanged
compatVerify()
End Sub
End Class

106
Terminalino/frmSettingsBarcode.Designer.vb generated Normal file
View File

@@ -0,0 +1,106 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmSettingsBarcode
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.btSalva = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.txtPrecode = New System.Windows.Forms.TextBox
Me.txtLen = New System.Windows.Forms.TextBox
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'btSalva
'
Me.btSalva.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btSalva.Location = New System.Drawing.Point(146, 5)
Me.btSalva.Name = "btSalva"
Me.btSalva.Size = New System.Drawing.Size(88, 39)
Me.btSalva.TabIndex = 2
Me.btSalva.Text = "Salva"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ScrollBar
Me.Panel1.Controls.Add(Me.btSalva)
Me.Panel1.Location = New System.Drawing.Point(-1, 220)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(241, 48)
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Regular)
Me.Label2.Location = New System.Drawing.Point(3, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(185, 28)
Me.Label2.Text = "Lunghezza Barcode:"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 14.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(7, 71)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(193, 27)
Me.Label1.Text = "Lista Precode:"
'
'txtPrecode
'
Me.txtPrecode.Location = New System.Drawing.Point(11, 103)
Me.txtPrecode.Multiline = True
Me.txtPrecode.Name = "txtPrecode"
Me.txtPrecode.Size = New System.Drawing.Size(222, 99)
Me.txtPrecode.TabIndex = 2
'
'txtLen
'
Me.txtLen.Location = New System.Drawing.Point(11, 35)
Me.txtLen.MaxLength = 3
Me.txtLen.Name = "txtLen"
Me.txtLen.Size = New System.Drawing.Size(57, 23)
Me.txtLen.TabIndex = 1
'
'frmSettingsBarcode
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.txtLen)
Me.Controls.Add(Me.txtPrecode)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Panel1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettingsBarcode"
Me.Text = "-"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btSalva As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtPrecode As System.Windows.Forms.TextBox
Friend WithEvents txtLen As System.Windows.Forms.TextBox
End Class

126
Terminalino/frmSettingsBarcode.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

41
Terminalino/frmSettingsBarcode.vb Normal file
View File

@@ -0,0 +1,41 @@
Imports System.Xml
Public Class frmSettingsBarcode
Private Sub frmSettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Impostazioni Barcode"
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_INVENTARIO")
If Not IsNothing(childNode.Attributes.ItemOf("BARCODE_LEN")) Then
txtLen.Text = childNode.Attributes.ItemOf("BARCODE_LEN").InnerText
End If
If Not IsNothing(childNode.Attributes.ItemOf("PRECODE")) Then
txtPrecode.Text = childNode.Attributes.ItemOf("PRECODE").InnerText
End If
End Sub
Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_INVENTARIO")
If IsNothing(childNode.Attributes.ItemOf("BARCODE_LEN")) Then
childNode.Attributes.Append(docConfig.CreateAttribute("BARCODE_LEN"))
End If
childNode.Attributes.ItemOf("BARCODE_LEN").InnerText = txtLen.Text
barcodeLength = txtLen.Text
If IsNothing(childNode.Attributes.ItemOf("PRECODE")) Then
childNode.Attributes.Append(docConfig.CreateAttribute("PRECODE"))
End If
childNode.Attributes.ItemOf("PRECODE").InnerText = txtPrecode.Text
precode = txtPrecode.Text
docConfig.Save(G_strDir + "\" + FileConfig)
Me.Close()
End Sub
End Class

105
Terminalino/frmSettingsZona.Designer.vb generated Normal file
View File

@@ -0,0 +1,105 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class frmSettingsZona
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)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
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.btSalva = New System.Windows.Forms.Button
Me.Panel1 = New System.Windows.Forms.Panel
Me.chk_zonaObbl = New System.Windows.Forms.CheckBox
Me.chk_conn_server = New System.Windows.Forms.CheckBox
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'btSalva
'
Me.btSalva.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.btSalva.Location = New System.Drawing.Point(146, 5)
Me.btSalva.Name = "btSalva"
Me.btSalva.Size = New System.Drawing.Size(88, 39)
Me.btSalva.TabIndex = 2
Me.btSalva.Text = "Salva"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ScrollBar
Me.Panel1.Controls.Add(Me.btSalva)
Me.Panel1.Location = New System.Drawing.Point(-1, 220)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(241, 48)
'
'chk_zonaObbl
'
Me.chk_zonaObbl.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.chk_zonaObbl.Location = New System.Drawing.Point(7, 3)
Me.chk_zonaObbl.Name = "chk_zonaObbl"
Me.chk_zonaObbl.Size = New System.Drawing.Size(25, 33)
Me.chk_zonaObbl.TabIndex = 9
'
'chk_conn_server
'
Me.chk_conn_server.Location = New System.Drawing.Point(7, 52)
Me.chk_conn_server.Name = "chk_conn_server"
Me.chk_conn_server.Size = New System.Drawing.Size(25, 33)
Me.chk_conn_server.TabIndex = 10
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.Label1.Location = New System.Drawing.Point(32, 42)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(176, 63)
Me.Label1.Text = "Segnala connessione server assente durante il salvataggio."
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular)
Me.Label2.Location = New System.Drawing.Point(32, 9)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(137, 21)
Me.Label2.Text = "Zona obbligatoria"
'
'frmSettingsZona
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(240, 268)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.chk_conn_server)
Me.Controls.Add(Me.chk_zonaObbl)
Me.Controls.Add(Me.Panel1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettingsZona"
Me.Text = "-"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents btSalva As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents chk_zonaObbl As System.Windows.Forms.CheckBox
Friend WithEvents chk_conn_server As System.Windows.Forms.CheckBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
End Class

126
Terminalino/frmSettingsZona.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.FormFactorShadowProperty" xml:space="preserve">
<value>WEBPAD</value>
</metadata>
<metadata name="$this.Skin" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

60
Terminalino/frmSettingsZona.vb Normal file
View File

@@ -0,0 +1,60 @@
Imports System.Xml
Public Class frmSettingsZona
Private Sub frmSettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Impostazioni Barcode"
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_INVENTARIO")
If Not IsNothing(childNode.Attributes.ItemOf("ZONA_OBBL")) Then
If childNode.Attributes.ItemOf("ZONA_OBBL").InnerText.Equals("S") Then
chk_zonaObbl.Checked = True
Else
chk_zonaObbl.Checked = False
End If
End If
If Not IsNothing(childNode.Attributes.ItemOf("CHK_CONNECT")) Then
If childNode.Attributes.ItemOf("CHK_CONNECT").InnerText.Equals("S") Then
chk_conn_server.Checked = True
Else
chk_conn_server.Checked = False
End If
End If
End Sub
Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
Dim docConfig = New System.Xml.XmlDocument()
docConfig.Load(G_strDir + "\" + FileConfig)
Dim childNode As XmlNode = docConfig.SelectSingleNode("/ROOT/SET_INVENTARIO")
If IsNothing(childNode.Attributes.ItemOf("ZONA_OBBL")) Then
childNode.Attributes.Append(docConfig.CreateAttribute("ZONA_OBBL"))
End If
If chk_zonaObbl.Checked Then
childNode.Attributes.ItemOf("ZONA_OBBL").InnerText = "S"
Else
childNode.Attributes.ItemOf("ZONA_OBBL").InnerText = "N"
End If
chkZonaObbl = chk_zonaObbl.Checked
If IsNothing(childNode.Attributes.ItemOf("CHK_CONNECT")) Then
childNode.Attributes.Append(docConfig.CreateAttribute("CHK_CONNECT"))
End If
If chk_conn_server.Checked Then
childNode.Attributes.ItemOf("CHK_CONNECT").InnerText = "S"
Else
childNode.Attributes.ItemOf("CHK_CONNECT").InnerText = "N"
End If
chkConnect = chk_conn_server.Checked
docConfig.Save(G_strDir + "\" + FileConfig)
Me.Close()
End Sub
Private Sub chk_freeRead_CheckStateChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class

BIN
Terminalino/icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 81 KiB

BIN
Terminalino/obj/Debug/ResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More