Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text

Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base

Public Class StorageOut_VC
	Inherits DevExpress.ExpressApp.ViewController

	Public Sub New()
		MyBase.New()

		'This call is required by the Component Designer.
		InitializeComponent()
		RegisterActions(components) 

    End Sub
    Protected Overrides Sub OnActivated()
        MyBase.OnActivated()
        If View.Id = "StorageOutHeader_DetailView" Then
            AddHandler View.ControlsCreated, AddressOf StorageOutHeader_DetailView_ControlCreated
        End If
    End Sub

    Private Sub StorageOutHeader_DetailView_ControlCreated(sender As Object, e As EventArgs)
        If View.Id = "StorageOutHeader_DetailView" Then
            Dim _row_StorageComputed_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor
            _row_StorageComputed_Editor = TryCast(View, DetailView).FindItem("row_StorageComputed")

            AddHandler _row_StorageComputed_Editor.ControlValueChanged, AddressOf _row_StorageComputed_Editor_ControlValueChanged
        End If
    End Sub

    Private Sub _row_StorageComputed_Editor_ControlValueChanged(sender As Object, e As EventArgs)
        Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor
        Dim _OrderInHeader As OrderInHeader = TryCast(View.SelectedObjects(0), OrderInHeader)
        _row_QTT = TryCast(View, DetailView).FindItem("row_QTT")
        If _row_QTT IsNot Nothing Then
            Dim _row_StorageComputed_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor
            _row_StorageComputed_Editor = TryCast(View, DetailView).FindItem("row_StorageComputed")

            If _row_StorageComputed_Editor IsNot Nothing Then
                Dim _StorageComputed As SISBusiness.Module.StorageComputed = TryCast(_row_StorageComputed_Editor.ControlValue, SISBusiness.Module.StorageComputed)
                If _StorageComputed IsNot Nothing Then
                    If _StorageComputed.Products IsNot Nothing Then
                        Dim _SpinEdit As DevExpress.XtraEditors.SpinEdit
                        _SpinEdit = TryCast(_row_QTT.Control, DevExpress.XtraEditors.SpinEdit)
                        If _SpinEdit IsNot Nothing Then
                            Select Case _StorageComputed.Products.DecimalOut
                                Case 0
                                    _SpinEdit.Properties.Mask.EditMask = "#,##0"
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True
                                Case 1
                                    _SpinEdit.Properties.Mask.EditMask = "#,##0.0"
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True
                                Case 2
                                    _SpinEdit.Properties.Mask.EditMask = "#,##0.00"
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True
                                Case 3
                                    _SpinEdit.Properties.Mask.EditMask = "#,##0.000"
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True
                                Case 4
                                    _SpinEdit.Properties.Mask.EditMask = "#,##0.0000"
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = True
                                Case Else
                                    _SpinEdit.Properties.Mask.EditMask = ""
                                    _SpinEdit.Properties.Mask.UseMaskAsDisplayFormat = False
                            End Select
                        End If
                    End If
                End If
            End If
        End If
    End Sub

End Class