Preparar para usar tienda web

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@67 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Modulos/Remesas de cliente/RemesasCliente_Group.groupproj

@@ -10,6 +10,8 @@
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" />
+    <Projects Include="..\Tienda web\Data\TiendaWeb_data.dproj" />
+    <Projects Include="..\Tienda web\Model\TiendaWeb_model.dproj" />
     <Projects Include="Controller\RemesasCliente_controller.dproj" />
     <Projects Include="Data\RemesasCliente_data.dproj" />
     <Projects Include="Model\RemesasCliente_model.dproj" />
@@ -121,14 +123,32 @@
   <Target Name="RemesasProveedor_view:Make">
     <MSBuild Projects="..\Remesas de proveedor\Views\RemesasProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="TiendaWeb_model">
+    <MSBuild Projects="..\Tienda web\Model\TiendaWeb_model.dproj" Targets="" />
+  </Target>
+  <Target Name="TiendaWeb_model:Clean">
+    <MSBuild Projects="..\Tienda web\Model\TiendaWeb_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TiendaWeb_model:Make">
+    <MSBuild Projects="..\Tienda web\Model\TiendaWeb_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="TiendaWeb_data">
+    <MSBuild Projects="..\Tienda web\Data\TiendaWeb_data.dproj" Targets="" />
+  </Target>
+  <Target Name="TiendaWeb_data:Clean">
+    <MSBuild Projects="..\Tienda web\Data\TiendaWeb_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="TiendaWeb_data:Make">
+    <MSBuild Projects="..\Tienda web\Data\TiendaWeb_data.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RemesasCliente_model;RemesasCliente_data;RemesasCliente_controller;RemesasCliente_view;RemesasCliente_plugin;FactuGES;FactuGES_Server;RemesasProveedor_view;TiendaWeb_model;TiendaWeb_data" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RemesasCliente_model:Clean;RemesasCliente_data:Clean;RemesasCliente_controller:Clean;RemesasCliente_view:Clean;RemesasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RemesasProveedor_view:Clean;TiendaWeb_model:Clean;TiendaWeb_data:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RemesasCliente_model:Make;RemesasCliente_data:Make;RemesasCliente_controller:Make;RemesasCliente_view:Make;RemesasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RemesasProveedor_view:Make;TiendaWeb_model:Make;TiendaWeb_data:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Servicios/FactuGES.RODL

@@ -1022,6 +1022,36 @@
 </Interface>
 </Interfaces>
 </Service>
+<Service Name="srvTiendaWeb" UID="{9004F980-A9F5-4D48-9C52-16A152079B20}" Ancestor="DataAbstractService">
+<Interfaces>
+<Interface Name="Default" UID="{A0C6D311-18C5-4851-AA96-02B3CA95BE75}">
+<Operations>
+<Operation Name="GetNextAutoInc" UID="{7253690A-E2F4-479A-86CB-9689EACC15AF}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="GeneratorName" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GetNextAutoIncOSC" UID="{F57C49DF-BBF0-4C99-BCCA-0446623FFAA0}">
+<Parameters>
+<Parameter Name="Result" DataType="Integer" Flag="Result">
+</Parameter>
+<Parameter Name="TableName" DataType="AnsiString" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="HayConexionConTienda" UID="{80C6DA8A-B243-4FE5-9648-E86CBFB99606}">
+<Parameters>
+<Parameter Name="Result" DataType="Boolean" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+</Operations>
+</Interface>
+</Interfaces>
+</Service>
 </Services>
 <EventSinks>
 </EventSinks>

Source/Servicios/FactuGES_Intf.pas

@@ -56,6 +56,7 @@ const
   IsrvPedidosCliente_IID : TGUID = '{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}';
   IsrvImpresiones_IID : TGUID = '{CC4477C1-AA2C-464D-B485-AB0C31E282A7}';
   IsrvRegistroCorreos_IID : TGUID = '{E912B281-0A69-49F5-ABA7-8A66FF17DD98}';
