Se adaptan las obras y los proyectos de las obras para que tengan dos destinos de almamacenaje de archivos, los proyectos antiguos seguirán con los documentos en DANI y los nuevos irán al disco duro externo nuevo

version 2.0.4

git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@13 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca

Base/uDataModuleBase.pas

@@ -51,8 +51,10 @@ type
             FOnThemeChange;
 
     function darRutaDocumentosProyectos: String;
+    function darRutaDocumentosProyectosNueva: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darRutaDocumentosNormativas: String;
+    function darRutaDocumentosNormativasNueva: String;
     function darEstructuraDirNormativas: TDAStringArray;
     function darVersion: String;    
   end;
@@ -234,6 +236,16 @@ begin
   FreeAndNil(InfoProject);
 end;
 
+function TdmBase.darRutaDocumentosNormativasNueva: String;
+begin
+  Result := 'c:\documentos2\normativas';
+end;
+
+function TdmBase.darRutaDocumentosProyectosNueva: String;
+begin
+  Result := 'c:\documentos2\proyectos';
+end;
+
 initialization
   dmBase := TdmBase.Create(NIL);
 

Modulos/Calendarios/Cliente/Calendarios.dof

@@ -0,0 +1,219 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=.\
+PackageDLLOutputDir=..\..\..\Output\Cliente
+PackageDCPOutputDir=.\
+SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;cxPageControlVCLD7;cxIntlD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxLayoutControlcxEditAdaptersD7;dxPScxCommonD7;dxPSLnksD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPSTeeChartD7;dxPSdxLCLnkD7;dxPsPrVwAdvD7;FRIBX7;PNG_D7;mxProtector_d7;TMSD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;fsTee7
+Conditionals=
+DebugSourceDirs=.\
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxDockingD7.bpl=ExpressDocking Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=ExpressLayout Control by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=.\
+Item1=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=18
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
+Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
+Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
+Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=.\
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Output\Servidor
+Item1=..\Output\Cliente
+[HistoryLists\hlBPLOutput]
+Count=3
+Item0=..\..\..\Output\Cliente
+Item1=..\Output\Cliente
+Item2=..\..\Output\Cliente
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=.\

Modulos/Documentos asociados/uBizDocumentosAsociados.pas

@@ -4,6 +4,10 @@ interface
 
 uses Classes, DataAbstract_Intf;
 
+const
+  CTE_ALMACEN_ANTIGUO = '0';
+  CTE_ALAMCEN_NUEVO = '1';
+  
 type
   TGestorDocumentos = class(TObject)
   private
@@ -58,6 +62,9 @@ type
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
   end;
 
 implementation

Modulos/Obras/Cliente/uDataModuleObras.dfm

@@ -284,6 +284,18 @@ object dmObras: TdmObras
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'ALMACEN'
+        DataType = datString
+        Size = 1
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest

Modulos/Obras/Cliente/uEditorObra.dfm

@@ -50,7 +50,7 @@ inherited fEditorObra: TfEditorObra
   inherited pgPaginas: TPageControl
     Width = 944
     Height = 444
-    ActivePage = pagContactos
+    ActivePage = pagNormativas
     OnChanging = pgPaginasChanging
     inherited pagGeneral: TTabSheet
       inline frViewObra: TfrViewObra
@@ -266,7 +266,6 @@ inherited fEditorObra: TfEditorObra
               inherited explo: TcxShellListView
                 Width = 531
                 Height = 398
-                Style.IsFontAssigned = True
               end
               inherited ToolBar1: TToolBar
                 Width = 531

Modulos/Obras/Cliente/uEditorObra.pas

@@ -178,7 +178,10 @@ begin
     //DOCUMENTOS ASOCIADOS
     if Assigned(FViewNormativas) then
     begin
-       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos;
+       if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+          FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos
+       else
+          FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentosNuevo;
        FViewNormativas.GestorDocumentos.ModoInsert := (Obra.DataTable.State = dsInsert);
     end;
   end
@@ -343,7 +346,12 @@ begin
   FViewNormativas := Value;
 
   if Assigned(FViewNormativas) and Assigned(Obra) then
