diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 93ebfc00b..7afa67d63 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -848,21 +848,41 @@ Public Class ClsBancos Return Retorno End Function - Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Conta_PrePolizasDetalleGet") - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveIE", SqlDbType.Int).Value = CveIE - .Add("@CveOC", SqlDbType.Int).Value = CveOC - End With + 'Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveOC As Integer = -1) As Boolean + ' Dim Retorno As Boolean = False + ' DataAdapter("PA_Conta_PrePolizasDetalleGet") + ' With SqlAdapter.SelectCommand.Parameters + ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + ' .Add("@CveIE", SqlDbType.Int).Value = CveIE + ' .Add("@CveOC", SqlDbType.Int).Value = CveOC + ' End With + ' Try + ' SqlAdapter.Fill(Data) + ' Retorno = True + ' Catch ex As Exception + ' OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + ' End Try + + ' Return Retorno + 'End Function + + Public Function GetBancosIEFacturasPagadas(CveIE As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Banc_IEFacturasPagadasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) + Retorno = True Catch ex As Exception - OnError("Ocurrió un error al obtener Movimientos Prepolizas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + OnError("Ocurrió un error al obtener los movimientos del documento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try Return Retorno @@ -944,6 +964,7 @@ Public Class ClsBancos Return Retorno End Function + Public Function GetFoliosCancelados(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_FoliosCanceladosGet") diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index cb0596ad0..e3f903e99 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1195,14 +1195,14 @@ Public Class ClsContabilidad Return Concepto End Function - Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer, Optional CveIE As Integer = -1, Optional CveVenta As Integer = -1) As Boolean + Public Function GetPrePolizasDetalle(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza - .Add("@CveIE", SqlDbType.Int).Value = CveIE + .Add("@CveIE", SqlDbType.Int).Value = -1 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + '.Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index a9dc6f67a..5afd2bf58 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -12,7 +12,7 @@ - + @@ -28,7 +28,7 @@ - + @@ -46,7 +46,7 @@ - + @@ -66,7 +66,7 @@ - + @@ -89,7 +89,7 @@ - + @@ -113,7 +113,7 @@ - + @@ -139,7 +139,7 @@ - + @@ -155,7 +155,7 @@ - + @@ -172,7 +172,7 @@ - + @@ -181,7 +181,7 @@ - + @@ -217,7 +217,7 @@ - + @@ -243,7 +243,7 @@ - + @@ -259,7 +259,7 @@ - + @@ -298,10 +298,12 @@ + + - + @@ -311,7 +313,7 @@ - + diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index df54b086e..64289248f 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2442,7 +2442,7 @@ Namespace Modelos Dim DtPrePolizasAFCancelar As DataTable = Nothing If ValorMultiplicador = -1 AndAlso ObjFactura.DtDetalle IsNot Nothing AndAlso ObjFactura.DtDetalle.COUNT("CveActivoFijo", "CveActivoFijo > 0") > 0 Then - If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then + If ObjConta.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa) Then DtPrePolizasAFCancelar = ObjConta.DtResultados.FiltraParametros("CveConceptoContable IN (271,49,4)") End If End If diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index fb6ddaac8..ab43d4a54 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2025,8 +2025,8 @@ Namespace Extensiones RefCrediproveedor = ObjIE.DepositoRefCrediProveedor 'Dim UsuarioResponsable As String = "" - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, tCveEmpresa, CveIE:=pCveIE) Then + Dim PreP As New ClsBancos + If PreP.GetBancosIEMovimientos(pCveIE, tCveEmpresa) Then If PreP.DtResultados.Rows.Count > 0 Then CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index c967b9b73..1271eb8cd 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -653,8 +653,8 @@
-
- + @@ -671,7 +671,7 @@ - + @@ -1604,6 +1604,46 @@
+ + + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7a69d4a3e..aff25f863 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -966,13 +966,14 @@ Partial Class Bancos_IE End If 'Detectamos a quien se le hizo el cobro (Cliente, proveedor, Funcionario/Empleado, etc.) - If ObjIE2.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If ObjIE2.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then If ObjIE2.DtResultados.Rows.Count > 0 Then + Dim dtMovtos As DataTable = ObjIE2.DtResultados - Dim CveConceptoContable As Integer = ObjIE2.DtResultados.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero - CveCliente = ObjIE2.DtResultados.Rows(0)("CveCliente").ToString.ToEntero - CvePersonal = ObjIE2.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - CveProveedor = ObjIE2.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + Dim CveConceptoContable As Integer = dtMovtos.FiltroPrimeroValor("CveConceptoContable", "CveConceptoContable <> 30 and CveConceptoContable <> 61").ToEntero + CveCliente = dtMovtos.Rows(0)("CveCliente").ToString.ToEntero + CvePersonal = dtMovtos.Rows(0)("CvePersonal").ToString.ToEntero + CveProveedor = dtMovtos.Rows(0)("CveProveedor").ToString.ToEntero Select Case CveConceptoContable Case 66 @@ -986,10 +987,28 @@ Partial Class Bancos_IE PnlRecibidoPor.Visible = True End Select + 'codigo reubicado, para no consultar 2 veces + GvM.DataSource = dtMovtos.FiltraParametros("CveConceptoContable <> 30") + + If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then + GvM.Columns(8).Visible = True + End If + + If dtMovtos.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then + GvM.Columns(7).Visible = True + End If + + If dtMovtos.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then + GvM.Columns(5).Visible = True + GvM.Columns(6).Visible = True + End If + + GvM.DataBind() End If End If End If + If CveCliente > 0 Then DdlCliente.SelectedText = ObjIE.PagueseA DdlCliente.SelectedValue = CveCliente.ToString @@ -1224,27 +1243,27 @@ Partial Class Bancos_IE 'End If + ' codigo se reubicó a linea 969 + ''DETALLES - MOVIMIENTOS + 'If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + ' GvM.DataSource = ObjIE.DtResultados.FiltraParametros("CveConceptoContable <> 30") - 'DETALLES - MOVIMIENTOS - If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then - GvM.DataSource = ObjIE.DtResultados + ' If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then + ' GvM.Columns(8).Visible = True + ' End If - If UsuarioActual.TienePermisoProceso(277) AndAlso Not TabCancelacion.Visible Then - GvM.Columns(8).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then + ' GvM.Columns(7).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("TCPago > 1").Rows.Count.ToEntero() > 0 Then - GvM.Columns(7).Visible = True - End If + ' If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then + ' GvM.Columns(5).Visible = True + ' GvM.Columns(6).Visible = True + ' End If - If ObjIE.DtResultados.FiltraParametros("CveMonedaIE <> CveMoneda").Rows.Count.ToEntero > 0 Then - GvM.Columns(5).Visible = True - GvM.Columns(6).Visible = True - End If + ' GvM.DataBind() - GvM.DataBind() - - End If + 'End If 'Movimientos Relacionados Padre If ObjIE.GetBancosIEMovimientosPadre(CveIE, UsuarioActual.CveEmpresa) Then @@ -6328,29 +6347,26 @@ Partial Class Bancos_IE End Sub - 'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click - ' RegistraScript("$('#ModalAjustarMovimiento').modal('show');") - 'End Sub + Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click + RegistraScript("$('#ModalAjustarMovimiento').modal('show');") + End Sub - 'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click + Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click - ' Dim ObjBanco As New ClsBancos - ' ObjBanco.IniciaTransacSQL() - - ' If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - ' ObjBanco.Commit() - ' RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") - ' Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") - ' Else - ' ObjBanco.RollBack() - ' End If - - ' ObjBanco.Dispose() - - 'End Sub + Dim ObjBanco As New ClsBancos + ObjBanco.IniciaTransacSQL() + If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ObjBanco.Commit() + RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR") + Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";") + Else + ObjBanco.RollBack() + End If + ObjBanco.Dispose() + End Sub Protected Sub LnkCancelaMovimiento_Click(sender As Object, e As EventArgs) diff --git a/Compras/CatTipoGasto.aspx.cs b/Compras/CatTipoGasto.aspx.cs index 1d1c7500f..37dfc5d8f 100644 --- a/Compras/CatTipoGasto.aspx.cs +++ b/Compras/CatTipoGasto.aspx.cs @@ -43,12 +43,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas private void RecargarGlobal() { - ClsCompras ObjCompras = new ClsCompras(); - if (ObjCompras.GetTipoGasto(-1, -1)) - { - set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa,1, ObjCompras.DtResultados); - } - ObjCompras.Dispose(); + set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, 1, null); } protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 931cf3ea0..5e80c0326 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3718,7 +3718,7 @@ Partial Class PopUpVerFactura End If - Case 3, 16, 37, 40 ' S A L I D A S + Case 3, 16, 37, 40, 45 ' S A L I D A S 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72)) 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) @@ -3729,6 +3729,8 @@ Partial Class PopUpVerFactura concepto = "SALIDA DE ALMACÉN" ElseIf CveConcepto = 37 Then concepto = "SALIDA VIRTUAL" + ElseIf CveConcepto = 45 Then + concepto = "SALIDA DE USADOS" Else concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN" End If @@ -5953,17 +5955,17 @@ Partial Class PopUpVerFactura DtMovimientosPoliza.Rows.Add(Dr) End If ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + + If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then DtMovimientosPoliza = New DataTable DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - If PreP.DtResultados.Rows.Count > 0 Then + If ObjIE.DtResultados.Rows.Count > 0 Then - For Each drt As DataRow In PreP.DtResultados.Rows + For Each drt As DataRow In ObjIE.DtResultados.Rows Dim Dr = DtMovimientosPoliza.NewRow Dr("CODIGO") = drt("CuentaCodigo") Dr("Cuenta") = drt("CuentaNombre") @@ -5974,7 +5976,7 @@ Partial Class PopUpVerFactura Next End If End If - PreP.Dispose() + End If @@ -6030,13 +6032,12 @@ Partial Class PopUpVerFactura NotificarA = ObjIE.NotificarA tIdPoliza = ObjIE.IDPoliza - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + IVA = ObjIE.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA If CveProveedor > 0 Then Dim Prov As New ClsCompProveedores @@ -6067,7 +6068,6 @@ Partial Class PopUpVerFactura End If End If End If - PreP.Dispose() params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) @@ -6238,10 +6238,9 @@ Partial Class PopUpVerFactura Dim reportDataSetsList As New List(Of ReportDataSource) Dim dtMovs As New DataTable - Dim Mov As New ClsContabilidad - If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then - dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)") + dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )") If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES @@ -6254,7 +6253,7 @@ Partial Class PopUpVerFactura End If End If - Mov.Dispose() + Dim rds = New ReportDataSource("DataSet1", dtMovs) reportDataSetsList.Add(rds) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 8a138cf63..f844f6e0c 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2964,10 +2964,11 @@ Partial Class Compras_eFacturas End Sub Private Sub MostrarSolcitudesSAT() + LnkShowSolicitudes.Visible = False - If UsuarioActual.Empresa.ArchivoPfx.Trim.Length > 0 Then - Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.ArchivoPfx}" + If UsuarioActual.Empresa.FielPFX.Trim.Length > 0 Then + Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX}" If File.Exists(ArchivoCertificado) Then LnkShowSolicitudes.Visible = True End If diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index d213f08be..8a26ae06e 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1054,7 +1054,7 @@ Partial Class ContabilidadC_RegPrePolizaS TipoMovto = True If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal - If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal End If Else @@ -1071,7 +1071,7 @@ Partial Class ContabilidadC_RegPrePolizaS TipoMovto = False If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal - If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal + If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal End If End If @@ -1338,7 +1338,7 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) - TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00") + TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.####") TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index 7940e288e..83aa1d70b 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -137,7 +137,7 @@ - + @@ -146,9 +146,9 @@ - + - + @@ -208,14 +208,57 @@ - + - - - + <%-- --%> + + + SubTotal
16% + + + + + + <%-- --%> + + + SubTotal
8% + + + + + + <%-- --%> + + + SubTotal
0% + + + + + - + <%----%> + <%----%> + + + IVA ND
16% + + + + + + + + IVA ND
8% + + + + + + <%-- --%> + @@ -232,7 +275,7 @@ - + @@ -253,7 +296,7 @@
-
+

