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)

  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