git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@32 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base_Group.groupproj

@@ -5,8 +5,6 @@
   <ItemGroup />
   <ItemGroup>
     <Projects Include="Base\Base.dproj" />
-    <Projects Include="Base\ControllerBase\ControllerBase.dproj" />
-    <Projects Include="Base\GUIBase\GUIBase.dproj" />
   </ItemGroup>
   <ProjectExtensions>
     <Borland.Personality>Default.Personality</Borland.Personality>
@@ -23,32 +21,14 @@
   <Target Name="Base:Make">
     <MSBuild Projects="Base\Base.dproj" Targets="Make" />
   </Target>
-  <Target Name="ControllerBase">
-    <MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="" />
-  </Target>
-  <Target Name="ControllerBase:Clean">
-    <MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="ControllerBase:Make">
-    <MSBuild Projects="Base\ControllerBase\ControllerBase.dproj" Targets="Make" />
-  </Target>
-  <Target Name="GUIBase">
-    <MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="" />
-  </Target>
-  <Target Name="GUIBase:Clean">
-    <MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="GUIBase:Make">
-    <MSBuild Projects="Base\GUIBase\GUIBase.dproj" Targets="Make" />
-  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;ControllerBase;GUIBase" />
+    <CallTarget Targets="Base" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;ControllerBase:Clean;GUIBase:Clean" />
+    <CallTarget Targets="Base:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;ControllerBase:Make;GUIBase:Make" />
+    <CallTarget Targets="Base:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm

@@ -0,0 +1,57 @@
+object srvConfiguracion: TsrvConfiguracion
+  OldCreateOrder = True
+  OnCreate = DARemoteServiceCreate
+  SessionManager = dmServer.SessionManager
+  ConnectionName = 'IBX'
+  ServiceSchema = schConfiguracion
+  ServiceDataStreamer = Bin2DataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Height = 160
+  Width = 300
+  object schConfiguracion: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'CODIGO'
+            DataType = datString
+            Size = 50
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'CONFIGURACION'
+            SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR'
+                TableField = 'VALOR'
+              end>
+          end>
+        Name = 'darValor'
+        Fields = <
+          item
+            Name = 'VALOR'
+            DataType = datString
+            Size = 100
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 40
+    Top = 16
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 40
+    Top = 80
+  end
+end

Source/Servidor/Configuracion/srvConfiguracion_Impl.pas

@@ -0,0 +1,80 @@
+unit srvConfiguracion_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider,
+  uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer,
+  uDABin2DataStreamer;
+
+
+type
+  { TsrvConfiguracion }
+  TsrvConfiguracion = class(TDataAbstractService, IsrvConfiguracion)
+    schConfiguracion: TDASchema;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    procedure DARemoteServiceCreate(Sender: TObject);
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+  protected
+    { IsrvConfiguracion methods }
+    function DarValor(const CODIGO: String): String;
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDAInterfaces, uDataModuleServer, Variants,
+  uROClasses;
+
+procedure Create_srvConfiguracion(out anInstance : IUnknown);
+begin
+  anInstance := TsrvConfiguracion.Create(NIL);
+end;
+
+{ srvConfiguracion }
+procedure TsrvConfiguracion.DARemoteServiceCreate(Sender: TObject);
+begin
+  SessionManager := dmServer.SessionManager;
+end;
+
+function TsrvConfiguracion.DarValor(const CODIGO: String): String;
+var
+   ADataSet : IDADataset;
+begin
+  try
+    ADataSet := schConfiguracion.NewDataset(Connection, 'darValor', ['CODIGO'], [CODIGO]);
+    ADataSet.Open;
+    if ADataSet.Dataset.RecordCount > 0 then
+       Result := ADataSet.Dataset.Fields[0].AsVariant
+    else
+       RaiseError('Falta variable de configuracion: ' + CODIGO);
+  finally
+    ADataSet.Close;
+  end;
+end;
+
+procedure TsrvConfiguracion.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+initialization
+  TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);
+
+finalization
+
+end.

Source/Servidor/FactuGES_Server.bdsproj

@@ -103,16 +103,17 @@
 			<Compiler Name="DuplicatesIgnored">True</Compiler>
 			<Compiler Name="UnitInitSeq">True</Compiler>
 			<Compiler Name="LocalPInvoke">True</Compiler>
