From e1db81a859719184e88312fa4961589946f6f351 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 1 Jul 2025 10:41:09 -0700 Subject: [PATCH 01/26] =?UTF-8?q?Clientes=20ajustes=20Cuentas=20Deposito,?= =?UTF-8?q?=20=20compras=20=20GVNCInvAlmacen=20pu=205=20decimales,=20=20di?= =?UTF-8?q?ario=20de=20pagos=20correcion=20control,=20=20proveedores=20car?= =?UTF-8?q?ga=20tipo=20de=20operaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 3 + Compras/Proveedores.aspx.vb | 10 +++ Contabilidad/DiarioPagos.aspx | 1 + General/SaldosIniciales.aspx.vb | 4 +- Ventas/Clientes.aspx | 141 ++++++++++++++++++++++---------- Ventas/Clientes.aspx.vb | 79 +++++++++++++++--- 7 files changed, 180 insertions(+), 60 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index bf2ccb6ec..3d6d102d3 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5042,7 +5042,7 @@ - + diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index dc292aa46..b9ee9e5b3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -15524,6 +15524,9 @@ Partial Class Compras_Compras End If End If + Dim ivaPorcentaje As Decimal = DTOCGV.MAX("IVAPorcentaje").ToDecimal + Dim IVAPorcentajeTmp As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal + If DTOCGV.MAX("IVAPorcentaje").ToDecimal <> TmpDT.MAX("IVAPorcentaje").ToDecimal Then Alert("La orden de compra(s) tiene diferentes tasa de IVA.", TipoMensaje.MsgAdvertencia) End If diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index a3e2ddbda..634f7cc68 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5890,7 +5890,14 @@ Partial Class Compras_Proveedores Private Sub CargaTipoTransaccion() + + + If GlobalDTDIOTTipoOperacion IsNot Nothing AndAlso GlobalDTDIOTTipoOperacion.Rows.Count = 0 Then + GlobalDTDIOTTipoOperacion = Nothing + End If + Dim Filtro As String = "" + Select Case DDlDIOTTipoTercero.SelectedValue Case "1" Filtro = "AplicaProvNacional = 1" @@ -5900,8 +5907,11 @@ Partial Class Compras_Proveedores Filtro = "AplicaProvGlobal = 1" End Select + GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro) + DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro) DdlDIOTTipoOperacion.DataBind() + End Sub diff --git a/Contabilidad/DiarioPagos.aspx b/Contabilidad/DiarioPagos.aspx index 6c193ac59..7c2ba64e9 100644 --- a/Contabilidad/DiarioPagos.aspx +++ b/Contabilidad/DiarioPagos.aspx @@ -695,6 +695,7 @@ + diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 36d0bbeb0..17bbe038d 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -794,7 +794,7 @@ Partial Class General_SaldosIniciales Dim DTCuentasContables As New DataTable - If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then + If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174, 184) Then Dim ObjConta As New ClsContabilidad If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then @@ -1445,7 +1445,7 @@ Partial Class General_SaldosIniciales If CobranzaTelefono.Trim.Length > 10 Then CobranzaTelefono = "" - Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "") + Dim FormaPago As String = If(dt.Columns.Contains("FormaPago"), Row("FormaPago").ToString(), "") Dim CveFormaPago33 As Integer = 99 Select Case FormaPago diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index e3f74c920..c73ea4d84 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -2569,7 +2569,8 @@
- + @@ -6028,53 +6029,103 @@
-
- - - - -
-
- - -
-
- - - -
-
- - - -
-
- - -
-
- - -
-
- - -
-
- - - + + +
+ + + Seleccione uno + + + + +
-
- - - - +
+
+
+ + + + +
+
+
+
+ + +
+
-
- - + + +
+
+
+ + + +
+
+
+
+ + + +
+ +
+
+ + +
+
+
+ + +
+
+
+ +
+ + +
+
+
+ +
+
+
+ + +
+
+
+
+ + + +
+
+
+ +
+
+
+ + + + +
+
+
+
+ + +
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ec4deaea0..79361659d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1268,8 +1268,6 @@ Partial Class Clientes CargaMetodosPago() CargaPrecioLista() CargaVendedores() - - 'CargaCorporativo() CargaMetodosPago33() @@ -1278,12 +1276,30 @@ Partial Class Clientes CargaClasificaciones() - DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales DdlRegimenFiscal.DataBind() CargaCombosComercioExterior() + CargaBancosSAT() + CargaMonedas() + End Sub + + Private Sub CargaBancosSAT() + + Dim ObjBancos As New ClsBancos + + If ObjBancos.GetBancosSAT Then + DdlSatBanco.DataSource = ObjBancos.DtResultados + End If + + ObjBancos.Dispose() + + DdlSatBanco.DataBind() + DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + + End Sub Private Sub CargaSubProyectos() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione") @@ -6790,14 +6806,16 @@ Partial Class Clientes End If ObjCuentasBancos.Dispose() - CargaPSGridCuentasBancos() - - CargaMonedas() + CargaPSGridCuentasBancos() + + End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) Dim EsBancomer As Boolean = False - If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then + If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or + DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BBVA") Or + DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then EsBancomer = True End If @@ -6852,15 +6870,19 @@ Partial Class Clientes Dim Estatus As Boolean If ChkEstatus2.Checked = True Then Estatus = True Else Estatus = False - AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus) + AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", + DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus, DdlSatBanco.SelectedValue.ToEntero) End Sub - Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean) + Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, + CveMoneda As Integer, Moneda As String, Estatus As Boolean, CveSATBanco As Integer) + Dim ObjCuentasBancos As New ClsGenerales + If Modalidad = "A" Then If CveCliente > 0 Then - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -6871,6 +6893,31 @@ Partial Class Clientes Else Dim Row As DataRow + + If TempDTCuentasBancos Is Nothing Then + TempDTCuentasBancos = New DataTable + TempDTCuentasBancos.Columns.Add("CveCuentaDeposito", GetType(Integer)) + TempDTCuentasBancos.Columns.Add("BancoNombre", GetType(String)) + TempDTCuentasBancos.Columns.Add("Sucursal", GetType(String)) + + TempDTCuentasBancos.Columns.Add("CLABE", GetType(String)) + TempDTCuentasBancos.Columns.Add("SWIFT", GetType(String)) + TempDTCuentasBancos.Columns.Add("Plaza", GetType(String)) + TempDTCuentasBancos.Columns.Add("Cuenta", GetType(String)) + TempDTCuentasBancos.Columns.Add("CIE", GetType(String)) + TempDTCuentasBancos.Columns.Add("Referencia", GetType(String)) + TempDTCuentasBancos.Columns.Add("RefCrediProveedor", GetType(String)) + TempDTCuentasBancos.Columns.Add("CveMoneda", GetType(Integer)) + TempDTCuentasBancos.Columns.Add("Moneda", GetType(String)) + TempDTCuentasBancos.Columns.Add("EstatusPagoElectronico", GetType(Integer)) + TempDTCuentasBancos.Columns.Add("Estatus", GetType(String)) + TempDTCuentasBancos.Columns.Add("CveSATBanco", GetType(Integer)) + TempDTCuentasBancos.Columns.Add("EstatusTexto", GetType(String)) + + + + End If + Row = TempDTCuentasBancos.NewRow Row("BancoNombre") = NombreBanco @@ -6886,6 +6933,7 @@ Partial Class Clientes Row("Moneda") = Moneda Row("EstatusPagoElectronico") = 0 Row("Estatus") = "True" + Row("CveSATBanco") = CveSATBanco TempDTCuentasBancos.Rows.Add(Row) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -6896,7 +6944,8 @@ Partial Class Clientes If CveCliente > 0 Then - If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then + If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa, + CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() CargaCuentasBancarias() Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) @@ -6920,6 +6969,7 @@ Partial Class Clientes Row("CveMoneda") = CveMoneda Row("Moneda") = Moneda Row("Estatus") = Estatus + Row("CveSATBanco") = CveSATBanco TempDTCuentasBancos.AcceptChanges() Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -6932,6 +6982,7 @@ Partial Class Clientes RecargaGlobalCuentasBancarias() End Sub Private Sub LimpiaCuentasBancarias() + DdlSatBanco.SelectedValueExist(-1) TxtNombreBanco.Text = "" TxtNumeroSucursal.Text = "" TxtCLABE.Text = "" @@ -7014,7 +7065,8 @@ Partial Class Clientes End Sub Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click - Modalidad = "A" + Modalidad = "A" + DdlSatBanco.SelectedValueExist(-1) TxtNombreBanco.Text = "" LbAgregarCuentaBanco.Text = "Agregar" TxtNumeroSucursal.Text = "" @@ -7033,6 +7085,9 @@ Partial Class Clientes Public Sub Edit_Click2(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + + DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco")) TxtNombreBanco.Text = GvRow.DataKey("BancoNombre") Modalidad = "U" LbAgregarCuentaBanco.Text = "Actualizar" From e780acb81b110a8703447d0f18def2fc1d1ee3d4 Mon Sep 17 00:00:00 2001 From: SLopez Date: Tue, 1 Jul 2025 18:02:01 -0700 Subject: [PATCH 02/26] =?UTF-8?q?Cambios=20en=20la=20impresi=C3=B3n=20de?= =?UTF-8?q?=20la=20exportaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Export/ExpDetalle.aspx.cs | 70 +++++++++++++++++++++++++++++++++------ 1 file changed, 60 insertions(+), 10 deletions(-) diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index 895d00d9a..f9b41f66e 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -1,9 +1,10 @@ using ADSNetLibrary.Helpers; using CrystalDecisions.ReportAppServer.DataDefModel; - //using DocumentFormat.OpenXml.Wordprocessing; using Extensiones; using HigLabo.Core; +using iText.IO.Font.Otf; +using Microsoft.Reporting.WebForms; using Profact.TimbraCFDI; using Profact.TimbraCFDI.Complementos.ComercioExterior10; using StackExchange.Redis; @@ -13,13 +14,13 @@ using System.Activities.Expressions; using System.Activities.Statements; using System.Collections.Generic; using System.Data; +using System.Globalization; using System.IO; using System.Linq; using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using ModExtensiones = Extensiones.ModExtensiones; -using Microsoft.Reporting.WebForms; public partial class Export_ExpDetalle : ClsPaginas { @@ -927,7 +928,24 @@ public partial class Export_ExpDetalle : ClsPaginas string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp"); string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio"); string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento"); - string FechaFact = RowExp["FechaFact"] != DBNull.Value ? Convert.ToDateTime(RowExp["FechaFact"]).ToString("dd/MM/yyyy") : ""; + string ITN = DTExportaciones.FiltroPrimeroValor("ITN"); + string Vinculacion = DTExportaciones.FiltroPrimeroValor("Vinculacion") == "True" ? "SI" : "NO"; + string FechaFact = ""; + string NumSemana = ""; + if (RowExp["FechaFact"] != DBNull.Value) + { + DateTime fechaf = Convert.ToDateTime(RowExp["FechaFact"]); + FechaFact = fechaf.ToString("dd/MM/yyyy"); + + CultureInfo cultura = CultureInfo.CurrentCulture; + System.Globalization.Calendar calendario = cultura.Calendar; + int numeroSemana = calendario.GetWeekOfYear( + fechaf, + cultura.DateTimeFormat.CalendarWeekRule, + cultura.DateTimeFormat.FirstDayOfWeek + ); + NumSemana = numeroSemana.ToString(); + } string TipoCambio = ModExtensiones.ToDecimal(DTExportaciones.FiltroPrimeroValor("TipoCambio")).ToString("#,###.####"); string MedioTransporte = DTExportaciones.FiltroPrimeroValor("MedioTransporte"); string TipoContenedor = DTExportaciones.FiltroPrimeroValor("TipoContenedor"); @@ -953,8 +971,11 @@ public partial class Export_ExpDetalle : ClsPaginas string SCAC = DTExportaciones.FiltroPrimeroValor("SCAC"); string CAAT = DTExportaciones.FiltroPrimeroValor("CAAT"); string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion"); + ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : ""; string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm"); - string CedulaAgente = DTExportaciones.FiltroPrimeroValor("CedulaAgente"); + string Patente = DTExportaciones.FiltroPrimeroValor("Patente"); + string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt"); + string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId"); List para = new List(); para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString())); @@ -964,7 +985,10 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("RFCImp", RFCImp)); para.Add(new ReportParameter("NumFactura", NumFactura)); para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento)); + para.Add(new ReportParameter("ITN", ITN)); + para.Add(new ReportParameter("Vinculacion", Vinculacion)); para.Add(new ReportParameter("FechaFact", FechaFact)); + para.Add(new ReportParameter("NumSemana", NumSemana)); para.Add(new ReportParameter("TipoCambio", TipoCambio)); para.Add(new ReportParameter("MedioTransporte", MedioTransporte)); para.Add(new ReportParameter("TipoContenedor", TipoContenedor)); @@ -1013,14 +1037,40 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("CAAT", CAAT)); para.Add(new ReportParameter("ClaveAduana", ClaveAduana)); para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm)); - para.Add(new ReportParameter("CedulaAgente", CedulaAgente)); - + para.Add(new ReportParameter("Patente", Patente)); + para.Add(new ReportParameter("AgenteExt", AgenteExt)); + para.Add(new ReportParameter("TaxId", TaxId)); List lrds = new List(); - ReportDataSource rds = new ReportDataSource(); - rds.Name = "DsExportaciones"; - rds.Value = DTExportaciones; - lrds.Add(rds); + ReportDataSource RDSExportaciones = new ReportDataSource(); + RDSExportaciones.Name = "DsExportaciones"; + RDSExportaciones.Value = DTExportaciones; + lrds.Add(RDSExportaciones); + + DataTable DTPartidas = new DataTable(); + ClsExportaciones Partidas = new ClsExportaciones(); + if (Partidas.GetPartidas(UsuarioActual.CveEmpresa, CveExportacion)) + { + DTPartidas = Partidas.DtResultados; + if (DTPartidas.Rows.Count > 0) + { + DTPartidas.Columns.Add("ValorUnitarioUSD", typeof(decimal)); + DTPartidas.Columns.Add("ValorUnitarioMN", typeof(decimal)); + DTPartidas.Columns["ValorUnitarioUSD"].DefaultValue = 0.0m; + DTPartidas.Columns["ValorUnitarioMN"].DefaultValue = 0.0m; + DataRow RowPartida = DTPartidas.Rows[0]; + decimal cantidad = Convert.ToDecimal(RowPartida["Cantidad"]); + if (cantidad > 0) + { + RowPartida["ValorUnitarioUSD"] = Convert.ToDecimal(RowPartida["Precio"]) / cantidad; + RowPartida["ValorUnitarioMN"] = Convert.ToDecimal(RowPartida["ValorTotalMXP"]) / cantidad; + } + ReportDataSource RDSPartidas = new ReportDataSource(); + RDSPartidas.Name = "DsPartidas"; + RDSPartidas.Value = DTPartidas; + lrds.Add(RDSPartidas); + } + } string NombreArchivo = $"Exportacion_{CveExportacion}"; string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta"); ; From 7f629642d438d4f697b0abbbe9bd535e0fc22909 Mon Sep 17 00:00:00 2001 From: Luis Carlos Quijada Date: Wed, 2 Jul 2025 13:29:51 -0600 Subject: [PATCH 03/26] Cambios Exportaciones --- App_Code/ClsExportaciones.vb | 3 ++- Export/RepExportaciones.aspx.cs | 20 +++++++++++++++++++- 2 files changed, 21 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb index c7317a75b..72509a08e 100644 --- a/App_Code/ClsExportaciones.vb +++ b/App_Code/ClsExportaciones.vb @@ -120,12 +120,13 @@ Public Class ClsExportaciones End Sub #Region "EXPORTACIONES" - Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean + Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Integer = 1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Exp_ExportacionesRep") With SqlAdapter.SelectCommand.Parameters .Add("@CveExportacion", SqlDbType.Int).Value = CveExportacion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@EsExportacion", SqlDbType.Bit).Value = EsExportacion .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaFin", SqlDbType.Date).Value = FechaFin End With diff --git a/Export/RepExportaciones.aspx.cs b/Export/RepExportaciones.aspx.cs index 7a71cc001..474c146de 100644 --- a/Export/RepExportaciones.aspx.cs +++ b/Export/RepExportaciones.aspx.cs @@ -1,11 +1,13 @@ using DocumentFormat.OpenXml.Wordprocessing; using Extensiones; +using HigLabo.Core; using StackExchange.Redis; using System; using System.Activities; using System.Activities.Expressions; using System.Activities.Statements; using System.Collections.Generic; +using System.EnterpriseServices.Internal; using System.Linq; using System.Web; using System.Web.UI; @@ -13,6 +15,7 @@ using System.Web.UI.WebControls; using static Microsoft.EntityFrameworkCore.DbLoggerCategory; using static Stimulsoft.Report.Export.DeflaterHuffman; + public partial class Export_RepExportaciones : ClsPaginas { #region Propiedades @@ -21,18 +24,33 @@ public partial class Export_RepExportaciones : ClsPaginas get { return (ViewState["CveExportacion"] == null) ? -1 : Convert.ToInt32(ViewState["CveExportacion"]); } set { ViewState["CveExportacion"] = value; } } + + private bool EsImportacion + { + get{ return (ViewState["EsImportacion"] == null) ? false : Boolean.Parse(ViewState["EsImportacion"].ToString()); } + set { ViewState["EsImportacion"] = value; } + } #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { + EsImportacion = false; + + if (Request["Opcion"] != null) + { + if (Request["Opcion"] == "I") + EsImportacion = true; + } + LtlPeriodoseleccionado.Text = EsImportacion ? "Importaciones" : "Exportaciones"; CargaExportaciones(); } } protected void CargaExportaciones() { ClsExportaciones Exportaciones = new ClsExportaciones(); - if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa)) + int EsExportacion = EsImportacion ? 0 : 1; // 0 = importación, 1 = exportación + if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa, EsExportacion)) { GVExportaciones.DataSource = Exportaciones.DtResultados; GVExportaciones.DataBind(); From 3e21f6f80ef77b994e4ee6130914bd45e0acf1a0 Mon Sep 17 00:00:00 2001 From: JPerez Date: Wed, 2 Jul 2025 12:52:32 -0700 Subject: [PATCH 04/26] --FIX moneda en anticipo --- Ventas/ClientesAbonar.aspx.vb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index a1ac6178e..0edbb82d6 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1330,13 +1330,15 @@ Partial Class Ventas_ClientesAbonar If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TxtAnticipo.Text.ToDecimal > 0 AndAlso MsgError = "" Then '' si es empresa GDiaz 'generar un anticipo y registrarle el pago. - Dim tCveMoneda As Integer = 1 + Dim tCveMoneda As Integer = Me.CveMoneda Dim tCveFormaPago As Integer = GlobalDTTipoTransacciones().FiltroPrimeroValor("CveFormaPago", $"CveTipoTransaccion={DdlTipoTransaccion.SelectedValue}").ToEntero Dim tCvePS As Integer Dim tCveUM As Integer = 0 Dim tCveSub As Integer = DdlSubProyectos.SelectedValue.ToEntero ObjFacturaAnt = Modelos.Factura.CrearVentaNueva(UsuarioActual, tCveSub, CveCliente, tCveMoneda, "Ant") ObjFacturaAnt.CveMoneda = tCveMoneda + ObjFacturaAnt.TipoCambio = If(tCveMoneda = 1, 1, TxtTCDolares.Text.ToDecimal()) + ObjFacturaAnt.TipoCambioDolares = If(tCveMoneda = 1, 1, TxtTCDolares.Text.ToDecimal()) ObjFacturaAnt.CveFormaPago = tCveFormaPago ObjFacturaAnt.CveMetodoPago = 1 ObjFacturaAnt.ClaveMetodoPagoSAT = "PUE" @@ -1355,7 +1357,7 @@ Partial Class Ventas_ClientesAbonar RespAnt = ObjFacturaAnt.EmitirFactura(False, Transac:=ObjMov.IniciaTransacSQL(), Modulo:="Ventas/ClientesAbonarAnt", MostrarURL:=True) RespAnt.Factura = ObjFacturaAnt - If RespAnt IsNot Nothing AndAlso RespAnt.Factura IsNot Nothing Then + If RespAnt IsNot Nothing AndAlso RespAnt.Factura IsNot Nothing AndAlso RespAnt.Factura.CveVenta > 0 Then Dim VentaActual As New Venta(UsuarioActual) VentaActual.CveVenta = RespAnt.Factura.CveVenta @@ -1365,7 +1367,7 @@ Partial Class Ventas_ClientesAbonar VentaActual.TipoDocto = "Ant" VentaActual.SerieFolio = RespAnt.Factura.SerieFolio VentaActual.ClienteNombre = NombreComercial - VentaActual.TC = 1 + VentaActual.TC = If(tCveMoneda = 1, 1, TxtTCDolares.Text.ToDecimal()) VentaActual.Total = TxtAnticipo.Text.ToDecimal VentaActual.IVA = (tPorIVA * tPU).RoundSQL(2) @@ -1381,6 +1383,8 @@ Partial Class Ventas_ClientesAbonar Pago.ImportePagoVenta = TxtAnticipo.Text.ToDecimal Pago.Referencia = TxtFolio.Text Pago.TipoPago = "XXX" + Pago.TCPago = If(tCveMoneda = 1, 1, TxtTCDolares.Text.ToDecimal()) + 'If RblTipoPago.SelectedValue = "3" Then ' Pago.TipoPago = "I" ' Pago.FechaDocumentoRelacionado = FechaIngreso @@ -1390,6 +1394,8 @@ Partial Class Ventas_ClientesAbonar If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then MsgError = "No se pudo insertar la póliza" End If + Else + MsgError = "Ocurrió un error al generar el anticipo" End If End If From 7fba323ed95abfa0e8cc525092698c6f2b6e76d7 Mon Sep 17 00:00:00 2001 From: JPerez Date: Wed, 2 Jul 2025 12:52:50 -0700 Subject: [PATCH 05/26] --FIX Global de estatus de cobranza --- Ventas/CatCobranzaEstatus.aspx.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Ventas/CatCobranzaEstatus.aspx.vb b/Ventas/CatCobranzaEstatus.aspx.vb index 5dbf30f6d..c35642c8c 100644 --- a/Ventas/CatCobranzaEstatus.aspx.vb +++ b/Ventas/CatCobranzaEstatus.aspx.vb @@ -79,6 +79,8 @@ Partial Class Vta_CatCobranzaEstatus Alert("Error al actualizar") End If End If + + GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa) = Nothing End Sub Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting @@ -92,6 +94,8 @@ Partial Class Vta_CatCobranzaEstatus Alert("Estatus de cobranza eliminado") End If ObjVentas.Dispose() + + GlobalDTVtaCobranzaEstatus(UsuarioActual.CveEmpresa) = Nothing End Sub Private Sub CargaDatosTurno() From e075b69f059481f9ea198ddbf443329fc3277f3f Mon Sep 17 00:00:00 2001 From: JPerez Date: Wed, 2 Jul 2025 12:53:04 -0700 Subject: [PATCH 06/26] --Cambios en metas de vendedores --- Ventas/CatMetasVendedores.aspx | 94 ++++++++++++++++--------------- Ventas/CatMetasVendedores.aspx.vb | 93 ++++++++++++++++++++++-------- 2 files changed, 120 insertions(+), 67 deletions(-) diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx index f4a31b5c6..a449a738d 100644 --- a/Ventas/CatMetasVendedores.aspx +++ b/Ventas/CatMetasVendedores.aspx @@ -33,13 +33,13 @@
- -
+ +
- -
+ +
@@ -54,8 +54,8 @@
- -
+ +
@@ -70,7 +70,7 @@ - + @@ -162,48 +162,54 @@ Metas Vendedores
-
- - - -
-
- -
- - - - +
+
Vendedor
+
+
- -
-
- - - +
+
Marca
+
+ +
+
Mes y Año
+
+
+ + + + +
+ + +
-
- - - +
+
Clasificación Superior
+
+ +
-
- - - +
+ +
+ +
-
- - - - -
-
- - - - +
+
Cantidad meta
+
+ + + +
+
Importe meta
+
+ + + +
diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index b63444e01..33e5dc539 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -33,16 +33,31 @@ Partial Class CatMetasVendedores Private Sub CargaDatos() Dim Mes As Integer = -1, Anio As Integer = -1 - If Not String.IsNullOrEmpty(txtMesAnio.Text) Then - Dim FechaRef As DateTime = txtMesAnio.Text.ToDate() - Mes = FechaRef.Month - Anio = FechaRef.Year + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + If Not String.IsNullOrEmpty(txtMesAnio.Text) Then + Dim FechaRef As DateTime = txtMesAnio.Text.ToDate() + Mes = FechaRef.Month + Anio = FechaRef.Year + End If + Else + GvDatos.Columns(1).Visible = False + GvDatos.Columns(2).Visible = False + GvDatos.Columns(3).Visible = False + GvDatos.Columns(4).Visible = False + + DivLblSucursal.Visible = False + DivSucursal.Visible = False + DivLblMes.Visible = False + DivMes.Visible = False + DivLblMarca.Visible = False + DivMarca.Visible = False End If Dim ObjVentas As New ClsVentas - If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then - GvDatos.DataSource = ObjVentas.DtResultados - DtDatos = ObjVentas.DtResultados + If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then + DtDatos = ObjVentas.DtResultados.Copy() + GvDatos.DataSource = DtDatos End If ObjVentas.Dispose() GvDatos.DataBind() @@ -64,7 +79,13 @@ Partial Class CatMetasVendedores End Sub - Private Sub CargaDatosModal() + Private Sub CargaDatosModal() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + Div1.Visible = True + Div2.Visible = True + Div3.Visible = True + End If + DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedores.DataBind() DdlVendedores.Items.Insert(0, New ListItem("Seleccionar", "-1")) @@ -93,29 +114,50 @@ Partial Class CatMetasVendedores Protected Sub BtnAgregarMetaVendedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarMetaVendedor.Click - If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0 Then + Dim CveVendedor As Integer = DdlVendedores.SelectedValue.ToEntero() + Dim Fecha As Date = MinFecha + Dim CveMarca As Integer = -1 + Dim CveClasificacionSuperior As Integer = -1 + Dim CveClasificacion As Integer = -1 - Dim ObjVentas As New ClsVentas + + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + + If Not (DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 AndAlso DdlClasificacionSup.SelectedValue.ToEntero > 0) Then + Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, "))) + Exit Sub + End If + Fecha = TxtFechaI.Text.ToDate() + CveClasificacionSuperior = DdlClasificacionSup.SelectedValue.ToEntero + CveClasificacion = DdlClasificacion.SelectedValue.ToEntero + CveMarca = DdlMarca.SelectedValue.ToEntero + + Else + If Not (DdlVendedores.SelectedValue.ToEntero > 0) Then + Alert("Falta Seleccionar el vendedor") + Exit Sub + End If + End If + + Using ObjVentas As New ClsVentas If BtnAgregarMetaVendedor.Text = "Agregar" Then - If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, - TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacionSup.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjVentas.AddMetasVendedores(CveVendedor, Fecha, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, CveClasificacion, CveClasificacionSuperior, UsuarioActual.CveEmpresa) Then Alert("Se agregó la meta al vendedor") Else Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError) End If ElseIf BtnAgregarMetaVendedor.Text = "Actualizar" Then - If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, - TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero, - DdlClasificacionSup.SelectedValue.ToEntero) Then + If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, CveVendedor, Fecha.ToString("dd/MM/yyyy"), CveMarca, TxtMetaCantidad.Text.ToEntero, TxtMetaImporte.Text.ToDecimal, CveClasificacion, CveClasificacionSuperior) Then Alert("Se actualizó la información de la meta del vendedor") Else Alert("No se pudo actualizar la meta del vendedor", TipoMensaje.MsgError) End If - End If - Else - Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, "))) - End If + End If + End Using + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) + ResetDatosSeleccionadosModal() CargaDatos() UpDatos.Update() @@ -135,12 +177,17 @@ Partial Class CatMetasVendedores Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor") - TxtFechaI.Text = GvRow.DataKey("MesAño") - DdlClasificacionSup.SelectedValueExist(GvRow.DataKey("CveClasificacionSup")) - DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + + TxtFechaI.Text = GvRow.DataKey("MesAño") + + DdlClasificacionSup.SelectedValueExist(GvRow.DataKey("CveClasificacionSup")) + DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) + + DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca") + End If - DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca") TxtMetaCantidad.Text = GvRow.DataKey("MetaCantidad") TxtMetaImporte.Text = GvRow.DataKey("MetaImporte") UpModalTiposD.Update() From 6d105e34af876a307193c0aef56f287d7eb9982b Mon Sep 17 00:00:00 2001 From: JPerez Date: Wed, 2 Jul 2025 12:53:21 -0700 Subject: [PATCH 07/26] --FIX quitar obligar pago en ayven --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 13ba130db..87f30001f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -25368,7 +25368,7 @@ Partial Class Ventas End If TxtImporteContado.Text = TxtTotal.Text 'SI ES MODALIDAD COBRANZA, NO MOSTRAR - If (UsuarioActual.Empresa.Funcionalidad(109) = "1") Then + If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197) Then DivContado.Visible = UsuarioActual.TienePermisoProceso(375) End If End If @@ -25885,7 +25885,7 @@ Partial Class Ventas Dim TienePagos As Boolean = ((Not (DtPagos Is Nothing OrElse DtPagos.Rows.Count = 0)) AndAlso (DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0)) OrElse AmortizacionNC > 0 'SI LA VENTA ES NUEVA VALIDAR TAMBIEN LOS PAGOS DE CONTADO - If (UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.CveEmpresa = 197) AndAlso ((CveVenta <= 0 OrElse EsCreaApartirDe OrElse TipoDoctoViejo = "Cot") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant")) Then + If (UsuarioActual.Empresa.Funcionalidad(558) = "1") AndAlso ((CveVenta <= 0 OrElse EsCreaApartirDe OrElse TipoDoctoViejo = "Cot") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant")) Then If Not PermiteCredito AndAlso Not TienePagos AndAlso TxtTotal.Text.ToDecimal > 0 Then If MostrarAlertas Then From 47c6fbba2a192775add47452099e83c6d27f1a56 Mon Sep 17 00:00:00 2001 From: Luis Carlos Quijada Date: Wed, 2 Jul 2025 15:08:01 -0600 Subject: [PATCH 08/26] Cambios ExpDetalle Importaciones --- App_Code/ClsExportaciones.vb | 5 +++-- Export/ExpDetalle.aspx.cs | 26 +++++++++++++++++++++----- Export/RepExportaciones.aspx.cs | 2 +- 3 files changed, 25 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb index 72509a08e..8670c2847 100644 --- a/App_Code/ClsExportaciones.vb +++ b/App_Code/ClsExportaciones.vb @@ -120,7 +120,7 @@ Public Class ClsExportaciones End Sub #Region "EXPORTACIONES" - Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Integer = 1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean + Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Boolean = True, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Exp_ExportacionesRep") With SqlAdapter.SelectCommand.Parameters @@ -143,7 +143,7 @@ Public Class ClsExportaciones CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer, - CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Integer + CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean, EsExportacion As Boolean) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Exp_ExportacionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -177,6 +177,7 @@ Public Class ClsExportaciones .Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero .Add("@ITN", SqlDbType.VarChar).Value = ITN .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion + .Add("@EsExportacion", SqlDbType.Bit).Value = EsExportacion .Add("@CveExportacion", SqlDbType.Int).Direction = ParameterDirection.Output End With diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index f9b41f66e..ba462f3db 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -35,6 +35,12 @@ public partial class Export_ExpDetalle : ClsPaginas get { return (ViewState["CveExportacionDetalle"] == null) ? -1 : Convert.ToInt32(ViewState["CveExportacionDetalle"]); } set { ViewState["CveExportacionDetalle"] = value; } } + + private bool EsImportacion + { + get { return (ViewState["EsImportacion"] == null) ? false : Boolean.Parse(ViewState["EsImportacion"].ToString()); } + set { ViewState["EsImportacion"] = value; } + } #endregion @@ -42,6 +48,12 @@ public partial class Export_ExpDetalle : ClsPaginas { if (!IsPostBack) { + EsImportacion = false; + if (!string.IsNullOrEmpty(Request["Opcion"]) && Request["Opcion"].Equals("I", StringComparison.OrdinalIgnoreCase)) + { + EsImportacion = true; + } + CveExportacion = !string.IsNullOrEmpty(Request["CveExportacion"]) ? Request["CveExportacion"].ToEntero() : -1; InicializarValores(); CargaDatos(); @@ -117,7 +129,8 @@ public partial class Export_ExpDetalle : ClsPaginas { DataTable DTExportaciones = new DataTable(); ClsExportaciones Exportaciones = new ClsExportaciones(); - if (Exportaciones.GetExportacion(CveExportacion, UsuarioActual.CveEmpresa)) + bool EsExportacion = !EsImportacion; + if (Exportaciones.GetExportacion(CveExportacion, UsuarioActual.CveEmpresa, EsExportacion)) { DTExportaciones = Exportaciones.DtResultados; if (DTExportaciones.Rows.Count > 0) @@ -371,7 +384,7 @@ public partial class Export_ExpDetalle : ClsPaginas decimal DecOtros = ModExtensiones.ToDecimal(TxtDecOtros.Text); ClsExportaciones Exportaciones = new ClsExportaciones(); - + bool EsExportacion = !EsImportacion; if (CveExportacion == -1) { int ExportacionGuardada = Exportaciones.AddExportacion( @@ -404,7 +417,8 @@ public partial class Export_ExpDetalle : ClsPaginas CvePedimento, CveAgenteExtranjero, ITN, - Vinculacion + Vinculacion, + EsExportacion ); if (ExportacionGuardada != -1) { @@ -442,8 +456,10 @@ public partial class Export_ExpDetalle : ClsPaginas } //string Liga = "document.location.href=\"/Export/RepExportaciones.aspx\";"; - string Liga = $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}\";"; - Alert("La Exportación se ha agregado correctamente.", JSBtnAceptar: Liga); + string liga = EsImportacion + ? $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}&Opcion=I\";" + : $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}\";"; + Alert("La Exportación se ha agregado correctamente.", JSBtnAceptar: liga); } Exportaciones.Dispose(); } diff --git a/Export/RepExportaciones.aspx.cs b/Export/RepExportaciones.aspx.cs index 474c146de..3ee4b2c68 100644 --- a/Export/RepExportaciones.aspx.cs +++ b/Export/RepExportaciones.aspx.cs @@ -49,7 +49,7 @@ public partial class Export_RepExportaciones : ClsPaginas protected void CargaExportaciones() { ClsExportaciones Exportaciones = new ClsExportaciones(); - int EsExportacion = EsImportacion ? 0 : 1; // 0 = importación, 1 = exportación + bool EsExportacion = !EsImportacion; if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa, EsExportacion)) { GVExportaciones.DataSource = Exportaciones.DtResultados; From baae66fdf66cc9629bc4af1ee43f48202fb6b721 Mon Sep 17 00:00:00 2001 From: SLopez Date: Wed, 2 Jul 2025 15:15:31 -0700 Subject: [PATCH 09/26] =?UTF-8?q?Cambios=20en=20el=20documento=20de=20expo?= =?UTF-8?q?rtaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Export/ExpDetalle.aspx.cs | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index f9b41f66e..645a4b109 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -976,6 +976,7 @@ public partial class Export_ExpDetalle : ClsPaginas string Patente = DTExportaciones.FiltroPrimeroValor("Patente"); string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt"); string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId"); + string Notas = DTExportaciones.FiltroPrimeroValor("Notas"); List para = new List(); para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString())); @@ -1040,6 +1041,7 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("Patente", Patente)); para.Add(new ReportParameter("AgenteExt", AgenteExt)); para.Add(new ReportParameter("TaxId", TaxId)); + para.Add(new ReportParameter("Notas", Notas)); List lrds = new List(); ReportDataSource RDSExportaciones = new ReportDataSource(); @@ -1058,12 +1060,14 @@ public partial class Export_ExpDetalle : ClsPaginas DTPartidas.Columns.Add("ValorUnitarioMN", typeof(decimal)); DTPartidas.Columns["ValorUnitarioUSD"].DefaultValue = 0.0m; DTPartidas.Columns["ValorUnitarioMN"].DefaultValue = 0.0m; - DataRow RowPartida = DTPartidas.Rows[0]; - decimal cantidad = Convert.ToDecimal(RowPartida["Cantidad"]); - if (cantidad > 0) + foreach (DataRow row in DTPartidas.Rows) { - RowPartida["ValorUnitarioUSD"] = Convert.ToDecimal(RowPartida["Precio"]) / cantidad; - RowPartida["ValorUnitarioMN"] = Convert.ToDecimal(RowPartida["ValorTotalMXP"]) / cantidad; + decimal cantidad = Convert.ToDecimal(row["Cantidad"]); + if (cantidad > 0) + { + row["ValorUnitarioUSD"] = Convert.ToDecimal(row["Precio"]) / cantidad; + row["ValorUnitarioMN"] = Convert.ToDecimal(row["ValorTotalMXP"]) / cantidad; + } } ReportDataSource RDSPartidas = new ReportDataSource(); RDSPartidas.Name = "DsPartidas"; From b633f775cc8210ccd90e944ea7e776d2c75123d2 Mon Sep 17 00:00:00 2001 From: SLopez Date: Wed, 2 Jul 2025 18:03:37 -0700 Subject: [PATCH 10/26] =?UTF-8?q?Cambios=20en=20documento=20exportaci?= =?UTF-8?q?=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Export/ExpDetalle.aspx.cs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index 8b636b34d..f1903a5f0 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -964,7 +964,9 @@ public partial class Export_ExpDetalle : ClsPaginas } string TipoCambio = ModExtensiones.ToDecimal(DTExportaciones.FiltroPrimeroValor("TipoCambio")).ToString("#,###.####"); string MedioTransporte = DTExportaciones.FiltroPrimeroValor("MedioTransporte"); + MedioTransporte = MedioTransporte != "-1" ? MedioTransporte : ""; string TipoContenedor = DTExportaciones.FiltroPrimeroValor("TipoContenedor"); + TipoContenedor = TipoContenedor != "-1" ? TipoContenedor : ""; string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario"); string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon"); From a829ed22b40b913080221717ae48e2cdb72391b9 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 3 Jul 2025 08:56:19 -0700 Subject: [PATCH 11/26] Pago Electronico aplicar xspadding y altas solo mostrar las del banco correspondiente, ajustes cuentas deposito IE para pago electronico Scotia --- Bancos/IE.aspx.vb | 33 +++++++++++++++++++++++++++------ Bancos/PagoElectronico.aspx | 8 ++++---- Bancos/PagoElectronico.aspx.vb | 4 +++- 3 files changed, 34 insertions(+), 11 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7c63cd39d..673703de3 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1284,6 +1284,7 @@ Partial Class Bancos_IE ViewState("CveCliente") = "-1" CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") + CargaCuentasDepositos() End Sub Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) @@ -4098,11 +4099,17 @@ Partial Class Bancos_IE Dim dtc As DataTable = Nothing - If CveProveedor > 0 Then - dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + Dim CveProveedorTemp As Integer = CveProveedor + + If DdlProveedores.SelectedValue.ToEntero > 0 Then + CveProveedorTemp = DdlProveedores.SelectedValue.ToEntero + End If + + If CveProveedorTemp > 0 Then + dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorTemp) ElseIf CveCliente > 0 Then dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) - ElseIf cvepersonal > 0 Then + ElseIf CvePersonal > 0 Then dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) End If @@ -4216,14 +4223,14 @@ Partial Class Bancos_IE ElseIf OpBanco = 3 Then If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") DdlCuentaDeposito.DataBind() DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If - If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros(" Estatus ='True'").Rows.Count > 0 Then trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + 'DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnGuardar.Enabled = False Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) @@ -4265,6 +4272,19 @@ Partial Class Bancos_IE End If End If + + If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then + If DdlTipoTransaccion.SelectedValue.Contiene("9") AndAlso OpBanco = 3 Then + RBL.Items(1).Enabled = False + RBL.Items(2).Enabled = False + Else + RBL.Items(1).Enabled = True + RBL.Items(2).Enabled = True + End If + End If + + + UPPP.Update() UpGuardar.Update() UpCuentaDeposito.Update() UpDatos.Update() @@ -4500,6 +4520,7 @@ Partial Class Bancos_IE DdlProveedores_selectedindexchange(DdlProveedores, Nothing) DdlProveedores.SelectedText = RazonSocial ' BuscaCargaProveedor() + End If CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero Else diff --git a/Bancos/PagoElectronico.aspx b/Bancos/PagoElectronico.aspx index 453f22d68..5bd2bf71c 100644 --- a/Bancos/PagoElectronico.aspx +++ b/Bancos/PagoElectronico.aspx @@ -60,7 +60,7 @@
-
+
@@ -79,7 +79,7 @@
-
+
@@ -127,7 +127,7 @@
-
+
@@ -178,7 +178,7 @@
-
+
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index bde6db7ea..b058e60bb 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then CargaDatosInformativos() + Else + VistaComandoGeneracion() End If End Sub @@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico Dim correo As String = dr("Correo").ToString.Trim If correo.Trim.Length = 0 Then - SBErrores.Append($"Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.
") + SBErrores.Append($" {nombreBen} Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.
") ErrorLayout = True End If From e1a0643e993750ca778d04f2625490fbc0f14b0b Mon Sep 17 00:00:00 2001 From: JPerez Date: Thu, 3 Jul 2025 12:44:51 -0700 Subject: [PATCH 12/26] --Quitar agregar anticipos de publico general a otro cliente --- Acumuladores/CatFoliosGarantia.aspx | 39 ++++++++++++++++------------- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 23 insertions(+), 18 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index ac47d269b..37ded6f64 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -84,15 +84,16 @@ general optima motobateria + Auxiliar
- + - +
@@ -122,7 +123,7 @@ - +   - +   - - + +   @@ -170,9 +171,9 @@ - + - + @@ -181,10 +182,10 @@ - + - + @@ -258,10 +259,10 @@ - + ControlToValidate="TxtFolioGarantia" runat="server" CssClass="help-block errorimput" + ErrorMessage="solo números" ValidationGroup="GrpFolioGarantia" + ValidationExpression="\d+"> + @@ -269,8 +270,9 @@
-
+
SubProyecto:
+ @@ -286,10 +288,12 @@
Tipo Folio:
+ General Optima Motobateria + Auxiliar
@@ -297,6 +301,7 @@
Área:
+ Piso Almacén @@ -308,7 +313,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 87f30001f..a33bce02b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17494,7 +17494,7 @@ Partial Class Ventas End If 'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL - If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 195, 197) Then + If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.CveEmpresa.Contiene(190, 192, 195, 197) Then Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() If CveClientePublicoGeneral > 0 Then If CveCliente <> CveClientePublicoGeneral Then From fee2367eec8506d886ff0c8145c933e151d96b9e Mon Sep 17 00:00:00 2001 From: Luis Carlos Quijada Date: Thu, 3 Jul 2025 18:36:26 -0600 Subject: [PATCH 13/26] Cambios Importaciones RepExportaciones --- Export/RepExportaciones.aspx | 4 +-- Export/RepExportaciones.aspx.cs | 56 +++++++++++++++++++++++++++++---- 2 files changed, 52 insertions(+), 8 deletions(-) diff --git a/Export/RepExportaciones.aspx b/Export/RepExportaciones.aspx index b8f405ae6..10ceb0b76 100644 --- a/Export/RepExportaciones.aspx +++ b/Export/RepExportaciones.aspx @@ -6,7 +6,7 @@ - Exportaciones +
  • @@ -45,7 +45,7 @@
    • - + diff --git a/Export/RepExportaciones.aspx.cs b/Export/RepExportaciones.aspx.cs index 3ee4b2c68..883250892 100644 --- a/Export/RepExportaciones.aspx.cs +++ b/Export/RepExportaciones.aspx.cs @@ -25,6 +25,8 @@ public partial class Export_RepExportaciones : ClsPaginas set { ViewState["CveExportacion"] = value; } } + public string EmptyDataTextPersonalizado { get; set; } + public string ToolTipPersonalizado { get; set; } private bool EsImportacion { get{ return (ViewState["EsImportacion"] == null) ? false : Boolean.Parse(ViewState["EsImportacion"].ToString()); } @@ -35,14 +37,35 @@ public partial class Export_RepExportaciones : ClsPaginas { if (!IsPostBack) { + // Primero, inicializa la bandera EsImportacion = false; - - if (Request["Opcion"] != null) + if (Request["Opcion"] != null && Request["Opcion"] == "I") { - if (Request["Opcion"] == "I") EsImportacion = true; } - LtlPeriodoseleccionado.Text = EsImportacion ? "Importaciones" : "Exportaciones"; + + Page.Title = EsImportacion ? "Importaciones" : "Exportaciones"; + // Ahora sí, usa la bandera para los textos + if (EsImportacion) + { + LtlTitulo.Text = "Importaciones"; + EmptyDataTextPersonalizado = "No se encontraron importaciones"; + ToolTipPersonalizado = "Importaciones"; + HLAgregarExp.Text = " Agregar Importación"; + HLAgregarExp.NavigateUrl = "ExpDetalle.aspx?CveExportacion=-1&Opcion=I"; + } + else + { + LtlTitulo.Text = "Exportaciones"; + EmptyDataTextPersonalizado = "No se encontraron exportaciones"; + ToolTipPersonalizado = "Exportaciones"; + HLAgregarExp.Text = " Agregar Exportación"; + HLAgregarExp.NavigateUrl = "ExpDetalle.aspx?CveExportacion=-1"; + } + + GVExportaciones.EmptyDataText = EmptyDataTextPersonalizado; + GVExportaciones.ToolTip = ToolTipPersonalizado; + CargaExportaciones(); } } @@ -61,7 +84,11 @@ public partial class Export_RepExportaciones : ClsPaginas protected void EditarExp_Click(object sender, EventArgs e) { GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); - Response.Redirect($"/Export/ExpDetalle.aspx?CveExportacion={gvRow.DataKey("CveExportacion")}", true); + string cve = gvRow.DataKey("CveExportacion").ToString(); + string url = EsImportacion + ? $"/Export/ExpDetalle.aspx?CveExportacion={cve}&Opcion=I" + : $"/Export/ExpDetalle.aspx?CveExportacion={cve}"; + Response.Redirect(url, true); upDatosExp.Update(); } protected void EliminarExp_Click(object sender, EventArgs e) @@ -76,4 +103,21 @@ public partial class Export_RepExportaciones : ClsPaginas Alert("La Exportación se ha eliminado correctamente."); } } -} \ No newline at end of file + + protected void GVExportaciones_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + HyperLink hl = (HyperLink)e.Row.FindControl("HlExpDetalle"); + if (hl != null) + { + string cve = DataBinder.Eval(e.Row.DataItem, "CveExportacion").ToString(); + if (EsImportacion) + hl.NavigateUrl = $"ExpDetalle.aspx?CveExportacion={cve}&Opcion=I"; + else + hl.NavigateUrl = $"ExpDetalle.aspx?CveExportacion={cve}"; + } + } + } +} + From 635f757742eccb94968ba584e1ef4eaa8b1d63a2 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 4 Jul 2025 10:20:03 -0700 Subject: [PATCH 14/26] Correcion Pago electronico grupus trim observacion --- Bancos/PagoElectronicoGrupos.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index ac144efca..981d83af1 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -2037,15 +2037,15 @@ Partial Class Bancos_PagoElectronicoGrupos 'Motivo de pago If drow("Observaciones").ToString.Trim.Length > 30 Then - RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) + RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30)) Else - RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) + RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno)) End If If drow("Referencia").ToString.Trim.Length > 7 Then - RegistrosPago.Append(drow("Referencia").ToString.Substring(0, 7)) + RegistrosPago.Append(drow("Referencia").ToString.Trim.Substring(0, 7)) Else - RegistrosPago.Append(drow("Referencia").ToString.PadRight(7, EspacioRelleno)) + RegistrosPago.Append(drow("Referencia").ToString.Trim.PadRight(7, EspacioRelleno)) End If RegistrosPago.Append("H") From a6694558fc270e9d4e5974bc046052fae6fd00fa Mon Sep 17 00:00:00 2001 From: Luis Carlos Quijada Date: Fri, 4 Jul 2025 16:40:21 -0600 Subject: [PATCH 15/26] Cambios ExpDetalle --- Export/ExpDetalle.aspx | 317 ++++++++++++++++++++------------------ Export/ExpDetalle.aspx.cs | 13 +- 2 files changed, 181 insertions(+), 149 deletions(-) diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx index cd4946771..fe76aeaae 100644 --- a/Export/ExpDetalle.aspx +++ b/Export/ExpDetalle.aspx @@ -1,23 +1,22 @@ <%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ExpDetalle.aspx.cs" Inherits="Export_ExpDetalle" %> - + - + - - Exportación: - + + - +
  • Exportar PDF
    • - + - + - +
    @@ -41,7 +40,7 @@ - +
    @@ -65,7 +64,7 @@
    Fecha de Pedimento: -
    - - - - - - - - - - - - - - -
    +
    + + + + + + + + + + + + + + +
    @@ -155,7 +154,7 @@ -
    +
    @@ -200,7 +199,7 @@
    -
    +
    @@ -220,7 +219,7 @@
    - +
    @@ -253,7 +252,7 @@
    -
    +
    @@ -291,7 +290,7 @@
    -
    +
    @@ -337,7 +336,7 @@
    -
    +
    @@ -390,7 +389,7 @@
    -
    +
    @@ -446,7 +445,7 @@
    -
    +
    @@ -465,7 +464,7 @@
    -
    +
    @@ -533,7 +532,7 @@
    -
    +
    @@ -613,7 +612,7 @@ - +

    @@ -638,14 +637,19 @@ - + - + - + - + + + + + + @@ -679,14 +683,31 @@ - + - - - - - - + + +   + + @@ -710,115 +731,115 @@