truetrue=Parameters!pEmp.ValueTextbox10.17639cm4.31272cm0.762cm11.6222cm2pt2pt2pt2ptExternal= Parameters!pImg.ValueFitProportional0.17639cm0.3175cm1.5cm1.5cm1truetrue="Estado Analítico del Activo " & Parameters!pFechaFin.Value & " del " & Parameters!pFechaIni.ValueTextbox51.04422cm4.31272cm0.6cm11.6222cm22pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.12672cm16.83651cm0.81167cm3.49249cm32pt2pt2pt2pt9.55223cm2.1526cm2.31479cm2.05021cm2.0801cm2.17907cm0.99688cmtruetrueConceptoTextbox2GrayMiddle2pt2pt2pt2pttruetrueSaldo InicialTextbox13GrayMiddle2pt2pt2pt2pttruetrueCargos del PeriodoTextbox15GrayMiddle2pt2pt2pt2pttruetrueAbonos del PeriodoTextbox7GrayMiddle2pt2pt2pt2pttruetrueSaldo FinalTextbox10GrayMiddle2pt2pt2pt2pttruetrueVariacion del PeriodoTextbox17GrayMiddle2pt2pt2pt2pt0.46771cmtrue=Fields!Nombre.ValueNombre2pt2pt2pt2pttrue=Fields!SaldoInicial.ValueSaldoInicial2pt2pt2pt2pttrue=Fields!Cargos.ValueCargos2pt2pt2pt2pttrue=Fields!Abonos.ValueAbonos2pt2pt2pt2pttrue=Fields!SaldoFinal.ValueSaldoFinal2pt2pt2pt2pttrue=Fields!Variacion.ValueVariacion2pt2pt2pt2ptAftertrueDataSet12.0162cm1.46459cm20.329cm41.46176in8.02534in0.81167cmtruetruetrue="Estado Analítico del Activo " & Parameters!pFechaFin.Value & " del " & Parameters!pFechaIni.ValueTextbox54.31272cm0.6cm11.6222cm= (Globals.PageNumber=1)2pt2pt2pt2pttruetrue="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy")Textbox80.02088cm16.83651cm0.57912cm3.49249cm1= (Globals.PageNumber=1)2pt2pt2.03785cmtruetruetruetrue="Página " & Globals.PageNumber & " de " & Globals.TotalPagesTextbox31.2791cm0.3175cm0.6cm20.0115cm2pt2pt2pt2pttruetrue=Parameters!pFirma2.ValueTextbox20.17639cm10.28843cm0.99688cm8.02269cm1= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true)2pt2pt2pt2pttruetrue=Parameters!pFirma1.ValueTextbox20.17639cm1.52954cm0.99688cm8.02269cm2= Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true)2pt2pt2pt2pt29.7cm21cm0.25cm0.25cm0.5cm1cm0.13cm0System.Data.DataSet/* Local Connection */cbebc276-5d03-485e-8a89-9c9a09bcc3c4DataSet/* Local Query */IdSystem.StringCodigoSystem.StringNombreSystem.StringTipoSystem.StringCtaMayorSystem.StringClasificacionSystem.StringSupSystem.StringOrdenSystem.StringSaldoInicialSystem.StringCargosSystem.StringAbonosSystem.StringSaldoFinalSystem.StringVariacionSystem.StringDataSetC:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite3\App_Code\DataSet.xsdDataTable1StringReportParameter1StringReportParameter1StringReportParameter1StringReportParameter1StringtrueReportParameter1StringtrueReportParameter1 Public Function isnulo(ByVal value As String) As String
If value = Nothing Then
value = ""
End If
isnulo = value
End Function
Dim Public Bold As String
Dim Public Csi As String
Dim Public CC As String
Dim Public CA As String
Dim Public Csf As String
Dim Public CV As String
Public Function setmyval(ByVal CtaMayor As String, ByVal SaldoInicial As String, ByVal Cargos As String, ByVal Abonos As String, ByVal SaldoFinal As String, ByVal Variacion As String) As String
Dim regreso As String = ""
Bold = "Default"
If isnulo(CtaMayor) = "3" Then
Bold = "Bold"
End If
regreso = Bold
Csi = setcolor(SaldoInicial)
CC = setcolor(Cargos)
CA = setcolor(Abonos)
Csf = setcolor(SaldoFinal)
CV = setcolor(Variacion)
Return regreso
End Function
Public Function setcolor(ByVal valor As String) As String
Dim regreso As String = "black"
If CInt(Int(valor)) < 0 Then
regreso = "red"
End If
Return regreso
End FunctionCm72dd790f-bb87-41b4-98ee-ff673dfb3643