diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 98cca3b3c..d1cb6cc32 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -821,20 +821,14 @@
-
-
-
-
+
-
-
-
-
+
@@ -847,12 +841,7 @@
-
-
-
-
-
-
+
@@ -1748,9 +1737,9 @@
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 6319cb177..97e5cf659 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -539,10 +539,6 @@ Partial Class Inventarios_EntradasSalidas
End If
End Sub
- Private Function isWhitFamily() As Boolean
- Return (UsuarioActual.CveEmpresa = 66)
- End Function
-
#Region " VALORES INICIALES "
Protected Sub CreaDT()
Dim dt As New DataTable
@@ -603,16 +599,16 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub CargaCombos()
'Llenar el dropdownlist de Secciones
- If UsuarioActual.CveEmpresa = 66 Then
- DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
- Else
- Dim ObjClasificaciones As New ClsClasificaciones
- If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
- DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
- End If
- ObjClasificaciones.Dispose()
- End If
- DdlClasificacion.DataBind()
+ 'If UsuarioActual.CveEmpresa = 66 Then
+ ' DdlClasificacion.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+ 'Else
+ ' Dim ObjClasificaciones As New ClsClasificaciones
+ ' If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+ ' DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+ ' End If
+ ' ObjClasificaciones.Dispose()
+ 'End If
+ 'DdlClasificacion.DataBind()
'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
'DdlSeccionAlmacen.DataBind()
@@ -1293,7 +1289,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub LimpiarAgregar()
- DdlClasificacion.SelectedValue = "-1"
+ 'DdlClasificacion.SelectedValue = "-1"
txtCantidad.Text = ""
TxtnLote.Text = ""
TxtObservacionesdetalle.Text = ""
@@ -1459,7 +1455,6 @@ Partial Class Inventarios_EntradasSalidas
TxtnLote.Text = ""
LblCodigo.Text = ""
TxtnSerie.Text = ""
- TxtnLote.Text = ""
TxtnFechaCaducidad.Text = ""
HdnCodigoAF.Value = "-1"
HdnCveActivoFijo.Value = "-1"
@@ -2540,30 +2535,22 @@ Partial Class Inventarios_EntradasSalidas
TxtFolio.Text = Folio.ToString
FolioAsignado = Folio
End Sub
- Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
- ChangeDdlProducto()
- End Sub
+ 'Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+ ' ChangeDdlProducto()
+ 'End Sub
Private Sub ChangeDdlProducto()
If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
Dim filtro As String = ""
- If Not (DdlClasificacion.SelectedValue = "-1") Then
-
- If isWhitFamily() Then
- filtro = String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue)
- Else
- filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
- End If
- End If
+ 'If Not (DdlClasificacion.SelectedValue = "-1") Then
+ ' filtro = String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue)
+ 'End If
DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"{filtro} AND CveTipoPS = 2", "PSCodigo")
DdlProducto2.DataBind()
DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else
- If isWhitFamily() Then
- DdlProducto2.ddlWS.Attributes.Add("data-idSubFamilia", DdlClasificacion.SelectedValue)
- Else
- DdlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
- End If
+ 'DdlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue)
+
End If
End Sub
@@ -2571,27 +2558,20 @@ Partial Class Inventarios_EntradasSalidas
ElProductoChange()
End Sub
Private Sub ElProductoChange()
- TxtnSerie.Visible = False
- divSerie.Visible = False
- TxtnLote.Visible = False
+ divSerie.Visible = False
divLote.Visible = False
EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
If DdlProducto2.SelectedValue.ToEntero > 0 Then
- Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
+ Dim dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If CBool(dr("AplicaSerie")) Then
-
- TxtnSerie.Visible = True
divSerie.Visible = True
-
End If
If CBool(dr("AplicaLote")) Then
- TxtnLote.Visible = True
divLote.Visible = True
-
End If
If CBool(dr("AplicaSeccion")) Then
divSeccionAlmacen.Visible = True
@@ -2604,7 +2584,6 @@ Partial Class Inventarios_EntradasSalidas
End If
If CBool(dr("AplicaCaducidad")) Then
divCaducidad.Visible = True
-
End If
End If
@@ -2628,7 +2607,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub EscondeColumnasGVM(DtTemp As DataTable)
'LblSerie.Visible = False
- TxtnSerie.Visible = False
+ divSerie.Visible = False
'TrSerieLote.Visible = False
'TrSerieLote2.Visible = False
@@ -2641,16 +2620,11 @@ Partial Class Inventarios_EntradasSalidas
TxtnSerie.Visible = True
End If
- TxtnLote.Visible = False
+ 'divLote.Visible = False
'TrLote.Visible = False
'TrLote2.Visible = False
GvM.Columns(10).Visible = False
- 'TxtnBatch.Visible = False
- 'TrBatch.Visible = False
- 'TrBatch2.Visible = False
- 'GvM.Columns(11).Visible = False
-
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
tdPUExtranjero.Visible = False
tdPUExtranjero2.Visible = False
@@ -2724,12 +2698,11 @@ Partial Class Inventarios_EntradasSalidas
If (CveMovimiento > 0) Or (TieneRelacionado > 0 Or CveMovimientoRelacionado > 0) Then 'CveMovimiento > 0 And e.Row.DBCampo("TienePrePoliza").ToEntero > 0
e.Row.FCTextBox("txtPrecio").Enabled = False
e.Row.FCTextBox("LblEditCodigo").Enabled = False
- e.Row.FCTextBox("TxtSerie").Enabled = False
- e.Row.FCTextBox("TxtLote").Enabled = False
- e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
- e.Row.FCTextBox("txtPrecio").Enabled = False
+ 'e.Row.FCTextBox("TxtSerie").Enabled = False
+ 'e.Row.FCTextBox("TxtLote").Enabled = False
+ 'e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False'
End If
- e.Row.FCTextBox("TxtSerie").Enabled = True
+ 'e.Row.FCTextBox("TxtSerie").Enabled = True
End If
If EsNuevoMov Then
@@ -2795,7 +2768,7 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then
CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
txtCantidad.Enabled = False
- DdlClasificacion.Enabled = False
+ 'DdlClasificacion.Enabled = False
DdlProducto2.Enabled = False
DdlUnidad.Enabled = False
@@ -2808,7 +2781,7 @@ Partial Class Inventarios_EntradasSalidas
ElProductoChange()
DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
CveAFEdit = GvRow.DataKey("CveAF").ToEntero
- txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
+ txtPrecio.Text = GvRow.DataKey("PU").ToDouble.ToString("0.00########")
TxtnSerie.Text = GvRow.DataKey("Serie")
TxtnLote.Text = GvRow.DataKey("Lote")
TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad").ToDate.ToShortDateString
@@ -5313,7 +5286,7 @@ Partial Class Inventarios_EntradasSalidas
Private Sub limpiarModalDetalle()
txtCantidad.Enabled = True
- DdlClasificacion.Enabled = True
+ 'DdlClasificacion.Enabled = True
DdlProducto2.Enabled = True
DdlUnidad.Enabled = True
divCantidad.Visible = True