+  IsrvTiendaWeb_IID : TGUID = '{A0C6D311-18C5-4851-AA96-02B3CA95BE75}';
 
   { Event ID's }
 
@@ -94,6 +95,7 @@ type
   IsrvPedidosCliente = interface;
   IsrvImpresiones = interface;
   IsrvRegistroCorreos = interface;
+  IsrvTiendaWeb = interface;
 
   TRdxEmpresasArray = class;
   TIntegerArray = class;
@@ -925,6 +927,29 @@ type
     function AnadirMarcaEnvio(const NombreTabla: AnsiString; const IdsTabla: TIntegerArray): Boolean;
   end;
 
+  { IsrvTiendaWeb }
+  IsrvTiendaWeb = interface(IDataAbstractService)
+    ['{A0C6D311-18C5-4851-AA96-02B3CA95BE75}']
+    function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
+    function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
+    function HayConexionConTienda: Boolean;
+  end;
+
+  { CosrvTiendaWeb }
+  CosrvTiendaWeb = class
+    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiendaWeb;
+  end;
+
+  { TsrvTiendaWeb_Proxy }
+  TsrvTiendaWeb_Proxy = class(TDataAbstractService_Proxy, IsrvTiendaWeb)
+  protected
+    function __GetInterfaceName:string; override;
+
+    function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
+    function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
+    function HayConexionConTienda: Boolean;
+  end;
+
 implementation
 
 uses
@@ -2949,6 +2974,67 @@ begin
   end
 end;
 
+{ CosrvTiendaWeb }
+
+class function CosrvTiendaWeb.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvTiendaWeb;
+begin
+  result := TsrvTiendaWeb_Proxy.Create(aMessage, aTransportChannel);
+end;
+
+{ TsrvTiendaWeb_Proxy }
+
+function TsrvTiendaWeb_Proxy.__GetInterfaceName:string;
+begin
+  result := 'srvTiendaWeb';
+end;
+
+function TsrvTiendaWeb_Proxy.GetNextAutoInc(const GeneratorName: AnsiString): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoInc');
+    __Message.Write('GeneratorName', TypeInfo(AnsiString), GeneratorName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvTiendaWeb_Proxy.GetNextAutoIncOSC(const TableName: AnsiString): Integer;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetNextAutoIncOSC');
+    __Message.Write('TableName', TypeInfo(AnsiString), TableName, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Integer), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvTiendaWeb_Proxy.HayConexionConTienda: Boolean;
+begin
+  try
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'HayConexionConTienda');
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Boolean), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
@@ -2986,6 +3072,7 @@ initialization
   RegisterProxyClass(IsrvPedidosCliente_IID, TsrvPedidosCliente_Proxy);
   RegisterProxyClass(IsrvImpresiones_IID, TsrvImpresiones_Proxy);
   RegisterProxyClass(IsrvRegistroCorreos_IID, TsrvRegistroCorreos_Proxy);
+  RegisterProxyClass(IsrvTiendaWeb_IID, TsrvTiendaWeb_Proxy);
 
 
 finalization
@@ -3025,5 +3112,6 @@ finalization
   UnregisterProxyClass(IsrvPedidosCliente_IID);
   UnregisterProxyClass(IsrvImpresiones_IID);
   UnregisterProxyClass(IsrvRegistroCorreos_IID);
+  UnregisterProxyClass(IsrvTiendaWeb_IID);
 
 end.

Source/Servicios/FactuGES_Invk.pas

