Samuele E. Locatelli
117 lines
3.5 KiB
VB.net
117 lines
3.5 KiB
VB.net
Imports DB_proxy
|
|
Imports System
|
|
|
|
Public Class Main
|
|
|
|
|
|
Protected CurrOprBCode As String
|
|
Protected CurrDatamatrix As String
|
|
Protected CurrCodArt As String
|
|
Protected ArtOk As Boolean
|
|
|
|
|
|
Private Sub updCtrl()
|
|
'Me.tabOperazioniTableAdapter.Fill(Me.dS_App.TabOperazioni)
|
|
'Me.anagAllarmiTableAdapter.Fill(Me.dS_App.AnagAllarmi)
|
|
'Me.StoricoAllarmiExpTableAdapter.FillLastRec(Me.dS_App.StoricoAllarmiExp, 100)
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
|
|
CurrOprBCode = txtBCode.Text.Trim()
|
|
Dim tabOpr = DataLayer.man.taAnagOpr.GetByBCode(CurrOprBCode)
|
|
|
|
If tabOpr.Rows.Count > 0 Then
|
|
lblOpr.Text = String.Format("{0} {1}", tabOpr(0).Cognome, tabOpr(0).Nome)
|
|
Else
|
|
lblOpr.Text = "BARCODE NON TROVATO"
|
|
End If
|
|
|
|
updCtrl()
|
|
End Sub
|
|
|
|
Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
|
|
CurrDatamatrix = txtDTMatrix.Text.Trim()
|
|
|
|
If CurrDatamatrix.Length >= 11 Then
|
|
CurrCodArt = CurrDatamatrix.Substring(0, 11)
|
|
Else
|
|
CurrCodArt = ""
|
|
ArtOk = False
|
|
End If
|
|
|
|
If CurrCodArt <> "" Then
|
|
Dim tabArt = DataLayer.man.taAnagArt.GetByCodArt(CurrCodArt)
|
|
|
|
If tabArt.Rows.Count > 0 Then
|
|
lblOutArt.Text = String.Format("Dtmtx: {0} - CodArt {1}", CurrDatamatrix, CurrCodArt)
|
|
lblArt.Text = String.Format("CodArt {0}", CurrCodArt)
|
|
lblOutArt.Text += String.Format(" | Descr: {0} ", tabArt(0).Descrizione)
|
|
ArtOk = True
|
|
Else
|
|
lblOutArt.Text = String.Format("Dtmtx: {0}", CurrDatamatrix)
|
|
lblArt.Text = "ATTENZIONE: Articolo NON trovato!"
|
|
ArtOk = False
|
|
End If
|
|
End If
|
|
|
|
updCtrl()
|
|
End Sub
|
|
|
|
Private Sub btnEmptyTabOpr_Click(sender As Object, e As EventArgs) Handles btnEmptyTabOpr.Click
|
|
Dim message As String = ""
|
|
Dim caption As String = "Richiesta FULL RESET DB"
|
|
Dim buttons As MessageBoxButtons = MessageBoxButtons.YesNo
|
|
Dim result As DialogResult
|
|
Dim authKey As String = txtAuthKey.Text.Trim()
|
|
Dim isAuth As Boolean = authKey = "digheDelBu"
|
|
|
|
If isAuth Then
|
|
message = "Sicuro di voler ELIMINARE COMPLETAMENTE i dati delle tabelle Operazioni e Pezzi?"
|
|
Else
|
|
message = "Errore: auth key non valida"
|
|
buttons = MessageBoxButtons.OK
|
|
End If
|
|
|
|
result = MessageBox.Show(message, caption, buttons)
|
|
|
|
If isAuth Then
|
|
|
|
If result = System.Windows.Forms.DialogResult.Yes Then
|
|
DataLayer.man.taTO.deleteAll(txtAuthKey.Text.Trim())
|
|
updCtrl()
|
|
lblOprOutMess.Text = "Effettuato SVUOTAMENTO COMPLETO TabOpr e TabPezzi"
|
|
Paginatore.SelectedIndex = 0
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnPurgeOld_Click(sender As Object, e As EventArgs) Handles btnPurgeOld.Click
|
|
Dim numGG As Integer = 365
|
|
Integer.TryParse(txtDay2keep.Text.Trim(), numGG)
|
|
DataLayer.man.taTO.purgeOld(numGG)
|
|
updCtrl()
|
|
lblOprOutMess.Text = "Effettuato svecchiamento TabOpr"
|
|
Paginatore.SelectedIndex = 0
|
|
End Sub
|
|
|
|
Private Sub btnReloadOpr_Click(sender As Object, e As EventArgs) Handles btnReloadOpr.Click
|
|
updCtrl()
|
|
End Sub
|
|
|
|
Private Sub btnSendAlarms_Click(sender As Object, e As EventArgs) Handles btnSendAlarms.Click
|
|
Dim allarmi As String = ""
|
|
|
|
For Each item In lbAllarmi.SelectedItems
|
|
allarmi += item & ","
|
|
Next
|
|
|
|
If allarmi.Length > 1 Then
|
|
allarmi = allarmi.Substring(0, allarmi.Length - 1)
|
|
End If
|
|
|
|
DataLayer.man.taSAL.checkStatus(",", allarmi)
|
|
updCtrl()
|
|
End Sub
|
|
End Class |