Imports AppData.ComLib
Imports NKC_SDK
Imports SteamWare


Public Class Form1

  ' caricamento del NEXT STACK da redis (come oggetto)
  ' PROD http : http://seriate.steamware.net:8083/NKC/
  ' DEV:  https : http://localhost:44388/
  Dim baseUrl As String = "http://seriate.steamware.net:8083/NKC/"
  Dim currNKC As NKC = New NKC(baseUrl)

  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

    ' 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.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)
    '' con com lib diretta...
    'Dim nextBunk = ComLib.prodGetNextBunk(bunkId)

    Dim nextBunk = currNKC.getNextBunk(bunkId)

    ' mostro risultato...
    If Not IsNothing(nextBunk) Then
      lblNextBunk.Text = nextBunk.StackId
    Else
      lblNextBunk.Text = "none"
    End If

  End Sub
End Class