From 76915dd845084b0cc64a85cc3699299c45074d14 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Oct 2022 12:25:48 -0700 Subject: [PATCH 1/7] -- mejora al iniciar --- OC/RepSolicitudesAnticipo.aspx.cs | 31 ++++++++++++------------------- 1 file changed, 12 insertions(+), 19 deletions(-) diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs index 5f25aa1f3..104bc2e02 100644 --- a/OC/RepSolicitudesAnticipo.aspx.cs +++ b/OC/RepSolicitudesAnticipo.aspx.cs @@ -101,6 +101,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas protected void CargaDatos() { + if (DdlEstatus.SelectedValue.ToEntero() == 3) + { + GvSolicitudes.Columns[6].Visible = false; GvSolicitudes.Columns[10].Visible = false; + GvSolicitudes.Columns[7].Visible = true; GvSolicitudes.Columns[8].Visible = true; + } + else + { + GvSolicitudes.Columns[6].Visible = true; GvSolicitudes.Columns[10].Visible = true; + GvSolicitudes.Columns[7].Visible = false; GvSolicitudes.Columns[8].Visible = false; + } + ClsOC ObjOC = new ClsOC(); CveProveedor = DdlProveedores.SelectedValue.ToEntero(); @@ -119,25 +130,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas } protected void BtnConsultar_Click(object sender, EventArgs e) - { - if (DdlEstatus.SelectedValue.ToEntero() == 3) - { - GvSolicitudes.Columns[6].Visible = false; - GvSolicitudes.Columns[10].Visible = false; - - GvSolicitudes.Columns[7].Visible = true; - GvSolicitudes.Columns[8].Visible = true; - - } - else - { - GvSolicitudes.Columns[6].Visible = true; - GvSolicitudes.Columns[10].Visible = true; - - GvSolicitudes.Columns[7].Visible = false; - GvSolicitudes.Columns[8].Visible = false; - - } + { CargaDatos(); } From 1b6b8d277ee5e33967fb644a7ae22ee82ff0d9fb Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Oct 2022 13:00:22 -0700 Subject: [PATCH 2/7] =?UTF-8?q?--=20m=C3=A1s=20grande=20los=20objetos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/EmpresasModulos.aspx | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Sistemas/EmpresasModulos.aspx b/Sistemas/EmpresasModulos.aspx index 0ac3ba30f..0130814b8 100644 --- a/Sistemas/EmpresasModulos.aspx +++ b/Sistemas/EmpresasModulos.aspx @@ -41,7 +41,7 @@
- +
@@ -53,7 +53,7 @@ 		- +
From 58a75bde5bc5d63f2d8be7b297b988fb9bd02d66 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Oct 2022 15:45:05 -0700 Subject: [PATCH 3/7] -- dato de folio temporal --- Bancos/DepositosCaja.aspx | 8 ++++++-- Bancos/DepositosCaja.aspx.vb | 17 +++++++++++++---- 2 files changed, 19 insertions(+), 6 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index d2a7a3d27..1969d5f53 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -171,10 +171,14 @@ - - + +
+
+ +
+
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index ca76c20ae..57848c6e1 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja 'código temporal, para claudia y toñita, monge, anadelia, alba If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) + divFolio.Visible = True End If DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) @@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja Dim FolioIE As Long = -1 Dim CveMoneda As Integer = 1 Dim TipoCambio As Decimal = 1 - Dim Fecha As Date = TxtFecha.Text.ToDate + Dim Fecha As Date = TxtFecha.Text.ToDate Dim IdCuentaBancariaOrigen As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0 Dim CveCuentaBancariaOrigen As Integer = 0 @@ -252,11 +253,19 @@ Partial Class Bancos_DepositosCaja If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger CveTransaccionBanco = 6 + End If + + 'código temporal, para claudia y toñita, monge, anadelia, alba + If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then + FolioIE = TxtFolio.Text.ToEntero End If - 'Entrada a bancos - FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco) - If Not FolioIE > 0 Then + If FolioIE <= 0 Then + 'Entrada a bancos + FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco) + End If + + If FolioIE <= 0 Then OcurrioError = True End If CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario) From 5c6e01cd0a433c633b519e67cff90a3ff7fb6729 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Oct 2022 15:45:17 -0700 Subject: [PATCH 4/7] =?UTF-8?q?--=20se=20quit=C3=B3=20proceso=20158?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inicio.aspx.vb | 5 ----- 1 file changed, 5 deletions(-) diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index dd2069a47..2d065990b 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -194,11 +194,6 @@ Partial Class Inicio 'Ventas no timbradas por centro de costo If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() - 'Reporte facaturas pendientes por autorizar Oscar 2016-07-06 - If UsuarioActual.TienePermisoProceso(158) Then - RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas") - End If - 'Ventas sin correo enviado If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas() From 421009d8469fa039f50e31400a4b3c6f31da8f1a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 Oct 2022 16:10:48 -0700 Subject: [PATCH 5/7] Editar linea adicional en venta que no tiene asignada una --- Ventas/Ventas.aspx.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 13b93190e..c6aa21d6f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33399,11 +33399,14 @@ Partial Class Ventas TxtPedidoContrato.Enabled = True TxtObsAlmacen.Enabled = True RblPaqueteria.Enabled = True - DdlLineaAdicional.Enabled = True + LnkUpdateLineaAdicional.Visible = True 'Acciones BtnEditar.Text = "Guardar" + CalculaLineasAdicionales() + DdlLineaAdicional.Enabled = True + UpParametros.Update() UPObservaciones.Update() UpFacturar.Update() From 6ae972b002f2cc744990bcaabf80a8e783e53671 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 Oct 2022 16:13:39 -0700 Subject: [PATCH 6/7] Solo generar movimiento automatico en ingresos y devoluciones --- Ventas/Ventas.aspx.vb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c6aa21d6f..2bb888f55 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14866,16 +14866,14 @@ Partial Class Ventas Next End If - If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then + If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then Dim Filtro As String = "" Select Case factura.TipoDocto - Case "Ing", "Ped" + Case "Ing" Filtro = "CveConcepto IN (3,40)" Case "Dev" Filtro = "CveConcepto IN (3,40)" - Case Else - Filtro = "CveConcepto = 9" End Select Dim CveConceptoAlmacen As Integer = 3 From 733791746c125de9e6abb8e8c761a3fb719d3d2a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 19 Oct 2022 16:46:01 -0700 Subject: [PATCH 7/7] Validar saldo de lineas adicionales --- Ventas/Ventas.aspx.vb | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2bb888f55..f331cc6cc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2242,10 +2242,10 @@ Partial Class Ventas Private Property SaldoLineaAdicional As Decimal Get - Return (IfNull(ViewState("ImporteLineaAdicional"), "0", ViewState("ImporteLineaAdicional"))).ToString().ToDecimal() + Return (IfNull(ViewState("SaldoLineaAdicional"), "0", ViewState("SaldoLineaAdicional"))).ToString().ToDecimal() End Get Set(value As Decimal) - ViewState("ImporteLineaAdicional") = value + ViewState("SaldoLineaAdicional") = value End Set End Property @@ -35286,9 +35286,17 @@ Partial Class Ventas Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero() Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero() + Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal() End If - + Else + Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia) + Me.SaldoLineaAdicional = 0 + Me.CveCategoriaLineaAdicional = 0 End If + Else + Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia) + Me.SaldoLineaAdicional = 0 + Me.CveCategoriaLineaAdicional = 0 End If End Using Else