From b81600f0283236cf2a0d859654b768c840cf15e0 Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Mon, 23 Jun 2025 07:10:34 -0700 Subject: [PATCH 01/15] Nomina --- App_Code/ClsNominas.vb | 8 ++++++++ App_Code/ClsPaginas.vb | 10 ++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b4d3bd9eb..b510c1cf2 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -35,6 +35,10 @@ Public Class ClsNominas Public Property FolioSolicitud As Integer + Public Property SalarioDiario As Double + Public Property SDI As Double + Public Property SBC As Double + Public Property RegistroPatronal As String Public Property SerieFolio As String @@ -1102,6 +1106,10 @@ Public Class ClsNominas Me.CveUsuario = Data.Rows(0)("CveUsuario").ToString.ToEntero Me.Usuario = Data.Rows(0)("Usuario").ToString Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero + Me.SalarioDiario = Data.Rows(0)("SalarioDiario").ToString.ToDecimal() + Me.SDI = Data.Rows(0)("SDI").ToString.ToDecimal() + Me.SBC = Data.Rows(0)("SBC").ToString.ToDecimal() + End If Retorno = True Catch ex As Exception diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 072a970f2..bde7ef85f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8521,12 +8521,10 @@ Public Class ClsPaginas Departamento = drow("NomRDepartamento").ToString() Puesto = drow("NomRPuesto").ToString() End If - RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario)) - RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI)) - RptParametro.Add(New ReportParameter("Departamento", Departamento)) - RptParametro.Add(New ReportParameter("Puesto", Puesto)) 'DATOS NOMINA If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then + SalarioDiario = ObjNomina.SalarioDiario.ToString + SDI = ObjNomina.SDI.ToString RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString)) RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie)) RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString)) @@ -8544,6 +8542,10 @@ Public Class ClsPaginas Else TieneError = True End If + RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario)) + RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI)) + RptParametro.Add(New ReportParameter("Departamento", Departamento)) + RptParametro.Add(New ReportParameter("Puesto", Puesto)) Else TieneError = True End If From 10aae8be27cb09453e26bc20e3dc3e2d984bae17 Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Mon, 23 Jun 2025 07:28:58 -0700 Subject: [PATCH 02/15] reprotede nominas --- Nomina/ReportedeAcumulados.aspx | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/Nomina/ReportedeAcumulados.aspx b/Nomina/ReportedeAcumulados.aspx index f846f0ce2..c71418404 100644 --- a/Nomina/ReportedeAcumulados.aspx +++ b/Nomina/ReportedeAcumulados.aspx @@ -337,6 +337,13 @@ + + Días Pagados + + + + + Días IMSS From 091efee79264085c44d2c7630e7bf9d19092b9ac Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Mon, 23 Jun 2025 07:31:33 -0700 Subject: [PATCH 03/15] acum --- Nomina/ReportedeAcumulados.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Nomina/ReportedeAcumulados.aspx b/Nomina/ReportedeAcumulados.aspx index c71418404..f6af883fd 100644 --- a/Nomina/ReportedeAcumulados.aspx +++ b/Nomina/ReportedeAcumulados.aspx @@ -340,7 +340,7 @@ Días Pagados - + From 71a602f51f94bc01cd24ab1013bb1088848f4cd8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Jun 2025 13:11:02 -0700 Subject: [PATCH 04/15] =?UTF-8?q?--=20activaci=C3=B3n=20de=20cveAF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 10 +++------- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index fc6eca015..0a7ab5eb8 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -317,7 +317,7 @@
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 4c510b87b..2f2481421 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1100,7 +1100,6 @@ Partial Class ContabilidadC_RegPrePolizaS CveTipoGasto:=tCveTipoGasto, CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveActivoFijo:=gvr.DataKey("CveActivoFijo").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then ContRegInsertados = ContRegInsertados + 1 - Else MsgError = "No se pudo insertar el detalle de la póliza2" Exit For @@ -1152,7 +1151,6 @@ Partial Class ContabilidadC_RegPrePolizaS ObjContabilidad.IniciaTransacSQL() Try - Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) If Retorno Then @@ -1195,7 +1193,7 @@ Partial Class ContabilidadC_RegPrePolizaS CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, - TipoCambio:=row.DataKey("TC").ToDecimal, + TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then OcurrioError = True Exit For @@ -1306,6 +1304,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("TxtAbono").Text.ToDecimal Dim PorcentajeImpuesto As Decimal = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToDecimal Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero + Dim CveActivoFijo As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveActivoFijo").ToEntero 'Dim MonedaExtr As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal 'CargaConceptosContablesE() @@ -1351,6 +1350,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlTipoGastoE.SelectedValueExist(CveTipoGasto) CargaCuentasContables() DdlCuentaContableE.SelectedValueExist(CveCuenta) + DdlAF.SelectedValueExist(CveActivoFijo) If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero @@ -1741,11 +1741,7 @@ Partial Class ContabilidadC_RegPrePolizaS x = x + 1 Next DtMovimientos.AcceptChanges() - - End If - - dr("CveCuenta") = DdlCuentaContableE.SelectedValue dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text From e163ae67349cf7a0092b3874e1deb00597309101 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 Jun 2025 13:21:14 -0700 Subject: [PATCH 05/15] - actualizar CveAF --- App_Code/ClsContabilidad.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 787cf4be5..7c11a3d3b 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -293,7 +293,7 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, - Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") @@ -313,6 +313,7 @@ Public Class ClsContabilidad .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta From d83fbf730cf4fff743774a58ee4be6a79f345076 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 23 Jun 2025 16:38:32 -0700 Subject: [PATCH 06/15] 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() From a7a296a28b82e29e07cbd6b5e52fd8151217103a Mon Sep 17 00:00:00 2001 From: Luis Carlos Quijada Date: Mon, 23 Jun 2025 19:05:31 -0600 Subject: [PATCH 07/15] Cambios Dashboard --- General/Dashboard.aspx | 292 ++++++++++++++++++++++++++++++-------- General/Dashboard.aspx.vb | 6 +- 2 files changed, 232 insertions(+), 66 deletions(-) diff --git a/General/Dashboard.aspx b/General/Dashboard.aspx index 925336a3a..9a655c1f0 100644 --- a/General/Dashboard.aspx +++ b/General/Dashboard.aspx @@ -22,6 +22,7 @@ } .table td, .table th { + padding: 2px; } @@ -371,7 +372,9 @@ max-height: 170px; } - + #containerC_gvResumenSucursales tr.stickyRow th{ + white-space:nowrap !important; + } /* Estilos para el header */ @@ -405,6 +408,20 @@ background-color: #f8f9fa !important; font-weight: bold; } + + .header-flex { + display: flex !important; + flex-direction: row !important; + align-items: center !important; + gap: 6px; +} + + element.style { + display: flex +; + flex-direction: row; + align-items: center; +} /* .gvMaxHeight{ max-height: 160px; @@ -499,12 +516,12 @@ -
+
Venta Anual -
- - -
+ + <%----%> + +
@@ -514,7 +531,7 @@ -
+
Utilidad Anual
@@ -529,7 +546,7 @@ -
+
Venta Mensual
@@ -544,7 +561,7 @@ -
+
Utilidad Mensual
@@ -2390,7 +2407,7 @@ Pagos por Proveedor
-
+
-