﻿<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<StiSerializer version="1.02" type="Net" application="StiReport">
  <Dictionary Ref="1" type="Dictionary" isKey="true">
    <BusinessObjects isList="true" count="0" />
    <Databases isList="true" count="1">
      <directOracle Ref="2" type="Stimulsoft.Report.Dictionary.StiOracleDatabase" isKey="true">
        <Alias>directOracle</Alias>
        <ConnectionStringEncrypted>9CiZTA==</ConnectionStringEncrypted>
        <Name>directOracle</Name>
      </directOracle>
    </Databases>
    <DataSources isList="true" count="1">
      <ETACIV Ref="3" type="Stimulsoft.Report.Dictionary.StiSqlSource" isKey="true">
        <Alias>ETACIV</Alias>
        <Columns isList="true" count="1">
          <value>ETCNOM,System.String</value>
        </Columns>
        <CommandTimeout>30</CommandTimeout>
        <Dictionary isRef="1" />
        <Name>ETACIV</Name>
        <NameInSource>directOracle</NameInSource>
        <Parameters isList="true" count="0" />
        <SqlCommand>select * from hola</SqlCommand>
      </ETACIV>
    </DataSources>
    <Relations isList="true" count="0" />
    <Report isRef="0" />
    <Resources isList="true" count="0" />
    <Variables isList="true" count="2">
      <value>,period_StartDate,period_StartDate,,System.String,_x0027_01_x002F_01_x002F_2015_x0027_,False,False,False,False</value>
      <value>,period_EndDate,period_EndDate,,System.String,,False,False,False,False</value>
    </Variables>
  </Dictionary>
  <EngineVersion>EngineV2</EngineVersion>
  <GlobalizationStrings isList="true" count="0" />
  <Key>98eab1b662174e44af92d9943cbbecaa</Key>
  <MetaTags isList="true" count="0" />
  <Pages isList="true" count="1">
    <Page1 Ref="4" type="Page" isKey="true">
      <Border>None;Black;2;Solid;False;4;Black</Border>
      <Brush>Transparent</Brush>
      <Components isList="true" count="1">
        <TableETACIV Ref="5" type="Stimulsoft.Report.Components.Table.StiTable" isKey="true">
          <Brush>Transparent</Brush>
          <BusinessObjectGuid isNull="true" />
          <ClientRectangle>0,0.4,19,1.6</ClientRectangle>
          <ColumnCount>1</ColumnCount>
          <Components isList="true" count="2">
            <TableETACIV_Cell1 Ref="6" type="TableCell" isKey="true">
              <Brush>White</Brush>
              <ClientRectangle>0,0,19,0.8</ClientRectangle>
              <Conditions isList="true" count="0" />
              <Font>Arial,9</Font>
              <Guid>ad467aab44c44899bfd1bf21350e9ce6</Guid>
              <ID>0</ID>
              <JoinCells isList="true" count="0" />
              <Margins>0,0,0,0</Margins>
              <Name>TableETACIV_Cell1</Name>
              <Page isRef="4" />
              <Parent isRef="5" />
              <Restrictions>AllowMove, AllowSelect, AllowChange</Restrictions>
              <Text>ETCNOM</Text>
              <TextBrush>Black</TextBrush>
            </TableETACIV_Cell1>
            <TableETACIV_Cell2 Ref="7" type="TableCell" isKey="true">
              <Brush>White</Brush>
              <ClientRectangle>0,0.8,19,0.8</ClientRectangle>
              <Conditions isList="true" count="0" />
              <Font>Arial,9</Font>
              <Guid>b794d9cebfde40cbadda7d9c05ef2ffe</Guid>
              <ID>1</ID>
              <JoinCells isList="true" count="0" />
              <Margins>0,0,0,0</Margins>
              <Name>TableETACIV_Cell2</Name>
              <Page isRef="4" />
              <Parent isRef="5" />
              <Restrictions>AllowMove, AllowSelect, AllowChange</Restrictions>
              <Text>{ETACIV.ETCNOM}</Text>
              <TextBrush>Black</TextBrush>
            </TableETACIV_Cell2>
          </Components>
          <Conditions isList="true" count="0" />
          <DataSourceName>ETACIV</DataSourceName>
          <Filters isList="true" count="0" />
          <HeaderRowsCount>1</HeaderRowsCount>
          <MinHeight>0.4</MinHeight>
          <Name>TableETACIV</Name>
          <NumberID>2</NumberID>
          <Page isRef="4" />
          <Parent isRef="4" />
          <RowCount>2</RowCount>
          <Sort isList="true" count="0" />
        </TableETACIV>
      </Components>
      <Conditions isList="true" count="0" />
      <Guid>8ce01dfeb64c4fa485f54b0e00c004b6</Guid>
      <Margins>1,1,1,1</Margins>
      <Name>Page1</Name>
      <PageHeight>29.7</PageHeight>
      <PageWidth>21</PageWidth>
      <Report isRef="0" />
    </Page1>
  </Pages>
  <PreviewSettings>268435455</PreviewSettings>
  <PrinterSettings Ref="8" type="Stimulsoft.Report.Print.StiPrinterSettings" isKey="true" />
  <ReferencedAssemblies isList="true" count="8">
    <value>System.Dll</value>
    <value>System.Drawing.Dll</value>
    <value>System.Windows.Forms.Dll</value>
    <value>System.Data.Dll</value>
    <value>System.Xml.Dll</value>
    <value>Stimulsoft.Controls.Dll</value>
    <value>Stimulsoft.Base.Dll</value>
    <value>Stimulsoft.Report.Dll</value>
  </ReferencedAssemblies>
  <ReportAlias>Report</ReportAlias>
  <ReportChanged>2/12/2019 11:08:12 AM</ReportChanged>
  <ReportCreated>9/6/2016 2:00:40 PM</ReportCreated>
  <ReportGuid>fae56cd9dff245b8815c7140c636adbc</ReportGuid>
  <ReportName>Report</ReportName>
  <ReportUnit>Centimeters</ReportUnit>
  <ReportVersion>2019.1.1.0</ReportVersion>
  <Script>Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.Dialogs
