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

End Class