-     FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos;
+  begin
+     if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos
+     else
+       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentosNuevo;
+  end;
 end;
 
 procedure TfEditorObra.frViewDatosObraedtNombrePropertiesValidate(

Modulos/Obras/Cliente/uEditorProyectoObra.dfm

@@ -86,7 +86,7 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
         Left = 0
         Top = 129
         Width = 704
-        Height = 230
+        Height = 158
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -98,10 +98,10 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 704
-          Height = 230
+          Height = 158
           DesignSize = (
             704
-            230)
+            158)
           inherited Panel10: TPanel
             Width = 704
             Height = 230
@@ -114,7 +114,6 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
               inherited explo: TcxShellListView
                 Width = 516
                 Height = 211
-                Style.IsFontAssigned = True
               end
               inherited ToolBar1: TToolBar
                 Width = 516

Modulos/Obras/Cliente/uEditorProyectoObra.pas

@@ -129,7 +129,10 @@ begin
       //DOCUMENTOS ASOCIADOS
       if Assigned(FViewDocumentosPresupuesto) then
       begin
-         FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos;
+         if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+            FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos
+         else
+            FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentosNuevo;
          FViewDocumentosPresupuesto.GestorDocumentos.ModoInsert := (ProyectoObra.DataTable.State = dsInsert);
       end;
   end
@@ -145,7 +148,12 @@ begin
   FViewDocumentosPresupuesto := Value;
 
   if Assigned(FViewDocumentosPresupuesto) and Assigned(ProyectoObra) then
-     FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos;
+  begin
+     if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+        FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos
+     else
+        FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentosNuevo
+  end;
 end;
 
 procedure TfEditorProyectoObra.frViewProyectoObraedtDescripcionPropertiesValidate(

Modulos/Obras/Cliente/uViewObras.dfm

@@ -23,6 +23,18 @@ inherited frViewObras: TfrViewObras
         Visible = False
         Width = 32
       end
+      object cxGridViewALMACEN: TcxGridDBColumn
+        DataBinding.FieldName = 'ALMACEN'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Items = <
+          item
+            ImageIndex = 0
+            Value = '0'
+          end>
+        OnCustomDrawCell = cxGridViewALMACENCustomDrawCell
+        Width = 20
+        IsCaptionAssigned = True
+      end
       object cxGridViewESTADO: TcxGridDBColumn
         DataBinding.FieldName = 'FECHAFINOBR'
         OnCustomDrawCell = cxGridViewESTADOCustomDrawCell
@@ -130,6 +142,36 @@ inherited frViewObras: TfrViewObras
           44AE426082}
         Name = 'PngImage2'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A000002C64944415478DA
+          A5927D2CD4711CC7DFBFDF39DCF0A373E8C2C539E629CB501A895637569BFCD1
+          CA865A512DCC6CB5F5F09755D316ABFC412D61981EAEB4FEE841C8D684123D8A
+          3CE5E1B8BB724EE708E777BFBE146B46B3F5D9BEFB7EF7FD7C3FAFF7E7E14BE1
+          1FA638EB729965671DDB2FAA13B300D3726FA895826F1C862C645752233DD564
+          D950D3293F5684C65503AE46C3C279B37F76CCFEC80C5A9B4F553D36952BBB70
+          3C4D01C3AA002599C24D41F21485BFB8CC154635DA7B6C752D4DFAF8C42BECB3
+          1501B97B216018387314BC2501D169A111EBE4CC6C0945F1AC60E06F4453CD50
+          536F5B6F0E8968D34F62F0643926E60115A7C4F75D7D83FC058C99C486B1B660
+          1886B2B7F901BEA192B88D80B527E01085598114234A25C6541F398346353339
+          661AD2F4AADF53B74F8B0A82622509521F9D35ADD70363644D1B7FA7C517026B
+          8209602B6041CE5001330A70235A0C7EE04FBDAE1FBF45CDA52E76477AC80E9C
+          737785396F92BCE3E6A27980AD1F200C05EC02009A404DB5308D5641F9C6C8BE
+          AA438E6E0CD9F33D283E004B81235203837046268590A6FFA88BC2092084A8DB
+          938B0170D3A5E87B396C68AD419E5A8FECB47C18169B38373AB760E46E8B42AA
+          AD1D9FD4EE053846013664E7B144FD39A6548F505B6ABA37FA190793169AF8F7
+          481E64799C08DFEE744964F7952893DA456124138678BA81A90A18BAD5A8B98B
+          BCB8F3C858F61F3CBCE07B73E71EBF43028B1E70F65B60B222EA941134550D4A
+          570B7698C3D34AD393E62C6EF7C2D75E045C3F02FE7A9FC03A799C6F18673601
+          EDC45A0C74F40F70ECCF59676F481DADFBC1FBAE45FD0BEED3BBD6F1C8F43268
+          970224011171D532CF71697787F28BB267E48E6E78A498A3C1DA8A84FB5CBC5C
+          1264DEE20D9AAE014D735D7B6C7211DE2E057838384B0BC1EA1A46BFE94A93AF
+          A17361A0735670146EF64EE2784B733A46D33794995288967900C771F81FFB05
+          0E850CDB2DC0A2320000000049454E44AE426082}
+        Name = 'PngImage3'
+        Background = clWindow
       end>
     Left = 56
     Top = 48