Imports Stimulsoft.Report.Components
Imports System.Collections.Generic
Imports Microsoft.VisualBasic



Namespace Reports
	


    Public Class Report
		
		
        Inherits Stimulsoft.Report.StiReport

        Public Sub New()
            MyBase.New
            Me.InitializeComponent
				UnRegisterFunctions
RegisterFunctions
		

        End Sub

		
		Private Const Category As String = "Funciones extras"
		
		Public Shared Sub UnRegisterFunctions()
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("EN")
				Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("ENTRE")
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("ENTRED")
				Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("RESTO")
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("DURACIONMES")
					Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("DURACION")
				Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("MIN")
							Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("MAX")			
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("ILIKE")
					Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("LTRIM")
				Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("RTRIM")
							Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("NVL")
		
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("Redondeo")
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("Potencia")
			
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("VALABS")
			Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("VALENT")
						Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("MESL")
				Stimulsoft.Report.Dictionary.StiFunctions.RemoveFunction("ConvertDate")
		End Sub
		
		
		
		
		Public Shared Sub RegisterFunctions()
		
			Dim ParamNames = New String(1) {}
			Dim ParamTypes = New Type(1) {}
			Dim ParamDescriptions = New String(1) {}
			Dim listaPalabras As  NEW list(Of String)
			
			ParamNames(0) = "palabra"
			ParamDescriptions(0) = "Palabra a buscar"
			ParamTypes(0) = GetType(String)

			ParamNames(1) = "Listado"
			ParamDescriptions(1) = "Listado de palabras"
			ParamTypes(1) = listaPalabras.GetType
			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "EN", "EN", "Indica si un valor está contenido en una lista", GetType(Report), GetType(Boolean),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			ParamNames = New String(2) {}
			ParamTypes = New Type(2) {}
			ParamDescriptions = New String(2) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero a introducir"
			ParamTypes(0) = GetType(Integer)

			ParamNames(1) = "Min"
			ParamDescriptions(1) = "Numero minimo"
			ParamTypes(1) = GetType(Integer)
			
			ParamNames(2) = "Max"
			ParamDescriptions(2) = "Numero maximo"
			ParamTypes(2) = GetType(Integer)
			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "ENTRE", "ENTRE", "Indica si un valor está comprendido entre dos limites", GetType(Report), GetType(Boolean),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
						
			ParamNames = New String(2) {}
			ParamTypes = New Type(2) {}
			ParamDescriptions = New String(2) {}
	
			
			ParamNames(0) = "Fecha"
			ParamDescriptions(0) = "Fecha a introducir"
			ParamTypes(0) = GetType(Date)

			ParamNames(1) = "Min"
			ParamDescriptions(1) = "Fecha minimo"
			ParamTypes(1) = GetType(Date)
			
			ParamNames(2) = "Max"
			ParamDescriptions(2) = "Fecha maximo"
			ParamTypes(2) = GetType(Date)
			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "ENTRED", "ENTRED", "Indica si una fecha está comprendido entre dos limites", GetType(Report), GetType(Boolean),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "dividiendo"
			ParamDescriptions(0) = "Dividiendo de la divisin"
			ParamTypes(0) = GetType(Double)

			ParamNames(1) = "divisor"
			ParamDescriptions(1) = "Divisor de la division"
			ParamTypes(1) = GetType(Double)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "RESTO", "RESTO","Resto de la division" , GetType(Report), GetType(Double),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Fecha inicial"
			ParamDescriptions(0) = "Fecha inicial"
			ParamTypes(0) = GetType(Date)

			ParamNames(1) = "Fecha inicial"
			ParamDescriptions(1) = "Fecha inicial"
			ParamTypes(1) = GetType(Date)
			

			
			
			
			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "DURACIONMES", "DURACIONMES","Calcula la duració en meses entre dos fechas" , GetType(Report), GetType(Double),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Fecha inicial"
			ParamDescriptions(0) = "Fecha inicial"
			ParamTypes(0) = GetType(Date)

			ParamNames(1) = "Fecha inicial"
			ParamDescriptions(1) = "Fecha inicial"
			ParamTypes(1) = GetType(Date)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "DURACION", "DURACION","Calcula la duració en años, meses entre dos fechas" , GetType(Report), GetType(Double),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Numero 1"
			ParamDescriptions(0) = "Numero 1"
			ParamTypes(0) = GetType(Double)

			ParamNames(1) = "Numero 2"
			ParamDescriptions(1) = "Numero 2"
			ParamTypes(1) = GetType(Double)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "MIN", "MIN","El minimo entre dos elementos" , GetType(Report), GetType(Double),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Numero 1"
			ParamDescriptions(0) = "Numero 1"
			ParamTypes(0) = GetType(Double)

			ParamNames(1) = "Numero 2"
			ParamDescriptions(1) = "Numero 2"
			ParamTypes(1) = GetType(Double)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "MAX", "MAX","El maximo entre dos elementos" , GetType(Report), GetType(Double),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Palabra"
			ParamDescriptions(0) = "Palabra"
			ParamTypes(0) = GetType(String)

			ParamNames(1) = "Palabra filtro"
			ParamDescriptions(1) = "Palabra filtro"
			ParamTypes(1) = GetType(String)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "ILIKE", "ILIKE","El like case-sensitive" , GetType(Report), GetType(Boolean),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Letra"
			ParamDescriptions(0) = "Letra"
			ParamTypes(0) = GetType(String)

			ParamNames(1) = "Palabra"
			ParamDescriptions(1) = "Palabra"
			ParamTypes(1) = GetType(String)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "LTRIM", "LTRIM","Suprime un caracter dado en la parte izquierda de una cadena" , GetType(Report), GetType(String),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Letra"
			ParamDescriptions(0) = "Letra"
			ParamTypes(0) = GetType(String)

			ParamNames(1) = "Palabra"
			ParamDescriptions(1) = "Palabra"
			ParamTypes(1) = GetType(String)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "RTRIM", "RTRIM","Suprime un caracter dado en la parte derecha de una cadena" , GetType(Report), GetType(String),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
						
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "1er Palabra"
			ParamDescriptions(0) = "1er Palabra"
			ParamTypes(0) = GetType(String)

			ParamNames(1) = "2a Palabra"
			ParamDescriptions(1) = "2a Palabra"
			ParamTypes(1) = GetType(String)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "NVL", "NVL","Devuelve el 1er argumento si está definido, el 2do sino" , GetType(Report), GetType(String),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero"
			ParamTypes(0) = GetType(Decimal)

			ParamNames(1) = "Decimales"
			ParamDescriptions(1) = "Decimales"
			ParamTypes(1) = GetType(Integer)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "Redondeo", "Redondeo","Devuelve el redondeo con 'n' decimales" , GetType(Report), GetType(Decimal),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			ParamNames = New String(1) {}
			ParamTypes = New Type(1) {}
			ParamDescriptions = New String(1) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero"
			ParamTypes(0) = GetType(Decimal)

			ParamNames(1) = "Potencia"
			ParamDescriptions(1) = "Potencia"
			ParamTypes(1) = GetType(Integer)
			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "Potencia", "Potencia","Eleva a la potencia" , GetType(Report), GetType(Decimal),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
				
			ParamNames = New String(0) {}
			ParamTypes = New Type(0) {}
			ParamDescriptions = New String(0) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero"
			ParamTypes(0) = GetType(Decimal)

			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "VALABS", "VALABS","El valor absoluto" , GetType(Report), GetType(Decimal),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
			ParamNames = New String(0) {}
			ParamTypes = New Type(0) {}
			ParamDescriptions = New String(0) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero"
			ParamTypes(0) = GetType(Decimal)

			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "VALENT", "VALENT","La parte entera" , GetType(Report), GetType(Decimal),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			ParamNames = New String(0) {}
			ParamTypes = New Type(0) {}
			ParamDescriptions = New String(0) {}
	
			
			ParamNames(0) = "Numero"
			ParamDescriptions(0) = "Numero"
			ParamTypes(0) = GetType(Long)

			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "MESL", "MESL","Devuelve el texto largo del mes en función de su número" , GetType(Report), GetType(Decimal),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
						
			ParamNames = New String(0) {}
			ParamTypes = New Type(0) {}
			ParamDescriptions = New String(0) {}
	
			
			ParamNames(0) = "String"
			ParamDescriptions(0) = "String"
			ParamTypes(0) = GetType(String)

			

			
			Stimulsoft.Report.Dictionary.StiFunctions.AddFunction(Category, "ConvertDate", "ConvertDate","Devuelve el string en date" , GetType(Report), GetType(DateTime),
				"Return Description", ParamTypes, ParamNames, ParamDescriptions)
			
			
			
			
			
		End Sub
		
		Public shared Function EN(palabra As String, listaPalabras As list(Of String)) As Boolean
			For Each key As String In listaPalabras
				If palabra = key Then
					Return (True)
				Else
					Return (False)
				End If				
			Next
	
		End Function
		
		Public shared Function ENTRE(num As Integer,min As Integer,max As Integer) As Boolean		
			If min &lt;= num AND num &lt;= max  Then
					Return (True)
				Else
					Return (False)
				End If		
		End Function
		
		
		Public shared Function ConvertDate(palabra As String) As DateTime