-			<Compiler Name="CodePage"></Compiler>  <Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
-      <Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
+			<Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
-      <Compiler Name="XMLUnknownEntity">True</Compiler>
+			<Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
-      <Compiler Name="XMLInvalidNameStart">True</Compiler>
+			<Compiler Name="XMLUnknownEntity">True</Compiler>
-      <Compiler Name="XMLInvalidName">True</Compiler>
+			<Compiler Name="XMLInvalidNameStart">True</Compiler>
-      <Compiler Name="XMLExpectedCharacter">True</Compiler>
+			<Compiler Name="XMLInvalidName">True</Compiler>
-      <Compiler Name="XMLCRefNoResolve">True</Compiler>
+			<Compiler Name="XMLExpectedCharacter">True</Compiler>
-      <Compiler Name="XMLNoParm">True</Compiler>
+			<Compiler Name="XMLCRefNoResolve">True</Compiler>
-      <Compiler Name="XMLNoMatchingParm">True</Compiler>
+			<Compiler Name="XMLNoParm">True</Compiler>
-    </Compiler>
+			<Compiler Name="XMLNoMatchingParm">True</Compiler>
+		</Compiler>
 		<Linker>
 			<Linker Name="MapFile">3</Linker>
 			<Linker Name="OutputObjs">0</Linker>
@@ -180,15 +181,13 @@
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 			<VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</VersionInfoKeys></VersionInfoKeys>
 		<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>  <Signing>
+    </Excluded_Packages>
-      <Signing Name="SignAssembly">False</Signing>
+		<Signing>
-    </Signing>
+			<Signing Name="SignAssembly">False</Signing>
-    <buildevents/>
+		</Signing>
-  </Delphi.Personality>
+		<buildevents/>
+	</Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.dpr

@@ -18,7 +18,26 @@ uses
   srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
   uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
   srvLogin_Impl in 'srvLogin_Impl.pas',
-  srvEmpresas_Impl in '..\Modulos\Empresas\Servidor\srvEmpresas_Impl.pas',
+  srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},
+  srvConfiguracion_Impl in 'Configuracion\srvConfiguracion_Impl.pas' {srvConfiguracion: TDataAbstractService};
+
+uses
+  ExceptionLog,
+  uROComInit,
+  Forms,
+  uServerMainForm in 'uServerMainForm.pas' {fServerForm},
+  uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
+  uConexionBD in 'Configuracion\uConexionBD.pas' {frConexionBD: TFrame},
+  uConfGeneral in 'Configuracion\uConfGeneral.pas' {frConfGeneral: TFrame},
+  uConfiguracion in 'Configuracion\uConfiguracion.pas' {fConfiguracion: TForm},
+  uFrameConfiguracion in 'Configuracion\uFrameConfiguracion.pas' {FrameConfiguracion: TFrame},
+  uDataModuleServer in 'uDataModuleServer.pas' {dmServer: TDataModule},
+  FactuGES_Intf in '..\Servicios\FactuGES_Intf.pas',
+  FactuGES_Invk in '..\Servicios\FactuGES_Invk.pas',
+  srvContactos_Impl in '..\Modulos\Contactos\Servidor\srvContactos_Impl.pas' {srvContactos: TDARemoteService},
+  uDatabaseUtils in 'Utiles\uDatabaseUtils.pas',
+  srvLogin_Impl in 'srvLogin_Impl.pas',
+  srvEmpresas_Impl in '..\Base\Empresas\Servidor\srvEmpresas_Impl.pas' {srvEmpresas: TDARemoteService},,
   uSesionesUtils in 'Utiles\uSesionesUtils.pas',
   uUsersManager in 'uUsersManager.pas',
   uServerAppUtils in 'Utiles\uServerAppUtils.pas',
@@ -33,8 +52,8 @@ uses
   srvFamilias_Impl in '..\Modulos\Familias\Servidor\srvFamilias_Impl.pas' {srvFamilias: TDARemoteService},
   schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
   schFamiliasServer_Intf in '..\Modulos\Familias\Model\schFamiliasServer_Intf.pas',
-  schEmpresasClient_Intf in '..\Modulos\Empresas\Model\schEmpresasClient_Intf.pas',
+  schEmpresasClient_Intf in '..\Base\Empresas\Model\schEmpresasClient_Intf.pas',
-  schEmpresasServer_Intf in '..\Modulos\Empresas\Model\schEmpresasServer_Intf.pas',
+  schEmpresasServer_Intf in '..\Base\Empresas\Model\schEmpresasServer_Intf.pas',
   srvFormasPago_Impl in '..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas' {srvFormasPago: TDARemoteService},
   srvTiposIVA_Impl in '..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas' {srvTiposIVA: TDARemoteService},
   schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
@@ -45,7 +64,7 @@ uses
   RegExpr in 'Utiles\RegExpr.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  srvUsuarios_Impl in '..\Modulos\Usuarios\Servidor\srvUsuarios_Impl.pas';
+  srvUsuarios_Impl in '..\Base\Usuarios\Servidor\srvUsuarios_Impl.pas' {srvUsuarios: TDARemoteService},;
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}