From 1477b3b469fbf2325ef014abcfd7df822b88989e Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 15 Dec 2023 07:20:28 -0700 Subject: [PATCH] mejoras visuales agregar ps --- Inventarios/EntradasSalidas.aspx | 109 ++++++--------------------- Inventarios/EntradasSalidas.aspx.vb | 111 +--------------------------- 2 files changed, 24 insertions(+), 196 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 77cb16eac..676e02e1a 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -323,81 +323,7 @@ - - <%--INVENTARIO INICIAL--%> - - -
-
-
-
- "> -
-
- Agregar Producto - - -
-
-
- -
- -
- -
-
-
- -
- -
-
-
- -
- - - - - - - -
-
-
- -
- -
-
-
- -
- - - - - - - -
-
-
-
- -
-
- -
-
-
- - - - +
@@ -1726,7 +1652,7 @@

-

+
@@ -1756,7 +1682,7 @@
- +
@@ -1766,22 +1692,29 @@
- +
-
-
- - - - -
-
- +
+
+ + + + + + + +
+
+ + + + +

-
+

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9781087fd..2f9b592ca 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -1220,11 +1220,6 @@ Partial Class Inventarios_EntradasSalidas UppGrid.Update() End Sub - Private Sub CargaCodigoBarras() - If DdlConcepto.SelectedValue.ToEntero = 1 Then - DivCodigoBarras.Visible = True - End If - End Sub #End Region @@ -1574,7 +1569,6 @@ Partial Class Inventarios_EntradasSalidas registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen registro.Item("SeccionAlmacen") = SeccionAlmacen - registro.Item("CodigoAF") = CodigoAF registro.Item("Codigo") = Codigo registro.Item("CveAF") = CveAF @@ -2210,98 +2204,6 @@ Partial Class Inventarios_EntradasSalidas #End Region -#Region " ADD INVENTARIO INICIAL " - Protected Sub BtnCodigoBarras_Click(sender As Object, e As EventArgs) - - If TxtCodigoBarras.Text = "" Then - Exit Sub - End If - - TdSeriePS.Visible = False - Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoBarras.Text}'") - If DrPS Is Nothing Then - Alert($"No se ha encontrado un producto del Codigo ""{TxtCodigoBarras.Text}"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);") - RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") - TxtCodigoBarras.Text = "" - Exit Sub - End If - - If DrPS("Inv_CveMetodoInventario").ToString.ToEntero = 5 Then - TdSeriePS.Visible = True - TxtCodigoSerie.Focus() - CvePSSerieLote = DrPS("CvePS").ToString.ToEntero - CveUMSerieLote = DrPS("CveUnidadMedida").ToString.ToEntero - CostoPromedioSerieLote = DrPS("CostoPromedio").ToString.ToDecimal - Exit Sub - End If - - GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrPS("CvePS").ToString.ToEntero, DrPS("CveUnidadMedida").ToString.ToEntero, DrPS("CostoPromedio").ToString.ToDecimal) - - TxtCodigoBarras.Text = "" - TxtCodigoBarras.Focus() - End Sub - Protected Sub BtnSeriePS_Click(sender As Object, e As EventArgs) - If TxtCodigoSerie.Text.Trim = "" Then TxtCodigoSerie.Focus() : Exit Sub - - GuardaCodigoSerie(1, CvePSSerieLote, CveUMSerieLote, CostoPromedioSerieLote, TxtCodigoSerie.Text.Trim) - - TdSeriePS.Visible = False - End Sub - Public Sub BtnAddCodigo_Click(sender As Object, e As EventArgs) Handles BtnAddCodigo.Click - - If TxtCodigo.Text.Trim = "" And TxtCodigoBarras.Text.Trim = "" Then - Exit Sub - End If - - Dim DrP As DataRow = Nothing - - If TxtCodigo.Text.Trim <> String.Empty Then - DrP = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($" Codigo = '{TxtCodigo.Text.Trim}'") - ElseIf TxtCodigoBarras.Text.Trim <> String.Empty Then - DrP = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($" CodigoBarras = '{TxtCodigoBarras.Text.Trim}'") - End If - - - - Dim Costo As Decimal = TxtAltaCosto.Text.ToDecimal - - If DrP IsNot Nothing AndAlso DrP("CvePS").ToString.ToEntero > 0 Then - GuardaCodigoSerie(TxtCantidadProducto.Text.ToDecimal, DrP("CvePS").ToString.ToEntero, DrP("CveUnidadMedida").ToString.ToEntero, Costo) - Else - Alert("No se encontró el producto. Favor de verificar y volver a intentar.", TipoMensaje.MsgError, "window.setTimeout(Focus2,200);") - End If - End Sub - - Private Sub GuardaCodigoSerie(Cantidad As Decimal, CvePS As Integer, CveUM As Integer, CostoPromedio As Decimal, Optional SerieLote As String = "-1") - Dim ObjInv As New ClsInventarios - - If CveMovimiento <= 0 Then - CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, 1, TxtFecha.Text.Replace(",", "").ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="ES/CS1") - End If - - ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, Serie:=SerieLote) - ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) - DtMovimientos = ObjInv.DtResultados.FiltraParametros("", "CveMovimientoDetalle DESC").AsEnumerable.Take(25).CopyToDataTable - ObjInv.Dispose() - - CargaGVM(DtMovimientos) - - TxtCodigoBarras.Text = "" - TxtCodigo.Text = "" - TxtCodigoSerie.Text = "" - TxtCantidadProducto.Text = "1" - - txtCantidad.Text = "" - LblCodigo.Text = "" - HdnCodigoAF.Value = "-1" - HdnCveActivoFijo.Value = "-1" - - TxtCodigoBarras.Focus() - RegistraScript("beep-07.wav')") - End Sub -#End Region - - #Region " DdlConcepto, DdlClasificacion, DdlAlmacen | Index CHANGED " Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -2459,7 +2361,6 @@ Partial Class Inventarios_EntradasSalidas If CveMovimiento <= 0 Or EsNuevoMov Then SiguienteFolio() Dim CveConcepto As String = DdlConcepto.SelectedValue - DivCodigoBarras.Visible = False TxtFecha.Enabled = True TxtObservaciones.Enabled = True @@ -2471,8 +2372,6 @@ Partial Class Inventarios_EntradasSalidas Select Case CveConcepto Case "1", "2", "22", "32", "33" ' ENTRADAS - DivCodigoBarras.Visible = True - TxtCodigoBarras.Focus() If CveMovimiento > 0 Then TxtFecha.Text = NowADS().ToShortDateString @@ -2519,7 +2418,6 @@ Partial Class Inventarios_EntradasSalidas DdlProveedor.DataBind() Case Else - DivCodigoBarras.Visible = False TrSubProyectoActivoFijo.Visible = False VisualizaAF(False) If GvM.Rows.Count > 0 Then GvM.FooterRow.Visible = True @@ -2527,7 +2425,6 @@ Partial Class Inventarios_EntradasSalidas TrResponsable.Visible = False End Select - UpCodigoBarras.Update() UppGrid.Update() UPDatos.Update() End Sub @@ -2612,12 +2509,11 @@ Partial Class Inventarios_EntradasSalidas End If End If - + DdlUnidad.Items.Clear() + DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) + DdlUnidad.DataBind() End If - DdlUnidad.Items.Clear() - DdlUnidad.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) - DdlUnidad.DataBind() UPDatos.Update() End Sub #End Region @@ -3385,7 +3281,6 @@ Partial Class Inventarios_EntradasSalidas If TxtCodigoPS.Text.Trim = "" Then Exit Sub End If - TdSeriePS.Visible = False TdSeccionPSAdd.Visible = False Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras= '{TxtCodigoPS.Text}'")