diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 2ac55ef1b..2d99601cd 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -261,21 +261,20 @@ Public Class ClsFinanzas - Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasBalanceGeneralRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_BalanceGeneralRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) @@ -288,20 +287,20 @@ Public Class ClsFinanzas - Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasEstadoResultadosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_EstadoResultadosRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try @@ -314,20 +313,19 @@ Public Class ClsFinanzas End Function - Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasRatiosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_RatiosRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 75068d7ea..d5e2f91eb 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -2772,10 +2772,18 @@ Partial Class ContabilidadC_RegPrePolizaS End If If Archivo.Exists Then + ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" + Else + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) ruta = "Empresas/Grales/Formatos/Polizas.rdlc" End If + + + + ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True) End If diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index f65afe649..eff3e94e4 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -66,8 +66,8 @@ - -
+ +
Normal Consolidado diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 67463cddb..f48ff1d83 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -98,6 +98,13 @@ Partial Class AC_RepEstadoActividades CargaEjercicios() CargaDatos() + + + If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then + DVConsolidado1.Visible = True + DVConsolidado2.Visible = True + End If + End If End Sub diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index 6233683c5..fa55f44f0 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -64,8 +64,8 @@
- -
+ +
Normal Consolidado diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb index 459796aae..516435df9 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb @@ -149,6 +149,11 @@ Partial Class AC2_SituacionFinanciera CargaEjercicios() + If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then + DVConsolidado1.Visible = True + DVConsolidado2.Visible = True + End If + 'CargaDatos() End If End Sub diff --git a/Empresas/Grales/Formatos/Polizas.rdlc b/Empresas/Grales/Formatos/Polizas.rdlc index 914f44b4e..42e9d4893 100644 --- a/Empresas/Grales/Formatos/Polizas.rdlc +++ b/Empresas/Grales/Formatos/Polizas.rdlc @@ -19,18 +19,18 @@ Id - System.Int16 + System.Int32 Fecha System.DateTime - - TipoPol + + TipoPoliza System.String - - Nombre + + NombreCuenta System.String @@ -39,7 +39,11 @@ Numero - System.String + System.Int32 + + + Folio + System.Int32 Referencia @@ -53,29 +57,37 @@ ConceptoPoliza System.String + + TipoMovto + System.Int32 + Cargos - System.Double + System.String Abonos - System.Double + System.String + + + SegNeg + System.String Cargo - System.Double + System.Decimal Abono - System.Double - - - Folio - System.Double + System.Decimal Codigo - System.Double + System.String + + + NombreUsuario + System.String @@ -92,88 +104,44 @@ - + - 0.66667in + 2.15421cm - 0.58333in + 2.15421cm - 1.14583in + 2.15421cm - 1.25347in + 2.15421cm - 1.04682in + 2.15421cm - 0.76041in + 2.15421cm - 0.8628in + 2.15421cm - 0.86458in + 2.15421cm - 0.77779in + 2.15421cm - 0.25in + 0.6cm - - true - true - - - - - Dirección: - - - - =Parameters!Direccion.Value - - - - - - 2pt - 2pt - 1pt - 1pt - - - 5 - - - - - - - - - + true true @@ -182,625 +150,7 @@ - - - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - true - - - - - Código postal: - - - - - - - Textbox103 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!CodigoPostal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Reg. Fed.: - - - - =Parameters!RFC.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - Cta. Estatal: - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!Cta.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Fecha - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tipo - - - - - - - Textbox19 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Número - - - - - - - Textbox20 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox27 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Concepto - - - - - - - Textbox33 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox45 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clase - - - - - - - Textbox51 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Diario - @@ -810,58 +160,11 @@ - Textbox65 + Textbox1 - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - No. - - - - - - - Black - - 1pt - 2pt 2pt 2pt @@ -872,33 +175,30 @@ - + true true - Refer. + - - Textbox15 + Textbox2 - - Black - - 1pt - 2pt 2pt 2pt @@ -909,70 +209,30 @@ - + true true - Cuenta + - - Textbox16 + Textbox3 - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Black - - 1pt - 2pt 2pt 2pt @@ -992,12 +252,14 @@ - Textbox34 @@ -1005,11 +267,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -1020,898 +277,26 @@ - + true true - Diario + - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Seg. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox52 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox66 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =Fields!Fecha.Value - - - - Fecha1 - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Parameters!TipoPoliza.Value - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Parameters!Numero.Value - - - - - - - Textbox6 - - - - - - 1pt - 4pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!ConceptoPoliza.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =RowNumber("Fecha") - - - - - - - Textbox2 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Referencia.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Codigo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!CodigoCuenta.Value - - - - - - - CodigoCuenta - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Cargo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Abono.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - 0.15in - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Concepto.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - @@ -1935,13 +320,14 @@ - Textbox17 @@ -1959,7 +345,7 @@ - + true true @@ -1968,52 +354,17 @@ - - Textbox21 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.2in - - - - - true - true - - - - - - - - - @@ -2028,148 +379,28 @@ - + true true - + ="Folio: " & Fields!Numero.Value - - Textbox11 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total póliza: - - - - @@ -2184,34 +415,136 @@ + + + + 0.6cm + - + + true true - =Sum(Fields!Cargo.Value) + Concepto: + + + =Fields!ConceptoPoliza.Value + - - Cargo1 + Textbox103 - - Black + 2pt + 2pt + 2pt + 2pt + + + 7 + + + + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + - 1pt - + + LightGrey 2pt 2pt 2pt @@ -2222,23 +555,842 @@ - + + true true - =Sum(Fields!Abono.Value) + Cuenta + + + + + + Textbox16 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.37063cm + + + + + true + + + + + =Fields!Referencia.Value + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CodigoCuenta.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + = Fields!Cargo.Value + + + + + + + + =iif(Fields!TipoMovto.Value ="0",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + true + + + + + = Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value ="1",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox113 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!Id.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreUsuario.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 @@ -2248,10 +1400,88 @@ 1pt - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US @@ -2276,16 +1506,22 @@ - + - =FormatDateTime(Fields!Fecha.Value, DateFormat.ShortDate) - =Fields!TipoPol.Value + =Fields!Fecha.Value + =Fields!TipoPoliza.Value =Fields!Numero.Value =Fields!ConceptoPoliza.Value - Start + End + true + + + =Fields!NombreUsuario.Value + + @@ -2303,13 +1539,7 @@ After - After - - - After - - - + @@ -2322,27 +1552,57 @@ + true DataSet1 - Start + End + true - 0.02083in - 1.65in - 7.9617in + 0.05076cm + 3.18542cm + 19.38789cm + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 1.65in + 3.59805cm @@ -2368,28 +1629,32 @@ Impreso de póliza del =Parameters!Finicio.Value al =Parameters!FFin.Value @@ -2401,16 +1666,10 @@ - Moneda: + =UCase(Parameters!TipoPoliza.Value) - - - =Parameters!Moneda.Value - @@ -2421,9 +1680,8 @@ Textbox4 - 0.61055cm - 1.8125in - 1.26472cm + 2.10635in + 1.6616cm 9.94376cm - - true - - - - - Hoja: - - - - =Globals!PageNumber - - - - - - - - - Fecha: - - - - =Parameters!Fecha.Value - - - - - - - - - - - - Textbox4 - 0.61055cm - 5.94612in - 0.89872cm - 4.22452cm - 1 - - - - External - = Parameters!pImg.Value + = Parameters!LogoPath.Value FitProportional - 0.19871in - 1.52576cm - 1.54252cm - 1.70215cm - 2 + 0.15875cm + 2.05823cm + 2.34125cm + 1 @@ -2523,44 +1713,79 @@ - 0.23958in + 0.7827cm true true - + true true - Fecha Impresión: + Fecha Impresión: - - =Today - - + + =Now() + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página: " & Globals!PageNumber + + + + + + + Textbox35 + 0.13103cm + 16.09414cm + 0.52564cm + 3.29375cm + 1 @@ -2576,11 +1801,19 @@ + + + 1.25pt + - 0.19685in - 0.19685in - 0.01181in + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm