0System.Data.DataSet/* Local Connection */3432b72c-a071-4a0f-91ac-e757e50b07cbDataSet1/* Local Query */GPOSystem.StringCodigoClasificacionSystem.StringCodigo1System.StringClasificacion1System.StringCodigo2System.StringClasificacion2System.StringCodigo3System.StringClasificacion3System.StringCveClasificacionSystem.StringCveFuenteFinanciamientoSystem.StringCveProgramaOperativoSystem.StringCveUnidadAdministrativaSystem.StringCveProgramaOperativoFuenteFinanciamientoSystem.StringCveClasificacionProgramaOperativoSystem.StringEneSystem.StringFebSystem.StringMarSystem.StringAbrSystem.StringMaySystem.StringJunSystem.StringJulSystem.StringAgoSystem.StringSepSystem.StringOctSystem.StringNovSystem.StringDicSystem.StringTotalAcumuladoSystem.StringOrdenSystem.StringNivelSystem.StringDataSet1C:\Users\ezequiel\documents\visual studio 2013\Projects\Reportes\Reportes\DataSet1.xsdRepPresupuestoEgresosMensualExternal= Parameters!pImg.ValueFitProportional0.17639cm0.76271cm1.76458cm1.8175cmtruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox110.07056cm22.60218cm1.02333cm4.21979cm12pt2pt2pt2pttruetrue=Parameters!pEmp.ValueTextbox10.07056cm6.67449cm0.81167cm14.52244cm22pt2pt2pt2pttruetruePresupuesto de Egresos Mensual del Ejercicio =Parameters!pEjercicio.Value - =Parameters!pMomentoContable.ValueTextbox50.9175cm4.55304cm0.74538cm17.17202cm32pt2pt2pt2pt3.86309cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.75cm1.97212cm0.6cmtruetrueGrupoTextbox2truetrueEneTextbox29truetrueFebTextbox31truetrueMarTextbox4truetrueAbrTextbox8truetrueMayTextbox10truetrueJunTextbox14truetrueJulTextbox5truetrueAgoTextbox13truetrueSepTextbox16truetrueOctTextbox18truetrueNovTextbox20truetrueDicTextbox22truetrueTotalTextbox240.6cmtruetrue=Code.Niveles(Fields!GPO.Value,Fields!Clasificacion1.Value,Fields!Clasificacion2.Value,Fields!Clasificacion3.Value,Fields!Nivel.Value)Textbox26truetrue=Fields!Ene.ValueEnetruetrue=Fields!Feb.ValueFebtruetrue=Fields!Mar.ValueMartruetrue=Fields!Abr.ValueAbrtruetrue=Fields!May.ValueMaytruetrue=Fields!Jun.ValueJuntruetrue=Fields!Jul.ValueJultruetrue=Fields!Ago.ValueAgotruetrue=Fields!Sep.ValueSeptruetrue=Fields!Oct.ValueOcttruetrue=Fields!Nov.ValueNovtruetrue=Fields!Dic.ValueDictruetrue=Fields!TotalAcumulado.ValueTotalAcumuladoAftertrueDataSet12.11736cm0.36197cm1.2cm26.83521cm41.40986in10.70755in0.92308cmtruetruetruetruePresupuesto de Egresos Mensual del Ejercicio =Parameters!pEjercicio.Value - =Parameters!pMomentoContable.ValueTextbox50.18197cm4.55304cm0.6cm17.17202cm= (Globals.PageNumber=1)2pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.20285cm23.32948cm0.57912cm3.49249cm1= (Globals.PageNumber=1)2pt2pt0.94395cmtruetruetruetrue="Página " & Globals.PageNumber & " de " & Globals.TotalPagesTextbox30.17639cm21.30572cm0.6cm5.51625cm2pt2pt2pt2pt21.59cm27.94cm0.25cm0.25cm0.25cm0.25cm0.13cmStringReportParameter1StringReportParameter1StringReportParameter1StringtruetrueReportParameter1
Public Function Niveles(ByVal GPO As String, ByVal Clasificacion1 As String, ByVal Clasificacion2 As String, ByVal Clasificacion3 As String, ByVal Nivel As String) As String
Dim Regreso As String = ""
If Not IsNothing(Nivel) Then
If Nivel = "5" Then
Regreso = GPO
ElseIf Nivel = "4" Then
Regreso = Clasificacion1
ElseIf Nivel = "3" Then
Regreso = Clasificacion2
ElseIf Nivel = "2" Then
Regreso = Clasificacion3
Else
Regreso = GPO
End If
End If
Return Regreso
End FunctionCm6eaea329-2c8c-448a-9cfd-50e749f21f7d