Modulos/Obras/Cliente/uViewObras.pas

@@ -34,7 +34,7 @@ uses
   cxGridBandedTableView, cxGridDBBandedTableView, dxPSGlbl, dxPSUtl,
   dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
   dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
-  ImgList, PngImageList;
+  ImgList, PngImageList, cxImageComboBox;
 
 type
   IViewObras = interface(IViewGrid)
@@ -56,12 +56,16 @@ type
     cxStylePendiente: TcxStyle;
     cxGridViewESTADO: TcxGridDBColumn;
     cxGridViewNOMBRECLIENTE: TcxGridDBColumn;
+    cxGridViewALMACEN: TcxGridDBColumn;
     procedure cxGridViewESTADOCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure cxGridViewStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewALMACENCustomDrawCell(
+      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
   protected
     FObras: IBizObra;
     function GetObras: IBizObra; virtual;
@@ -150,4 +154,20 @@ begin
   cxGridViewESTADO.Visible := True;
 end;
 
+procedure TfrViewObras.cxGridViewALMACENCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.Value <> '0') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3);
+    ADone := True;
+  end;
+end;
+
 end.

Modulos/Obras/Reglas/schObrasClient_Intf.pas

@@ -47,6 +47,7 @@ const
   fld_ObrasTOTALPRESUPUESTOSFIN = 'TOTALPRESUPUESTOSFIN';
   fld_ObrasCODIGOCONTACTO = 'CODIGOCONTACTO';
   fld_ObrasNOMBRECLIENTE = 'NOMBRECLIENTE';
+  fld_ObrasALMACEN = 'ALMACEN';  
 
   { Obras field indexes }
   idx_ObrasCODIGOEMPRESA = 0;
@@ -69,6 +70,7 @@ const
   idx_ObrasTOTALPRESUPUESTOSFIN = 17;
   idx_ObrasCODIGOCONTACTO = 18;
   idx_ObrasNOMBRECLIENTE = 19;
+  idx_ObrasALMACEN = 20;  
 
   { ContactosObra fields }
   fld_ContactosObraCODIGOOBRA = 'CODIGOOBRA';
@@ -237,6 +239,8 @@ type
     procedure SetCODIGOCONTACTOValue(const aValue: Integer);
     function GetNOMBRECLIENTEValue: String;
     procedure SetNOMBRECLIENTEValue(const aValue: String);
+    function GetALMACENValue: String;
+    procedure SetALMACENValue(const aValue: String);
 
 
     { Properties }
@@ -260,6 +264,7 @@ type
     property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
     property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
     property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
+    property ALMACEN: String read GetALMACENValue write SetALMACENValue;	
   end;
 
   { TObrasDataTableRules }
@@ -307,7 +312,8 @@ type
     procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
     function GetNOMBRECLIENTEValue: String; virtual;
     procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
-
+	function GetALMACENValue: String; virtual;
+    procedure SetALMACENValue(const aValue: String); virtual;
     { Properties }
     property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
     property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
@@ -329,6 +335,7 @@ type
     property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
     property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
     property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
+    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -943,6 +950,16 @@ begin
   DataTable.Fields[idx_ObrasAPLICAHONORARIOS].AsString := aValue;
 end;
 
+function TObrasDataTableRules.GetALMACENValue: String;
+begin
+  result := DataTable.Fields[idx_ObrasALMACEN].AsString;
+end;
+
+procedure TObrasDataTableRules.SetALMACENValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ObrasALMACEN].AsString := aValue;
+end;
+
 function TObrasDataTableRules.GetTOTALPRESUPUESTOSINIValue: Currency;
 begin
   result := DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSINI].AsCurrency;

Modulos/Obras/Reglas/schObrasServer_Intf.pas

@@ -42,6 +42,7 @@ type
     function GetOldTOTALPRESUPUESTOSFINValue : Currency;
     function GetOldCODIGOCONTACTOValue : Integer;
     function GetOldNOMBRECLIENTEValue : String;
+    function GetOldALMACENValue : String;    
 
     { Properties }
     property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
@@ -64,6 +65,7 @@ type
     property OldTOTALPRESUPUESTOSFIN : Currency read GetOldTOTALPRESUPUESTOSFINValue;
     property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
     property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
+    property OldALMACEN : String read GetOldALMACENValue;    
   end;
 
   { TObrasBusinessProcessorRules }
@@ -131,6 +133,9 @@ type
     function GetNOMBRECLIENTEValue: String; virtual;
     function GetOldNOMBRECLIENTEValue: String; virtual;
     procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
+    function GetALMACENValue: String; virtual;
+    function GetOldALMACENValue: String; virtual;
+    procedure SetALMACENValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
@@ -173,6 +178,8 @@ type
     property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
     property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
     property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
+    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
+    property OldALMACEN : String read GetOldALMACENValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -911,6 +918,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasAPLICAHONORARIOS] := aValue;
 end;
 
+function TObrasBusinessProcessorRules.GetALMACENValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN];
+end;
+
+function TObrasBusinessProcessorRules.GetOldALMACENValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasALMACEN];
+end;
+
+procedure TObrasBusinessProcessorRules.SetALMACENValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN] := aValue;
+end;
+
 function TObrasBusinessProcessorRules.GetTOTALPRESUPUESTOSINIValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasTOTALPRESUPUESTOSINI];

Modulos/Obras/Reglas/uBizObra.pas

@@ -185,8 +185,11 @@ type
 
     //DOCUMENTOS ASOCIADOS
     FGestorDocumentos: TGestorDocumentos;
+    FGestorDocumentosNuevo: TGestorDocumentos;
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
 
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
@@ -222,6 +225,7 @@ type
 
     //DOCUMENTOS ASOCIADOS
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
 
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;
@@ -298,8 +302,11 @@ type
 
     //DOCUMENTOS ASOCIADOS
     FGestorDocumentos: TGestorDocumentos;
+    FGestorDocumentosNuevo: TGestorDocumentos;
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
 
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
@@ -322,6 +329,7 @@ type
 
     //DOCUMENTOS ASOCIADOS
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;    
 
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;
@@ -480,6 +488,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.Directorio := NOMBRE;
+  GestorDocumentosNuevo.Directorio := NOMBRE;  
 end;
 
 procedure TBizObraDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
@@ -493,6 +502,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarCancelTable;
+  GestorDocumentosNuevo.procesarCancelTable;  
 end;
 
 procedure TBizObraDataTableRules.BeforeDelete(Sender: TDADataTable);
@@ -501,6 +511,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarDeleteTable;
+  GestorDocumentosNuevo.procesarDeleteTable;
 end;
 
 constructor TBizObraDataTableRules.Create(aDataTable: TDADataTable);
@@ -516,6 +527,9 @@ begin
   //DOCUMENTOS ASOCIADOS
   FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
   FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosNormativas;
+  FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
+  FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosNormativasNueva;
+
   aDataTable.BeforeCancel := BeforeCancel;
   aDataTable.AfterCancel := AfterCancel;
 end;
@@ -534,6 +548,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   FreeAndNil(FGestorDocumentos);
+  FreeAndNil(FGestorDocumentosNuevo);
 
   inherited;
 end;
@@ -564,6 +579,12 @@ begin
   Result := FGestorDocumentos;
 end;
 
+function TBizObraDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
+begin
+  FGestorDocumentosNuevo.Directorio := NOMBRE;
+  Result := FGestorDocumentosNuevo;
+end;
+
 function TBizObraDataTableRules.GetPresupuestos: IBizPresupuestosObra;
 begin
   Result := FPresupuestos;
@@ -639,6 +660,11 @@ begin
   FGestorDocumentos := Value;
 end;
 
+procedure TBizObraDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+begin
+  FGestorDocumentosNuevo := Value;
+end;
+
 procedure TBizObraDataTableRules.SetPresupuestos(const Value: IBizPresupuestosObra);
 begin
   FPresupuestos := Value;
@@ -989,6 +1015,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.Directorio := DESCRIPCION;
+  GestorDocumentosNuevo.Directorio := DESCRIPCION;  
 end;
 
 procedure TBizProyectosDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
@@ -1002,6 +1029,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarCancelTable;
+  GestorDocumentosNuevo.procesarCancelTable;
 end;
 
 procedure TBizProyectosDataTableRules.BeforeDelete(Sender: TDADataTable);
@@ -1010,6 +1038,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarDeleteTable;
+  GestorDocumentosNuevo.procesarDeleteTable;  
 end;
 
 constructor TBizProyectosDataTableRules.Create(aDataTable: TDADataTable);
@@ -1021,6 +1050,9 @@ begin
   //DOCUMENTOS ASOCIADOS
   FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
   FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosProyectos;
+  FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
+  FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosProyectosNueva;
+
   aDataTable.BeforeCancel := BeforeCancel;
   aDataTable.AfterCancel := AfterCancel;
 end;
@@ -1032,6 +1064,7 @@ begin
   
   //DOCUMENTOS ASOCIADOS
   FreeAndNil(FGestorDocumentos);
+  FreeAndNil(FGestorDocumentosNuevo);  
   inherited;
 end;
 
@@ -1041,6 +1074,12 @@ begin
   Result := FGestorDocumentos;
 end;
 
+function TBizProyectosDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
+begin
+  FGestorDocumentosNuevo.Directorio := DESCRIPCION;
+  Result := FGestorDocumentosNuevo;
+end;
+
 function TBizProyectosDataTableRules.GetObra: IBizObra;
 begin
   Result := FObra;
@@ -1071,6 +1110,11 @@ begin
   FGestorDocumentos := Value;
 end;
 
+procedure TBizProyectosDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+begin
+  FGestorDocumentosNuevo := Value;
+end;
+
 procedure TBizProyectosDataTableRules.SetObra(const Value: IBizObra);
 begin
   FObra := Value;

Modulos/Obras/Servidor/srvObras_Impl.dfm

@@ -27,7 +27,7 @@ object srvObras: TsrvObras
               'S.PROVINCIA, OBRAS.TIPO,'#10'    OBRAS.DIMENSIONES, OBRAS.HONORARIOS' +
               ', OBRAS.IMPORTEHONORARIOS,'#10'    OBRAS.APLICAHONORARIOS, OBRAS.TOT' +
               'ALPRESUPUESTOSINI, OBRAS.TOTALPRESUPUESTOSFIN,'#10'    OBRAS.CODIGOC' +
-              'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE'#10'  FROM OBRAS'#10'  LEFT J' +
+              'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE, OBRAS.ALMACEN'#10'  FROM OBRAS'#10'  LEFT J' +
               'OIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTOS.CODIGO)'
             StatementType = stSQL
             ColumnMappings = <
@@ -110,6 +110,10 @@ object srvObras: TsrvObras
               item
                 DatasetField = 'TOTALPRESUPUESTOSFIN'
                 TableField = 'TOTALPRESUPUESTOSFIN'
+              end
+              item
+                DatasetField = 'ALMACEN'
+                TableField = 'ALMACEN'
               end>
           end>
         Name = 'Obras'
@@ -338,6 +342,18 @@ object srvObras: TsrvObras
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+		  item
+            Name = 'ALMACEN'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript

Servidor/FactuGES.rodl

@@ -62,6 +62,18 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="darRutaProyectosNueva" UID="{80838AF7-9BC4-4C0D-A35E-EFE3129CAE18}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="darRutaNormativasNueva" UID="{412F6B65-1A05-4819-87FA-AF9CB727F0FF}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
 <Operation Name="darRutaNormativas" UID="{7105D2B8-8A2C-4D4A-AD86-6112D8062418}">
 <Parameters>
 <Parameter Name="Result" DataType="String" Flag="Result">

Servidor/FactuGES_Intf.pas

@@ -106,6 +106,8 @@ type
   IsrvConfiguracion = interface(IDARemoteService)
     ['{F3739ECF-58ED-416F-A4E8-261510BC5E89}']
     function darRutaProyectos: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darRutaNormativas: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;
@@ -122,6 +124,8 @@ type
     function __GetInterfaceName:string; override;
 
     function darRutaProyectos: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darRutaNormativas: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;
@@ -367,6 +371,50 @@ begin
   end
 end;
 
+function TsrvConfiguracion_Proxy.darRutaProyectosNueva: String;
+var
+  __request, __response : TMemoryStream;
+begin
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaProyectosNueva');
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(String), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
+function TsrvConfiguracion_Proxy.darRutaNormativasNueva: String;
+var
+  __request, __response : TMemoryStream;
+begin
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaNormativasNueva');
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(String), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
 function TsrvConfiguracion_Proxy.darRutaNormativas: String;
 var
   __request, __response : TMemoryStream;

Servidor/FactuGES_Invk.pas

@@ -45,6 +45,8 @@ type
   protected
   published
     procedure Invoke_darRutaProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darEstructuraDirProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darEstructuraDirNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -182,6 +184,38 @@ begin
   end;
 end;
 
+procedure TsrvConfiguracion_Invoker.Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function darRutaProyectosNueva: String; }
+var
+  lResult: String;
+begin
+  try
+    lResult := (__Instance as IsrvConfiguracion).darRutaProyectosNueva;
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaProyectosNuevaResponse');
+    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function darRutaNormativasNueva: String; }
+var
+  lResult: String;
+begin
+  try
+    lResult := (__Instance as IsrvConfiguracion).darRutaNormativasNueva;
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaNormativasNuevaResponse');
+    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
 procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function darRutaNormativas: String; }
 var

Servidor/ProGestion_Server.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
 MinorVer=0
-Release=3
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=2.0.3.0
+FileVersion=2.0.4.0
 InternalName=ProGestion_Server
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=ProGestion_Server.exe
 ProductName=ProGestion Server
-ProductVersion=1.0.0.0
+ProductVersion=2.0.4.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
@@ -176,30 +176,32 @@ C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+Item1=.\
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=17
+Count=18
 Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
-Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
+Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
-Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
+Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
-Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
+Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
-Item5=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
-Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
-Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\

Servidor/srvConfiguracion_Impl.dfm

@@ -45,6 +45,37 @@ object srvConfiguracion: TsrvConfiguracion
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'INTERVALOS'
+            SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_PROYECTOS_NUEVO'#39
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR'
+                TableField = 'VALOR'
+              end>
+          end>
+        Name = 'darRutaProyectosNueva'
+        Fields = <
+          item
+            Name = 'VALOR'
+            DataType = datString
+            Size = 100
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <
@@ -76,6 +107,37 @@ object srvConfiguracion: TsrvConfiguracion
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'INTERVALOS'
+            SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_NORMATIVAS_NUEVO'#39
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR'
+                TableField = 'VALOR'
+              end>
+          end>
+        Name = 'darRutaNormativasNueva'
+        Fields = <
+          item
+            Name = 'VALOR'
+            DataType = datString
+            Size = 100
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <

Servidor/srvConfiguracion_Impl.pas

@@ -26,6 +26,8 @@ type
     { IsrvConfiguracion methods }
     function darRutaProyectos: String;
     function darRutaNormativas: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;    
   end;
@@ -114,6 +116,36 @@ begin
   end;
 end;
 
+function TsrvConfiguracion.darRutaNormativasNueva: String;
+var
+   ADataSet : IDADataset;
+begin
+  try
+    Result:= '';
+    ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaNormativasNueva');
+    ADataSet.Open;
+    if ADataSet.Dataset.RecordCount > 0 then
+       Result := ADataSet.Dataset.Fields[0].AsString;
+  finally
+    ADataSet.Close;
+  end;
+end;
+
+function TsrvConfiguracion.darRutaProyectosNueva: String;
+var
+   ADataSet : IDADataset;
+begin
+  try
+    Result:= '';
+    ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaProyectosNueva');
+    ADataSet.Open;
+    if ADataSet.Dataset.RecordCount > 0 then
+       Result := ADataSet.Dataset.Fields[0].AsString;
+  finally
+    ADataSet.Close;
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);