Samuele E. Locatelli
44 lines
1.5 KiB
VB.net
44 lines
1.5 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"
|
|
|
|
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
|
|
|
|
End Class
|