- Se traslada versión a git desde tfs

tsInputBox.xaml.vb

@@ -0,0 +1,44 @@
+
+Imports System.Data.Entity
+Imports DevExpress.Xpf.Core.ServerMode
+Imports DevExpress.Mvvm
+Imports DevExpress.Xpf.Grid
+Imports tsWPFCore
+Imports tsUtilidades.Extensiones
+Imports DevExpress.Xpf.Core
+Imports DevExpress.XtraReports.UI
+Imports System.IO
+Imports DevExpress.Xpf.Printing
+Imports Microsoft.Win32
+
+Public Class tsInputBox
+    Private Sub dxwAgregar_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+    End Sub
+    Public Property Valor As Object
+
+    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
+        Me.DialogResult = True
+        Valor = Me.teValor.EditValue        
+    End Sub
+
+    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
+        Me.DialogResult = False
+        Me.Close()
+    End Sub
+
+    Public Sub New(Rotulo As String, ValorDefecto As String, Optional LongitudMaxima As Integer = 0, Optional AnchoVentana As Integer = 0, Optional TipoNumerico As Boolean = False, Optional Mascara As String = "")
+
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        Me.liRotulo.Label = Rotulo
+        Me.teValor.EditValue = ValorDefecto
+        If LongitudMaxima > 0 Then Me.teValor.MaxLength = LongitudMaxima
+        If AnchoVentana > 0 Then Me.Width = AnchoVentana
+        If TipoNumerico Then Me.teValor.MaskType = DevExpress.Xpf.Editors.MaskType.Numeric
+        Me.teValor.Mask = Mascara
+
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+
+    End Sub
+
+End Class