Samuele E. Locatelli
277 lines
7.8 KiB
VB.net
277 lines
7.8 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 Main_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
|
|
|
' aggiorno visualizzazione
|
|
resetDefault()
|
|
dataInit()
|
|
updCtrl()
|
|
|
|
End Sub
|
|
|
|
Private Sub dataInit()
|
|
|
|
' STAZIONI
|
|
cbStazione.Items.Add("CMS-F164")
|
|
cbStazione.SelectedIndex = 0
|
|
|
|
' SOTTOSTAZIONI
|
|
cbSottostazione.Items.Add("TAV01")
|
|
cbSottostazione.Items.Add("TAV02")
|
|
cbSottostazione.SelectedIndex = 0
|
|
|
|
' OPERAZIONI
|
|
cbOperazione.Items.Add("OPR01")
|
|
cbOperazione.Items.Add("OPR02")
|
|
cbOperazione.Items.Add("OPR03")
|
|
cbOperazione.Items.Add("OPR04")
|
|
cbOperazione.SelectedIndex = 0
|
|
|
|
' STATI
|
|
cbStato.Items.Add("ST01")
|
|
cbStato.Items.Add("ST02")
|
|
cbStato.Items.Add("ST03")
|
|
cbStato.Items.Add("ST04")
|
|
cbStato.SelectedIndex = 0
|
|
|
|
End Sub
|
|
|
|
Private Sub resetDefault()
|
|
CurrCodArt = ""
|
|
CurrDatamatrix = ""
|
|
CurrOprBCode = ""
|
|
ArtOk = False
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub updCtrl()
|
|
'----------------------------------
|
|
' popolo TUTTE le tabelle
|
|
'----------------------------------
|
|
|
|
' operazioni....
|
|
Dim tabOperaz = DataLayer.man.taTO.GetData()
|
|
dgvOpr.DataSource = tabOperaz
|
|
|
|
' allarmi
|
|
Dim tabAnagAll = DataLayer.man.taAnagAll.GetData()
|
|
dgvAnagAlarm.DataSource = tabAnagAll
|
|
|
|
' storico allarmi
|
|
Dim tabStAll = DataLayer.man.taSAL.GetLastRec(100)
|
|
dgvAlarmLog.DataSource = tabStAll
|
|
|
|
' operatori
|
|
Dim tabOperatori = DataLayer.man.taAnagOpr.GetData()
|
|
dgvOperatori.DataSource = tabOperatori
|
|
|
|
' attrezzature
|
|
Dim tabAttr = DataLayer.man.taAttrezz.GetData()
|
|
dgvAttrezzature.DataSource = tabAttr
|
|
|
|
' log OP utenti
|
|
Dim tabTLO = DataLayer.man.taTLO.getByBCode(CurrOprBCode, 100)
|
|
dgvTabOpUt.DataSource = tabTLO
|
|
|
|
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
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
Dim txtBCode As String
|
|
Dim tabOpr As DS_App.AnagOperatoriDataTable
|
|
|
|
txtBCode = txtBCodeOpr.Text.Trim()
|
|
|
|
' se ho testo faccio filtro, se contiene "*" leggo tutto
|
|
|
|
If (txtBCode.Equals("*")) Then
|
|
tabOpr = DataLayer.man.taAnagOpr.GetData()
|
|
Else
|
|
tabOpr = DataLayer.man.taAnagOpr.GetByBCode(txtBCode)
|
|
End If
|
|
|
|
dgvOperatori.DataSource = tabOpr
|
|
|
|
End Sub
|
|
|
|
Private Sub btnAddOpr_Click(sender As Object, e As EventArgs) Handles btnAddOpr.Click
|
|
|
|
Dim messaggio As String = ""
|
|
' controllo preliminare che ci siano dati base
|
|
If (CurrCodArt <> "" And ArtOk) Then
|
|
' ora verifico selezioni...
|
|
If (cbStazione.SelectedIndex >= 0) Then
|
|
' ora verifico selezioni...
|
|
If (cbSottostazione.SelectedIndex >= 0) Then
|
|
' ora verifico selezioni...
|
|
If (cbOperazione.SelectedIndex >= 0) Then
|
|
' ora verifico selezioni...
|
|
If (cbStato.SelectedIndex >= 0) Then
|
|
DataLayer.man.taTO.insertQuery(CurrDatamatrix, CurrCodArt, cbStazione.SelectedItem, cbSottostazione.SelectedItem, cbOperazione.SelectedItem, cbStato.SelectedItem)
|
|
messaggio = "OK: creato record OPERAZIONE"
|
|
updCtrl()
|
|
Else
|
|
messaggio = "Errore: manca selezione STATO valida"
|
|
End If
|
|
Else
|
|
messaggio = "Errore: manca selezione OPERAZIONE valida"
|
|
End If
|
|
Else
|
|
messaggio = "Errore: manca selezione SOTTOSTAZIONE valida"
|
|
End If
|
|
Else
|
|
messaggio = "Errore: manca selezione STAZIONE valida"
|
|
End If
|
|
Else
|
|
messaggio = "Errore: manca un articolo valido"
|
|
End If
|
|
lblOprOutMess.Text = messaggio
|
|
|
|
End Sub
|
|
|
|
Private Sub search_Click(sender As Object, e As EventArgs) Handles search.Click
|
|
|
|
Dim _txtAttr As String = txtAttr.Text.Trim()
|
|
Dim _txtArtA As String = TxtArtA.Text.Trim()
|
|
Dim _txtArtB As String = TxtArtB.Text.Trim()
|
|
|
|
Dim tabAttr As DS_App.TabAttrezzatureDataTable
|
|
|
|
' se ho testo faccio filtro, se contiene "*" leggo tutto
|
|
|
|
If (txtBCode.Equals("*")) Then
|
|
tabAttr = DataLayer.man.taAttrezz.GetData()
|
|
Else
|
|
tabAttr = DataLayer.man.taAttrezz.GetBySearch(_txtAttr, _txtArtA, _txtArtB)
|
|
End If
|
|
|
|
dgvAttrezzature.DataSource = tabAttr
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Dim messaggio As String = ""
|
|
' controllo preliminare che ci siano dati base
|
|
If (CurrOprBCode <> "") Then
|
|
' salvo operazione utente
|
|
DataLayer.man.taTLO.insertQuery(CurrOprBCode, DateTime.Now, txtEvOpUt.Text.Trim())
|
|
Else
|
|
messaggio = "Manca BCode op!"
|
|
End If
|
|
|
|
lblErrTLO.Text = messaggio
|
|
|
|
updCtrl()
|
|
|
|
End Sub
|
|
End Class |