diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 10ec25ddd..b4e247486 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -242,7 +242,7 @@ Public Class ClsProductosServicios CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString - SATDescripcion = Data.Rows(0)("SATDescripcion").ToString + 'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo2 = Data.Rows(0)("Codigo2").ToString @@ -260,7 +260,8 @@ Public Class ClsProductosServicios Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero Fecha = Data.Rows(0)("Fecha").ToString.ToDate Usuario = Data.Rows(0)("Usuario").ToString - AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString + + 'AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True" IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True" IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble @@ -282,7 +283,7 @@ Public Class ClsProductosServicios Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero - VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal + 'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero RetISR = Data.Rows(0)("RetISR").ToString.ToDouble diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index e22b5f793..ee2e087e2 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -429,22 +429,22 @@ Public Class WS_PuntoVenta Return Respuesta End Function - ' - 'Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS - ' Dim objSucursales As New ClsSucursales - ' Dim Respuesta As New RespuestaWS + + Public Function GetSubProyectos(CveEmpresa As Integer) As RespuestaWS + Dim objProyecto As New ClsSubProyectos + Dim Respuesta As New RespuestaWS - ' If objSucursales.GetSucursales() Then - ' Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) - ' Respuesta.Datos.TableName = "Resultados" - ' Respuesta.HuboError = False - ' Else - ' Respuesta.Descripcion = "HUBO UN ERROR" - ' End If + If objProyecto.GetSubProyectos(CveEmpresa) Then + Respuesta.Datos = objProyecto.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - ' objSucursales.Dispose() - ' Return Respuesta - 'End Function + objProyecto.Dispose() + Return Respuesta + End Function Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS @@ -478,7 +478,7 @@ Public Class WS_PuntoVenta objFolios.Dispose() Return Respuesta End Function - + 'Candiddato a borrar 'COMENTADO IPP: CAMBIO LA FORMA DE USAR LAS PROMOCIONES | 2 NOVIEMBRE 2016 ' 'Public Function GetVta_PromocionesDetalle(CvePS As Integer, Fecha As String, CveSucursal As Integer, CveEmpresa As Integer) As RespuestaWS @@ -498,11 +498,11 @@ Public Class WS_PuntoVenta 'End Function - Public Function GetVta_Promociones(Fecha As String, CveEmpresa As Integer) As RespuestaWS + Public Function GetVta_Promociones(Fecha As String, CveSubProyecto As Integer, CveEmpresa As Integer) As RespuestaWS Dim objPromociones As New ClsVentas Dim Respuesta As New RespuestaWS - If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, -1) Then + If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, CveSubProyecto) Then Respuesta.Datos = objPromociones.DtResultados Respuesta.Datos.TableName = "Resultados" Respuesta.HuboError = False @@ -618,39 +618,39 @@ Public Class WS_PuntoVenta Return Respuesta End Function - ' - ''Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS - '' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas - '' Dim Respuesta As New RespuestaWS + + Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS + Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas + Dim Respuesta As New RespuestaWS - '' If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSucursal) Then - '' Respuesta.Datos = objPSCaracteristicas.DtResultados - '' Respuesta.Datos.TableName = "Resultados" - '' Respuesta.HuboError = False - '' Else - '' Respuesta.Descripcion = "HUBO UN ERROR" - '' End If + If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSubProyecto) Then + Respuesta.Datos = objPSCaracteristicas.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - '' objPSCaracteristicas.Dispose() - '' Return Respuesta - ''End Function + objPSCaracteristicas.Dispose() + Return Respuesta + End Function - ' - ''Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS - '' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas - '' Dim Respuesta As New RespuestaWS + + Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS + Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas + Dim Respuesta As New RespuestaWS - '' If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSucursal) Then - '' Respuesta.Datos = objPSCaracteristicas.DtResultados - '' Respuesta.Datos.TableName = "Resultados" - '' Respuesta.HuboError = False - '' Else - '' Respuesta.Descripcion = "HUBO UN ERROR" - '' End If + If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSubProyecto) Then + Respuesta.Datos = objPSCaracteristicas.DtResultados + Respuesta.Datos.TableName = "Resultados" + Respuesta.HuboError = False + Else + Respuesta.Descripcion = "HUBO UN ERROR" + End If - '' objPSCaracteristicas.Dispose() - '' Return Respuesta - ''End Function + objPSCaracteristicas.Dispose() + Return Respuesta + End Function Public Function GetProductosServiciosPaquetes(CveEmpresa As Integer) As RespuestaWS @@ -736,18 +736,28 @@ Public Class WS_PuntoVenta Public Function GetUsuarios(CveEmpresa As Integer) As RespuestaWS - Dim objUsuarios As New ClsSisUsuarios Dim Respuesta As New RespuestaWS + Respuesta.HuboError = False - If objUsuarios.GetUsuarios(-1) Then - Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 AND CveSucursal > 0", CveEmpresa.ToString)) - Respuesta.Datos.TableName = "Resultados" - Respuesta.HuboError = False - Else - Respuesta.Descripcion = "HUBO UN ERROR" - End If + Using objUsuarios As New ClsSisUsuarios + + If objUsuarios.GetUsuarios(-1) Then + Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 ", CveEmpresa)) + Respuesta.Datos.TableName = "Resultados" + Else + Respuesta.HuboError = True + Respuesta.Descripcion = "HUBO UN ERROR" + End If + End Using + Using objsubproy As New ClsSubProyectos + If objsubproy.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then + + Respuesta.Datos2 = objsubproy.DtResultados + Respuesta.Datos2.TableName = "Resultados" + End If + + End Using - objUsuarios.Dispose() Return Respuesta End Function diff --git a/App_Code/wsSIG.vb b/App_Code/wsSIG.vb index acad4e26f..33596c4e1 100644 --- a/App_Code/wsSIG.vb +++ b/App_Code/wsSIG.vb @@ -74,21 +74,38 @@ Public Class wsSIG Dim Retorno As UsuarioWs = Nothing Dim ArrCadena As String() = DecriptaCadena(Cadena, "AES") - If ArrCadena IsNot Nothing AndAlso ArrCadena.Count = 5 Then + If ArrCadena IsNot Nothing AndAlso ArrCadena.Count.Contiene(New Integer() {5, 7}) Then Dim Usuario, Contrasenia, IMEI, Version As String + Dim CveSubProyecto As Integer = 0 + Dim reqCveSubProyecto As Integer = -1 + Dim CveEmpresa As Integer = -1 + Dim validatesubproyecto As Boolean = False Dim Fecha As DateTime Usuario = ArrCadena(0) : Contrasenia = ArrCadena(1) : IMEI = ArrCadena(2) : Version = ArrCadena(3) : Fecha = ArrCadena(4).ToString.ToDate - + If ArrCadena.Length > 6 Then + reqCveSubProyecto = ArrCadena(5).ToString.ToEntero() + CveEmpresa = ArrCadena(6).ToString.ToEntero() + validatesubproyecto = True + End If 'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad" If Fecha > Now.AddSeconds(TiempoValido) Then - Dim ttDato As Usuario - Dim tUsuario As New ClsSisUsuarios - - ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI) + Dim ttDato As Usuario = Nothing + Using tUsuario As New ClsSisUsuarios() + ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa) + End Using + If validatesubproyecto Then + Using objsubproy As New ClsSubProyectos() + If objsubproy.GetSubProyectosUsuarios(CveUsuario:=ttDato.CveUsuario, CveSubProyecto:=reqCveSubProyecto) Then + If objsubproy.DtResultados.FiltroPrimero(String.Format("CveSubProyecto={0}", reqCveSubProyecto)) IsNot Nothing Then + CveSubProyecto = reqCveSubProyecto + End If + End If + End Using + End If If ttDato IsNot Nothing Then - Retorno = New UsuarioWs + Retorno = New UsuarioWs() Retorno.CveUsuario = ttDato.CveUsuario 'Retorno.Usuario = ttDato.Usuario @@ -98,13 +115,12 @@ Public Class wsSIG Retorno.CveEmpresa = ttDato.CveEmpresa 'Retorno.Empresa = ttDato.NombreEmpresa Retorno.CveVendedor = ttDato.CveVendedor - Retorno.CveSucursal = ttDato.CveSucursal + Retorno.CveSucursal = CveSubProyecto 'Retorno.Contraseña = ttDato.Contraseña 'Retorno.IMEI = IMEI End If - tUsuario.Dispose() Else Cadena.GuardaLog() End If diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 4e64fa231..5b2e87259 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -281,7 +281,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 03e4cd9ec..3cae12f6f 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -299,8 +299,7 @@ - - + @@ -322,7 +321,7 @@ } else { CargaGraficaPastel(); } - $('.LblTituloGrafica').text($(obj).parent().parent().text()); + $('.LblTituloGrafica').text($(obj).closest('tr').text().trim()); } function CargaGraficaBarras() { let data = cdatos; @@ -396,7 +395,7 @@ function cargaGraficaBarras2() { //Hypgrafica $("#DivModalGrafica").modal(); - $('.LblTituloGrafica').text('grafica'); + $('.LblTituloGrafica').text('Grafica'); let items = [] let data; let series = []; @@ -517,8 +516,7 @@ diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 39d6dcf25..d3b3b15ac 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Property Private Property TotalActualMes As Double Get - TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble + TotalActualMes = ViewState("TotalActualMes").ToString().ToDouble End Get Set(value As Double) ViewState("TotalActualMes") = value @@ -52,7 +52,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Property Private Property TotalAnteriorMes As Double Get - TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble + TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString().ToDouble End Get Set(value As Double) ViewState("TotalAnteriorMes") = value @@ -60,7 +60,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Property Private Property FechaIMes As String Get - Return ViewState("FechaIMes").ToString + Return ViewState("FechaIMes").ToString() End Get Set(value As String) ViewState("FechaIMes") = value @@ -68,7 +68,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Property Private Property FechaFMes As String Get - Return ViewState("FechaFMes").ToString + Return ViewState("FechaFMes").ToString() End Get Set(value As String) ViewState("FechaFMes") = value @@ -119,7 +119,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Private Property ReporteComplementario As Boolean ' Get - ' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString) + ' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString()) ' End Get ' Set(value As Boolean) ' ViewState("ReporteComplementario") = value @@ -223,7 +223,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If ViewState("CountDinamicoAnual") Is Nothing Then Return 0 Else - Return ViewState("CountDinamicoAnual").ToString.ToEntero + Return ViewState("CountDinamicoAnual").ToString().ToEntero() End If End Get @@ -295,7 +295,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If ViewState("CountDinamicoSubProyecto") Is Nothing Then Return 0 Else - Return ViewState("CountDinamicoSubProyecto").ToString.ToEntero + Return ViewState("CountDinamicoSubProyecto").ToString().ToEntero() End If End Get @@ -451,16 +451,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Private Sub ValidaEjercicios() - Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero + Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero() - If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then + If EInicio > DdlEjercicio2.SelectedValue.ToEntero() Then If DdlEjercicio2.Items.Count > 0 Then DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1 End If - Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero + Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero() If Not EInicio + 1 > Fejerciosio Then DdlEjercicio2.SelectedValueExist(EInicio + 1) @@ -486,11 +486,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal DdlEjercicio.DataBind() DdlEjercicio2.DataBind() - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString()) If DdlEjercicio.Items.Count = 0 Then - DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) + DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString())) End If - DdlPeriodo.SelectedValue = Now.Month.ToString + DdlPeriodo.SelectedValue = Now.Month.ToString() End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) @@ -510,7 +510,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'AÑO HORIZONTAL If Tab.ActiveTabIndex = 2 Then - If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then + If DdlEjercicio.SelectedValue.ToEntero() > DdlEjercicio2.SelectedValue.ToEntero() Then Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -539,12 +539,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") - 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero()'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero(), 1) + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero() 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMes = Nothing @@ -568,14 +568,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtIngresosMes.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = TotalActual.ToString + Row.Item("ImporteActual") = TotalActual.ToString() Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("CtaMayor") = -1 DtIngresosMes.Rows.Add(Row) @@ -596,15 +596,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtGastosMes.Rows.Count > 0 Then For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero Row.Item("CtaMayor") = -1 DtGastosMes.Rows.Add(Row) Else @@ -632,7 +632,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Llena Lb´s Totales - If DdlDivisor.SelectedValue.ToEntero > 1 Then + If DdlDivisor.SelectedValue.ToEntero() > 1 Then LbTotalActual.Text = TotalActualMes.ToString("###,###,##0") LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0") Else @@ -655,38 +655,38 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - If DdlDivisor.SelectedValue.ToEntero > 1 Then - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString + If DdlDivisor.SelectedValue.ToEntero() > 1 Then + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero().ToString("###,###,##0") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString() Else e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString() End If End If - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteActual").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -694,34 +694,34 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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 - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales" e.Row.ControlStyle.Font.Bold = True End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) End If - If DdlDivisor.SelectedValue.ToEntero > 1 Then - e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString + If DdlDivisor.SelectedValue.ToEntero() > 1 Then + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero().ToString("###,###,##0") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString() Else e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") - e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString() End If - If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteActual").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -742,14 +742,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate - FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate + FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero() 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMesH = Nothing @@ -778,8 +778,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtIngresosMesH.Rows.Count > 0 Then For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") @@ -806,9 +806,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Nombre") = "TOTAL INGRESOS" - Row.Item("ImporteActual") = TotalActual.ToString + Row.Item("ImporteActual") = TotalActual.ToString() Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("CtaMayor") = -1 @@ -830,8 +830,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If DtGastosMesH.Rows.Count > 0 Then For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next @@ -859,9 +859,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero Row.Item("CtaMayor") = -1 DtGastosMesH.Rows.Add(Row) Else @@ -899,9 +899,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") Row.Item("Nombre") = "Resultados del Ejercicio:" - 'Row.Item("ImporteActual") = TotalActual.ToString + 'Row.Item("ImporteActual") = TotalActual.ToString() 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString + Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString() 'Row.Item("PorcentajeAcumulado") = "100.00" 'Row.Item("CtaMayor") = -1 @@ -919,7 +919,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesMesH.DataBind() - If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre + If DdlTri.SelectedValue.ToEntero() = 0 Then 'ocultar trimestre cuatrimestre GvIngresosMesH.Columns(4).Visible = False GvIngresosMesH.Columns(9).Visible = False @@ -949,7 +949,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesMesH.Columns(19).Visible = False - ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre + ElseIf DdlTri.SelectedValue.ToEntero() = 1 Then 'Mostrar Trimestre GvIngresosMesH.Columns(4).Visible = True @@ -979,7 +979,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesMesH.Columns(12).Visible = False GvTotalesMesH.Columns(19).Visible = False - ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre + ElseIf DdlTri.SelectedValue.ToEntero() = 2 Then 'Mostrar Cuatrimestre GvIngresosMesH.Columns(4).Visible = False GvIngresosMesH.Columns(9).Visible = False @@ -1020,20 +1020,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then e.Row.ControlStyle.Font.Bold = True End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) @@ -1060,13 +1060,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then - If DdlDivisor.SelectedValue.ToEntero > 1 Then + If DdlDivisor.SelectedValue.ToEntero() > 1 Then e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") @@ -1115,7 +1115,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If @@ -1125,23 +1125,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales" e.Row.ControlStyle.Font.Bold = True End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero() - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) @@ -1166,15 +1166,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then - If DdlDivisor.SelectedValue.ToEntero > 1 Then + If DdlDivisor.SelectedValue.ToEntero() > 1 Then 'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") @@ -1225,7 +1225,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -1242,7 +1242,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.Attributes.Add("style", "Font-weight: bold") - If DdlDivisor.SelectedValue.ToEntero > 0 Then + If DdlDivisor.SelectedValue.ToEntero() > 0 Then e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") @@ -1321,11 +1321,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}" - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero() 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then + If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero(), Periodo:=DdlPeriodo.SelectedValue.ToEntero()) Then DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosAnualH = Nothing @@ -1377,7 +1377,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If IndexData >= 13 Then - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then + If dCoumn.ColumnName.ToEntero() > 0 And dCoumn.ColumnName.ToEntero() <= DdlEjercicio2.SelectedValue.ToEntero() Then CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName @@ -1415,8 +1415,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next @@ -1426,13 +1426,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString() Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString() Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") - CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero + Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero() + CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero() DtIngresosAnualH.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL INGRESOS " @@ -1460,7 +1460,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If IndexData >= 13 Then - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then + If dCoumn.ColumnName.ToEntero() > 0 And dCoumn.ColumnName.ToEntero() <= DdlEjercicio2.SelectedValue.ToEntero() Then 'HyperLinkField CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName @@ -1490,8 +1490,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next IndexData = 13 @@ -1503,11 +1503,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") + Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero() DtGastosAnualH.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL GASTOS" @@ -1553,51 +1553,51 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then setgraficaCCAnual(e, listaCamposanios) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True End If - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero() + Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero() - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor) Next IndiceInicio 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" Next IndiceInicio @@ -1606,7 +1606,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -1615,54 +1615,54 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then setgraficaCCAnual(e, listaCamposaniosGastos) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales" e.Row.ControlStyle.Font.Bold = True End If - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero() + Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero() + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then - 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}" - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" + e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor) Next IndiceInicio 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" Next IndiceInicio End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -1702,14 +1702,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}" FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero() Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else @@ -1768,9 +1768,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal GvTotalesSubProyectoH.Columns(IndexGv).Visible = True If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString() + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString() + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString() End If listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) Else @@ -1788,8 +1788,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next IndexData = 13 @@ -1798,13 +1798,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Next Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString() Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString() Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("CtaMayor") = -1 Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") - CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero + CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero() DtIngresosSubProyectoH.Rows.Add(Row) Else Row.Item("Nombre") = "TOTAL INGRESOS " @@ -1850,8 +1850,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + TotalActual += dr("ImporteActual").ToString().ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble Next IndexData = 13 @@ -1861,11 +1861,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero + Row.Item("ImporteAcumulado") = TotalAnterior.ToString() + Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero Row.Item("CtaMayor") = -1 - Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico") + Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico").ToEntero() DtGastosSubProyectoH.Rows.Add(Row) Else @@ -1888,7 +1888,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Row.Item("Nombre") = "Resultado del ejercicio" Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") Row.Item("CtaMayor") = -2 - Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") + Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero() DTTotalesSubProyectoH.Rows.Add(Row) @@ -1910,8 +1910,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 'Private Sub SumaTotalesSubProyectoH() ' ''Llena Lb´s Totales ' ''********************************************************************************* - ' 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - ' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero + ' 'LbTotalActual.Text = TotalActualMes.ToString().FormatoNumero + ' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString().FormatoNumero ' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) ' 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) @@ -1922,77 +1922,77 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then + TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -2 Then e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Size = 13 End If - Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero() setgraficaCC(e) - 'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + 'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero() + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then - e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico - Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth + Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero(), DdlPeriodo.SelectedValue.ToEntero(), 1).LastDayOfMonth For IndiceInicio = 1 To IndiceMax Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" Next IndiceInicio - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"
{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" + e.Row.Cells(IndiceInicio).Text = $"
{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" Next IndiceInicio - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -2 Then - Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero() Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico For IndiceInicio = 1 To IndiceMax Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal - e.Row.Cells(IndiceInicio).Text = $"
{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" + e.Row.Cells(IndiceInicio).Text = $"
{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
" Next IndiceInicio End If - e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00")) - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero() > 1, e.Row.DBCampo("ImporteAcumulado").ToString().ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString().ToDecimal.ToString("###,###,##0.00")) + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If @@ -2003,15 +2003,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then setgraficaCC(e) - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then + TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble + TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then 'e.Row.CssClass = "SubTotales" e.Row.ControlStyle.Font.Bold = True End If - If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If @@ -2078,7 +2078,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Gv2.RenderControl(htw2) - TablaResultados.Width = Gv2.Width.ToString + TablaResultados.Width = Gv2.Width.ToString() Dim sw3 As New StringWriter() Dim htw3 As New HtmlTextWriter(sw3) @@ -2186,7 +2186,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then + If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero() > 0 Then Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) RangoSubProyecto.Merged = True RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text @@ -2253,7 +2253,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If I > 0 Then - If DdlDivisor.SelectedValue.ToEntero = 1 Then + If DdlDivisor.SelectedValue.ToEntero() = 1 Then worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" Else worksheet.Columns(I + 1).Style.NumberFormat = "#,##" diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index af2d7eff3..d388970ab 100644 --- a/GPS/Rastreo.aspx.vb +++ b/GPS/Rastreo.aspx.vb @@ -379,7 +379,7 @@ Partial Class GPS_Rastreo Dim CordenadaAnterior As String = "" For Each row As DataRow In TmpDT.Rows Contador += 1 - Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT") + Dim Coord As String = SQLToGmaps(row("Posicion").ToString(), "POINT") Dim Velocidad As Double = row("SPD").ToString.ToDouble Fecha = row("FechaTrama").ToString diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 001fe01b4..39800e20f 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -30,7 +30,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { } .AdsCHeader > .ADSCroll { - overflow: hidden; + overflow: auto; } .AdsBody .ADSCroll { @@ -53,10 +53,12 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { background-color: #F5F5F5; } + .AdsBody .ADSCroll::-webkit-scrollbar-thumb { background-color: #AAA; border-radius: 4px; - background-image: -webkit-linear-gradient(90deg, rgba(0, 0, 0, .2) 25%, transparent 25%, transparent 50%, rgba(0, 0, 0, .2) 50%, rgba(0, 0, 0, .2) 75%, transparent 75%, transparent) + background-color: #F5F5F5; + -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); } .line-Lite .form-group.form-md-line-input .form-control { @@ -700,8 +702,8 @@ div.ADScroller { } .ADScroller .ADScroller-body::-webkit-scrollbar { - width: 8px; - height: 8px; + width: 10px; + height: 12px; } .ADScroller .ADScroller-body::-webkit-scrollbar-track { @@ -2656,14 +2658,14 @@ select.select2-offscreen, select.select2-offscreen:focus { position: absolute; content: "Arrastre el archivo"; color: #808080; - font-size: 30px; + font-size: 20px; margin-top: 15px; } .addropzone.dz-clickable:after { position: absolute; content: "o presione doble click"; color: #808080; - font-size: 30px; + font-size: 20px; margin-top: 45px; } diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index 186d56933..3e5c523e2 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -259,14 +259,13 @@
+ CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2"> - + diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 753099b93..757b5cd09 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -310,7 +310,7 @@ public partial class Nomina_Nomina2 : ClsPaginas GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; @@ -342,7 +342,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; @@ -386,7 +386,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; } - GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); + GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0); bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf.DataField = string.Format("V_{0}", CveConcepto); bf.HeaderText = Concepto; diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index 25a752047..dddafe9f5 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -8,8 +8,13 @@ content: "Pegar aquí"; } - .addropzone.dz-clickable:before { - margin-top: 40px; + .addropzone.dz-clickable:before{ + margin-top: 15px; + } + .addropzone.dz-clickable:before, + .addropzone.dz-clickable:after { + font-size: 20px; + line-height: 1; } .pnlCorreo { @@ -79,18 +84,19 @@
-

Para

+

Para

+
- + <%----%> <%-- Jorge caudillo(jcaudillo@adsistemas.mx); Julian Moreno(Julianmoreno@adsistemas.mx); - --%> + --%>
@@ -118,15 +124,15 @@

Adjuntar Archivos:

- -
-
- Archivo cargado: -
-
- -
+ +
+
+ Archivo cargado:
+
+ +
+
@@ -134,11 +140,11 @@ <%----%>
- -
- - -
+ +
+ + +