From ffb2ec7ac59fc27f315ff307e6edd9847444b2f2 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 3 Oct 2007 16:27:01 +0000
Subject: [PATCH] git-svn-id:
 https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@33
 0c75b7a4-871f-7646-8a2f-f78d34cc349f

---
 Source/Servidor/srvConfiguracion_Impl.dfm | 57 ----------------
 Source/Servidor/srvConfiguracion_Impl.pas | 80 -----------------------
 Source/Servidor/srvReferencias_Impl.dfm   |  7 --
 Source/Servidor/srvReferencias_Impl.pas   | 44 -------------
 4 files changed, 188 deletions(-)
 delete mode 100644 Source/Servidor/srvConfiguracion_Impl.dfm
 delete mode 100644 Source/Servidor/srvConfiguracion_Impl.pas
 delete mode 100644 Source/Servidor/srvReferencias_Impl.dfm
 delete mode 100644 Source/Servidor/srvReferencias_Impl.pas

diff --git a/Source/Servidor/srvConfiguracion_Impl.dfm b/Source/Servidor/srvConfiguracion_Impl.dfm
deleted file mode 100644
index 95fac36b..00000000
--- a/Source/Servidor/srvConfiguracion_Impl.dfm
+++ /dev/null
@@ -1,57 +0,0 @@
-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
diff --git a/Source/Servidor/srvConfiguracion_Impl.pas b/Source/Servidor/srvConfiguracion_Impl.pas
deleted file mode 100644
index 9f64d02c..00000000
--- a/Source/Servidor/srvConfiguracion_Impl.pas
+++ /dev/null
@@ -1,80 +0,0 @@
-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.
diff --git a/Source/Servidor/srvReferencias_Impl.dfm b/Source/Servidor/srvReferencias_Impl.dfm
deleted file mode 100644
index e2121433..00000000
--- a/Source/Servidor/srvReferencias_Impl.dfm
+++ /dev/null
@@ -1,7 +0,0 @@
-inherited srvReferencias: TsrvReferencias
-  OldCreateOrder = True
-  Left = 200
-  Top = 200
-  Height = 300
-  Width = 300
-end
diff --git a/Source/Servidor/srvReferencias_Impl.pas b/Source/Servidor/srvReferencias_Impl.pas
deleted file mode 100644
index c0e6bd6b..00000000
--- a/Source/Servidor/srvReferencias_Impl.pas
+++ /dev/null
@@ -1,44 +0,0 @@
-unit srvReferencias_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:} DARemoteService_Impl,
-  {Used RODLs:} DataAbstract_Intf,
-  {Generated:} FactuGES_Intf;
-
-type
-  { TsrvReferencias }
-  TsrvReferencias = class(TDARemoteService, IsrvReferencias)
-  private
-  protected
-    { IsrvReferencias methods }
-  end;
-
-implementation
-
-{$R *.dfm}
-uses
-  {Generated:} FactuGES_Invk;
-
-procedure Create_srvReferencias(out anInstance : IUnknown);
-begin
-  anInstance := TsrvReferencias.Create(NIL);
-end;
-
-{ srvReferencias }
-initialization
-  TROClassFactory.Create('srvReferencias', Create_srvReferencias, TsrvReferencias_Invoker);
-
-finalization
-
-end.