External= Parameters!pImg.ValueFitProportional0.17639cm0.76271cm1.76458cm1.8175cmtruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox1115.655cm1.07625cm4.21979cm12pt2pt2pt2pttruetrue=Parameters!pEmp.ValueTextbox10.07056cm2.83803cm0.81167cm14.52244cm22pt2pt2pt2pttruetrueEstado de Cambios en la Situación Financiera al =Parameters!pEjercicio.ValueTextbox50.9175cm2.83803cm0.74538cm14.52244cm32pt2pt2pt2pt13.40858cm2.80212cm2.84847cm0.81479cmtruetrueTextbox2truetrueOrigenTextbox29truetrueAplicaciónTextbox310.6cmtruetrue=code.Rep(Fields!Level.Value,Fields!Nombre.Value)Clasificacion1truetrue=Iif(Fields!TipoSaldo.Value=1,Fields!Saldo.Value,"0")Pagadotruetrue=Iif(Fields!TipoSaldo.Value=2,Fields!Saldo.Value,"0")Textbox32AftertrueDataSet12.07774cm0.76271cm1.41479cm19.05917cm41.62278in8.00964in1.2935cmtruetruetruetrueEstado de Cambios en la Situación Financiera al =Parameters!pEjercicio.ValueTextbox50.51711cm2.83803cm0.6cm14.52244cm= (Globals.PageNumber=1)2pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.56269cm16.26002cm0.57912cm3.49249cm1= (Globals.PageNumber=1)2pt2pt2.21395cmtruetruetruetrue="Página " & Globals.PageNumber & " de " & Globals.TotalPagesTextbox31.46403cm0.6cm19.87479cm2pt2pt2pt2pttruetrue=Parameters!pFirma2.ValueTextbox100.32292cm11.75251cm1cm8cm1= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true)2pt2pt2pt2pttruetrue=Parameters!pFirma1.ValueTextbox40.32292cm0.76271cm1cm8cm2= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true)2pt2pt2pt2pt29.7cm21cm0.25cm0.25cm0.25cm0.25cm0.13cm0System.Data.DataSet/* Local Connection */9355d062-fda7-4e6a-a48f-1fc321ac5081DataSet1/* Local Query */NombreSystem.StringTipoSaldoSystem.StringSaldoSystem.StringLevelSystem.StringDataSet1C:\Users\ezequiel\documents\visual studio 2013\Projects\Reportes\Reportes\DataSet1.xsdRepCambiosSituacionFinancieraStringReportParameter1StringReportParameter1IntegerReportParameter1StringtruetrueReportParameter1StringReportParameter1 Dim Public Bold As String = ""
Public Function Rep(ByVal Nivel As String, ByVal Nombre As String) As String
Dim Regreso As String = ""
Bold = "Default"
If Not IsNothing(Nivel) Then
If Nivel = "1" Then
Bold = "Bold"
Regreso = System.Environment.NewLine & System.Environment.NewLine & Nombre
ElseIf Nivel = "2" Then
Bold = "Bold"
Regreso = " " & " " & " " & System.Environment.NewLine & Nombre
ElseIf Nivel = "3" Then
Regreso = " " & " " & " " & " " & " " & " " & " " & " " & Nombre
End If
End If
Return Regreso
End FunctionCm6eaea329-2c8c-448a-9cfd-50e749f21f7d