From 7c0c35984f8cf06f9762c63a1c1a7a3e6577ec21 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 10 Jun 2020 16:05:36 -0700 Subject: [PATCH 1/9] =?UTF-8?q?validaci=C3=B3n=20sobre=20el=20sub=20proyec?= =?UTF-8?q?to=20y=20la=20venta=20en=20los=20traslados=20en=20vez=20de=20ve?= =?UTF-8?q?ntas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/EntregaAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 757984d7c..d02cb3b2b 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -716,6 +716,7 @@ Partial Class Inventarios_EntregaAlmacen CveAlmacenTraspasoOrigen = DtDatos.Rows(0)("CveAlmacenOrigen").ToString.ToEntero CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString) + CveVentaSurtir = -1 If DtDatos.SUM("CantidadS") <= 0 Then GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvInventario gvEscondeColumna" @@ -2778,9 +2779,8 @@ Partial Class Inventarios_EntregaAlmacen Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) If CvePaqueteriaGuia > 0 Then - If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then - ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) + ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimientoEntrada, -1) End If If ErrorMovInv Then From 0bd4086b097d6ff2cf57798b532f487d8745f0b4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 10 Jun 2020 17:09:50 -0700 Subject: [PATCH 2/9] -- seccion/serie/lote/caducidad --- Inventarios/ResguardoMaterial.aspx | 4 +- Inventarios/ResguardoMaterial.aspx.vb | 76 +++++++++++++++++---------- 2 files changed, 52 insertions(+), 28 deletions(-) diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index c53ce3ca7..0bb034a04 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -278,7 +278,9 @@ - + + + <%-- diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index c384fe179..2f32ebb86 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -184,10 +184,13 @@ Partial Class Inventarios_ResguardoMaterial dt.Columns.Add("Estatus") dt.Columns.Add("Codigo") dt.Columns.Add("Serie") + dt.Columns.Add("Lote") + dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime")) + dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32")) dt.Columns.Add("Observaciones") dt.Columns.Add("CvePersonal", Type.GetType("System.Int32")) dt.Columns.Add("Checado", Type.GetType("System.Boolean")) - dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32")) + dt.Columns.Add("SeccionAlmacen") DtMovimientos = dt @@ -334,15 +337,26 @@ Partial Class Inventarios_ResguardoMaterial End Sub Private Sub VerificaProducto() If DdlProducto2.SelectedValue.ToEntero > 0 Then - If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltraParametros("Inv_CveMetodoInventario = 5", "PS").Rows.Count > 0 Then - ThSerie.Visible = True - TrSerie.Visible = True - TxtnSerie.Visible = True + Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("") + + If drp IsNot Nothing Then + 'activa Serie + If CBool(drp("AplicaSerie")) Then + ThSerie.Visible = True + TrSerie.Visible = True + TxtnSerie.Visible = True + End If + + 'activa seccion + If CBool(drp("AplicaSeccion")) Then + ThSeccion.Visible = True + TrSeccion.Visible = True + End If + 'activa lote + + 'activa caducidad - ThSeccion.Visible = True - TrSeccion.Visible = True - GvM.Columns(4).Visible = True Else TxtnSerie.Visible = False End If @@ -447,28 +461,36 @@ Partial Class Inventarios_ResguardoMaterial #Region " GvM " Private Sub CargaGvM() - ThSerie.Visible = False - TrSerie.Visible = False - TxtnSerie.Visible = False - GvM.Columns(5).Visible = False - GvM.Columns(4).Visible = False + If DtMovimientos IsNot Nothing Then + GvM.Columns(4).Visible = DtMovimientos.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 + GvM.Columns(5).Visible = DtMovimientos.MAX("Serie").ToString <> "" + GvM.Columns(6).Visible = DtMovimientos.MAX("Lote").ToString <> "" + GvM.Columns(7).Visible = DtMovimientos.MAX("FechaCaducidad").ToString.ToDate > MinFecha + End If - Dim Contador As Integer = 0 - Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1 - Dim MostrarSerie As Boolean = False - Dim MostrarSeccion As Boolean = False - While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion) - Dim Dr As DataRow = DtMovimientos.Rows(Contador) - MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True) - MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True) - Contador += 1 - End While - ThSerie.Visible = MostrarSerie - TrSerie.Visible = MostrarSerie - GvM.Columns(5).Visible = MostrarSerie + 'ThSerie.Visible = False + 'TrSerie.Visible = False + 'TxtnSerie.Visible = False + 'GvM.Columns(5).Visible = False + 'GvM.Columns(4).Visible = False - GvM.Columns(4).Visible = MostrarSeccion + 'Dim Contador As Integer = 0 + 'Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1 + 'Dim MostrarSerie As Boolean = False + 'Dim MostrarSeccion As Boolean = False + 'While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion) + ' Dim Dr As DataRow = DtMovimientos.Rows(Contador) + ' MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True) + ' MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True) + ' Contador += 1 + 'End While + + 'ThSerie.Visible = MostrarSerie + 'TrSerie.Visible = MostrarSerie + 'GvM.Columns(5).Visible = MostrarSerie + + 'GvM.Columns(4).Visible = MostrarSeccion 'For Each Dr As DataRow In DtMovimientos.Rows ' If Dr("Serie").ToString <> "" Then From d5affdf8e16c000b27186ff50e41ca69cb8f8396 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 10 Jun 2020 23:13:45 -0700 Subject: [PATCH 3/9] agregar PS considerando las nuevas columnas --- Inventarios/Consignaciones.aspx | 26 ++- Inventarios/Consignaciones.aspx.vb | 50 +++++- Inventarios/EntradasSalidas.aspx | 249 +++++++++++++++++--------- Inventarios/EntradasSalidas.aspx.vb | 103 ++++++++++- Inventarios/ResguardoMaterial.aspx | 16 +- Inventarios/ResguardoMaterial.aspx.vb | 21 ++- 6 files changed, 363 insertions(+), 102 deletions(-) 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 @@