NicolaP
101 lines
3.8 KiB
VB.net
101 lines
3.8 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
|
|
' devo riasseganre il valore dell'indice
|
|
NbrIdTxBx.Text = EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNbrID
|
|
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 = 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
|
|
|
|
' dopo la crezione della pagina imposto lo stato dei pulsanti
|
|
Private Sub PostLoaded() Handles Me.Loaded
|
|
If EgtPHOTOLib.MainData.bEnableTextId Then
|
|
BlockTxBx.Visibility = Visibility.Collapsed
|
|
BlockTxBl.Visibility = Visibility.Collapsed
|
|
Else
|
|
NbrIdTxBx.IsEnabled = False
|
|
End If
|
|
PrintBtn.IsEnabled = EgtPHOTOLib.MainData.bEnablePrinter
|
|
EnableButtons()
|
|
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
|
|
' salvo l'identificativo usato nel database del grezzo appena inserito
|
|
OmagPhotoWD.m_sDtBsId = EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.Id
|
|
' salvo il nome del blocco che è stato utilizzato
|
|
If Not EgtPHOTOLib.MainData.bEnableTextId Then
|
|
WritePrivateProfileString(S_SCRAPS, K_LASTBLOCK, EgtPHOTOLib.PhotoMap.refOptionPanelVM.SelSlab.sNameBlock, m_OmagPhotoWD.m_MainWindow.GetIniFile())
|
|
End If
|
|
' 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
|