diff --git a/Inventarios/Consignaciones.aspx b/Inventarios/Consignaciones.aspx index c7850088f..4cefc4db7 100644 --- a/Inventarios/Consignaciones.aspx +++ b/Inventarios/Consignaciones.aspx @@ -58,7 +58,7 @@
  • Proveedor: - + <%----%> <%-- --%> @@ -107,7 +107,7 @@
    - + <%----%> <%----%> <%----%> @@ -368,6 +368,10 @@ Unidad PU PU Extran + Sección almacén + Serie + Lote + Caducidad Total Comandos @@ -404,6 +408,20 @@ + + + + + + + + + + + + + + @@ -485,6 +503,10 @@ + + + + diff --git a/Inventarios/Consignaciones.aspx.vb b/Inventarios/Consignaciones.aspx.vb index e7d2271f7..9460db896 100644 --- a/Inventarios/Consignaciones.aspx.vb +++ b/Inventarios/Consignaciones.aspx.vb @@ -100,6 +100,11 @@ Partial Class Inventarios_Consignaciones dt.Columns.Add("EstatusExistencia") dt.Columns.Add("CveMovimientoDetalle") + dt.Columns.Add("SeccionAlmacen") + dt.Columns.Add("Serie", Type.GetType("System.String")) + dt.Columns.Add("Lote", Type.GetType("System.String")) + dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) + dt.Columns.Add("CveAlmacen") dt.Columns.Add("Almacen") @@ -145,7 +150,7 @@ Partial Class Inventarios_Consignaciones DdlProveedorFiltro.SelectedText = "Seleccione el Proveedor" 'Llenar el dropdownlist de Productos y servicios - If UsuarioActual.Empresa.Funcionalidad(105) = "" Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlProducto.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DdlProducto.DataBind() DdlProducto.Items.Insert(0, New ListItem("----", "-1")) @@ -584,6 +589,11 @@ Partial Class Inventarios_Consignaciones Dim CveClasificacion As Integer Dim PSCodigo = "" + Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero + Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text) + Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text) + Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text) + Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("") If dr IsNot Nothing Then @@ -606,8 +616,13 @@ Partial Class Inventarios_Consignaciones registro.Item("PU") = TxtPU.Text.ToDouble registro.Item("PUExtranjero") = TxtPU.Text.ToDouble + registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen + registro.Item("Serie") = Serie + registro.Item("Lote") = Lote + registro.Item("FechaCaducidad") = Caducidad registro.Item("Total") = TxtCantidad.Text.ToDouble * TxtPU.Text.ToDouble + DtMovimientos.Rows.Add(registro) GvDatos.DataSource = DtMovimientos @@ -1530,7 +1545,40 @@ Partial Class Inventarios_Consignaciones End Sub #End Region +#Region "Columnas Opcionales en PS" + Protected Sub DdlProducto_Click(sender As Object, e As EventArgs) Handles DdlProducto.SelectedIndexChanged + If DdlProducto.SelectedValue.ToEntero > 0 Then + Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto.SelectedValue.ToEntero).FiltroPrimero("") + + If drp IsNot Nothing Then + Dim AplicaSerie As Boolean = CBool(drp("AplicaSerie")) + Dim AplicaSeccion As Boolean = CBool(drp("AplicaSeccion")) + Dim AplicaLote As Boolean = CBool(drp("AplicaLote")) + Dim AplicaCaducidad As Boolean = CBool(drp("AplicaCaducidad")) + 'activa Serie + ThSerie.Visible = AplicaSerie + TrSerie.Visible = AplicaSerie + + 'activa seccion + ThSeccion.Visible = AplicaSeccion + TrSeccion.Visible = AplicaSeccion + + 'activa lote + ThLote.Visible = AplicaLote + TrLote.Visible = AplicaLote + + 'activa caducidad + ThCaducidad.Visible = AplicaCaducidad + TrCaducidad.Visible = AplicaCaducidad + + Else + TxtSerie.Visible = False + End If + UpDatos.Update() + End If + End Sub +#End Region diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index f486184a2..960ef3445 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -149,6 +149,7 @@
    Información del movimiento +
    > @@ -257,7 +258,6 @@
    -
    @@ -278,9 +278,10 @@
    - +
    @@ -334,6 +335,7 @@
    Agregar Producto +
    @@ -408,12 +410,14 @@
    Información de registro +
    @@ -423,6 +427,7 @@
    @@ -431,6 +436,7 @@
    Ver Compra @@ -443,6 +449,7 @@
    @@ -452,6 +459,7 @@
    @@ -460,6 +468,7 @@
    ver @@ -477,6 +486,7 @@
    Tipo de Cambio +
    @@ -670,8 +680,8 @@ - - + + @@ -697,7 +707,7 @@ - +
    @@ -860,6 +870,7 @@
    Cantidad +
    @@ -1023,7 +1034,7 @@