From 9e4a48b064665f4cf110192b3e7d8e555ec8dc6c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Jul 2023 16:01:06 -0700 Subject: [PATCH 1/4] -- mejoras visuales en --- RH/RepAusentismoLaboral.aspx | 16 +++++----- RH/RepAusentismoLaboral.aspx.vb | 24 +++++++-------- RH/RepIndiceRotacionPersonal.aspx | 6 ++-- RH/RepIndiceRotacionPersonal.aspx.vb | 46 +++++++++++++--------------- 4 files changed, 44 insertions(+), 48 deletions(-) diff --git a/RH/RepAusentismoLaboral.aspx b/RH/RepAusentismoLaboral.aspx index b9ae2e293..50c844186 100644 --- a/RH/RepAusentismoLaboral.aspx +++ b/RH/RepAusentismoLaboral.aspx @@ -106,18 +106,18 @@ - + - - - - + + + + - + - - + + diff --git a/RH/RepAusentismoLaboral.aspx.vb b/RH/RepAusentismoLaboral.aspx.vb index 3bdb52e05..9840d048b 100644 --- a/RH/RepAusentismoLaboral.aspx.vb +++ b/RH/RepAusentismoLaboral.aspx.vb @@ -64,9 +64,8 @@ Partial Class RH_RepAusentismoLaboral Dim FechaInicio As Date = Date.Now.AddDays(-30) Dim FechaFin As Date = Date.Now - Try - FechaInicio = Date.Parse(txtInicio.Text) + FechaInicio = Date.Parse(txtInicio.Text) FechaFin = Date.Parse(txtFin.Text) If DdlProyecto.SelectedIndex <> 0 Then @@ -88,9 +87,7 @@ Partial Class RH_RepAusentismoLaboral GVRegDatos.DataSource = dTable GVRegDatos.DataBind() - Catch ex As Exception - Dim exe As String = ex.Message - End Try + rh.Dispose() UpDatos.Update() @@ -106,25 +103,28 @@ Partial Class RH_RepAusentismoLaboral If e.Row.RowType = DataControlRowType.DataRow Then If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then - Dim sPorcentaje As String = e.Row.DBCampo("AUSENTISMO").Trim - Dim porcentaje As Double = Convert.ToDouble(sPorcentaje) + Dim porcentaje As Decimal = e.Row.DBCampo("AUSENTISMO").ToDecimal e.Row.FCLabel("lblAusentismo").CssClass = "label label-danger" e.Row.FCLabel("lblAusentismo").Font.Bold = True e.Row.FCLabel("lblAusentismo").Attributes.Add("dir", "rtl") - e.Row.FCLabel("lblAusentismo").Text = sPorcentaje & "%" + e.Row.FCLabel("lblAusentismo").Text = porcentaje.RoundSQL & "%" If porcentaje <= 15.0 Then e.Row.FCLabel("lblAusentismo").CssClass = "label label-success" ElseIf (porcentaje > 15.0 And porcentaje <= 30.0) Then e.Row.FCLabel("lblAusentismo").CssClass = "label label-warning" End If - - - - End If + If e.Row.DBCampo("SubProyecto").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales2" + Else + If e.Row.DBCampo("Turno").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales" + End If + End If + End If diff --git a/RH/RepIndiceRotacionPersonal.aspx b/RH/RepIndiceRotacionPersonal.aspx index cf45a956a..6d01501ef 100644 --- a/RH/RepIndiceRotacionPersonal.aspx +++ b/RH/RepIndiceRotacionPersonal.aspx @@ -124,7 +124,7 @@ - + @@ -142,13 +142,13 @@ - + - + diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index edf2ac6fc..f2b71e8b7 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -76,11 +76,10 @@ Partial Class Ventas_RepIndiceRotacionPersonal Dim CveTurno As Integer = -1 Dim FechaInicio As Date = Date.Now.AddDays(-30) - Dim FechaFin As Date = Date.Now - - Try - - FechaInicio = Date.Parse(txtInicio.Text) + Dim FechaFin As Date = Date.Now + + + FechaInicio = Date.Parse(txtInicio.Text) FechaFin = Date.Parse(txtFin.Text) If DdlProyecto.SelectedIndex <> 0 Then @@ -100,16 +99,9 @@ Partial Class Ventas_RepIndiceRotacionPersonal End If DTGvDatos = dTable GVRegDatos.DataSource = dTable - GVRegDatos.DataBind() - - - - - - Catch ex As Exception - Dim exe As String = ex.Message - End Try - + GVRegDatos.DataBind() + + rh.Dispose() UpDatos.Update() @@ -124,28 +116,32 @@ Partial Class Ventas_RepIndiceRotacionPersonal If e.Row.RowType = DataControlRowType.DataRow Then - If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then - - Dim sPorcentaje As String = e.Row.DBCampo("IRP").Trim - Dim porcentaje As Double = Convert.ToDouble(sPorcentaje) + If Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then + + Dim porcentaje As Decimal = e.Row.DBCampo("IRP").ToDecimal e.Row.FCLabel("LblIrp").CssClass = "label label-danger" e.Row.FCLabel("LblIrp").Font.Bold = True e.Row.FCLabel("lblIrp").Attributes.Add("dir", "rtl") - - e.Row.FCLabel("LblIrp").Text = sPorcentaje & "%" + e.Row.FCLabel("LblIrp").Text = porcentaje.ToString("0.00") & "%" If porcentaje <= 15.0 Then e.Row.FCLabel("LblIrp").CssClass = "label label-success" ElseIf (porcentaje > 15.0 And porcentaje <= 30.0) Then e.Row.FCLabel("LblIrp").CssClass = "label label-warning" End If - End If - If e.Row.DataKey("SubProyecto").ToString.Trim = "" Then - e.Row.CssClass = "SubTotales" - ' e.Row.Attributes.Add("class", "SubTotales") + If e.Row.DBCampo("SubProyecto").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales2" + Else + If e.Row.DBCampo("Turno").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales" + Else + If e.Row.DBCampo("Turno").ToString.Trim = "" Then + e.Row.CssClass = "SubTotales3" + End If + End If End If End If From 2fbde6a5e6b61da136104cad4402a3bbb0f81606 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Jul 2023 19:43:28 -0700 Subject: [PATCH 2/4] -- anexo catalogo CC, por fechas --- App_Code/ClsContabilidad.vb | 93 ++++-------------------- App_Code/ClsMovimientos.vb | 17 ----- Contabilidad2/RepAnexoCatalogoCC.aspx | 82 ++++++++++++--------- Contabilidad2/RepAnexoCatalogoCC.aspx.vb | 51 +++---------- 4 files changed, 72 insertions(+), 171 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e3f903e99..c20de80e8 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -789,7 +789,6 @@ Public Class ClsContabilidad #Region " C O N T A B I L I D A D - P R E P O L I Z A - D E T A L L E " Public Function GetPlantillaConceptos(CveEmpresa As Integer, CvePlantillaPoliza As Integer) As Boolean - Dim Retorno As Boolean = False DataAdapter("PA_Conta_GetPlantilla") @@ -812,7 +811,6 @@ Public Class ClsContabilidad End Function Public Function GetPrePolizaOriginal(TipoMovimiento As Integer, CveMovimiento As Integer) As Boolean 'Editado por charlie - Dim Retorno As Boolean = False DataAdapter("PA_Conta_GetPrePolizaOriginal") @@ -835,7 +833,6 @@ Public Class ClsContabilidad End Function Public Function PrePolizaUnificacion(CvePrePoliza As Integer, CvePrePolizaVieja As Integer) As Boolean 'Editado por charlie - Dim Retorno As Boolean = False SeUnifico = False @@ -873,9 +870,7 @@ Public Class ClsContabilidad End Function Public Function PrePolizaSimplificacion(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Conta_PrePolizasSimplificacion") With SqlAdapter.SelectCommand.Parameters @@ -896,7 +891,6 @@ Public Class ClsContabilidad End Function Public Function GetCuentaPrePoliza(Concepto As Integer, CveEmpresa As Integer, CvePlantillaPoliza As Integer) As Boolean - Dim Retorno As Boolean = False DataAdapter("PA_Conta_IdCuentaPrePolizaGet") @@ -920,7 +914,6 @@ Public Class ClsContabilidad End Function Public Function GetRetCuenta(Concepto As Integer, CveGeneral As Integer, Optional CveSubProyecto As Integer = -1) As Boolean - Dim Retorno As Boolean = False DataAdapter("PA_Conta_RetCuentaGet") @@ -1233,7 +1226,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function UpdatePrePolizasDetalleBloquear(CvePrePoliza As Integer, Bloquear As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleBloquearUpdate") @@ -1572,7 +1564,6 @@ Public Class ClsContabilidad End Function Public Function GetCuentaDobleConta(IdCtaContable As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentaDobleContaGet") @@ -1613,7 +1604,6 @@ Public Class ClsContabilidad End Function Public Function GetEncabezadoPrePoliza(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizaEncabezadoGet") @@ -1654,7 +1644,6 @@ Public Class ClsContabilidad End Function Public Function GetCausacionesValores(CvePrePoliza As Integer) As Boolean 'Editado por charlie - Dim Retorno As Boolean = False DataAdapter("PA_Conta_CausacionesValoresGet") @@ -3766,7 +3755,7 @@ Public Class ClsContabilidad End Function - Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean + Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean Dim Retorno = False DataAdapter("PA_Conta_AnexoCatalogoGet") @@ -3774,7 +3763,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto @@ -3793,8 +3782,7 @@ Public Class ClsContabilidad Return Retorno End Function - - Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String, OpcionCuentas As Integer) As Boolean + Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, TipoReporte As String, OpcionCuentas As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_MovimientosAuxiliaresCatalogoGet") @@ -3802,7 +3790,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -3841,7 +3829,6 @@ Public Class ClsContabilidad Return Retorno End Function - 'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean Dim Retorno = False @@ -3947,7 +3934,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetFlujoEfectivo2(FechaF As Date, Tipo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -3969,7 +3955,6 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetOrigenAplicacion(FechaI As String, FechaF As String, TipoReporte As Integer, CveSubProyecto As String, CveEmpresa As Integer) As Boolean Dim Retorno = False @@ -4482,20 +4467,19 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer, CveUsuario As Integer) As Boolean + Public Function GetAnexoCatalagoCC(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer, Divisor As Integer, CveUsuario As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_AnexoCatalogoCCGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta - .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio - .Add("@CveSubproyecto", SqlDbType.Int).Value = CveSubproyecto + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Divisor", SqlDbType.Int).Value = Divisor .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - .Add("@Periodo", SqlDbType.Int).Value = Periodo - End With Try @@ -4936,25 +4920,6 @@ Public Class ClsContabilidad Return Retorno End Function - 'Public Function GetSaldoCuenta(IdCuenta As Integer, TipoMovto As Integer, Ejercicio As Integer) As Boolean - ' Dim Retorno As Boolean - - ' If TipoMovto = 0 Then - ' DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 1 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0}", IdCuenta, Ejercicio), CommandType.Text) - ' Else - ' DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 0 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0} ", IdCuenta, Ejercicio), CommandType.Text) - ' End If - - ' Try - ' SqlAdapter.Fill(Data) - ' 'Retorno = Math.Round(SqlCommand.ExecuteScalar.ToString.ToDouble, 2) - ' Retorno = True - ' Catch ex As Exception - ' Me.OnError("Ocurrió un error al obtener eL saldo de la cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - 'End Function Public Function GetRepPresupuestosEgresosSaldos(Ejercicio As Integer, Fecha As Date, Capitulo As String, CveClasificacion As Integer, CveFuenteFinanciamiento As Integer, CveProgramaOperativo As Integer, CveUnidadAdministrativa As Integer, CveTipoGasto As Integer, Gpo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_PresupuestosEgresosSaldosRep") @@ -5603,7 +5568,7 @@ Public Class ClsContabilidad #End Region #Region "A N E X O - D E L - C A T A L O G O" - Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean + Public Function GetAnexoCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_AnexoCatalogo") @@ -5611,7 +5576,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -5627,7 +5592,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetMovimientosAuxiliaresCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean + Public Function GetMovimientosAuxiliaresCatalogo(CveCuenta As Integer, FechaI As Date, FechaF As Date, CveMoneda As Integer, CveEmpresa As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_AuxiliarCatalogo") @@ -5635,7 +5600,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta + .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -5677,12 +5642,12 @@ Public Class ClsContabilidad End Function #End Region - Public Function AddSiguienteCuentaHijo(IdCuentaPadre As Integer, NombreCuenta As String, CveEmpresa As Integer, Optional Tipo As String = "A", Optional CuentaMayor As Integer = 2, Optional IdMoneda As Integer = 1, Optional IdAgrupadorSAT As Integer = -1) As Integer + Public Function AddSiguienteCuentaHijo(CveCuentaPadre As Integer, NombreCuenta As String, CveEmpresa As Integer, Optional Tipo As String = "A", Optional CuentaMayor As Integer = 2, Optional IdMoneda As Integer = 1, Optional IdAgrupadorSAT As Integer = -1) As Integer Dim CodigoCuenta As New StringBuilder Dim Retorno As Integer = -1 Dim Segmentos() As String = Nothing - If GetCuentas(-1, "-1", -1, CveEmpresa, CvePadre:=IdCuentaPadre) Then + If GetCuentas(-1, "-1", -1, CveEmpresa, CvePadre:=CveCuentaPadre) Then If DtResultados.Rows.Count > 0 Then 'Cuando ya tiene cuentas hijas @@ -5699,7 +5664,7 @@ Public Class ClsContabilidad Else 'Cuando es el primero hijo de la cuenta 'obtengo el codigo del padre - If GetCuentas(IdCuentaPadre, "-1", -1, CveEmpresa) Then + If GetCuentas(CveCuentaPadre, "-1", -1, CveEmpresa) Then Segmentos = Split(DtResultados.MAX("CuentaFormato"), "-") 'recorro para poner el primer digito en el siguiente segmento al que halla tenido valor > 0 For i As Integer = 0 To Segmentos.Length - 1 Step 1 @@ -5718,7 +5683,7 @@ Public Class ClsContabilidad CodigoCuenta.Append(Segmentos(i)) 'une tokens Next - Retorno = AddCuenta(IdCuentaPadre, CodigoCuenta.ToString, NombreCuenta, Tipo, CuentaMayor, 0, IdMoneda, CveAgrupadorSAT:=IdAgrupadorSAT) + Retorno = AddCuenta(CveCuentaPadre, CodigoCuenta.ToString, NombreCuenta, Tipo, CuentaMayor, 0, IdMoneda, CveAgrupadorSAT:=IdAgrupadorSAT) Return Retorno End Function @@ -6678,32 +6643,6 @@ Public Class ClsContabilidad - Public Function GetAnexoCatalogoMensualHorizontal(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean - Dim Retorno = False - - DataAdapter("PA_Conta2_AnexoCatalogoMensualHorizontalGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF - .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta - .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos - .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas - .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@SAT", SqlDbType.Int).Value = SAT - End With - - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - Me.OnError("Ocurrió un error al obtener el Anexo del Catalogo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function GetEstadosAnualHorizontal(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1, Optional Periodo As Integer = 12) As Boolean Dim Retorno = False diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 36e99b747..22faff267 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -116,23 +116,6 @@ Public Class ClsMovimientos End Sub #Region "CxC" - 'Public Function GetCxCCliente(CveCliente As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' 'Data = New DataTable - ' 'SqlAdapter = New SqlDataAdapter("PA_ClienteCxC", SqlConexion) - ' 'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure - ' DataAdapter("PA_ClienteCxC") - ' SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As SqlException - ' OnError("Ocurrió un error al consultar las CxC del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) - ' End Try - - ' Return Retorno - 'End Function Public Function GetCxCClienteDetalle(CveCliente As Integer, FechaI As String, FechaF As String, CveMoneda As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveClienteSucursal As Integer, Optional TipoDocto As String = "-1", Optional FechaCorte As Date = MaxFecha, Optional FechaVencimientoI As Date = MinFecha, Optional FechaVencimientoF As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 0b43246e7..d459f114b 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -63,52 +63,62 @@ -
- Ejercicio: +
+ Fecha Inicio: +
+
+
+ + + +
-
- -
-
- Periodo: -
-
- - - - - - - - - - - - - - -
-
- -
-
- + + + + + + +
+
+ Fecha Fin: +
+
+
+ + + +
+ + + + + + +
+
>
+
+ +
+
+ +
Divisor:
-
- - - - - -
+
+ + + + + +
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index c2a05511a..acd3de93f 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -95,12 +95,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC InicializaValores() - CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) - - DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString) + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) + DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) - DdlDivisor.SelectedValueExist(DivisorParametro.ToString) - DdlPeriodo.SelectedValueExist(Periodo) + DdlDivisor.SelectedValueExist(DivisorParametro.ToString) If CveCuenta > 0 Then @@ -117,46 +115,17 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC #Region " INICIALIZA VALORES " Private Sub InicializaValores() CargaCombos() + txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString End Sub - Private Sub CargaCombos() - - Dim Conta As New ClsContabilidad - If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then - DdlEjercicio.DataSource = Conta.DtResultados - Else - DdlEjercicio.DataSource = Nothing - End If - - Dim strGlobal As String = "" - - If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") - If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString - DdlCuentas.DataSource = Conta.DtResultados - End If - - - Conta.Dispose() - - DdlEjercicio.DataBind() - DdlEjercicio.SelectedValueExist(Now.Year.ToString) + Private Sub CargaCombos() + DdlCuentas.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa).FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')") DdlCuentas.DataBind() - 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - 'DdlSubProyecto.DataBind() - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - 'DdlSubProyecto.SelectedValue = "-1" - - - - - End Sub - - #End Region @@ -177,7 +146,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC DTDatos = New DataTable Dim Conta As New ClsContabilidad - If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then + If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then DTHeaders = Conta.DSResultados.Tables(0) DTDatos = Conta.DSResultados.Tables(1) @@ -279,7 +248,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC End If If Importe <> 0 Then - e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + '' pendiente.. ' e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" End If Index += 1 @@ -309,7 +278,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC 'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text) If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) - SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text) + 'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text) GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString()) From 2f9e4b4819a5718adefa53987e0c60c544064727 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jul 2023 12:57:12 -0700 Subject: [PATCH 3/4] =?UTF-8?q?--=20VALIDACI=C3=93N=20en=20gvcxp=20top=201?= =?UTF-8?q?1=20-=20mejora=20visual?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- PortalProveedor/PortalProveedor.aspx | 43 +++++++++---------------- PortalProveedor/PortalProveedor.aspx.vb | 5 ++- 2 files changed, 20 insertions(+), 28 deletions(-) diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx index 45c6ecfe8..9514e0602 100644 --- a/PortalProveedor/PortalProveedor.aspx +++ b/PortalProveedor/PortalProveedor.aspx @@ -73,8 +73,8 @@ - -   @@ -222,7 +215,7 @@ - + @@ -262,7 +255,7 @@ - +
@@ -276,7 +269,7 @@ - + @@ -307,7 +300,7 @@ - @@ -346,11 +339,8 @@ - - - - - + +
@@ -367,7 +357,7 @@
- + @@ -379,7 +369,6 @@ -
@@ -400,7 +389,7 @@ 		- + @@ -439,7 +428,7 @@ - +
@@ -489,7 +478,7 @@
- + @@ -527,7 +516,7 @@ - +
diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index cca4f8fb4..acc01a29f 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -379,7 +379,10 @@ Partial Class Portal_PortalProveedor '= ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'"). DTGvCxPHistorial = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'") - GvCxPHistorial.DataSource = DTGvCxPHistorial.AsEnumerable().Take(11).CopyToDataTable() + If DTGvCxPHistorial.Rows.Count > 11 Then + GvCxPHistorial.DataSource = DTGvCxPHistorial.AsEnumerable().Take(11).CopyToDataTable() + End If + End If Else From 6b3426c45b5df806c8e4b4baa1b8dd1ad14435c8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 20 Jul 2023 13:10:40 -0700 Subject: [PATCH 4/4] eFacturas registrar compras --- AC/Reportes/NoIncluir.rdlc | 3083 +++++++++++++++++++ App_Code/ClsRH.vb | 8 +- Bancos/IE.aspx.vb | 4 + Compras/eFacturas.aspx | 154 +- Compras/eFacturas.aspx.vb | 672 ++-- Empresas/119/Formatos/RepIVAAcreditable.rpt | Bin 131072 -> 131072 bytes OC/OC.aspx | 13 +- RH/CatAsistenciasInasistencias.aspx | 4 +- RH/CatAsistenciasInasistencias.aspx.vb | 6 +- RH/Personal.aspx | 39 +- 10 files changed, 3613 insertions(+), 370 deletions(-) create mode 100644 AC/Reportes/NoIncluir.rdlc diff --git a/AC/Reportes/NoIncluir.rdlc b/AC/Reportes/NoIncluir.rdlc new file mode 100644 index 000000000..418752c04 --- /dev/null +++ b/AC/Reportes/NoIncluir.rdlc @@ -0,0 +1,3083 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 3560db3f-20af-4776-9f09-85925745c52f + + + + + + DataSet1 + /* Local Query */ + + + + Nombre + System.String + + + ImporteActual + System.Int16 + + + ImporteAnterior + System.Int16 + + + CtaMayor + System.Int16 + + + Orden + System.String + + + Tipo + System.String + + + Sup + System.String + + + Level + System.Int16 + + + TipoCuenta + System.Int16 + + + + DataSet1 + c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd + ActivoCirculante + + + + + + + + + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + + + + + TOTAL ACTIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00011*", "011*") + + + + =Fields!Nombre.Value + NotEqual + + ACTIVO CIRCULANTE + + + + 2.6512cm + 0.06568cm + 1.65cm + 10.70896cm + + + Verdana + 8pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00012*", "012*") + + + + =Fields!Nombre.Value + NotEqual + + ACTIVO NO CIRCULANTE + + + + 4.74417cm + 0.06568cm + 1.65cm + 10.70896cm + 1 + + + Verdana + 8pt + + + + + + + 5.10007cm + + + 2.1825cm + + + 2.17523cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!Nombre.Value + NotEqual + + PASIVO CIRCULANTE + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00021*", "021*") + + + + 2.6512cm + 10.88047cm + 1.65cm + 9.4578cm + 2 + + + Verdana + 8pt + + + + + + + 5.14411cm + + + 2.1825cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!Nombre.Value + NotEqual + + PASIVO NO CIRCULANTE + + + + =Fields!Orden.Value + Like + + =IIf(Parameters!CveEmpresa.Value = 48, "00022*", "022*") + + + + 4.74417cm + 10.88047cm + 1.65cm + 9.4578cm + 3 + + + Verdana + 8pt + + + + true + true + + + + + ACTIVO + + + + + + + Textbox28 + 1.84891cm + 0.27028cm + 0.6cm + 9.7954cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PASIVO + + + + + + + Textbox28 + 1.91009cm + 10.88047cm + 0.6cm + 8.40286cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.18815cm + + + 2.13846cm + + + 2.13119cm + + + + + 0.6cm + + + + + true + true + + + + + CAPITAL CONTABLE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL CAPITAL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + F + + + + =Fields!Nombre.Value + NotEqual + + PATRIMONIO GENERADO + + + + =Fields!Nombre.Value + NotEqual + + PATRIMONIO CONTRIBUIDO + + + + 8.30193cm + 10.88047cm + 1.65cm + 9.4578cm + 6 + + + Verdana + 8pt + + + + true + true + + + + + CAPITAL + + + + + + + Textbox28 + 7.52554cm + 10.92451cm + 0.6cm + 9.41376cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Activo + + + + + + + Textbox45 + 11.31317cm + 0.27027cm + 0.6cm + 4.34021cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total CAPITAL + + + + + + + Textbox45 + 10.22837cm + 10.88047cm + 0.6cm + 3.1816cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHAnterior.Value + Variables!TotalPatrimonioCAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHActual.Value + Variables!TotalPatrimonioCActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total Pasivo y Patrimonio + + + + + + + Textbox45 + 11.31317cm + 10.26312cm + 0.6cm + 4.61265cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Pasivo: + + + + + + + Textbox45 + 6.57056cm + 10.88047cm + 0.6cm + 3.1816cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Iif(round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2) <.005 AND Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & round(Math.Abs(Variables!TotalActivoAnterior.Value-Variables!TotalpasivoYHaciendaAnterior.Value),2)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.03141cm + 0.31432cm + 1.5cm + 1.5cm + 21 + + + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + + + + + Textbox1 + 0.03141cm + 3.40996cm + 0.81167cm + 12.91455cm + 22 + + = IIF(First(Fields!Nombre.Value, "DataSet1"),True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Situación Financiera al + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 0.89924cm + 3.40996cm + 0.6cm + 12.91455cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.03141cm + 16.58113cm + 0.81167cm + 3.49249cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 6cm + + + 2.5cm + + + 2.20896cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO DIFERIDO + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO DIFERIDO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteActual.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(IIf(Fields!Level.Value < 2, Fields!ImporteAnterior.Value, 0)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!CtaMayor.Value + NotEqual + + 3 + + + + 6.92554cm + 0.06568cm + 1.65cm + 10.70896cm + 25 + + =IIf(Parameters!CveEmpresa.Value = 48 Or Parameters!CveEmpresa.Value = 120,True,False) + + + + Verdana + 8pt + + + + 5.1587in + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 3.454cm + 0.6cm + 12.91455cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.02088cm + 16.62517cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 2.27541cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + . + + + + + + + Textbox3 + 1.41083cm + 16.37931cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.10583cm + 1.71666cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 0.07056cm + 10.88047cm + 0.99688cm + 8.02269cm + 2 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm +