Version 1.0.0 Acana Home

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@4 f4e31baf-9722-1c47-927c-6f952f962d4b

Build/Build.fbv

@@ -0,0 +1 @@
+<variables><project_path><![CDATA[C:\Codigo Acana]]></project_path></variables>

Database/RodaxSoftware.FactuGES.Database.proj

@@ -0,0 +1,61 @@
+<Project DefaultTargets="Build" InitialTargets="CreateOutputPath" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+
+	<!-- ASCII Constants -->
+	<PropertyGroup>
+		<DOUBLE_QUOTES>%22</DOUBLE_QUOTES>
+	</PropertyGroup>
+
+   <PropertyGroup>
+      <DBServer Condition=" '$(SqlCmdRunner)' == '' ">localhost</DBServer>
+      <DeploymentBuild Condition=" '$(DeploymentBuild)' == '' ">false</DeploymentBuild>
+	  <SqlScriptsFolder Condition=" '$(SqlScriptsFolder)' == '' ">$(MSBuildProjectDirectory)\Scripts</SqlScriptsFolder>
+	  <ToolsFolder Condition=" '$(ToolsFolder)' == '' ">$(MSBuildProjectDirectory)\..\Tools</ToolsFolder>
+	  <CodeOutputFolder Condition=" '$(CodeOutputFolder)' == '' ">$(MSBuildProjectDirectory)\..\Output</CodeOutputFolder>
+      <SqlCmdRunner Condition=" '$(SqlCmdRunner)' == '' ">$(ToolsFolder)\ISQL\isql.exe</SqlCmdRunner>	  
+	  <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+   </PropertyGroup>
+
+   <PropertyGroup Condition=" '|$(Configuration)|' == '|Debug|' ">
+      <OutputPath>$(CodeOutputFolder)\Debug\Database</OutputPath>
+   </PropertyGroup>
+   <PropertyGroup Condition=" '|$(Configuration)|' == '|Release|' ">
+      <OutputPath>$(CodeOutputFolder)\Release\Database</OutputPath>
+   </PropertyGroup>
+
+   <ItemGroup>
+      <Sql Include="$(SqlScriptsFolder)\factuges.sql" />
+      <Sql Include="$(SqlScriptsFolder)\factuges_sysdata.sql" />	  
+      <SqlOutput Include="$(OutputPath)\factuges.fdb" />
+   </ItemGroup>
+  
+	<Target Name="CreateOutputPath">
+		<MakeDir Directories="$(OutputPath)" Condition="!Exists('$(OutputPath)')"/>
+	</Target>
+
+    <Target Name="Build" 
+           Inputs="@(Sql)" 
+           Outputs="@(SqlOutput)">
+
+		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q" 
+			WorkingDirectory="$(OutputPath)" />
+			
+		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" 
+			WorkingDirectory="$(OutputPath)" />			
+   </Target>
+
+   <Target Name="Extract" 
+           Inputs="$(OutputPath)\factuges.fdb" 
+           Outputs="$(OutputPath)\factuges_$(Configuration).sql">
+
+		<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -a -d factuges.fdb -u $(DBUser) -p $(DBPassword) -o $(DOUBLE_QUOTES)$(OutputPath)\factuges_$(Configuration).sql$(DOUBLE_QUOTES) $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES) -b" 
+			WorkingDirectory="$(OutputPath)" />
+   </Target>
+
+   <Target Name="Rebuild" 
+           DependsOnTargets="Clean;Build"/>
+
+   <Target Name="Clean">
+      <Delete Files="@(SqlOutput)"/>
+   </Target>
+
+</Project>

Database/_db_enviroment.bat

@@ -0,0 +1,14 @@
+rem   Full path to the firebird isql utility.
+SET ISQL="..\Tools\ISQL\isql.exe"
+
+SET DB_LOGIN=-USER SYSDBA -PASSWORD masterkey
+
+rem DB ALIAS
+SET DB_ALIAS=FACTUGES.FDB
+SET DB_ALIAS_TEST=FACTUGES_TEST.FDB
+
+set DB_SQL_SCRIPT=scripts\factuges.sql
+set DB_SQL_SYSDATA=scripts\factuges.sql
+
+set DB_DEBUG_PATH=..\output\debug\database
+set DB_RELEASE_PATH=..\output\release\database

Database/db_execute.bat

@@ -0,0 +1,67 @@
+rem @echo off
+call _db_enviroment.bat
+
+if "%1" == "drop" goto drop
+if "%1" == "create" goto create
+if "%1" == "extract" goto extract
+if "%1" == "insert_data" goto insert_data
+if "%1" == "recreate" goto recreate
+goto ayuda
+
+:recreate
+call %0 drop
+IF %ERRORLEVEL% == 1 GOTO ERROR
+call %0 create
+IF %ERRORLEVEL% == 1 GOTO ERROR
+call %0 insert_data
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto end
+
+:drop
+echo Borrando la base de datos %DB_ALIAS%...
+IF EXIST "%DB_DEBUG_PATH%\%DB_ALIAS%" DEL %DB_DEBUG_PATH%\%DB_ALIAS%
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:create
+echo Creando la base de datos %DB_ALIAS% en %DB_DEBUG_PATH%\%DB_ALIAS%
+%ISQL% -i %DB_SQL_SCRIPT% %DB_LOGIN% -q
+IF %ERRORLEVEL% == 1 GOTO ERROR
+move %DB_ALIAS% "%DB_DEBUG_PATH%"
+goto done
+
+:extract
+echo Extrayendo %DB_ALIAS% al script SQL %DB_SQL_SCRIPT%...
+IF EXIST %DB_SQL_SCRIPT% DEL %DB_SQL_SCRIPT%
+%ISQL% -a -d %DB_ALIAS% %DB_LOGIN% -o %DB_SQL_SCRIPT% %DB_DEBUG_PATH%\%DB_ALIAS% -b
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:insert_data
+echo Insertando datos del sistema en %DB_ALIAS%...
+%ISQL% -i %DB_SQL_SYSDATA% %DB_LOGIN% %DB_DEBUG_PATH%\%DB_ALIAS% 
+IF %ERRORLEVEL% == 1 GOTO ERROR
+goto done
+
+:error
+ECHO Se ha producido un error!!!!
+goto end
+
+:ayuda
+echo Modo de uso: %0 [create / drop / extract]
+echo ------------
+echo       create: crear la base de datos %DB_ALIAS% (la borra antes si ya existe)
+echo         drop: borrar la base de datos %DB_ALIAS%
+echo      extract: extrae los metadatos de la BD a un fichero SQL (%DB_SQL_SCRIPT%)
+echo  insert_data: extrae los metadatos de la BD a un fichero SQL (%DB_SQL_SCRIPT%)
+echo.
+echo     recreate: rehacer la BD: borrarla si existe, crearla e insertar los datos del sistema
+echo.
+goto end
+
+:done
+echo Hecho!
+echo.
+goto end
+
+:end

Database/scripts/SCRIPT_CONTABILIDAD.SQL

@@ -0,0 +1,83 @@
+CREATE TABLE CONT_EJERCICIOS (
+   ID            TIPO_ID NOT NULL,
+   NOMBRE        VARCHAR(255),
+   FECHA_INICIO   DATE,
+   FECHA_FIN      DATE,
+   ESTADO        VARCHAR(255),
+   LONG_SUB_CUENTA SMALLINT,
+   ID_ASIENTO_APERTURA TIPO_ID,
+   ID_ASIENTO_PERYGAN TIPO_ID,
+   ID_ASIENTO_CIERRE TIPO_ID);
+
+ALTER TABLE CONT_EJERCICIOS ADD CONSTRAINT PK_CONT_EJERCICIOS PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_CUENTAS_ESPECIALES (
+  ID TIPO_ID NOT NULL,
+  REFERENCIA varchar(6),
+  descripcion varchar(255));
+
+ALTER TABLE CONT_CUENTAS_ESPECIALES ADD CONSTRAINT PK_CONT_CUENTAS_ESPECIALES PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_EPIGRAFES (
+  ID TIPO_ID NOT NULL,
+  REF_EPIGRAFE VARCHAR(6),
+  ID_PADRE TIPO_ID,
+  descripcion varchar(255),
+  ID_EJERCICIO TIPO_ID);
+
+ALTER TABLE CONT_EPIGRAFES ADD CONSTRAINT PK_CONT_EPIGRAFES PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_BALANCES (
+  ID          TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+  REF_BALANCE VARCHAR(255),
+  NATURALEZA VARCHAR(255),
+  NIVEL1 tipo_perfil, 
+  DESCRIPCION1 varchar(255),
+  NIVEL2 TIPO_PERFIL,
+  DESCRIPCION2 varchar(255),
+  NIVEL3 TIPO_PERFIL,
+  DESCRIPCION3 varchar(255));
+
+ALTER TABLE CONT_BALANCES ADD CONSTRAINT PK_CONT_BALANCES PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_CUENTAS (
+    ID                  TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+    REF_CUENTA          VARCHAR(10),
+    ID_EJERCICIO        TIPO_ID /* TIPO_ID = INTEGER */,
+    ID_EPIGRAFE         TIPO_ID /* TIPO_ID = INTEGER */,
+    DESCRIPCION         VARCHAR(255),
+    ID_BALANCE          TIPO_ID /* TIPO_ID = INTEGER */,
+    ID_CUENTA_ESPECIAL  TIPO_ID /* TIPO_ID = INTEGER */
+);
+
+ALTER TABLE CONT_CUENTAS ADD CONSTRAINT PK_CONT_CUENTAS PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_SUBCUENTAS (
+    ID             TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+    REF_SUBCUENTA  VARCHAR(15),
+    DESCRIPCION    VARCHAR(255),
+    ID_CUENTA      TIPO_ID /* TIPO_ID = INTEGER */,
+    ID_EJERCICIO   TIPO_ID /* TIPO_ID = INTEGER */
+);
+
+ALTER TABLE CONT_SUBCUENTAS ADD CONSTRAINT PK_CONT_SUBCUENTAS PRIMARY KEY (ID);
+
+
+CREATE TABLE CONT_ASIENTOS (
+    ID             TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+    ID_ASIENTO_COMPENSADO TIPO_ID,
+    ID_SUBCUENTA  TIPO_ID,
+    FECHA_ASIENTO date, 
+    CONCEPTO    VARCHAR(255),
+    PUNTEADO    SMALLINT,
+    DEBE      TIPO_IMPORTE,
+    HABER   TIPO_IMPORTE
+);
+
+ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS PRIMARY KEY (ID);
+

Database/scripts/factuges_sysdata.sql

@@ -0,0 +1,50 @@
+SET SQL DIALECT 3;
+
+SET NAMES ISO8859_1;
+
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR');
+INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO');
+SET GENERATOR GEN_CATEGORIAS_ID TO 4;
+COMMIT WORK;
+
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (4, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (6, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (8, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (9, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
+INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (10, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
+SET GENERATOR GEN_INFORMES_ID TO 11;
+COMMIT WORK;
+
+
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_CLIENTE', '00001', 1, 'Ref. facturas de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_CLIENTE', '00001', 1, 'Ref. pedidos de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PEDIDOS_PROVEEDOR', '00001', 1, 'Ref. pedidos de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_CLIENTE', '00001', 1, 'Ref. albaranes de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_PROVEEDOR', '00001', 1, 'Ref. albaranes de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_CLIENTE', '00001', 1, 'Ref. remesas de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_COMISIONES', '00001', 1, 'Ref. liquidaciones de comision');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_FACTURAS_PROVEEDOR', '00001', 1, 'Ref. facturas de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_CLIENTE', '00001', 1, 'Ref. ordenes de devolucion de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ALBARANES_DEV_PROVEEDOR', '00001', 1, 'Ref. ordenes de devolucion de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_REMESAS_PROVEEDOR', '00001', 1, 'Ref. remesas de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_CLIENTE', '00001', 1, 'Ref. abonos de cliente');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_ABONOS_PROVEEDOR', '00001', 1, 'Ref. abonos de proveedor');
+INSERT INTO REFERENCIAS (CODIGO, VALOR, ID_EMPRESA, DESCRIPCION) VALUES ('REF_PRESUPUESTOS_CLIENTE', '000001', 1, 'Ref. presupuestos de cliente');
+COMMIT WORK;
+
+
+
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (2, 'IVA4', 'IVA4', 4, 0.5);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (3, 'IVA7', 'IVA7', 7, 1);
+INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (4, 'EXENTO', 'EXTRANGERO', 0, 0);
+COMMIT WORK;
+SET GENERATOR GEN_TIPOS_IVA_ID TO 5;
+COMMIT WORK;
+

Database/udfs/funciones.pas

@@ -0,0 +1,40 @@
+unit funciones;
+
+interface
+
+function RtfToText(Cadena: PChar): PChar; cdecl; export;
+
+implementation
+
+uses
+  SysUtils;
+
+function RtfToText(Cadena: PChar): PChar;
+var
+  i: integer;
+  CadenaAux1: String;
+
+begin
+  //Si no tiene ninguna llave no esta guardado como rtf
+  if (Pos('{', Cadena) = 0) then
+     Result := Cadena
+  else
+  //Esta guardado com rtf
+  begin
+    //Quitamos todo lo que está antes de \fs1x
+    i := Pos('\fs', Cadena);
+    CadenaAux1 := Copy(Cadena, i, StrLen(Cadena)-1);
+
+    //Quitamos la parte de delante \fs1x
+    i:= Pos(' ', CadenaAux1);
+    CadenaAux1 := Copy(PChar(CadenaAux1), i+1, StrLen(PChar(CadenaAux1))-1);
+
+    //Quitamos todo lo de la parte de atras a partir de la primera barra \ que tengamos
+    i:= Pos('\', CadenaAux1);
+    CadenaAux1 := Copy(PChar(CadenaAux1), 0, i-1);
+
+    Result := PChar(CadenaAux1);
+  end;
+end;
+
+end.

Database/udfs/udf_RtfToText.bdsproj

@@ -0,0 +1,498 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{5EB7350E-C612-4139-A532-3B8A4617E544}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">udf_RtfToText.dpr</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">3</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir"></Directories>
+      <Directories Name="PackageDLLOutputDir"></Directories>
+      <Directories Name="PackageDCPOutputDir"></Directories>
+      <Directories Name="SearchPath"></Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals">EUREKALOG;EUREKALOG_VER5</Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Language>
+      <Language Name="ActiveLang"></Language>
+      <Language Name="ProjectLang">$00000000</Language>
+      <Language Name="RootDir"></Language>
+    </Language>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">3082</VersionInfo>
+      <VersionInfo Name="CodePage">1252</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    
+    
+    <Excluded_Packages>
+      <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=1
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=0
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=1
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpUser=1
+mtLog_CmpUser0="User"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+EurekaLog Last Line -->
+</BorlandProject>

Database/udfs/udf_RtfToText.dpr

@@ -0,0 +1,18 @@
+library udf_RtfToText;
+
+uses
+  ExceptionLog,
+  ComServ,
+  funciones in 'funciones.pas';
+
+exports
+  DllGetClassObject,
+  DllCanUnloadNow,
+  DllRegisterServer,
+  DllUnregisterServer,
+  RtfToText;
+
+{$R *.RES}
+
+begin
+end.

Database/udfs/udf_RtfToText.drc

@@ -0,0 +1,252 @@
+/* VER180
+  Generated by the Borland Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define ComConst_SOleError 65408
+#define ComConst_SNoMethod 65409
+#define ComConst_SVarNotObject 65410
+#define ComConst_STooManyParams 65411
+#define ComConst_SAutomationWarning 65412
+#define ComConst_SNoCloseActiveServer1 65413
+#define ComConst_SNoCloseActiveServer2 65414
+#define RTLConsts_SAssignError 65424
+#define RTLConsts_SCheckSynchronizeError 65425
+#define RTLConsts_SDuplicateString 65426
+#define RTLConsts_SFCreateErrorEx 65427
+#define RTLConsts_SFOpenErrorEx 65428
+#define RTLConsts_SInvalidPropertyValue 65429
+#define RTLConsts_SListCapacityError 65430
+#define RTLConsts_SListCountError 65431
+#define RTLConsts_SListIndexError 65432
+#define RTLConsts_SMemoryStreamError 65433
+#define RTLConsts_SReadError 65434
+#define RTLConsts_SSeekNotImplemented 65435
+#define RTLConsts_SSortedListError 65436
+#define RTLConsts_SWriteError 65437
+#define RTLConsts_SThreadCreateError 65438
+#define RTLConsts_SThreadError 65439
+#define SysConst_SLongMonthNameNov 65440
+#define SysConst_SLongMonthNameDec 65441
+#define SysConst_SShortDayNameSun 65442
+#define SysConst_SShortDayNameMon 65443
+#define SysConst_SShortDayNameTue 65444
+#define SysConst_SShortDayNameWed 65445
+#define SysConst_SShortDayNameThu 65446
+#define SysConst_SShortDayNameFri 65447
+#define SysConst_SShortDayNameSat 65448
+#define SysConst_SLongDayNameSun 65449
+#define SysConst_SLongDayNameMon 65450
+#define SysConst_SLongDayNameTue 65451
+#define SysConst_SLongDayNameWed 65452
+#define SysConst_SLongDayNameThu 65453
+#define SysConst_SLongDayNameFri 65454
+#define SysConst_SLongDayNameSat 65455
+#define SysConst_SShortMonthNameJul 65456
+#define SysConst_SShortMonthNameAug 65457
+#define SysConst_SShortMonthNameSep 65458
+#define SysConst_SShortMonthNameOct 65459
+#define SysConst_SShortMonthNameNov 65460
+#define SysConst_SShortMonthNameDec 65461
+#define SysConst_SLongMonthNameJan 65462
+#define SysConst_SLongMonthNameFeb 65463
+#define SysConst_SLongMonthNameMar 65464
+#define SysConst_SLongMonthNameApr 65465
+#define SysConst_SLongMonthNameMay 65466
+#define SysConst_SLongMonthNameJun 65467
+#define SysConst_SLongMonthNameJul 65468
+#define SysConst_SLongMonthNameAug 65469
+#define SysConst_SLongMonthNameSep 65470
+#define SysConst_SLongMonthNameOct 65471
+#define SysConst_SVarUnexpected 65472
+#define SysConst_SExternalException 65473
+#define SysConst_SAssertionFailed 65474
+#define SysConst_SIntfCastError 65475
+#define SysConst_SSafecallException 65476
+#define SysConst_SAssertError 65477
+#define SysConst_SAbstractError 65478
+#define SysConst_SModuleAccessViolation 65479
+#define SysConst_SOSError 65480
+#define SysConst_SUnkOSError 65481
+#define SysConst_SShortMonthNameJan 65482
+#define SysConst_SShortMonthNameFeb 65483
+#define SysConst_SShortMonthNameMar 65484
+#define SysConst_SShortMonthNameApr 65485
+#define SysConst_SShortMonthNameMay 65486
+#define SysConst_SShortMonthNameJun 65487
+#define SysConst_SDispatchError 65488
+#define SysConst_SReadAccess 65489
+#define SysConst_SWriteAccess 65490
+#define SysConst_SFormatTooLong 65491
+#define SysConst_SVarArrayCreate 65492
+#define SysConst_SVarArrayBounds 65493
+#define SysConst_SVarArrayLocked 65494
+#define SysConst_SInvalidVarCast 65495
+#define SysConst_SInvalidVarOp 65496
+#define SysConst_SInvalidVarOpWithHResultWithPrefix 65497
+#define SysConst_SVarTypeCouldNotConvert 65498
+#define SysConst_SVarTypeConvertOverflow 65499
+#define SysConst_SVarOverflow 65500
+#define SysConst_SVarInvalid 65501
+#define SysConst_SVarBadType 65502
+#define SysConst_SVarNotImplemented 65503
+#define SysConst_SInvalidOp 65504
+#define SysConst_SZeroDivide 65505
+#define SysConst_SOverflow 65506
+#define SysConst_SUnderflow 65507
+#define SysConst_SInvalidPointer 65508
+#define SysConst_SInvalidCast 65509
+#define SysConst_SAccessViolationArg3 65510
+#define SysConst_SAccessViolationNoArg 65511
+#define SysConst_SStackOverflow 65512
+#define SysConst_SControlC 65513
+#define SysConst_SPrivilege 65514
+#define SysConst_SOperationAborted 65515
+#define SysConst_SException 65516
+#define SysConst_SExceptTitle 65517
+#define SysConst_SInvalidFormat 65518
+#define SysConst_SArgumentMissing 65519
+#define SysConst_SInvalidInteger 65520
+#define SysConst_SInvalidDateTime 65521
+#define SysConst_STimeEncodeError 65522
+#define SysConst_SDateEncodeError 65523
+#define SysConst_SOutOfMemory 65524
+#define SysConst_SInOutError 65525
+#define SysConst_SFileNotFound 65526
+#define SysConst_SInvalidFilename 65527
+#define SysConst_STooManyOpenFiles 65528
+#define SysConst_SAccessDenied 65529
+#define SysConst_SEndOfFile 65530
+#define SysConst_SDiskFull 65531
+#define SysConst_SInvalidInput 65532
+#define SysConst_SDivByZero 65533
+#define SysConst_SRangeError 65534
+#define SysConst_SIntOverflow 65535
+STRINGTABLE
+BEGIN
+	ComConst_SOleError,	"OLE error %.8x"
+	ComConst_SNoMethod,	"Method '%s' not supported by automation object"
+	ComConst_SVarNotObject,	"Variant does not reference an automation object"
+	ComConst_STooManyParams,	"Dispatch methods do not support more than 64 parameters"
+	ComConst_SAutomationWarning,	"COM Server Warning"
+	ComConst_SNoCloseActiveServer1,	"There are still active COM objects in this application.  One or more clients may have references to these objects, so manually closing "
+	ComConst_SNoCloseActiveServer2,	"this application may cause those client application(s) to fail.\r\n\r\nAre you sure you want to close this application?"
+	RTLConsts_SAssignError,	"Cannot assign a %s to a %s"
+	RTLConsts_SCheckSynchronizeError,	"CheckSynchronize called from thread $%x, which is NOT the main thread"
+	RTLConsts_SDuplicateString,	"String list does not allow duplicates"
+	RTLConsts_SFCreateErrorEx,	"Cannot create file \"%s\". %s"
+	RTLConsts_SFOpenErrorEx,	"Cannot open file \"%s\". %s"
+	RTLConsts_SInvalidPropertyValue,	"Invalid property value"
+	RTLConsts_SListCapacityError,	"List capacity out of bounds (%d)"
+	RTLConsts_SListCountError,	"List count out of bounds (%d)"
+	RTLConsts_SListIndexError,	"List index out of bounds (%d)"
+	RTLConsts_SMemoryStreamError,	"Out of memory while expanding memory stream"
+	RTLConsts_SReadError,	"Stream read error"
+	RTLConsts_SSeekNotImplemented,	"%s.Seek not implemented"
+	RTLConsts_SSortedListError,	"Operation not allowed on sorted list"
+	RTLConsts_SWriteError,	"Stream write error"
+	RTLConsts_SThreadCreateError,	"Thread creation error: %s"
+	RTLConsts_SThreadError,	"Thread Error: %s (%d)"
+	SysConst_SLongMonthNameNov,	"November"
+	SysConst_SLongMonthNameDec,	"December"
+	SysConst_SShortDayNameSun,	"Sun"
+	SysConst_SShortDayNameMon,	"Mon"
+	SysConst_SShortDayNameTue,	"Tue"
+	SysConst_SShortDayNameWed,	"Wed"
+	SysConst_SShortDayNameThu,	"Thu"
+	SysConst_SShortDayNameFri,	"Fri"
+	SysConst_SShortDayNameSat,	"Sat"
+	SysConst_SLongDayNameSun,	"Sunday"
+	SysConst_SLongDayNameMon,	"Monday"
+	SysConst_SLongDayNameTue,	"Tuesday"
+	SysConst_SLongDayNameWed,	"Wednesday"
+	SysConst_SLongDayNameThu,	"Thursday"
+	SysConst_SLongDayNameFri,	"Friday"
+	SysConst_SLongDayNameSat,	"Saturday"
+	SysConst_SShortMonthNameJul,	"Jul"
+	SysConst_SShortMonthNameAug,	"Aug"
+	SysConst_SShortMonthNameSep,	"Sep"
+	SysConst_SShortMonthNameOct,	"Oct"
+	SysConst_SShortMonthNameNov,	"Nov"
+	SysConst_SShortMonthNameDec,	"Dec"
+	SysConst_SLongMonthNameJan,	"January"
+	SysConst_SLongMonthNameFeb,	"February"
+	SysConst_SLongMonthNameMar,	"March"
+	SysConst_SLongMonthNameApr,	"April"
+	SysConst_SLongMonthNameMay,	"May"
+	SysConst_SLongMonthNameJun,	"June"
+	SysConst_SLongMonthNameJul,	"July"
+	SysConst_SLongMonthNameAug,	"August"
+	SysConst_SLongMonthNameSep,	"September"
+	SysConst_SLongMonthNameOct,	"October"
+	SysConst_SVarUnexpected,	"Unexpected variant error"
+	SysConst_SExternalException,	"External exception %x"
+	SysConst_SAssertionFailed,	"Assertion failed"
+	SysConst_SIntfCastError,	"Interface not supported"
+	SysConst_SSafecallException,	"Exception in safecall method"
+	SysConst_SAssertError,	"%s (%s, line %d)"
+	SysConst_SAbstractError,	"Abstract Error"
+	SysConst_SModuleAccessViolation,	"Access violation at address %p in module '%s'. %s of address %p"
+	SysConst_SOSError,	"System Error.  Code: %d.\r\n%s"
+	SysConst_SUnkOSError,	"A call to an OS function failed"
+	SysConst_SShortMonthNameJan,	"Jan"
+	SysConst_SShortMonthNameFeb,	"Feb"
+	SysConst_SShortMonthNameMar,	"Mar"
+	SysConst_SShortMonthNameApr,	"Apr"
+	SysConst_SShortMonthNameMay,	"May"
+	SysConst_SShortMonthNameJun,	"Jun"
+	SysConst_SDispatchError,	"Variant method calls not supported"
+	SysConst_SReadAccess,	"Read"
+	SysConst_SWriteAccess,	"Write"
+	SysConst_SFormatTooLong,	"Format string too long"
+	SysConst_SVarArrayCreate,	"Error creating variant or safe array"
+	SysConst_SVarArrayBounds,	"Variant or safe array index out of bounds"
+	SysConst_SVarArrayLocked,	"Variant or safe array is locked"
+	SysConst_SInvalidVarCast,	"Invalid variant type conversion"
+	SysConst_SInvalidVarOp,	"Invalid variant operation"
+	SysConst_SInvalidVarOpWithHResultWithPrefix,	"Invalid variant operation (%s%.8x)\n%s"
+	SysConst_SVarTypeCouldNotConvert,	"Could not convert variant of type (%s) into type (%s)"
+	SysConst_SVarTypeConvertOverflow,	"Overflow while converting variant of type (%s) into type (%s)"
+	SysConst_SVarOverflow,	"Variant overflow"
+	SysConst_SVarInvalid,	"Invalid argument"
+	SysConst_SVarBadType,	"Invalid variant type"
+	SysConst_SVarNotImplemented,	"Operation not supported"
+	SysConst_SInvalidOp,	"Invalid floating point operation"
+	SysConst_SZeroDivide,	"Floating point division by zero"
+	SysConst_SOverflow,	"Floating point overflow"
+	SysConst_SUnderflow,	"Floating point underflow"
+	SysConst_SInvalidPointer,	"Invalid pointer operation"
+	SysConst_SInvalidCast,	"Invalid class typecast"
+	SysConst_SAccessViolationArg3,	"Access violation at address %p. %s of address %p"
+	SysConst_SAccessViolationNoArg,	"Access violation"
+	SysConst_SStackOverflow,	"Stack overflow"
+	SysConst_SControlC,	"Control-C hit"
+	SysConst_SPrivilege,	"Privileged instruction"
+	SysConst_SOperationAborted,	"Operation aborted"
+	SysConst_SException,	"Exception %s in module %s at %p.\r\n%s%s\r\n"
+	SysConst_SExceptTitle,	"Application Error"
+	SysConst_SInvalidFormat,	"Format '%s' invalid or incompatible with argument"
+	SysConst_SArgumentMissing,	"No argument for format '%s'"
+	SysConst_SInvalidInteger,	"'%s' is not a valid integer value"
+	SysConst_SInvalidDateTime,	"'%s' is not a valid date and time"
+	SysConst_STimeEncodeError,	"Invalid argument to time encode"
+	SysConst_SDateEncodeError,	"Invalid argument to date encode"
+	SysConst_SOutOfMemory,	"Out of memory"
+	SysConst_SInOutError,	"I/O error %d"
+	SysConst_SFileNotFound,	"File not found"
+	SysConst_SInvalidFilename,	"Invalid filename"
+	SysConst_STooManyOpenFiles,	"Too many open files"
+	SysConst_SAccessDenied,	"File access denied"
+	SysConst_SEndOfFile,	"Read beyond end of file"
+	SysConst_SDiskFull,	"Disk full"
+	SysConst_SInvalidInput,	"Invalid numeric input"
+	SysConst_SDivByZero,	"Division by zero"
+	SysConst_SRangeError,	"Range check error"
+	SysConst_SIntOverflow,	"Integer overflow"
+END
+

Database/udfs/udf_RtfToText.sql

@@ -0,0 +1,4 @@
+DECLARE EXTERNAL FUNCTION F_RTFTOTEXT
+    CSTRING(254)
+RETURNS CSTRING(254)
+ENTRY_POINT 'RtfToText' MODULE_NAME 'udf_RtfToText.dll';

Enviroment.config

@@ -0,0 +1,27 @@
+<?xml version="1.0"?>
+<configuration>
+ <appSettings>
+
+   <!-- ENVIRONMENT
+        Use the "Environment" key below to select the environment (DEV | TEST | PROD).
+       
+        For settings common to all environments, add a normal appSetting key (e.g. "Name").
+        To change a setting for a specific environment, add an appSetting key with
+        the environment name (e.g. "DEV.Name"). An environment-specific setting
+        will override a common setting.
+
+        In the example below, the DEV environment will have a connection timeout of
+        2 minutes while the TEST and PROD environments will use 90 minutes.
+   -->
+
+   <add key="Environment" value="DEV"/>
+
+   <add key="DEV.Name"  value="Development"/>
+   <add key="TEST.Name" value="Test"/>
+   <add key="PROD.Name" value="Production"/>
+
+   <add key="ConnectionTimeout"     value="90"/>
+   <add key="DEV.ConnectionTimeout" value="2"/>
+
+ </appSettings>
+</configuration>

Installer/Actualizacion/Actualización.iss

@@ -0,0 +1,99 @@
+[Setup]
+AppName=FactuGES
+AppVerName=FactuGES 2.2.2
+AppPublisher=Rodax Software S.L.
+AppPublisherURL=http://www.rodax-software.com
+AppSupportURL=http://www.rodax-software.com
+AppUpdatesURL=http://www.rodax-software.com
+OutputBaseFilename=instalar
+Compression=lzma
+SolidCompression=yes
+CreateAppDir=no
+Uninstallable=no
+DisableStartupPrompt=yes
+DisableFinishedPage=yes
+
+[Languages]
+Name: "sp"; MessagesFile: "compiler:languages\Spanish.isl"
+
+[Files]
+Source: "files\*"; DestDir: {code:GetDir}; CopyMode: alwaysoverwrite; Flags:  uninsneveruninstall overwritereadonly
+;Source: "files\Informes\*"; DestDir: "{code:GetDir}\Informes\"; Flags: ignoreversion recursesubdirs createallsubdirs
+;Source: "files\Financiacion\*"; DestDir: "{code:GetDir}\Financiacion\"; Flags: ignoreversion recursesubdirs createallsubdirs
+
+[Registry]
+;Root: HKLM; Subkey: "Software\FactuGES\Update"; ValueType: string; ValueName: "edLocation_Text"; ValueData: "http://www.rodax-software.com/luisleon/update"; Flags: createvalueifdoesntexist
+
+[Code]
+var
+  TipoActualizacion : String;
+  Ruta : String;
+  VerAnterior : String;
+  VerNueva : String;
+
+function GetDir(Param: String): String;
+begin
+  Result := Ruta;
+end;
+
+procedure HacerBackupVerAnterior;
+var
+  RutaBack : String;
+  FindRec: TFindRec;
+begin
+  RutaBack := Ruta + 'Otras versiones\' + VerAnterior + '\';
+
+  ForceDirectories(RutaBack);
+  ForceDirectories(RutaBack + 'Informes');
+
+  FileCopy(Ruta + 'FactuGES.exe', RutaBack + 'FactuGES.exe', FALSE);
+  if FindFirst(ExpandConstant(Ruta + 'Informes\*.*'), FindRec) then begin
+    try
+      repeat
+        // Don't count directories
+        if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
+          FileCopy(Ruta + 'Informes\' + FindRec.Name, RutaBack + 'Informes\' + FindRec.Name, FALSE);
+      until not FindNext(FindRec);
+    finally
+      FindClose(FindRec);
+    end;
+  end;
+end;
+
+{function NextButtonClick(CurPageID: Integer): Boolean;
+begin
+  if CurPageID = 1 then
+  begin
+    if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES\Update',
+      'TipoActualizacion', TipoActualizacion) then
+      Abort;
+      
+    if not DirExists(Ruta) then
+      Abort;
+      
+    if TipoActualizacion = 'INTERNET' then
+      HacerBackupVerAnterior();
+  end;
+  Result := True;
+end;}
+
+function InitializeSetup(): Boolean;
+var
+  p:  HWND;
+begin
+  // Comprobar que FactuGES no está en ejecución
+  p := FindWindowByWindowName('FactuGES');
+  if p > 0 then
+  begin
+    MsgBox('Debe salir de FactuGES para poder instalar esta actualización',mbInformation, MB_OK);
+    Result := False
+  end
+  else begin
+    // Comprobar que la ruta del programa está en el registro
+    Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES', 'Ruta', Ruta);
+  end;
+end;
+
+
+
+