From 7323c25a478031063b7d42fc1021d80c728e1658 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 5 Jun 2024 09:49:11 -0700 Subject: [PATCH] =?UTF-8?q?Compras=20=20Emp=2013,83=20validaci=C3=B3n=20re?= =?UTF-8?q?gistro=20de=20compra=20sin=20xml,=20=20OC=20solo=20mosrtar=20Pr?= =?UTF-8?q?oveedores=20activos,=20clientes=20Abonar=20correci=C3=B3n=20tam?= =?UTF-8?q?a=C3=B1os=20=20txt=20fecha=20de=20emisi=C3=B3n=20Grupo=20D?= =?UTF-8?q?=C3=ADaz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/SIGWeb.ashx | 15 ++++++++++++++- Bancos/PopIEVentas.aspx | 6 +++++- Compras/Compras.aspx.vb | 5 +++-- OC/OC.aspx.vb | 7 +++++-- Ventas/ClientesAbonar.aspx | 4 ++-- 5 files changed, 29 insertions(+), 8 deletions(-) diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index e606c32b5..dde388876 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -811,6 +811,19 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim retorno As String = "" Dim DtRetorno As DataTable = Nothing + Dim Estatus = IfNull(context.Request("estatus"), "-1").ToString.ToEntero + + Dim filtro As String = "" + + If Estatus = 1 Then + filtro = " Estatus = 'Activo' " + End If + + If Estatus = 0 Then + filtro = " Estatus = 'Inactivo' " + End If + + Dim usuario As Usuario = UsuarioActual(context) Dim CveEmpresa As Integer If IsNothing(usuario) Then @@ -819,7 +832,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState CveEmpresa = usuario.CveEmpresa Dim Name = IfNull(context.Request("Name"), "-1").ToString - Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa) + Dim dt As DataTable = ClsPaginas.GlobalDTCompProveedores(CveEmpresa).FiltraParametros(filtro) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then DtRetorno = dt.FiltraParametros(String.Format("NombreCortoProveedor like '%{0}%'", Name)) End If diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 02fb8830b..7326ad20b 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -7,6 +7,10 @@ .row { margin: 0 -10px; } + .calendar-extender-popup { + position: absolute; + z-index: 10000; /* Asegura que se muestre sobre otros elementos */ + } @@ -548,7 +552,7 @@ -
Fecha Emisión: -
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8410b48e6..8480b35d7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6,6 +6,7 @@ Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO +Imports System.IO Imports System.Threading.Tasks Imports Newtonsoft.Json Imports Extensiones @@ -11736,11 +11737,11 @@ Partial Class Compras_Compras Protected Sub RBLPago_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLPago.SelectedIndexChanged CambiaTipoPago(True) - ValidaPagoSinXML() + ValidaRegistroSinXML() End Sub - Private Sub ValidaPagoSinXML() + Private Sub ValidaRegistroSinXML() If CveFactura <= 0 And CveCompra <= 0 Then diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 3a7c3dc60..ae9fcf415 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2006,20 +2006,23 @@ Partial Class OC_OC If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.Attributes.Add("data-estatus", "1") DdlProveedores.SelectedText = "Seleccione" DdlProveedores.SelectedValue = "-1" DdlProveedores.ddl.AutoPostBack = True DdlProveedorCot.setEsWebService(True) DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores") + DdlProveedorCot.Attributes.Add("data-estatus", "1") + Else - DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ") DdlProveedores.DataBind() DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlProveedores.ddl.AutoPostBack = True - DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ") DdlProveedorCot.DataBind() DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 8d3dc006e..1ac398413 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -339,14 +339,14 @@
+
Fecha Emisión: -
+