External= Parameters!pImg.ValueFitProportional0.17639cm0.76271cm1.76458cm1.8175cmtruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox1115.655cm0.83609cm4.21979cm12pt2pt2pt2pttruetrue=Parameters!pEmp.ValueTextbox10.14039cm2.30296cm0.81167cm15.45866cm22pt2pt2pt2pttruetrueEstado de Flujo de Efectivo al =Parameters!pAl.ValueTextbox51.01248cm2.30296cm0.74538cm15.45866cm3=Parameters!pAl.Value2pt2pt2pt2pt12.82649cm2.74264cm3.43055cm0.81479cmtruetrueConceptoTextbox2truetrue=Fields!Actual.ValueTextbox29truetrue=Fields!Anterior.ValueTextbox310.6cmtruetrue=code.Niveles(Fields!Level.Value,Fields!Nombre.Value,Fields!Codigo.Value)Clasificacion1truetrue=Iif(Fields!Id.Value="12","",Iif(Fields!Id.Value="123",Parameters!pTotalActual.Value,Fields!ImporteActual.Value))Pagadotruetrue=Iif(Fields!Id.Value="12","",Iif(Fields!Id.Value="123",Parameters!pTotalAnterior.Value,Fields!ImporteAnterior.Value))Textbox32AftertrueDataSet12.07774cm0.76271cm1.41479cm18.99968cm41.62861in7.9263in1.10829cmtruetruetruetrueEstado de Flujo de Efectivo al =Parameters!pAl.ValueTextbox50.3175cm2.83803cm0.6cm14.52244cm= (Globals.PageNumber=1)=Parameters!pAl.Value2pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.34396cm16.26002cm0.57912cm3.49249cm1= (Globals.PageNumber=1)2pt2pt1.94937cmtruetruetruetrue="Página " & Globals.PageNumber & " de " & Globals.TotalPagesTextbox31.10583cm0.76271cm0.6cm19.11208cm2pt2pt2pt2pttruetrue=Parameters!pFirma1.ValueTextbox50.03528cm0.76271cm1cm8cm1= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true)2pt2pt2pt2pttruetrue=Parameters!pFirma2.ValueTextbox100.03528cm11.75251cm1cm8cm2= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true)2pt2pt2pt2pt27.94cm21.59cm0.25cm0.25cm0.5cm0.5cm0.13cm0System.Data.DataSet/* Local Connection */a76e7e23-d303-4b63-a87d-7acbc70158ccDataSet1/* Local Query */NombreSystem.StringImporteActualSystem.StringImporteAnteriorSystem.StringLevelSystem.StringActualSystem.StringAnteriorSystem.StringIdSystem.StringCodigoSystem.StringDataSet1C:\Users\ezequiel\documents\visual studio 2013\Projects\Reportes\Reportes\DataSet1.xsdRepFlujoEfectivoStringReportParameter1StringReportParameter1StringReportParameter1StringReportParameter1StringReportParameter1StringtruetrueReportParameter1StringtruetrueReportParameter1 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 FunctionCm6eaea329-2c8c-448a-9cfd-50e749f21f7d