diff --git a/Jenkinsfile b/Jenkinsfile
index d669775..83becb2 100644
--- a/Jenkinsfile
+++ b/Jenkinsfile
@@ -17,7 +17,7 @@ pipeline {
/* calcolo numero versione... diverso x branch MASTER/DEVELOP */
script {
- withEnv(['NEXT_BUILD_NUMBER=119']) {
+ withEnv(['NEXT_BUILD_NUMBER=121']) {
// env.versionNumber = VersionNumber(versionNumberString : '0.7.${BUILD_DATE_FORMATTED, "yyMM"}.${BUILDS_ALL_TIME}', projectStartDate : '2019-07-01', skipFailedBuilds: true)
env.versionNumber = VersionNumber(versionNumberString : '0.7.${BUILD_DATE_FORMATTED, "yyMM"}.${BUILDS_ALL_TIME}', projectStartDate : '2019-07-01', skipFailedBuilds: true, overrideBuildsAllTime: '${NEXT_BUILD_NUMBER}')
env.APP_NAME = 'NKC'
diff --git a/NKC_SDK/NKC.cs b/NKC_SDK/NKC.cs
index 0db9bd0..0f9ea7c 100644
--- a/NKC_SDK/NKC.cs
+++ b/NKC_SDK/NKC.cs
@@ -1,34 +1,8 @@
using Newtonsoft.Json;
using System;
-using System.Net;
namespace NKC_SDK
{
- ///
- /// Override metodo WebClient con gestione TimeOut corto
- ///
- public class WebClientWT : WebClient
- {
- ///
- /// timeout da conf
- ///
- protected int urlCallTOut
- {
- get
- {
- // 5 sec timeout
- return 10000;
- }
- }
- protected override WebRequest GetWebRequest(Uri address)
- {
- WebRequest wr = base.GetWebRequest(address);
- wr.Timeout = urlCallTOut; // timeout in milliseconds (ms)
- return wr;
- }
- }
-
-
public class NKC
{
#region utils comunicazione HTTP
@@ -49,7 +23,7 @@ namespace NKC_SDK
{
answ = client.DownloadString(URL);
}
- catch (Exception exc)
+ catch
{ }
// restituisco valore!
return answ;
@@ -69,15 +43,37 @@ namespace NKC_SDK
{
answ = client.UploadString(URL, payload);
}
- catch (Exception exc)
+ catch
{ }
// restituisco valore!
return answ;
}
+ ///
+ /// Effettua chiamata PUT
+ ///
+ ///
+ ///
+ ///
+ public static string putData(string URL, string payload)
+ {
+ string answ = "";
+ var client = new WebClientWT();
+ client.Headers.Add("user-agent", "NKC_SDK");
+ try
+ {
+ answ = client.UploadString(URL, payload);
+ }
+ catch
+ { }
+ // restituisco valore!
+ return answ;
+ }
+
+
#endregion
- #region fon di base
+ #region URL di base
protected string urlCurrBunk
{
@@ -94,6 +90,10 @@ namespace NKC_SDK
{
return $"{_baseUrl}api/Bunk/{currBunkId}?showNext=true";
}
+ protected string urlPutBunk(int currBunkId)
+ {
+ return $"{_baseUrl}api/Bunk/{currBunkId}";
+ }
#endregion
@@ -171,6 +171,22 @@ namespace NKC_SDK
{ }
return answ;
}
+ ///
+ /// Effettua salvataggio del BUNK corrente su NKC
+ ///
+ ///
+ public void saveBunk(ProdBunk currBunk)
+ {
+ try
+ {
+ // serializzo oggetto
+ string rawdata = JsonConvert.SerializeObject(currBunk);
+ // invio con metodo put!
+ putData(urlPutBunk(currBunk.BunkId), rawdata);
+ }
+ catch
+ { }
+ }
}
}
diff --git a/NKC_SDK/NKC_SDK.csproj b/NKC_SDK/NKC_SDK.csproj
index 5640e7a..c771e72 100644
--- a/NKC_SDK/NKC_SDK.csproj
+++ b/NKC_SDK/NKC_SDK.csproj
@@ -47,11 +47,10 @@
VersGen.cs
-
- Component
-
+
+
diff --git a/NKC_SDK/Utils.cs b/NKC_SDK/Utils.cs
new file mode 100644
index 0000000..27dc41b
--- /dev/null
+++ b/NKC_SDK/Utils.cs
@@ -0,0 +1,33 @@
+using System;
+using System.Net;
+
+namespace NKC_SDK
+{
+ public class Utils
+ {
+ }
+
+ ///
+ /// Override metodo WebClient con gestione TimeOut corto
+ ///
+ public class WebClientWT : WebClient
+ {
+ ///
+ /// timeout da conf
+ ///
+ protected int urlCallTOut
+ {
+ get
+ {
+ // 5 sec timeout
+ return 10000;
+ }
+ }
+ protected override WebRequest GetWebRequest(Uri address)
+ {
+ WebRequest wr = base.GetWebRequest(address);
+ wr.Timeout = urlCallTOut; // timeout in milliseconds (ms)
+ return wr;
+ }
+ }
+}
diff --git a/RedisExample/Form1.Designer.vb b/RedisExample/Form1.Designer.vb
index 1455fa8..e980bdc 100644
--- a/RedisExample/Form1.Designer.vb
+++ b/RedisExample/Form1.Designer.vb
@@ -22,30 +22,36 @@ Partial Class Form1
'Do not modify it using the code editor.
_
Private Sub InitializeComponent()
- Me.Button1 = New System.Windows.Forms.Button()
+ Me.btnReset = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
- Me.Button2 = New System.Windows.Forms.Button()
- Me.Button3 = New System.Windows.Forms.Button()
+ Me.btnLoadBunk = New System.Windows.Forms.Button()
+ Me.btnPrintStart = New System.Windows.Forms.Button()
Me.cmbSheet = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
- Me.Button4 = New System.Windows.Forms.Button()
- Me.Button5 = New System.Windows.Forms.Button()
- Me.Button6 = New System.Windows.Forms.Button()
- Me.Button7 = New System.Windows.Forms.Button()
- Me.Button8 = New System.Windows.Forms.Button()
+ Me.btnPrintEnd = New System.Windows.Forms.Button()
+ Me.btnWorkStart = New System.Windows.Forms.Button()
+ Me.btnWorkEnd = New System.Windows.Forms.Button()
+ Me.btnUnlStart = New System.Windows.Forms.Button()
+ Me.btnUnlEnd = New System.Windows.Forms.Button()
Me.btnNextBunk = New System.Windows.Forms.Button()
Me.txtCurrBunk = New System.Windows.Forms.TextBox()
Me.lblNextBunk = New System.Windows.Forms.Label()
+ Me.txtPrintStart = New System.Windows.Forms.TextBox()
+ Me.txtWorkStart = New System.Windows.Forms.TextBox()
+ Me.txtUnlStart = New System.Windows.Forms.TextBox()
+ Me.txtUnlEnd = New System.Windows.Forms.TextBox()
+ Me.txtWorkEnd = New System.Windows.Forms.TextBox()
+ Me.txtPrintEnd = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
- 'Button1
+ 'btnReset
'
- Me.Button1.Location = New System.Drawing.Point(86, 360)
- Me.Button1.Name = "Button1"
- Me.Button1.Size = New System.Drawing.Size(75, 23)
- Me.Button1.TabIndex = 0
- Me.Button1.Text = "Button1"
- Me.Button1.UseVisualStyleBackColor = True
+ Me.btnReset.Location = New System.Drawing.Point(86, 360)
+ Me.btnReset.Name = "btnReset"
+ Me.btnReset.Size = New System.Drawing.Size(75, 23)
+ Me.btnReset.TabIndex = 0
+ Me.btnReset.Text = "reset Date"
+ Me.btnReset.UseVisualStyleBackColor = True
'
'Label1
'
@@ -56,26 +62,27 @@ Partial Class Form1
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
- 'Button2
+ 'btnLoadBunk
'
- Me.Button2.Location = New System.Drawing.Point(64, 36)
- Me.Button2.Name = "Button2"
- Me.Button2.Size = New System.Drawing.Size(75, 23)
- Me.Button2.TabIndex = 2
- Me.Button2.Text = "Load BUNK"
- Me.Button2.UseVisualStyleBackColor = True
+ Me.btnLoadBunk.Location = New System.Drawing.Point(64, 36)
+ Me.btnLoadBunk.Name = "btnLoadBunk"
+ Me.btnLoadBunk.Size = New System.Drawing.Size(75, 23)
+ Me.btnLoadBunk.TabIndex = 2
+ Me.btnLoadBunk.Text = "Load BUNK"
+ Me.btnLoadBunk.UseVisualStyleBackColor = True
'
- 'Button3
+ 'btnPrintStart
'
- Me.Button3.Location = New System.Drawing.Point(64, 165)
- Me.Button3.Name = "Button3"
- Me.Button3.Size = New System.Drawing.Size(75, 23)
- Me.Button3.TabIndex = 3
- Me.Button3.Text = "Start Paint"
- Me.Button3.UseVisualStyleBackColor = True
+ Me.btnPrintStart.Location = New System.Drawing.Point(64, 165)
+ Me.btnPrintStart.Name = "btnPrintStart"
+ Me.btnPrintStart.Size = New System.Drawing.Size(75, 23)
+ Me.btnPrintStart.TabIndex = 3
+ Me.btnPrintStart.Text = "Start Paint"
+ Me.btnPrintStart.UseVisualStyleBackColor = True
'
'cmbSheet
'
+ Me.cmbSheet.DisplayMember = "SheetId"
Me.cmbSheet.FormattingEnabled = True
Me.cmbSheet.Location = New System.Drawing.Point(423, 38)
Me.cmbSheet.Name = "cmbSheet"
@@ -91,50 +98,50 @@ Partial Class Form1
Me.Label2.TabIndex = 5
Me.Label2.Text = "current sheet"
'
- 'Button4
+ 'btnPrintEnd
'
- Me.Button4.Location = New System.Drawing.Point(294, 165)
- Me.Button4.Name = "Button4"
- Me.Button4.Size = New System.Drawing.Size(75, 23)
- Me.Button4.TabIndex = 6
- Me.Button4.Text = "End Paint"
- Me.Button4.UseVisualStyleBackColor = True
+ Me.btnPrintEnd.Location = New System.Drawing.Point(423, 165)
+ Me.btnPrintEnd.Name = "btnPrintEnd"
+ Me.btnPrintEnd.Size = New System.Drawing.Size(75, 23)
+ Me.btnPrintEnd.TabIndex = 6
+ Me.btnPrintEnd.Text = "End Paint"
+ Me.btnPrintEnd.UseVisualStyleBackColor = True
'
- 'Button5
+ 'btnWorkStart
'
- Me.Button5.Location = New System.Drawing.Point(64, 209)
- Me.Button5.Name = "Button5"
- Me.Button5.Size = New System.Drawing.Size(75, 23)
- Me.Button5.TabIndex = 7
- Me.Button5.Text = "Start Cut"
- Me.Button5.UseVisualStyleBackColor = True
+ Me.btnWorkStart.Location = New System.Drawing.Point(64, 209)
+ Me.btnWorkStart.Name = "btnWorkStart"
+ Me.btnWorkStart.Size = New System.Drawing.Size(75, 23)
+ Me.btnWorkStart.TabIndex = 7
+ Me.btnWorkStart.Text = "Start Cut"
+ Me.btnWorkStart.UseVisualStyleBackColor = True
'
- 'Button6
+ 'btnWorkEnd
'
- Me.Button6.Location = New System.Drawing.Point(294, 209)
- Me.Button6.Name = "Button6"
- Me.Button6.Size = New System.Drawing.Size(75, 23)
- Me.Button6.TabIndex = 8
- Me.Button6.Text = "End Cut"
- Me.Button6.UseVisualStyleBackColor = True
+ Me.btnWorkEnd.Location = New System.Drawing.Point(423, 209)
+ Me.btnWorkEnd.Name = "btnWorkEnd"
+ Me.btnWorkEnd.Size = New System.Drawing.Size(75, 23)
+ Me.btnWorkEnd.TabIndex = 8
+ Me.btnWorkEnd.Text = "End Cut"
+ Me.btnWorkEnd.UseVisualStyleBackColor = True
'
- 'Button7
+ 'btnUnlStart
'
- Me.Button7.Location = New System.Drawing.Point(64, 251)
- Me.Button7.Name = "Button7"
- Me.Button7.Size = New System.Drawing.Size(75, 23)
- Me.Button7.TabIndex = 9
- Me.Button7.Text = "Start Unload"
- Me.Button7.UseVisualStyleBackColor = True
+ Me.btnUnlStart.Location = New System.Drawing.Point(64, 251)
+ Me.btnUnlStart.Name = "btnUnlStart"
+ Me.btnUnlStart.Size = New System.Drawing.Size(75, 23)
+ Me.btnUnlStart.TabIndex = 9
+ Me.btnUnlStart.Text = "Start Unload"
+ Me.btnUnlStart.UseVisualStyleBackColor = True
'
- 'Button8
+ 'btnUnlEnd
'
- Me.Button8.Location = New System.Drawing.Point(294, 251)
- Me.Button8.Name = "Button8"
- Me.Button8.Size = New System.Drawing.Size(75, 23)
- Me.Button8.TabIndex = 10
- Me.Button8.Text = "End Unload"
- Me.Button8.UseVisualStyleBackColor = True
+ Me.btnUnlEnd.Location = New System.Drawing.Point(423, 251)
+ Me.btnUnlEnd.Name = "btnUnlEnd"
+ Me.btnUnlEnd.Size = New System.Drawing.Size(75, 23)
+ Me.btnUnlEnd.TabIndex = 10
+ Me.btnUnlEnd.Text = "End Unload"
+ Me.btnUnlEnd.UseVisualStyleBackColor = True
'
'btnNextBunk
'
@@ -163,25 +170,73 @@ Partial Class Form1
Me.lblNextBunk.Text = "---"
Me.lblNextBunk.Visible = False
'
+ 'txtPrintStart
+ '
+ Me.txtPrintStart.Location = New System.Drawing.Point(159, 168)
+ Me.txtPrintStart.Name = "txtPrintStart"
+ Me.txtPrintStart.Size = New System.Drawing.Size(142, 20)
+ Me.txtPrintStart.TabIndex = 14
+ '
+ 'txtWorkStart
+ '
+ Me.txtWorkStart.Location = New System.Drawing.Point(159, 211)
+ Me.txtWorkStart.Name = "txtWorkStart"
+ Me.txtWorkStart.Size = New System.Drawing.Size(142, 20)
+ Me.txtWorkStart.TabIndex = 15
+ '
+ 'txtUnlStart
+ '
+ Me.txtUnlStart.Location = New System.Drawing.Point(159, 253)
+ Me.txtUnlStart.Name = "txtUnlStart"
+ Me.txtUnlStart.Size = New System.Drawing.Size(142, 20)
+ Me.txtUnlStart.TabIndex = 16
+ '
+ 'txtUnlEnd
+ '
+ Me.txtUnlEnd.Location = New System.Drawing.Point(526, 252)
+ Me.txtUnlEnd.Name = "txtUnlEnd"
+ Me.txtUnlEnd.Size = New System.Drawing.Size(142, 20)
+ Me.txtUnlEnd.TabIndex = 19
+ '
+ 'txtWorkEnd
+ '
+ Me.txtWorkEnd.Location = New System.Drawing.Point(526, 210)
+ Me.txtWorkEnd.Name = "txtWorkEnd"
+ Me.txtWorkEnd.Size = New System.Drawing.Size(142, 20)
+ Me.txtWorkEnd.TabIndex = 18
+ '
+ 'txtPrintEnd
+ '
+ Me.txtPrintEnd.Location = New System.Drawing.Point(526, 167)
+ Me.txtPrintEnd.Name = "txtPrintEnd"
+ Me.txtPrintEnd.Size = New System.Drawing.Size(142, 20)
+ Me.txtPrintEnd.TabIndex = 17
+ '
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.Controls.Add(Me.txtUnlEnd)
+ Me.Controls.Add(Me.txtWorkEnd)
+ Me.Controls.Add(Me.txtPrintEnd)
+ Me.Controls.Add(Me.txtUnlStart)
+ Me.Controls.Add(Me.txtWorkStart)
+ Me.Controls.Add(Me.txtPrintStart)
Me.Controls.Add(Me.lblNextBunk)
Me.Controls.Add(Me.txtCurrBunk)
Me.Controls.Add(Me.btnNextBunk)
- Me.Controls.Add(Me.Button8)
- Me.Controls.Add(Me.Button7)
- Me.Controls.Add(Me.Button6)
- Me.Controls.Add(Me.Button5)
- Me.Controls.Add(Me.Button4)
+ Me.Controls.Add(Me.btnUnlEnd)
+ Me.Controls.Add(Me.btnUnlStart)
+ Me.Controls.Add(Me.btnWorkEnd)
+ Me.Controls.Add(Me.btnWorkStart)
+ Me.Controls.Add(Me.btnPrintEnd)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbSheet)
- Me.Controls.Add(Me.Button3)
- Me.Controls.Add(Me.Button2)
+ Me.Controls.Add(Me.btnPrintStart)
+ Me.Controls.Add(Me.btnLoadBunk)
Me.Controls.Add(Me.Label1)
- Me.Controls.Add(Me.Button1)
+ Me.Controls.Add(Me.btnReset)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
@@ -189,18 +244,24 @@ Partial Class Form1
End Sub
- Friend WithEvents Button1 As Button
+ Friend WithEvents btnReset As Button
Friend WithEvents Label1 As Label
- Friend WithEvents Button2 As Button
- Friend WithEvents Button3 As Button
+ Friend WithEvents btnLoadBunk As Button
+ Friend WithEvents btnPrintStart As Button
Friend WithEvents cmbSheet As ComboBox
Friend WithEvents Label2 As Label
- Friend WithEvents Button4 As Button
- Friend WithEvents Button5 As Button
- Friend WithEvents Button6 As Button
- Friend WithEvents Button7 As Button
- Friend WithEvents Button8 As Button
+ Friend WithEvents btnPrintEnd As Button
+ Friend WithEvents btnWorkStart As Button
+ Friend WithEvents btnWorkEnd As Button
+ Friend WithEvents btnUnlStart As Button
+ Friend WithEvents btnUnlEnd As Button
Friend WithEvents btnNextBunk As Button
Friend WithEvents txtCurrBunk As TextBox
Friend WithEvents lblNextBunk As Label
+ Friend WithEvents txtPrintStart As TextBox
+ Friend WithEvents txtWorkStart As TextBox
+ Friend WithEvents txtUnlStart As TextBox
+ Friend WithEvents txtUnlEnd As TextBox
+ Friend WithEvents txtWorkEnd As TextBox
+ Friend WithEvents txtPrintEnd As TextBox
End Class
diff --git a/RedisExample/Form1.vb b/RedisExample/Form1.vb
index 38980d6..88fc048 100644
--- a/RedisExample/Form1.vb
+++ b/RedisExample/Form1.vb
@@ -1,5 +1,4 @@
Imports NKC_SDK
-Imports SteamWare
Public Class Form1
@@ -9,53 +8,50 @@ Public Class Form1
' DEV: https : http://localhost:44388/
Dim baseUrl As String = "http://seriate.steamware.net:8083/NKC/"
Dim currNKC As NKC = New NKC(baseUrl)
+ Dim currentBunk As ProdBunk = Nothing
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ' invio notifica che c'è una busta da processare
- Dim redKey = $"PROVA:CURR"
- ' scrivo su REDIS
- memLayer.ML.setRSV(redKey, "ciao " & DateTime.Now.ToString())
- 'ComLib.sendMaterials()
- Label1.Text = memLayer.ML.getRSV(redKey)
- 'Dim x As New Takt
- 'x = readTakt("PROD", "20190821.1")
- 'x.StackList(0).PanelsList(0).Printing()
- 'Dim d = memLayer.ML.connRedis.Configure.
- 'Dim h = memLayer.ML.connRedis
+ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+
+ ' resetto TUTTE le date e salvo il bunk!
+
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Printing.DtStart = Nothing
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Printing.DtEnd = Nothing
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Machining.DtStart = Nothing
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Machining.DtEnd = Nothing
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Unloading.DtStart = Nothing
+ currentBunk.SheetList(cmbSheet.SelectedIndex).Unloading.DtEnd = Nothing
+
+ ' salvo!
+ currNKC.saveBunk(currentBunk)
+
+
+
+ '' invio notifica che c'è una busta da processare
+ 'Dim redKey = $"PROVA:CURR"
+ '' scrivo su REDIS
+ 'memLayer.ML.setRSV(redKey, "ciao " & DateTime.Now.ToString())
+ ''ComLib.sendMaterials()
+ 'Label1.Text = memLayer.ML.getRSV(redKey)
+ ''Dim x As New Takt
+ ''x = readTakt("PROD", "20190821.1")
+ ''x.StackList(0).PanelsList(0).Printing()
+ ''Dim d = memLayer.ML.connRedis.Configure.
+ ''Dim h = memLayer.ML.connRedis
End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-
- ' recupero BUNK!
- Dim getFirstBunk = currNKC.getFirstBunk
-
- '' chiamata diretta redis + DB
- 'Dim getFirstBunk = ComLib.prodGetFirstBunk()
- ' ho un bunk coi suoi pannelli...
-
- Label1.Text = $"Trovato il bunk {getFirstBunk.BunkId} costituito da {getFirstBunk.SheetList.Count} pannelli"
-
- ' salvo bunk corrente
- txtCurrBunk.Text = getFirstBunk.BunkId
-
- ' visualizzo btn nextBunk
- btnNextBunk.Visible = True
- lblNextBunk.Visible = True
- lblNextBunk.Text = "..."
-
- End Sub
Private Sub cmbSheet_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbSheet.SelectedIndexChanged
' selezione cambiata su elenco sheet (dal primo all'ultimo a runtime OBBLIGATORIO)
+ updateDataButtons()
End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnPrintStart.Click
' iniziato paint x sheet selezionato
End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+ Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnPrintEnd.Click
' completato paint x sheet selezionato
End Sub
@@ -77,4 +73,51 @@ Public Class Form1
End If
End Sub
+
+ Private Sub btnLoadBunk_Click(sender As Object, e As EventArgs) Handles btnLoadBunk.Click
+ ' recupero BUNK!
+ currentBunk = currNKC.getFirstBunk
+
+ '' chiamata diretta redis + DB
+ 'Dim getFirstBunk = ComLib.prodGetFirstBunk()
+ ' ho un bunk coi suoi pannelli...
+
+ Label1.Text = $"Trovato il bunk {currentBunk.BunkId} costituito da {currentBunk.SheetList.Count} pannelli"
+
+ ' salvo bunk corrente
+ txtCurrBunk.Text = currentBunk.BunkId
+
+ ' visualizzo btn nextBunk
+ btnNextBunk.Visible = True
+ lblNextBunk.Visible = True
+ lblNextBunk.Text = "..."
+
+ ' popolo il selettore dei fogli...
+ cmbSheet.DataSource = currentBunk.SheetList
+
+ updateDataButtons()
+
+ End Sub
+
+ Private Sub updateDataButtons()
+
+ ' imposto dateora ed in base ai valori dt del currBunk abilito o meno i buttons...
+ txtPrintStart.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Printing.DtStart.ToString()
+ txtPrintEnd.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Printing.DtEnd.ToString()
+ txtWorkStart.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Machining.DtStart.ToString()
+ txtWorkEnd.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Machining.DtEnd.ToString()
+ txtUnlStart.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Unloading.DtStart.ToString()
+ txtUnlEnd.Text = currentBunk.SheetList(cmbSheet.SelectedIndex).Unloading.DtEnd.ToString()
+
+
+ btnPrintStart.Enabled = String.IsNullOrWhiteSpace(txtPrintStart.Text)
+ btnPrintEnd.Enabled = String.IsNullOrWhiteSpace(txtPrintEnd.Text)
+ btnWorkStart.Enabled = String.IsNullOrWhiteSpace(txtWorkStart.Text)
+ btnWorkEnd.Enabled = String.IsNullOrWhiteSpace(txtWorkEnd.Text)
+ btnUnlStart.Enabled = String.IsNullOrWhiteSpace(txtUnlStart.Text)
+ btnUnlEnd.Enabled = String.IsNullOrWhiteSpace(txtUnlEnd.Text)
+
+
+ End Sub
+
End Class