NicolaP
82 lines
2.9 KiB
VB.net
82 lines
2.9 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtPHOTOLib
|
|
Imports System.IO
|
|
|
|
Public Class AddToDataBaseUC
|
|
|
|
Private m_OmagPhotoWD As OmagPhotoWD
|
|
|
|
#Region "PROPERTY"
|
|
Private Sub BlockTxBx_EgtClosed(sender As Object, e As EventArgs) Handles BlockTxBx.EgtClosed
|
|
' assegno il dato alla classe inizializzata nella libreria
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNameBlock = BlockTxBx.Text
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Sub NbrIdTxBx_EgtClosed(sender As Object, e As EventArgs) Handles NbrIdTxBx.EgtClosed
|
|
' assegno il dato alla classe inizializzata nella libreria
|
|
'EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNbrID = IdTxBx.Text
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNbrID = NbrIdTxBx.Text
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Sub StateCmBx_Changed() Handles StateCmBx.SelectionChanged
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.State = StateCmBx.SelectedIndex
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Sub ProjectTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ProjectTxBx.EgtClosed
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.ProjectAssignedTo = ProjectTxBx.Text
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Sub ThicknessTxBx_EgtClosed(sender As Object, e As EventArgs) Handles ThicknessTxBx.EgtClosed
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.Thickness = ThicknessTxBx.Text
|
|
EnableButtons()
|
|
End Sub
|
|
|
|
Private Sub WarehouseTxBx_EgtClosed(sender As Object, e As EventArgs) Handles WarehouseTxBx.EgtClosed
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.WarehousePosition = WarehouseTxBl.Text
|
|
EnableButtons()
|
|
End Sub
|
|
#End Region ' Property
|
|
|
|
Sub New(LocalOmagPhotoWD As OmagPhotoWD)
|
|
|
|
' La chiamata è richiesta dalla finestra di progettazione.
|
|
InitializeComponent()
|
|
|
|
' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
|
|
m_OmagPhotoWD = LocalOmagPhotoWD
|
|
End Sub
|
|
|
|
#Region "COMMAND"
|
|
Private Sub CancelBtn_Click() Handles CacelBtn.Click
|
|
m_OmagPhotoWD.Close()
|
|
End Sub
|
|
|
|
Private Sub AddBtn_Click() Handles AddBtn.Click
|
|
' se non sono validi i campi allora attendo
|
|
If Not EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok_IsEnabled Then Return
|
|
' modalità di funzionamento della libreria: ProjectSlabVM.ProjectModeOpt.NEWSLAB
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.Save()
|
|
' notifico che il grezzo è stato aggiunto al DB delle lastre
|
|
OmagPhotoWD.m_IsAdded = True
|
|
' chiudo la finestra
|
|
m_OmagPhotoWD.Close()
|
|
End Sub
|
|
|
|
Private Sub PrintBtn_Click() Handles PrintBtn.Click
|
|
EgtPHOTOLib.PhotoMap.refOptionPanelVM.PrintLabel()
|
|
End Sub
|
|
#End Region ' Command
|
|
|
|
#Region "METHODS"
|
|
Private Sub EnableButtons()
|
|
AddBtn.IsEnabled = EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok_IsEnabled
|
|
PrintBtn.IsEnabled = EgtPHOTOLib.PhotoMap.refOptionPanelVM.Ok_IsEnabled
|
|
End Sub
|
|
#End Region ' Methods
|
|
|
|
End Class
|