From a829ed22b40b913080221717ae48e2cdb72391b9 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 3 Jul 2025 08:56:19 -0700 Subject: [PATCH 01/10] 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 02/10] --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 03/10] 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 04/10] 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 05/10] 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 @@