@@ -346,6 +346,17 @@ type
     procedure Invoke_AnadirMarcaEnvio(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
+  TsrvTiendaWeb_Invoker = class(TDataAbstractService_Invoker)
+  private
+  protected
+  public
+    constructor Create; override;
+  published
+    procedure Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GetNextAutoIncOSC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_HayConexionConTienda(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+  end;
+
 implementation
 
 uses
@@ -2583,5 +2594,70 @@ begin
   end;
 end;
 
+{ TsrvTiendaWeb_Invoker }
+
+constructor TsrvTiendaWeb_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+procedure TsrvTiendaWeb_Invoker.Invoke_GetNextAutoInc(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetNextAutoInc(const GeneratorName: AnsiString): Integer; }
+var
+  GeneratorName: AnsiString;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('GeneratorName', TypeInfo(AnsiString), GeneratorName, []);
+
+    lResult := (__Instance as IsrvTiendaWeb).GetNextAutoInc(GeneratorName);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiendaWeb', 'GetNextAutoIncResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TsrvTiendaWeb_Invoker.Invoke_GetNextAutoIncOSC(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GetNextAutoIncOSC(const TableName: AnsiString): Integer; }
+var
+  TableName: AnsiString;
+  lResult: Integer;
+begin
+  try
+    __Message.Read('TableName', TypeInfo(AnsiString), TableName, []);
+
+    lResult := (__Instance as IsrvTiendaWeb).GetNextAutoIncOSC(TableName);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiendaWeb', 'GetNextAutoIncOSCResponse');
+    __Message.Write('Result', TypeInfo(Integer), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
+procedure TsrvTiendaWeb_Invoker.Invoke_HayConexionConTienda(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function HayConexionConTienda: Boolean; }
+var
+  lResult: Boolean;
+begin
+  try
+    lResult := (__Instance as IsrvTiendaWeb).HayConexionConTienda;
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvTiendaWeb', 'HayConexionConTiendaResponse');
+    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+  end;
+end;
+
 initialization
 end.

Source/Servidor/Configuracion/uConexionOSC.dfm

@@ -0,0 +1,54 @@
+inherited frConexionOSC: TfrConexionOSC
+  object GroupBox1: TGroupBox
+    Left = 8
+    Top = 8
+    Width = 353
+    Height = 169
+    Caption = 'Configuraci'#243'n de la tienda'
+    TabOrder = 0
+    object Label1: TLabel
+      Left = 31
+      Top = 36
+      Width = 67
+      Height = 13
+      Alignment = taRightJustify
+      Caption = 'Origen ODBC:'
+    end
+    object edtBDSERVER: TcxTextEdit
+      Left = 104
+      Top = 32
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 0
+      Width = 209
+    end
+  end
+  object bComprobar: TButton
+    Left = 180
+    Top = 191
+    Width = 161
+    Height = 25
+    Action = actComprobar
+    TabOrder = 1
+  end
+  object ActionList1: TActionList
+    Left = 24
+    Top = 24
+    object actAceptar: TAction
+      Caption = '&Aceptar'
+    end
+    object actCancelar: TAction
+      Caption = '&Cancelar'
+    end
+    object actComprobar: TAction
+      Caption = 'Comprobar la conexi'#243'n'
+      OnExecute = actComprobarExecute
+    end
+  end
+end

Source/Servidor/Configuracion/uConexionOSC.pas

@@ -0,0 +1,56 @@
+unit uConexionOSC;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uFrameConfiguracion, ActnList, StdCtrls, cxControls, cxContainer,
+  cxEdit, cxTextEdit, DB;
+
+type
+  TfrConexionOSC = class(TFrameConfiguracion)
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    bComprobar: TButton;
+    ActionList1: TActionList;
+    actAceptar: TAction;
+    actCancelar: TAction;
+    actComprobar: TAction;
+    edtBDSERVER: TcxTextEdit;
+    procedure actComprobarExecute(Sender: TObject);
+  protected
+    procedure Finalize; override;
+  public
+    procedure Init; override;
+  end;
+
+
+implementation
+
+uses
+  uTiendaWebUtils, uDataModuleServer;
+
+{$R *.dfm}
+
+procedure TfrConexionOSC.actComprobarExecute(Sender: TObject);
+var
+  AErrorMsg : String; 
+begin
+  if HayConexionConTienda(edtBDSERVER.Text, AErrorMsg) then
+    ShowMessage('Conexión válida con la tienda')
+  else
+    ShowMessage('No se ha podido establecer la conexión con la tienda web.' +
+      #10#13 + #10#13 + AErrorMsg);
+end;
+
+procedure TfrConexionOSC.Finalize;
+begin
+  dmServer.FOSCServer := edtBDSERVER.Text;
+end;
+
+procedure TfrConexionOSC.Init;
+begin
+  edtBDSERVER.Text := dmServer.FOSCServer;
+end;
+
+end.

Source/Servidor/Configuracion/uConfiguracion.dfm

@@ -40,7 +40,7 @@ object fConfiguracion: TfConfiguracion
     Top = 8
     Width = 399
     Height = 289
-    ActivePage = pagGeneral
+    ActivePage = TabSheet1
     Images = PngImageList1
     TabOrder = 2
     OnChange = PageControl1Change
@@ -76,6 +76,32 @@ object fConfiguracion: TfConfiguracion
         ExplicitHeight = 260
       end
     end
+    object TabSheet1: TTabSheet
+      Caption = 'Tienda web'
+      ImageIndex = 2
+      inline frConexionOSC1: TfrConexionOSC
+        Left = 0
+        Top = 0
+        Width = 391
+        Height = 260
+        Align = alClient
+        TabOrder = 0
+        inherited GroupBox1: TGroupBox
+          Width = 369
+          ExplicitWidth = 369
+          inherited edtBDSERVER: TcxTextEdit
+            Top = 33
+            ExplicitTop = 33
+            ExplicitWidth = 249
+            Width = 249
+          end
+        end
+        inherited bComprobar: TButton
+          Left = 216
+          ExplicitLeft = 216
+        end
+      end
+    end
   end
   object ActionList1: TActionList
     Left = 8

Source/Servidor/Configuracion/uConfiguracion.pas

@@ -8,7 +8,7 @@ uses
   JvAppStorage, JvAppRegistryStorage, Contnrs, ExtCtrls, ImgList,
   PngImageList, JvExControls, JvGradientHeaderPanel, uFrameConfiguracion,
   JvComponentBase, JvPageList, JvExComCtrls, JvPageListTreeView,
-  uConexionBD, uConfGeneral;
+  uConexionBD, uConfGeneral, uConexionOSC;
 
 type
   TfConfiguracion = class(TForm)
@@ -24,6 +24,8 @@ type
     pagGeneral: TTabSheet;
     pagBD: TTabSheet;
     frConexionBD1: TfrConexionBD;
+    TabSheet1: TTabSheet;
+    frConexionOSC1: TfrConexionOSC;
     procedure actAceptarExecute(Sender: TObject);
     procedure actCancelarExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -93,6 +95,7 @@ begin
   case PageControl1.ActivePageIndex of
     0   : FPaginaActual := frConfGeneral1;
     1   : FPaginaActual := frConexionBD1;
+    2   : FPaginaActual := frConexionOSC1;    
   end;
 
   if Assigned(FPaginaActual) then

Source/Servidor/FactuGES_Server.dpr

@@ -152,7 +152,18 @@ uses
   schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
   schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
-  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas';
+  schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
+  srvTiendaWeb_Impl in '..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas' {srvTiendaWeb: TDataAbstractService},
+  uBizTiendaWebServer in '..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas',
+  uBizOscAddressBookServer in '..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas',
+  uBizOscCustomerServer in '..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas',
+  uBizOscManufacturerServer in '..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas',
+  uBizOscOrderServer in '..\Modulos\Tienda web\Model\uBizOscOrderServer.pas',
+  uBizOscProductServer in '..\Modulos\Tienda web\Model\uBizOscProductServer.pas',
+  schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
+  schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
+  uTiendaWebUtils in 'Utiles\uTiendaWebUtils.pas',
+  uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame};
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -33,20 +33,25 @@
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
     <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="FactuGES_Server.dpr">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
     <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
       <Form>srvEmpresas</Form>
       <DesignClass>TDARemoteService</DesignClass>
@@ -55,18 +60,18 @@
       <Form>srvProvinciasPoblaciones_Impl</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
       <Form>srvUsuarios</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
     <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
       <Form>RptAlbaranesCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -79,9 +84,9 @@
       <Form>srvAlbaranesCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
     <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
       <Form>RptAlbaranesProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -94,22 +99,22 @@
       <Form>srvAlbaranesProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
       <Form>srvAlmacenes</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
     <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
       <Form>srvArticulos</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas"/>
+    <DCCReference Include="..\Modulos\Comisiones\Model\uBizComisionesServer.pas" />
     <DCCReference Include="..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas">
       <Form>RptComisiones</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -118,13 +123,13 @@
       <Form>srvComisiones</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
     <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
       <Form>RptEtiquetasContacto</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -137,15 +142,15 @@
       <Form>srvContactos</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
       <Form>srvFabricantes</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
     <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
       <Form>RptFacturasCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -158,9 +163,9 @@
       <Form>srvFacturasCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
       <Form>RptFacturasProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -169,14 +174,14 @@
       <Form>srvFacturasProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
       <Form>srvFamilias</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
       <Form>srvFormasPago</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -189,34 +194,34 @@
       <Form>srvGestorInformes</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
       <Form>srvHistoricoMovimientos</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas">
       <Form>srvImpresiones</Form>
       <DesignClass>TDARemoteService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
       <Form>srvInventario</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
+    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
     <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
       <Form>srvObras</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
       <Form>RptPedidosProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -229,9 +234,9 @@
       <Form>srvPedidosProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos de cliente\Model\uBizPedidosClienteServer.pas" />
     <DCCReference Include="..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas">
       <Form>RptPedidosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -240,9 +245,9 @@
       <Form>srvPedidosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
       <Form>RptPresupuestosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -259,8 +264,8 @@
       <Form>srvPresupuestosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
       <Form>RptRecibosCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -269,8 +274,8 @@
       <Form>srvRecibosCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
       <Form>RptRecibosProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -279,8 +284,8 @@
       <Form>srvRecibosProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
       <Form>srvReferencias</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -289,9 +294,9 @@
       <Form>srvRegistroCorreos</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
     <DCCReference Include="..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas">
       <Form>RptRemesasCliente</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -300,9 +305,9 @@
       <Form>srvRemesasCliente</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
     <DCCReference Include="..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas">
       <Form>RptRemesasProveedor</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -311,20 +316,32 @@
       <Form>srvRemesasProveedor</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscAddressBookServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscCustomerServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscManufacturerServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscOrderServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizOscProductServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Model\uBizTiendaWebServer.pas" />
+    <DCCReference Include="..\Modulos\Tienda web\Servidor\srvTiendaWeb_Impl.pas">
+      <Form>srvTiendaWeb</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
       <Form>srvTiposIVA</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
     <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
       <Form>srvUnidadesMedida</Form>
       <DesignClass>TDataAbstractService</DesignClass>
     </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
     <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
       <Form>srvConfiguracion</Form>
       <DesignClass>TDataAbstractService</DesignClass>
@@ -333,6 +350,10 @@
       <Form>frConexionBD</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="Configuracion\uConexionOSC.pas">
+      <Form>frConexionOSC</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="Configuracion\uConfGeneral.pas">
       <Form>frConfGeneral</Form>
       <DesignClass>TFrame</DesignClass>
@@ -359,16 +380,17 @@
     <DCCReference Include="uServerMainForm.pas">
       <Form>fServerForm</Form>
     </DCCReference>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+    <DCCReference Include="Utiles\AHWord97.pas" />
-		<DCCReference Include="Utiles\MidasSpeedFix.pas"/>
+    <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+    <DCCReference Include="Utiles\uTiendaWebUtils.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Servidor/uDataModuleServer.dfm

@@ -3,7 +3,7 @@ object dmServer: TdmServer
   OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
   Height = 285
-  Width = 292
+  Width = 576
   object HTTPServer: TROIndyHTTPServer
     Dispatchers = <
       item
@@ -36,6 +36,12 @@ object dmServer: TdmServer
   object ConnectionManager: TDAConnectionManager
     OnConnectionAcquired = ConnectionManagerConnectionAcquired
     Connections = <
+      item
+        Name = 'MySQL'
+        ConnectionString = 
+          'MyDAC?Server=localhost;Database=luisleonosc_local;UserID=root;Pa' +
+          'ssword=proyec01;Port=3306;'
+      end
       item
         Name = 'IBX'
         ConnectionString = 
@@ -44,6 +50,12 @@ object dmServer: TdmServer
           'O8859_1;'
         ConnectionType = 'Interbase'
         Default = True
+      end
+      item
+        Name = 'MySQLDesarrollo'
+        ConnectionString = 
+          'ADO?AuxDriver=MSDASQL.1;Server=OSCommerce Desarrollo;useUnicode=' +
+          'True;characterEncoding=latin1_spanish_ci;'
       end>
     DriverManager = DriverManager
     PoolingEnabled = True
@@ -76,4 +88,12 @@ object dmServer: TdmServer
     Left = 224
     Top = 80
   end
+  object DAADODataTable1: TDAADODataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    Left = 224
+    Top = 144
+  end
 end

Source/Servidor/uDataModuleServer.pas

@@ -6,7 +6,8 @@ uses
   SysUtils, Classes, SyncObjs, uDAEngine, uDAIBXDriver, JvLogFile, uROSessions,
   JvComponentBase, JvAppStorage, JvAppRegistryStorage, uDAClasses,
   uDADriverManager, uROClient, uROBinMessage, uROServer, uROIndyTCPServer,
-  uROIndyHTTPServer, uDAInterfaces;
+  uROIndyHTTPServer, uDAInterfaces, uDAADODriver, 
+  uDAScriptingProvider, uDADataTable, uDAADODataTable;
 
 const
   SERVER_PORT = '8099';    // Puerto por defecto
@@ -24,6 +25,7 @@ type
     JvLogFile1: TJvLogFile;
     DAIBXDriver: TDAIBXDriver;
     ConnectionManager: TDAConnectionManager;
+    DAADODataTable1: TDAADODataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     procedure HTTPServerBeforeServerActivate(Sender: TObject);
@@ -285,6 +287,9 @@ begin
   ConnectionName := ConnectionManager.GetDefaultConnectionName;
   ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString;
 
+  with ConnectionManager.Connections.ConnectionByName('MySQL') do
+    ConnectionString := 'ADO?AuxDriver=MSDASQL.1;Server=' + FOSCServer + ';useUnicode=True;characterEncoding=latin1_spanish_ci;';
+
   if not ROIsService then
     ShowBalloonHint('Conectado a ' + ConnectionName, bfInfo);