From d83fbf730cf4fff743774a58ee4be6a79f345076 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 23 Jun 2025 16:38:32 -0700 Subject: [PATCH] Correcciones layout envio cuentas y pagos scotia, reembolsos cuenta depsito visible, compras carga de grid nc facturas en compra manual --- Bancos/PagoElectronico.aspx.vb | 14 +++--- Compras/Compras.aspx.vb | 6 +-- Compras/ReembolsosComprobaciones.aspx | 12 +++-- Compras/ReembolsosComprobaciones.aspx.vb | 57 ++++++++++++++---------- 4 files changed, 52 insertions(+), 37 deletions(-) diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index 5951700c0..a9414bc09 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -569,7 +569,7 @@ Partial Class Bancos_PagoElectronico Header.Append(TipoArchivo.PadRight(2, Space)) 'TIPO ARCHIVO (2) Header.Append("HA") 'TIPO REGISTRO (2) Header.Append("JDF") 'SISTEMA-CENTRAL (3) - Header.Append(NumeroConvenio.PadLeft(7, Space)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7 + Header.Append(NumeroConvenio.PadLeft(7, Cero)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7 Header.Append(NowADS.ToString("yyyyMMdd")) 'FECHA-SOLICITUD (8) Header.Append("001") 'SECUENCIA (3) Header.Append("M") 'MANTENIMIENTO-O-CONSULTA (1) @@ -594,7 +594,7 @@ Partial Class Bancos_PagoElectronico Dim CuentaDestino As String = "" Dim cuentaDigitos As String = dr("CLABEDestino").ToString.Trim Dim Clabe As String = dr("CLABE").ToString.Trim - Dim limite As String = (900000000 * 100D).ToEntero.ToString("F0") + Dim limite As String = (9000000000 * 100D).ToString("F0") Dim banco As String = dr("CveBanco").ToString.PadLeft(3, Cero) If cuentaDigitos.Length = 11 AndAlso banco = "044" Then @@ -672,10 +672,10 @@ Partial Class Bancos_PagoElectronico trailer.Append(TipoArchivo.PadRight(2, Space)) 'TIPO DE ARCHIVO (2) trailer.Append("TA") 'TIPO DE REGISTRO (2) - trailer.Append(Altas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) - trailer.Append(Cambios.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) - trailer.Append(Bajas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8) - trailer.Append(Consultas.ToString.PadLeft(8, Space)) 'CANTIDAD DE CONSULTAS (8) + trailer.Append(Altas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) + trailer.Append(Cambios.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) + trailer.Append(Bajas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8) + trailer.Append(Consultas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE CONSULTAS (8) 'MOVIMIENTOS ACEPTADOS trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) *** Respusta de ScotiaBank *** trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) *** Respusta de ScotiaBank *** @@ -957,7 +957,7 @@ Partial Class Bancos_PagoElectronico da.Append("".PadLeft(34, CERO)) ' 105-138 Uso Futuro da.Append("".PadLeft(30, SPACE)) ' 139-168 Clave de Rastreo llenar con espacios en blanco da.Append("".PadLeft(20, SPACE)) ' 169-188 Referencia de Abono Banxico - dm.Append("01") ' 189-190 Tipo de Operación anexo G + dm.Append(" ") ' 189-190 Tipo de Operación anexo G da.Append("".PadLeft(232, SPACE)) ' 191-370 FILLER diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 293ac5316..dc292aa46 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -17690,9 +17690,9 @@ Partial Class Compras_Compras Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ") If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles - 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then - ' InicializaAplicaNCFact() - 'End If + If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 And CveCompra <= 0 Then + InicializaAplicaNCFact() + End If End Sub Private Sub OriginalesVisible(Accion As Boolean) diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx index 0299d8c07..5a45b0d80 100644 --- a/Compras/ReembolsosComprobaciones.aspx +++ b/Compras/ReembolsosComprobaciones.aspx @@ -262,12 +262,18 @@ -
+
- - + +
+ + +
+ + + <%----%>
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index c514d4ee2..3bcd172dd 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -349,43 +349,52 @@ Partial Class Compras_ReembolsosComprobaciones DdlCuentaDeposito.SelectedValue = Nothing DdlCuentaDeposito.Items.Clear() - trCuentaDeposito.Visible = False - DdlCuentaDeposito.Enabled = False + DVValidacionesCuentaDeposito.Visible = False + 'trCuentaDeposito.Visible = False + 'DdlCuentaDeposito.Enabled = False Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero - If CvePersonal > 0 Then + If CvePersonal > 0 And DdlTipoPago.SelectedValue.ToEntero = 1 Then - If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then + 'If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Enabled = True + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Enabled = True - Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then + Dim Dep As New ClsGenerales + If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then - If DdlTipoTransaccion.SelectedValue = "9" Then - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'") - Else - DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'") - End If - - - If Dep.DtResultados.Rows.Count > 0 Then - - trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) - - End If + If DdlTipoTransaccion.SelectedValue = "9" Then + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'") + ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'") + Else + DdlCuentaDeposito.DataSource = Dep.DtResultados End If - Dep.Dispose() - DdlCuentaDeposito.DataBind() - + 'If Dep.DtResultados.Rows.Count > 0 Then + trCuentaDeposito.Visible = True + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + 'End If End If + Dep.Dispose() + DdlCuentaDeposito.DataBind() + + + 'End If + Else + trCuentaDeposito.Visible = False + End If + + + If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + DVValidacionesCuentaDeposito.Visible = True + Else + End If UpCuentaDeposito.Update()