From c8ac996eeab2784b5cb9e411cd4e61056d55e587 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 12 Aug 2020 16:24:36 -0700 Subject: [PATCH 1/8] =?UTF-8?q?validaci=C3=B3n=20del=20DropDownList=20ya?= =?UTF-8?q?=20se=20subi=C3=B3=20a=20producci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 2f729867e..8ad38121e 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -164,7 +164,7 @@ Partial Class Inventarios_Default UPDatos.Update() TblBusqueda.Visible = True Else - Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia) + Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia) End If End Sub Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound From d5f8bbce891ae0b2028da00544a1149ca6219293 Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Wed, 12 Aug 2020 22:27:59 -0700 Subject: [PATCH 2/8] Se agregaron dos columnas al RepAnticiposEspeciales (Saldo, % Por Amortizar). --- Ventas/RepAnticiposEspeciales.aspx | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/Ventas/RepAnticiposEspeciales.aspx b/Ventas/RepAnticiposEspeciales.aspx index 28f529dba..8ae071ee7 100644 --- a/Ventas/RepAnticiposEspeciales.aspx +++ b/Ventas/RepAnticiposEspeciales.aspx @@ -184,6 +184,18 @@ + + +   + + + + + +   + + + From b7bebf887528a838068559b74a74916ab86461d8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:19:09 -0700 Subject: [PATCH 3/8] -- filtro de resguardados, y cambio texto de uniforme --- RH/Personal.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 685e8d9e0..b6e87641f 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5105,7 +5105,7 @@ Partial Class RH_Personal Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1, Todo:=True) Then + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal, -1, -1) Then GvUniformesResguardo.DataSource = ObjInv.DtResultados UniformesInfo = ObjInv.DtResultados Else @@ -5168,15 +5168,15 @@ Partial Class RH_Personal Dim ObjInventario As New ClsInventarios ObjInventario.IniciaTransacSQL() - Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme) + Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoUniforme, Observaciones:=DescripcionUniforme, Modulo:="RHLibResg") Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero - Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme) + Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveResultadoSalida, Modulo:="RHLibResg2") Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen) If ResultadoDetalleSalida And ResultadoDetalleEntrada Then ObjInventario.Commit() - Alert("Uniforme liberado") + Alert("Resguardo liberado correctamente") RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme")) CargaUniformesPersonal() Else From e94d908ee07d9a003b2738aea84fd881c4f3f2e0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:19:42 -0700 Subject: [PATCH 4/8] -- visualizar el nombre del personal, si esta asignado --- Inventarios/EntradasSalidas.aspx.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index bce30ff42..39e43da47 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -790,6 +790,15 @@ Partial Class Inventarios_EntradasSalidas End If + 'carga personal + If Mov.CvePersonal > 0 Then + DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal) + DdlPersonal.DataBind() + DdlPersonal.SelectedValueExist(Mov.CvePersonal) + DdlPersonal.Enabled = False + TrPersonal.Visible = True + End If + If Mov.CveClienteSucursal > 0 Then CambiaCliente() From d2c94503e7534dd57d4e3b334d3573fc04f4fdf4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:20:10 -0700 Subject: [PATCH 5/8] ajuste de negativos --- Contabilidad2/RepLibroDiario.aspx.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepLibroDiario.aspx.vb b/Contabilidad2/RepLibroDiario.aspx.vb index 9ae6cf4b7..60dd72327 100644 --- a/Contabilidad2/RepLibroDiario.aspx.vb +++ b/Contabilidad2/RepLibroDiario.aspx.vb @@ -113,8 +113,13 @@ Partial Class Contabilidad2_RepLibroDiario e.Row.Cells(1).Text = "" e.Row.Cells(2).Text = "" e.Row.Cells(3).Text = "" - e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "") - e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "") + If e.Row.DBCampo("TipoMovto") = "True" Then + e.Row.Cells(7).Text = "" + Else + e.Row.Cells(8).Text = "" + End If + 'e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "") + 'e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "") End If 'SUBTOTAL From d401ee8be3ebd3d83b7ed93fba9e427b2cdf26a5 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:21:07 -0700 Subject: [PATCH 6/8] -tama;o del grid de desapartado --- Inventarios/Apartados.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/Apartados.aspx b/Inventarios/Apartados.aspx index 2661d78f5..a64a30f2b 100644 --- a/Inventarios/Apartados.aspx +++ b/Inventarios/Apartados.aspx @@ -397,11 +397,11 @@ <%--GV DATOS APARTADOS--%>
-
+
- + From bae917feabcf29901d3cb7fdb31a53fb6c5ef237 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Aug 2020 16:21:50 -0700 Subject: [PATCH 7/8] -- seccionalmacen en el desapartado automatico --- Inventarios/EntregaAlmacen.aspx.vb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 093b01a9f..0c025cc20 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2128,6 +2128,8 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero If Not CveMovimientoSalida > 0 Then + + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3") @@ -2149,6 +2151,12 @@ Partial Class Inventarios_EntregaAlmacen DtTraspasos.Rows.Add(DrMovto) End If + Dim CveSeccionAlmacen As Integer = -1 + If CBool(Dr("AplicaSeccion")) Then + CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero + Else + CveSeccionAlmacen = -1 + End If CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal) @@ -2157,7 +2165,7 @@ Partial Class Inventarios_EntregaAlmacen CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), - CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then + CveSeccionAlmacen:=CveSeccionAlmacen) Then ErrorMovInv = True TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.") Exit For From 070e880bb1bb327f143d4f343b7799dc84d9e8d5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 13 Aug 2020 19:16:03 -0700 Subject: [PATCH 8/8] Columna nueva al reporte de comisiones --- Ventas/RepComisiones.aspx | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index bedffe731..1312337bb 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -114,14 +114,15 @@ + - + <%-- - + --%> <%----%>