88 lines
4.0 KiB
VB.net
88 lines
4.0 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
|
|
Imports DevExpress.ExpressApp.Win.Editors
|
|
|
|
Public Class DeliveryNoteInVC
|
|
Inherits SISBusiness.Module.DeliveryNoteInVC
|
|
Dim _WaitFormClass As New WaitFormClass
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
RegisterActions(components)
|
|
|
|
End Sub
|
|
Protected Overrides Sub OnActivated()
|
|
MyBase.OnActivated()
|
|
|
|
AddHandler DoWork, AddressOf _WaitFormClass.DoWork
|
|
AddHandler InitWork, AddressOf _WaitFormClass.Initwork
|
|
AddHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
|
|
|
If View.Id = "DeliveryNoteInHeader_DetailView" Then
|
|
AddHandler View.ControlsCreated, AddressOf DeliveryNoteInHeader_DetailView_ControlCreated
|
|
End If
|
|
End Sub
|
|
Protected Overrides Sub OnDeactivated()
|
|
MyBase.OnDeactivated()
|
|
RemoveHandler DoWork, AddressOf _WaitFormClass.DoWork
|
|
RemoveHandler InitWork, AddressOf _WaitFormClass.Initwork
|
|
RemoveHandler FinalWork, AddressOf _WaitFormClass.Finalwork
|
|
End Sub
|
|
Private Sub DeliveryNoteInHeader_DetailView_ControlCreated(sender As Object, e As EventArgs)
|
|
If View.Id = "DeliveryNoteInHeader_DetailView" Then
|
|
Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor
|
|
_row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products")
|
|
|
|
AddHandler _row_Products_Editor.ControlValueChanged, AddressOf _row_Products_Editor_ControlValueChanged
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub _row_Products_Editor_ControlValueChanged(sender As Object, e As EventArgs)
|
|
Dim _row_QTT As DevExpress.ExpressApp.Win.Editors.DoublePropertyEditor
|
|
_row_QTT = TryCast(View, DetailView).FindItem("row_QTT")
|
|
If _row_QTT IsNot Nothing Then
|
|
Dim _row_Products_Editor As DevExpress.ExpressApp.Win.Editors.LookupPropertyEditor
|
|
_row_Products_Editor = TryCast(View, DetailView).FindItem("row_Products")
|
|
If _row_Products_Editor IsNot Nothing Then
|
|
Dim _Products As SISBusiness.Module.Products = TryCast(_row_Products_Editor.ControlValue, SISBusiness.Module.Products)
|
|
If _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 _Products.DecimalIn
|
|
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 Sub
|
|
|
|
End Class
|