Samuele E. Locatelli
67 lines
2.1 KiB
VB.net
67 lines
2.1 KiB
VB.net
Imports SteamWare
|
|
Imports AppData
|
|
Imports AppData.ComLib
|
|
|
|
Public Class Form1
|
|
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
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
' caricamento del NEXT STACK da redis (come oggetto)
|
|
Dim getFirstBunk = ComLib.prodGetFirstBunk()
|
|
' ho un bunk coi suoi pannelli...
|
|
|
|
Label1.Text = $"Trovato il bunk {getFirstBunk.StackId} costituito da {getFirstBunk.PanelsList.Count} pannelli"
|
|
|
|
' salvo bunk corrente
|
|
txtCurrBunk.Text = getFirstBunk.StackId
|
|
|
|
' 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)
|
|
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
' iniziato paint x sheet selezionato
|
|
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
' completato paint x sheet selezionato
|
|
End Sub
|
|
|
|
Private Sub btnNextBunk_Click(sender As Object, e As EventArgs) Handles btnNextBunk.Click
|
|
' carico nextBunk
|
|
Dim bunkId As Integer
|
|
bunkId = 0
|
|
Integer.TryParse(txtCurrBunk.Text, bunkId)
|
|
Dim nextBunk = ComLib.prodGetNextBunk(bunkId)
|
|
|
|
' mostro risultato...
|
|
If Not IsNothing(nextBunk) Then
|
|
lblNextBunk.Text = nextBunk.StackId
|
|
Else
|
|
lblNextBunk.Text = "none"
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|