if palabra.contains("'") then
				palabra =	palabra.Replace("'","")
				end if
			


			Dim time As DateTime = DateTime.Parse(palabra)

			Return (time )				
		End Function
		
			
		Public shared Function ENTRED(num As date,min As date,max As date) As Boolean		
			If min &lt;= num AND num &lt;= max  Then
				Return (True)
			Else
				Return (False)
			End If		
		End Function
		
		Public  shared Function RESTO(dividiendo As Double,divisor As Double) As Double		
			Return (dividiendo Mod divisor)		
		End Function
		
		Public  shared Function DURACIONMES(mes1 As Date,mes2 As Date) As Double
			If mes1&gt;mes2 Then		
			If Microsoft.VisualBasic.DateAndTime.Day(mes2) &gt; Microsoft.VisualBasic.DateAndTime.Day(mes1) Then
				Return (DateDiff(DateInterval.Month, mes2, mes1)-1)
			Else
				Return (DateDiff(DateInterval.Month, mes2, mes1))
				End If	
			Else
				If Microsoft.VisualBasic.DateAndTime.Day(mes2) &gt; Microsoft.VisualBasic.DateAndTime.Day(mes1) Then
					Return (DateDiff(DateInterval.Month, mes2, mes1))
				Else
					Return (DateDiff(DateInterval.Month, mes2, mes1))
				End If	
			End If
			'No se si hace falta restar un mes si el dia es mayor
		End Function
		
		Public  shared Function DURACION(mes1 As Date,mes2 As Date) As Double
			Dim resultado As Double
			Dim resultadoaux As Double=0			
			resultado=DURACIONMES(mes1,mes2)
			If resultado&gt;=0 Then
				While resultado&gt;=12
					resultado = resultado-12
					resultadoaux = resultadoaux + 1
				End While
				resultado = resultadoaux + (resultado/100)
			Else
				While resultado&lt;=-12
					resultado = resultado+12
					resultadoaux = resultadoaux - 1
				End While
				resultado = resultadoaux + (resultado/100)
			End If
			return (resultado)
			'No se si hace falta restar un mes si el dia es mayor
		End Function
		
		Public  shared Function MIN(num1 As Double,num2 As Double) As Double	
			If num1&gt;=num2 Then
				Return (num2)
			Else
				Return (num1)
			End If	
	
		End Function
		
		Public  shared Function MAX(num1 As Double,num2 As Double) As Double	
			If num1&gt;=num2 Then
				Return (num1)
			Else
				Return (num2)
			End If		
	
		End Function
		
		Public  shared Function ILIKE(palabra As String,palabraf As String) As Boolean	
			If palabraf Like "*" + palabra Or  palabraf   Like "*" + palabra + "*" Or  palabraf  Like palabra + "*"    Then
				Return (True)
			Else
				Return (False)
			End If		
	
		End Function
		
		Public  shared Function LTRIM(letra As String,palabra As String) As String	
			If letra= palabra.Substring(0,1) Then
				Return ( palabra.Substring(1))
			Else
				Return ( palabra)
			End If	
		End Function
		
		
		Public  shared Function RTRIM(letra As String,palabra As String) As String	
			If letra= palabra.Substring(palabra.Length-1 ,1) Then
				Return ( palabra.Substring(0,palabra.Length-1 ))
			Else
				Return ( palabra)
			End If	
		End Function
		
		Public  shared Function NVL(palabra As String,palabra1 As String) As String			
				if trim(palabra) = "" or palabra is nothing then
				Return ( palabra1)
				else
				Return ( palabra)
				End If
				
		End Function
		
		Public  shared Function REDONDEO(numero As decimal,decimales As integer) As decimal		
				Return (Math.Round(numero,decimales))				
		End Function
		
		Public  shared Function POTENCIA(coeficiente As decimal,exponente As integer) As decimal		
			Return (coeficiente^exponente)				
		End Function
		
		Public  shared Function VALABS(numero As decimal) As decimal		
			Return (Math.Abs(numero))				
		End Function
		
		Public  shared Function VALENT(numero As decimal) As decimal		
			Return (Math.Truncate(numero))				
		End Function
		
		Public  shared Function MESL(mes As Long) As String
			If mes = 1 Then
				Return ("Enero")
			End If
			If mes = 2 Then
				Return ("Febrero")
			End If
			If mes = 3 Then
				Return ("Marzo")
			End If
			If mes = 4 Then
				Return ("Abril")
			End If
			If mes = 5 Then
				Return ("Mayo")
			End If
			If mes = 6 Then
				Return ("Junio")
			End If
			If mes = 7 Then
				Return ("Julio")
			End If
			If mes = 8 Then
				Return ("Agosto")
			End If
			If mes = 9 Then
				Return ("Septiembre")
			End If
			If mes = 10 Then
				Return ("Octubre")
			End If
			If mes = 11 Then
				Return ("Noviembre")
			End If
			If mes = 12 Then
				Return ("Diciembre")
			End If
			Return ("Otro")
		End Function
		

		
        #Region "StiReport Designer generated code - do not modify"
		#End Region 'StiReport Designer generated code - do not modify
    End Class
	

End Namespace
</Script>
  <ScriptLanguage>VB</ScriptLanguage>
  <Styles isList="true" count="0" />
</StiSerializer>