81 lines
3.8 KiB
VB.net
81 lines
3.8 KiB
VB.net
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 Nuvolar.Module.StorageComputed = TryCast(_row_StorageComputed_Editor.ControlValue, Nuvolar.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
|