External= Parameters!pImg.ValueFitProportional0.17639cm0.31821cm1.76458cm1.8175cmtruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox1115.9725cm0.88223cm4.21979cm12pt2pt2pt2pttruetrue=Parameters!pEmp.ValueTextbox10.07056cm2.3121cm0.81167cm15.45866cm22pt2pt2pt2pttruetrueReporte Presupuesto de Ingresos =Parameters!pEjercicio.ValueTextbox50.88223cm2.3121cm0.74538cm15.45866cm32pt2pt2pt2pt7.36165cm1.35859cm8.06114cm3.19339cm0.81479cmtruetrueFuente RecaudaciónTextbox2truetrueCódigoTextbox29truetrueRubro IngresoTextbox31truetrueTotalTextbox90.6cmtruetrue=Fields!FuenteRecaudacion.ValueFuenteRecaudaciontruetrue=Fields!CodigoRubroIngreso.ValueCodigoRubroIngresotruetrue=Fields!RubroIngreso.ValueRubroIngresotruetrue$ =Fields!Total.ValueTotalAftertrueDataSet12.07774cm0.21752cm1.41479cm19.97477cm4truetrue=Sum(Fields!Total.Value, "DataSet1")Textbox43.52428cm16.9354cm0.6cm3.19339cm52pt2pt2pt2pttruetrueTotal:Textbox53.55956cm14.45379cm0.6cm2.5cm62pt2pt2pt2pt1.68406in8.01222in0.42592intruetruetruetrueReporte Presupuesto de Ingresos =Parameters!pEjercicio.ValueTextbox50.3175cm2.3121cm0.6cm15.45866cm= (Globals.PageNumber=1)2pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.32985cm16.6998cm0.57912cm3.49249cm1= (Globals.PageNumber=1)2pt2pt0.37163intruetruetruetrue="Página " & Globals.PageNumber & " de " & Globals.TotalPagesTextbox30.17639cm14.67604cm0.6cm5.51625cm2pt2pt2pt2pt0.09843in0.09843in0.09843in0.09843in0.05118in0System.Data.DataSet/* Local Connection */ac39faaa-b664-4f14-854c-56a16938a152DataSet1/* Local Query */FuenteRecaudacionSystem.StringCodigoRubroIngresoSystem.StringRubroIngresoSystem.StringTotalSystem.StringDataSet1C:\Users\ezequiel\documents\visual studio 2013\Projects\Reportes\Reportes\DataSet1.xsdRepComprometidoOtrosStringReportParameter1StringReportParameter1IntegerReportParameter1 Dim Public Bold As String = ""
Public Function Niveles(ByVal Nivel As String, ByVal Nombre As String, Optional Codigo As String = "") As String
Dim Regreso As String = ""
Bold = "Default"
If Not IsNothing(Nivel) Then
If Nivel = "-1" Then
Regreso = System.Environment.NewLine & System.Environment.NewLine & Nombre
Bold = "Bold"
ElseIf Nivel = "0" Then
Bold = "Bold"
Regreso = System.Environment.NewLine & " " & " " & Nombre
ElseIf Nivel = "2" Then
Regreso = " " & " " & " " & " " & " " & " " & Nombre
ElseIf Nivel = "3" Then
Regreso = " " & " " & " " & " " & " " & " " & " " & " " & " " & Nombre
End If
If Codigo.Substring(0, 5) = "00004" Then
Regreso = "ORIGEN"
ElseIf Codigo.Substring(0, 5) = "00005" Then
Regreso = "APLICACIÓN"
End If
End If
Return Regreso
End FunctionInch6eaea329-2c8c-448a-9cfd-50e749f21f7d