IVA por Porcentaje

diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 87d51dbeb..2a24113f9 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -111,7 +111,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas LblMsgAcreditable.Text = "La información presenta importes en negativo, estos no se incluirán en el archivo generado para DIOT"; } - GvA.Columns[11].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta + GvA.Columns[12].Visible = DtIVAAcreditable.SUM("valorActosImp1516") > 0; // sino tiene valor la columna de importación de oculta if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 3, DdlCuenta.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) { diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index 86d058305..ec5af5705 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -68,8 +68,8 @@ - -
+ +
@@ -132,24 +132,32 @@ - - <%----%> + - + + + + + + + + - - <%----%> + + + + + + + - - - <%-- - - --%> + +

@@ -168,24 +176,28 @@ - - <%----%> + - + + + + + - - <%----%> + - + + + + + - <%-- - - --%> + diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 1d8d59d9d..9aab64b5f 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -105,6 +105,12 @@ Partial Class AC_RepEstadoActividades DVConsolidado2.Visible = True End If + If UsuarioActual.CveRol = 1 Then + DVSubtotales1.Visible = True + DVSubtotales2.Visible = True + End If + + End If End Sub @@ -246,20 +252,46 @@ Partial Class AC_RepEstadoActividades DtGastos.AcceptChanges() - 'DtIngresos - Dim UtilidadBrutaActual, UtilidadBrutaAcumulada As Decimal - Dim UtilidadOperacionActual, UtilidadOperacionAcumulada As Decimal - Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada As Decimal + Dim UtilidadBrutaActual, UtilidadBrutaAcumulada, UtilidadBrutPorcentajeActual, UtilidadBrutPorcentajeAcumulado As Decimal - UtilidadBrutaActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") - UtilidadBrutaAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1") + Dim UtilidadOperacionActual, UtilidadOperacionAcumulada, UtilidadOperacionPorcentajeActual, UtilidadOperacionPorcentajeAcumulado As Decimal - UtilidadOperacionActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ") - UtilidadOperacionAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ") + Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada, UtilidadAntesImpuestosPorcentajeActual, UtilidadAntesImpuestosPorcentajeAcumulado As Decimal + + + Dim IngresoActual As Decimal = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") + Dim IngresoAcumulado As Decimal = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") + + Dim CostoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") + Dim CostoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1") + + Dim GastoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ") + Dim GastoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ") + + Dim ResultadoIntegralActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ") + Dim ResultadoIntegralAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ") + + + UtilidadBrutaActual = IngresoActual - CostoActual + UtilidadBrutaAcumulada = IngresoAcumulado - CostoAcumulado + + UtilidadOperacionActual = IngresoActual - CostoActual - GastoActual + UtilidadOperacionAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado + + UtilidadAntesImpuestosActual = IngresoActual - CostoActual - GastoActual - ResultadoIntegralActual + UtilidadAntesImpuestosAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado - ResultadoIntegralAcumulado + + + UtilidadBrutPorcentajeActual = If(IngresoActual <> 0 And UtilidadBrutaActual <> 0, (UtilidadBrutaActual / IngresoActual * 100), 0) + UtilidadBrutPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadBrutaAcumulada <> 0, (UtilidadBrutaAcumulada / IngresoAcumulado * 100), 0) + + UtilidadOperacionPorcentajeActual = If(IngresoActual <> 0 And UtilidadOperacionActual <> 0, (UtilidadOperacionActual / IngresoActual * 100), 0) + UtilidadOperacionPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadOperacionAcumulada <> 0, (UtilidadOperacionAcumulada / IngresoAcumulado * 100), 0) + + UtilidadAntesImpuestosPorcentajeActual = If(IngresoActual <> 0 And UtilidadAntesImpuestosActual <> 0, (UtilidadAntesImpuestosActual / IngresoActual * 100), 0) + UtilidadAntesImpuestosPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadAntesImpuestosAcumulada <> 0, (UtilidadAntesImpuestosAcumulada / IngresoAcumulado * 100), 0) - UtilidadAntesImpuestosActual = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ") - UtilidadAntesImpuestosAcumulada = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ") - DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ") Dim dRowUtilidadBruta As DataRow = DtGastos.NewRow Dim dRowUtilidadBrutaVacio As DataRow = DtGastos.NewRow @@ -277,6 +309,8 @@ Partial Class AC_RepEstadoActividades dRowUtilidadBruta("ImporteAcumulado") = UtilidadBrutaAcumulada dRowUtilidadBruta("CtaMayor") = -1 dRowUtilidadBruta("Orden") = "600" + dRowUtilidadBruta("PorcentajeActual") = UtilidadBrutPorcentajeActual + dRowUtilidadBruta("PorcentajeAcumulado") = UtilidadBrutPorcentajeAcumulado dRowUtilidadBrutaVacio("CtaMayor") = -1 dRowUtilidadBrutaVacio("Orden") = "600" @@ -285,6 +319,8 @@ Partial Class AC_RepEstadoActividades dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada dRowUtilidadOperacion("CtaMayor") = -1 dRowUtilidadOperacion("Orden") = "700" + dRowUtilidadOperacion("PorcentajeActual") = UtilidadOperacionPorcentajeActual + dRowUtilidadOperacion("PorcentajeAcumulado") = UtilidadOperacionPorcentajeAcumulado dRowUtilidadOperacionVacio("CtaMayor") = -1 dRowUtilidadOperacionVacio("Orden") = "700" @@ -293,9 +329,14 @@ Partial Class AC_RepEstadoActividades dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada dRowUtilidadAntesImpuestos("CtaMayor") = -1 dRowUtilidadAntesImpuestos("Orden") = "790" + dRowUtilidadAntesImpuestos("PorcentajeActual") = UtilidadAntesImpuestosPorcentajeActual + dRowUtilidadAntesImpuestos("PorcentajeAcumulado") = UtilidadAntesImpuestosPorcentajeAcumulado dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1 dRowUtilidadAntesImpuestosVacio("Orden") = "790" + 'PorcentajeActual + 'PorcentajeAcumulado + DtGastos.Rows.InsertAt(dRowUtilidadBruta, idxUtilidadBruta) DtGastos.Rows.InsertAt(dRowUtilidadBrutaVacio, idxUtilidadBruta + 1) @@ -352,7 +393,7 @@ Partial Class AC_RepEstadoActividades Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnterior += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray @@ -372,9 +413,11 @@ Partial Class AC_RepEstadoActividades If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then @@ -386,7 +429,7 @@ Partial Class AC_RepEstadoActividades Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then TotalActual -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalAnterior -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray @@ -404,9 +447,11 @@ Partial Class AC_RepEstadoActividades If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red End If diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt index 5b9781196..518015e2d 100644 Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 4b82ca5f0..3ce74d0cf 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -28,7 +28,11 @@ th{ text-align:left!important; + border-top-style:none!important; } + + + @@ -90,14 +94,22 @@ + +
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+
- diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index d697818ef..fb2d75c48 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -8,10 +8,43 @@ Imports CrystalDecisions.CrystalReports.Engine Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms +Imports Stimulsoft.Report.Export Partial Class Nomina_RepPersonalDIM Inherits ClsPaginas + + ReadOnly Property color_green_dark As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(77, 179, 162) + End Get + End Property + + ReadOnly Property color_purple_intense As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(135, 117, 167) + End Get + End Property + + ReadOnly Property color_blue As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(53, 152, 220) + End Get + End Property + + ReadOnly Property color_blue_madison As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(87, 142, 190) + End Get + End Property + + ReadOnly Property color_yellow As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(196, 159, 71) + End Get + End Property + + Public Property Dt_Datos As DataTable Get If ViewState("Dt_Datos") Is Nothing Then @@ -54,6 +87,8 @@ Partial Class Nomina_RepPersonalDIM End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() End Sub @@ -99,20 +134,57 @@ Partial Class Nomina_RepPersonalDIM Imprimir("Excel") End Sub - Private Sub Imprimir(Optional reporte As String = "PDF") + Private Sub ColoresCabeceraGrid() + + + Dim countColumnas As Integer = 0 + For Each gvColumn As DataControlField In GvDatos.Columns + + If countColumnas <= 27 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_green_dark + End If + + If countColumnas > 27 And countColumnas <= 45 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_purple_intense + End If + + If countColumnas > 45 And countColumnas <= 47 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue + End If + + If countColumnas > 47 And countColumnas <= 105 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue_madison + End If + + If countColumnas > 105 And countColumnas <= 124 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_yellow + End If + countColumnas = countColumnas + 1 + Next + + End Sub + + Private Sub Imprimir(Optional reporte As String = "PDF") + ColoresCabeceraGrid() + Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) Dim cell As New TableHeaderCell() cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->" cell.ColumnSpan = 28 cell.HorizontalAlign = HorizontalAlign.Left + 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162) + cell.BackColor = color_green_dark row.Controls.Add(cell) + + cell = New TableHeaderCell() cell.ColumnSpan = 18 cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_purple_intense row.Controls.Add(cell) @@ -120,6 +192,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 2 cell.Text = " ANEXO 1 ASIM SAL-> " cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue row.Controls.Add(cell) @@ -127,17 +200,21 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 58 cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue_madison row.Controls.Add(cell) cell = New TableHeaderCell() cell.ColumnSpan = 19 cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_yellow row.Controls.Add(cell) 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + + ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) @@ -187,11 +264,16 @@ Partial Class Nomina_RepPersonalDIM Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs) + + ColoresCabeceraGrid() + Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) Dim cell As New TableHeaderCell() cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->" cell.ColumnSpan = 28 cell.HorizontalAlign = HorizontalAlign.Left + 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162) + cell.BackColor = color_green_dark row.Controls.Add(cell) @@ -200,6 +282,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 18 cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_purple_intense row.Controls.Add(cell) @@ -207,6 +290,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 2 cell.Text = " ANEXO 1 ASIM SAL-> " cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue row.Controls.Add(cell) @@ -214,17 +298,19 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 58 cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue_madison row.Controls.Add(cell) cell = New TableHeaderCell() cell.ColumnSpan = 19 cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_yellow row.Controls.Add(cell) - 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + End Sub @@ -330,15 +416,15 @@ Partial Class Nomina_RepPersonalDIM 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(77, 179, 162), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(135, 117, 167), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(53, 152, 220), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(87, 142, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(196, 159, 71), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) @@ -498,3 +584,5 @@ Partial Class Nomina_RepPersonalDIM End Sub End Class +Friend Class GridViewColumn +End Class diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 5d15dc07c..c0fb10133 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -319,7 +319,7 @@
-
+
@@ -329,12 +329,52 @@ - + + + + + + + + + + + + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + @@ -368,11 +408,7 @@ DataKeyNames="UUID,CountRegistros,VTotal,CBTTotal,CountRegistrosSIG,CountRegistrosSAT,DifImporte,Abreviatura,CBTMoneda,CFDIData,CveSolicitudDetalle,CveVenta,VSerieFolio,Sistema"> - - - - - + @@ -495,6 +531,17 @@ + + + + + + + + + + + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index 03036deb7..1485e8e0a 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -56,7 +56,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas #endregion - protected void Page_Load(object sender, EventArgs e) + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { @@ -75,7 +75,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkDownloadExcel_Click(object sender, EventArgs e) { - if(TipoDescarga == 1) { + if (TipoDescarga == 1) + { GvResumen.ExportToExcel2($"Resumen{DateTime.Now.ToString("yyyyMMddhhmmss")}"); } @@ -100,7 +101,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas DVResumen1.Visible = true; DVResumen2.Visible = true; DvDatos1.Visible = false; - DvDatos2.Visible = false; + DvDatos2.Visible = false; } else { @@ -108,25 +109,25 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas DVResumen2.Visible = false; DvDatos1.Visible = true; DvDatos2.Visible = true; - } - + } + using (ClsNominas ObjNom = new ClsNominas()) { - if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(),DdlVista.SelectedValue.ToEntero())) + if (ObjNom.SATSolicitudTimbreIngresosRep(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), DdlVista.SelectedValue.ToEntero())) { if (DdlReporte.SelectedValue.ToEntero() == 1 || DdlReporte.SelectedValue.ToEntero() == 3) { GvResumen.DataSource = ObjNom.DtResultados; - TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1:0; + TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; LnkDownloadExcel.Visible = true; } - else if (DdlReporte.SelectedValue.ToEntero() == 2) - { + else if (DdlReporte.SelectedValue.ToEntero() == 2) + { GvDatos.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 2 : 0; LnkDownloadExcel.Visible = true; - } - } + } + } } GvResumen.DataBind(); @@ -141,19 +142,19 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { - if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0,Top:50)) + if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 0, Top: 50)) { GVSolicitudesPendientes.DataSource = nom.DtResultados; if (nom.DtResultados.Rows.Count > 0) { LnkverificarSolicitudes.Visible = true; } - GVSolicitudesPendientes.DataBind(); + GVSolicitudesPendientes.DataBind(); } - if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus:1,Top:50)) + if (nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud: 3, Estatus: 1, Top: 50)) { - GVSolicitudesNominas.DataSource = nom.DtResultados; + GVSolicitudesNominas.DataSource = nom.DtResultados.FiltraParametros("EfectoComprobante = 'I'"); GVSolicitudesNominas.DataBind(); } } @@ -162,8 +163,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkShowSolicitudes_Click(object sender, EventArgs e) { TabPanel.ActiveTabIndex = 0; - cargasolicitudes(); - + cargasolicitudes(); + RegistraScript("$('#ModalViewSolicitudes').modal();"); } @@ -184,10 +185,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas using (ClsNominas nom = new ClsNominas()) { - int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 :3; - CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud); - - if(CveSolicitudAgregada > 0) + int CveTipoSolicitud = ChkMetaDatos.Checked ? 203 : 3; + CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud: CveTipoSolicitud); + + if (CveSolicitudAgregada > 0) { Folio = nom.FolioSolicitud; } @@ -198,8 +199,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas var api = new GeneralesAPII(); JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3, CveSolicitudAgregada); List resultSolicitud = new List(); - List resultVerificacion = new List(); - + List resultVerificacion = new List(); + var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion; var ResultadoSolicitudOK = false; @@ -218,10 +219,11 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { sbResultado.Append($"Solicitud registrada. {resultSolicitud[1]}
Folio: {Folio}"); } - else{ + else + { - if(ObjApiSolicitud != null && resultSolicitud.Count == 4) + if (ObjApiSolicitud != null && resultSolicitud.Count == 4) { sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT
Folio: {Folio}
({resultSolicitud[1]})
"); } @@ -249,22 +251,22 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas txtFechaFAdd.Text = ""; ChkMetaDatos.Checked = false; RegistraScript("$('#ModalAgregarSolicitud').modal('hide');"); - cargasolicitudes(); - + cargasolicitudes(); + } } protected void LnkverificarSolicitudes_Click(object sender, EventArgs e) - { - + { + try - { - - + { + + StringBuilder sbResultado = new StringBuilder(); - foreach(GridViewRow GvRow in GVSolicitudesPendientes.Rows) + foreach (GridViewRow GvRow in GVSolicitudesPendientes.Rows) { int CveSolicitudActual = GvRow.DataKey("CveSolicitud").ToEntero(); @@ -278,12 +280,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas var ResultadoVerificaionOK = false; var SeVerifico = false; var TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion; - var ResultadoSolicitudOK = false; - - - var api = new GeneralesAPII(); - - + var ResultadoSolicitudOK = false; + + + var api = new GeneralesAPII(); + + if (idSolicitud.Length == 0) { JToken ObjApiSolicitud = (JToken)api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual); @@ -307,13 +309,13 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas resultSolicitud.Add(""); ResultadoSolicitudOK = true; - } - - - + } + + + if (ResultadoSolicitudOK) - { - + { + JToken ObjApiVerificacion = (JToken)api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual); @@ -330,21 +332,21 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } else - { - - if(resultSolicitud.Count == 4) + { + + if (resultSolicitud.Count == 4) { sbResultado.Append($"({resultSolicitud[1]})
Folio:{Folio}
"); } else { sbResultado.Append($"Solicitud pendiente de verificar en SAT
Folio:{Folio}
"); - } - - TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; - } - - + } + + TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; + } + + if (SeVerifico && resultVerificacion.Count == 4) { if (ResultadoVerificaionOK) @@ -358,28 +360,28 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } } else - { + { sbResultado.Append($"Se presento un error al verificar la solicitud
Folio: {Folio}."); TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia; } Alert(sbResultado.ToString(), TipoMensaje); - } - - - - - + } + + + + + cargasolicitudes(); } - catch(Exception ex) + catch (Exception ex) { Alert(ex.StackTrace); - } - - - + } + + + } protected void LnkAgregarSolictud_Click(object sender, EventArgs e) @@ -394,33 +396,79 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void GvResumen_RowDataBound(object sender, GridViewRowEventArgs e) { - if(e.Row.RowType == DataControlRowType.DataRow) - { - if(e.Row.DataKey("Fecha") == "") - { - // e.Row.Cells[0].Text = "Total"; - e.Row.Attributes.Add("class", "Totales"); - - } + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.DataKey("Fecha") == "") + e.Row.Attributes.Add("class", "Totales"); + + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[2].Visible = false; + } + + + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[7].Visible = false; + } + + + } + + if (e.Row.RowType == DataControlRowType.Header) + { + e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[2].Visible = false; + } + + e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); + e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); + + e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); + if (UsuarioActual.Empresa.Funcionalidad(713) != "1") + { + e.Row.Cells[7].Visible = false; + } + + e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); + e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); + + + e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) { - if(e.Row.RowType == DataControlRowType.DataRow) - { - - - if (e.Row.DataKey("UUID") == "Totales") - { - e.Row.Font.Bold = true; + if (e.Row.RowType == DataControlRowType.DataRow) + { + + + if (e.Row.DataKey("UUID") == "Totales") + { + e.Row.Font.Bold = true; e.Row.Cells[1].Text = e.Row.DataKey("CountRegistrosSIG"); - e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT"); + e.Row.Cells[2].Text = e.Row.DataKey("CountRegistrosSAT"); e.Row.Attributes.Add("class", "Totales"); } - if(e.Row.DataKey("UUID").ToUpper() != "TOTALES") + if (e.Row.DataKey("UUID").ToUpper() != "TOTALES") { StringBuilder SBMsgToolTip = new StringBuilder(); @@ -446,26 +494,27 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas SBMsgToolTip.AppendLine("Comprobante no se encuentra en descargas de SAT.
"); } } - else { + else + { if (e.Row.DataKey("DifImporte").ToDecimal() != 0) { - SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}"); + SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}"); } if (e.Row.DataKey("Abreviatura").ToUpper() != e.Row.DataKey("CBTMoneda").ToUpper()) - { + { SBMsgToolTip.AppendLine($"Diferencia en monedas."); } - } - + } + if (SBMsgToolTip.ToString().Length > 0) { e.Row.Attributes.Add("title", SBMsgToolTip.ToString()); } LinkButton LnkCFDIData = e.Row.FCLinkButton("LnkCFDIData"); - if((e.Row.DataKey("CFDIData").ToUpper() == "SI")) - { + if ((e.Row.DataKey("CFDIData").ToUpper() == "SI")) + { ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkCFDIData); LnkCFDIData.CssClass = "Texto"; } @@ -483,8 +532,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas } if (e.Row.RowType == DataControlRowType.Header) - { - + { + e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo @@ -513,9 +562,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - - + e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + + e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); @@ -531,7 +580,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); @@ -541,9 +590,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas protected void LnkDescargaXML_Click(object sender, EventArgs e) { - GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - - var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"; + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + + var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"; var Archivo = new System.IO.FileInfo(UrlDescarga); @@ -556,8 +605,8 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas Response.Flush(); Response.TransmitFile(Archivo.FullName); Response.End(); - } - + } + } protected void GVSolicitudesNominas_RowDataBound(object sender, GridViewRowEventArgs e) @@ -567,9 +616,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("ArchivoXML").Length > 0) { - var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"; - - if (System.IO.File.Exists(UrlDescarga)){ + var UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"; + + if (System.IO.File.Exists(UrlDescarga)) + { LinkButton LnkDescargaXML = e.Row.FCLinkButton("LnkDescargaXML"); ScriptManager.GetCurrent(this).RegisterPostBackControl(LnkDescargaXML); LnkDescargaXML.Visible = true; @@ -601,9 +651,9 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas IEnumerable files = DirInfo.EnumerateFiles(); foreach (var f in files) - { - - if(f.Extension.ToUpper() == ".XML") + { + + if (f.Extension.ToUpper() == ".XML") { string UUID = ""; System.Xml.XmlDocument XMLDoc = new System.Xml.XmlDocument(); @@ -654,18 +704,20 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas node = XMLDoc.SelectSingleNode(string.Format("//{0}:Emisor", Prefijo), namespaces); System.Xml.XmlNode nodeComp = XMLDoc.SelectSingleNode(string.Format("//{0}:Complemento", Prefijo), namespaces); - if (node != null ) + if (node != null) { System.Xml.XmlNode nodeTFD = nodeComp.SelectSingleNode(string.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces); UUID = ValorXML(nodeTFD, "UUID", ""); - } - + } + if (UUID.Length > 0) { - try { + try + { System.IO.File.Move(f.FullName, $@"{f.DirectoryName}\{UUID.ToUpper()}.XML"); Contador++; - } catch (Exception ex3) + } + catch (Exception ex3) { ModExtensiones.GuardaLog(ex3.StackTrace); } @@ -698,14 +750,14 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle").ToEntero(); var UrlDirectorio = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}"; - CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle); - + CargaComprobanteXML(UrlDirectorio, CveSolicitudDetalle); + } protected void LnkCFDIData_Click(object sender, EventArgs e) { - GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - + GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer; + var CveSolicitudDetalle = GvRow.DataKey("CveSolicitudDetalle"); var UrlDescargaXML = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Ingresos\\{CveSolicitudDetalle}\\{GvRow.DataKey("UUID")}.XML"; diff --git a/SAT/SolicitudesRecibidasSAT.aspx b/SAT/SolicitudesRecibidasSAT.aspx index 27e0c501d..f171acc85 100644 --- a/SAT/SolicitudesRecibidasSAT.aspx +++ b/SAT/SolicitudesRecibidasSAT.aspx @@ -382,13 +382,10 @@ ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros" DataKeyNames="UUID,CountRegistros,VTotal,CBTTotal,CountRegistrosSIG,CountRegistrosSAT,DifImporte,Abreviatura,CBTMoneda,CFDIData,CveSolicitudDetalle,CveCompra,VSerieFolio,Sistema"> - - - - - - + + + <%-- @@ -396,14 +393,13 @@ --%> - - + <%-- @@ -413,43 +409,41 @@ - + - + - + - + - + - - + - @@ -459,42 +453,39 @@ - + - + - + - + - - - - - - - - - + + + + + + + - @@ -502,7 +493,17 @@ + + + + + + + + + + diff --git a/SAT/SolicitudesRecibidasSAT.aspx.vb b/SAT/SolicitudesRecibidasSAT.aspx.vb index ed74f3fba..6bc7df485 100644 --- a/SAT/SolicitudesRecibidasSAT.aspx.vb +++ b/SAT/SolicitudesRecibidasSAT.aspx.vb @@ -212,6 +212,9 @@ Partial Class SAT_SolicitudesRecibidasSAT e.Row.Cells(15).BackColor = System.Drawing.Color.FromName("#C46B06") e.Row.Cells(16).BackColor = System.Drawing.Color.FromName("#C46B06") e.Row.Cells(17).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(18).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(19).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(1).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(2).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(3).ForeColor = System.Drawing.Color.FromName("white") @@ -229,6 +232,8 @@ Partial Class SAT_SolicitudesRecibidasSAT e.Row.Cells(15).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(16).ForeColor = System.Drawing.Color.FromName("white") e.Row.Cells(17).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(18).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(19).ForeColor = System.Drawing.Color.FromName("white") End If End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)