Tienda web terminada.

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

Source/Base/Base.dproj

@@ -58,63 +58,63 @@
       <Form>DataModuleImpresiones</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\designide.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Controller\View\xmlrtl.dcp" />
     <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
       <Form>DataModuleRegistroCorreos</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
-/* c:\temp\dtf8F.tmp */
+/* c:\temp\dtf8A.tmp */

Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
-/* c:\temp\dtf8D.tmp */
+/* c:\temp\dtf88.tmp */

Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
-/* c:\temp\dtf8B.tmp */
+/* c:\temp\dtf86.tmp */

Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
-/* c:\temp\dtfF3.tmp */
+/* c:\temp\dtfF2.tmp */

Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc

@@ -26,4 +26,4 @@ END
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
 /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
-/* c:\temp\dtfF1.tmp */
+/* c:\temp\dtfF0.tmp */

Source/Modulos/Tienda web/Controller/Utiles/uActualizarClientesUtils.pas

@@ -350,7 +350,7 @@ var
 
 //  ADlg : TJSDialog;
   Resultado : Boolean;
-  s : String;
+//  s : String;
 
   ACustomerList : TIntegerList;
   AIndex : Integer;
@@ -392,8 +392,8 @@ begin
 {    if AClientes.DataTable.RecordCount > 0 then
       ADlg.Progress.Max := AClientes.DataTable.RecordCount;
 
-    ADlg.Execute;
+    ADlg.Execute;}
-    }
+
 
     {s := '';
     AOSCCustomers.DataTable.First;
@@ -416,25 +416,25 @@ begin
 
       if not AOSCCustomerController.Localizar(AOSCCustomers, AClientes.ID) then
       begin
-        s := Format('Añadiendo %s... ', [AClientes.NOMBRE]);
+        //s := Format('Añadiendo %s... ', [AClientes.NOMBRE]);
         Resultado := AnadirOSCCustomer(AOSCCustomers, AClientes);
-        if Resultado then
+        {if Resultado then
           s := s + 'OK'
         else
-          s := s + 'Fallo';
+          s := s + 'Fallo';}
       end
       else begin
         if HayCambiosPendientes(AClientes, AOSCCustomers, ATiendaWeb.ULTIMA_ACTUALIZACION) then
         begin
-          s := Format('Actualizando %s... ', [AClientes.NOMBRE]);
+          //s := Format('Actualizando %s... ', [AClientes.NOMBRE]);
           Resultado := ActualizarOSCCustomer(AOSCCustomers, AClientes);
-          if Resultado then
+          {if Resultado then
             s := s + 'OK'
           else
-            s := s + 'Fallo';
+           s := s + 'Fallo';}
         end
-        else
+        {else
-          s := Format('%s sin cambios', [AClientes.NOMBRE]);
+          s := Format('%s sin cambios', [AClientes.NOMBRE]);}
       end;
 
 //      ADlg.Expando.Lines.Add(s);
@@ -449,7 +449,7 @@ begin
       Application.ProcessMessages;
       if not ACustomerList.Find(AOSCCustomers.rdx_customers_id_local, AIndex) then
       begin
-        s := Format('Eliminado %s... ', [AOSCCustomers.customers_firstname]);
+        //s := Format('Eliminado %s... ', [AOSCCustomers.customers_firstname]);
 //        ADlg.Expando.Lines.Add(s);
         AOSCCustomers.Delete;
       end;

Source/Modulos/Tienda web/Controller/Utiles/uActualizarProveedoresUtils.pas

@@ -108,7 +108,7 @@ var
 
   //ADlg : TJSDialog;
   Resultado : Boolean;
-  s : String;
+//  s : String;
 
   AManufacturerList : TIntegerList;
   AIndex : Integer;
@@ -164,25 +164,25 @@ begin
 
       if not AOSCManufacturerController.Localizar(AOSCManufacturers, AProveedores.ID) then
       begin
-        s := Format('Añadiendo %s... ', [AProveedores.NOMBRE]);
+        //s := Format('Añadiendo %s... ', [AProveedores.NOMBRE]);
         Resultado := AnadirOSCManufacturer(AOSCManufacturers, AProveedores);
-        if Resultado then
+        {if Resultado then
           s := s + 'OK'
         else
-          s := s + 'Fallo';
+          s := s + 'Fallo';}
       end
       else begin
         if HayCambiosPendientes(AProveedores, ATiendaWeb.ULTIMA_ACTUALIZACION) then
         begin
-          s := Format('Actualizando %s... ', [AProveedores.NOMBRE]);
+          //s := Format('Actualizando %s... ', [AProveedores.NOMBRE]);
           Resultado := ActualizarOSCManufacturer(AOSCManufacturers, AProveedores);
-          if Resultado then
+          {if Resultado then
             s := s + 'OK'
           else
-            s := s + 'Fallo';
+            s := s + 'Fallo';}
         end
-        else
+{        else
-          s := Format('%s sin cambios', [AProveedores.NOMBRE]);
+          s := Format('%s sin cambios', [AProveedores.NOMBRE]);}
       end;
 
       //ADlg.Expando.Lines.Add(s);
@@ -205,7 +205,7 @@ begin
       Application.ProcessMessages;    
       if not AManufacturerList.Find(AOSCManufacturers.rdx_manufacturers_id_local, AIndex) then
       begin
-        s := Format('Eliminado %s... ', [AOSCManufacturers.manufacturers_name]);
+        //s := Format('Eliminado %s... ', [AOSCManufacturers.manufacturers_name]);
         //ADlg.Expando.Lines.Add(s);
         AOSCManufacturers.Delete;
       end;
@@ -220,7 +220,6 @@ begin
     FreeAndNIL(ADlg);
     Application.ProcessMessages;}
     
-
     FreeAndNIL(AManufacturerList);
 
     AProveedores.DataTable.Active := False;

Source/Modulos/Tienda web/Controller/uOscCustomersController.pas

@@ -376,12 +376,13 @@ begin
   begin
     ShowHourglassCursor;
     try
-      if AOscCustomers.EsNuevo then
+      {if AOscCustomers.EsNuevo then
         NuevoID := FDataModule.GetNextIDOSC('customers')
       else
         NuevoID := AOscCustomers.customers_id;
 
-      AsignarID(AOscCustomers, NuevoID);
+      AsignarID(AOscCustomers, NuevoID);}
+
       AOscCustomers.DataTable.ApplyUpdates;
       
       Result := True;

Source/Modulos/Tienda web/Controller/uOscManufacturersController.pas

@@ -375,10 +375,10 @@ begin
     try
 {      if AOscManufacturers.EsNuevo then
         NuevoID := FDataModule.GetNextID(AOscManufacturers.DataTable.LogicalName)
-      else}
+      else
         NuevoID := AOscManufacturers.manufacturers_id;
 
-      AsignarID(AOscManufacturers, NuevoID);
+      AsignarID(AOscManufacturers, NuevoID);}
       AOscManufacturers.DataTable.ApplyUpdates;
       
       Result := True;

Source/Modulos/Tienda web/Controller/uOscOrdersController.pas

@@ -354,13 +354,13 @@ begin
   begin
     ShowHourglassCursor;
     try
-      if AOscOrders.EsNuevo then
+{      if AOscOrders.EsNuevo then
         NuevoID := FDataModule.GetNextIDOSC('customers')
       else
         NuevoID := AOscOrders.customers_id;
 
       AsignarID(AOscOrders, NuevoID);
-      showmessage('voy a applyupdates');
+      showmessage('voy a applyupdates');}
       AOscOrders.DataTable.ApplyUpdates;
       
       Result := True;

Source/Modulos/Tienda web/Controller/uTiendaWebController.pas

@@ -41,11 +41,6 @@ type
 
     function HayConexionConTienda: Boolean;
 
-    {function HayConexionConTienda(ATiendaWeb : IBizTiendaWeb): Boolean; overload;
-     function HayConexionConTienda(const ABDServer : String;
-        const ABDName : String; const ABDUser : String;
-        const ABDPass : String): Boolean; overload;}
-
     function ActualizarTienda(ATiendaWeb : IBizTiendaWeb): Boolean;
     function DescargarPedidos(ATiendaWeb : IBizTiendaWeb): Boolean;    
   end;
@@ -74,10 +69,6 @@ type
     function Ver(ATiendaWeb: IBizTiendaWeb) : Integer;
 
     function HayConexionConTienda: Boolean;
-    {function HayConexionConTienda(ATiendaWeb : IBizTiendaWeb): Boolean; overload;
-     function HayConexionConTienda(const ABDServer : String;
-        const ABDName : String; const ABDUser : String;
-        const ABDPass : String): Boolean; overload;}
 
     function ActualizarTienda(ATiendaWeb : IBizTiendaWeb): Boolean;
     function DescargarPedidos(ATiendaWeb : IBizTiendaWeb): Boolean;
@@ -449,12 +440,6 @@ begin
   begin
     ShowHourglassCursor;
     try
-      if ATiendaWeb.EsNuevo then
-        NuevoID := FDataModule.GetNextID(ATiendaWeb.DataTable.LogicalName)
-      else
-        NuevoID := ATiendaWeb.ID;
-
-      AsignarID(ATiendaWeb, NuevoID);
       ATiendaWeb.DataTable.ApplyUpdates;
 
       Result := True;
@@ -470,62 +455,5 @@ begin
   Result := FDataModule.HayConexionConTienda;
 end;
 
-{function TTiendaWebController.HayConexionConTienda(
-  ATiendaWeb: IBizTiendaWeb): Boolean;
-begin
-  if not Assigned(ATiendaWeb) then
-    raise Exception.Create ('TiendaWeb no asignada');
-
-  with ATiendaWeb do
-  begin
-    DataTable.Active := True;
-    Result := Self.HayConexionConTienda(BDSERVER, BDNAME, BDUSER, BDPASS);
-  end;
-end;
-
-function TTiendaWebController.HayConexionConTienda(
-  const ABDServer : String; const ABDName : String;
-  const ABDUser : String; const ABDPass : String): Boolean;
-var
-  SQLConnection1: TSQLConnection;
-begin
-  SQLConnection1 := TSQLConnection.Create(nil);
-  try
-    with SQLConnection1 do
-    begin
-      Name := 'SQLConnection1';
-      ConnectionName := 'MySQLConnection';
-      DriverName := 'MySQL';
-      GetDriverFunc := 'getSQLDriverMYSQL';
-      LibraryName := 'dbxmys30.dll';
-      LoginPrompt := False;
-      with Params do
-      begin
-        Clear;
-        Add('BlobSize=-1');
-        Add('DriverName=MySQL');
-        Add('ErrorResourceFile=');
-        Add('LocaleCode=0000');
-        Add('Compressed=True');
-        Add('Encrypted=True');
-        Add('Database=' + ABDName);
-        Add('HostName=' + ABDServer);
-        Add('User_Name=' + ABDUser);
-        Add('Password=' + ABDPass);
-      end;
-      VendorLib := 'LIBMYSQL.dll';
-
-      try
-        Connected := True;
-        Result := True;
-        Connected := False;
-      except
-        Result := False;
-      end;
-    end;
-  finally
-    FreeAndNIL(SQLConnection1);
-  end;
-end;}
 
 end.

Source/Modulos/Tienda web/Data/TiendaWeb_data.drc

@@ -12,6 +12,6 @@ STRINGTABLE
 BEGIN
 END
 
-/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
+/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.DFM */
 /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
-/* c:\temp\dtfA5.tmp */
+/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.drf */

Source/Modulos/Tienda web/Data/uDataModuleTiendaWeb.dfm

@@ -40,7 +40,7 @@ inherited DataModuleTiendaWeb: TDataModuleTiendaWeb
     Fields = <
       item
         Name = 'address_book_id'
-        DataType = datInteger
+        DataType = datAutoInc
         Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
         ServerAutoRefresh = True
         InPrimaryKey = True
@@ -285,7 +285,7 @@ inherited DataModuleTiendaWeb: TDataModuleTiendaWeb
     Fields = <
       item
         Name = 'orders_id'
-        DataType = datInteger
+        DataType = datAutoInc
         Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
         ServerAutoRefresh = True
         InPrimaryKey = True

Source/Modulos/Tienda web/Data/uDataModuleTiendaWeb.pas

@@ -61,12 +61,9 @@ type
     ds_osc_Products: TDADataSource;
     procedure DAClientDataModuleCreate(Sender: TObject);
   protected
-    function DarNombreGenerador(DataSetName: String): String; virtual;
-
     function _GetOSCAddressBook: IBizOscAddressBook;
     function _GetOSCOrderProducts: IBizOSCOrderProducts;
   public
-    function GetNextID(const DataSetName : String) : Integer;
     function GetItems: IBizTiendaWeb;
     function GetItem(const ID_Empresa : Integer) : IBizTiendaWeb;
     function NewItem : IBizTiendaWeb;
@@ -83,8 +80,6 @@ type
     function GetOSCProduct(const IDLocal : Integer): IBizOSCProduct;
     function NewOSCProduct : IBizOSCProduct;
 
-    function GetNextIDOSC(const DataSetName : String) : Integer;
-
     function GetOSCOrders: IBizOscOrder;
     function GetOSCOrder(const IDLocal : Integer): IBizOscOrder;
 
@@ -114,26 +109,6 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleTiendaWeb.DarNombreGenerador(DataSetName: String): String;
-begin
-  Result := '';
-  if DataSetName = nme_TiendaWeb then
-    Result := 'GEN_TIENDA_WEB_ID'
-end;
-
-function TDataModuleTiendaWeb.GetNextID(const DataSetName: String): Integer;
-var
-  aGeneratorName : String;
-begin
-  aGeneratorName := DarNombreGenerador(DataSetName);
-  Result := (RORemoteService as IsrvTiendaWeb).GetNextAutoInc(aGeneratorName)
-end;
-
-function TDataModuleTiendaWeb.GetNextIDOSC(const DataSetName: String): Integer;
-begin
-  Result := (RORemoteService as IsrvTiendaWeb).GetNextAutoIncOSC(DataSetName);
-end;
-
 function TDataModuleTiendaWeb._GetOSCAddressBook: IBizOscAddressBook;
 var
   AAddressBook : TDAMemDataTable;

Source/Modulos/Tienda web/Model/Data/uIDataModuleTiendaWeb.pas

@@ -33,7 +33,6 @@ type
   IDataModuleTiendaWeb = interface
   ['{E1208D47-C342-4DE1-879A-20F7689AB00A}']
     function GetItems: IBizTiendaWeb;
-    function GetNextID(const DataSetName : String) : Integer;
     function GetItem(const ID_Empresa : Integer) : IBizTiendaWeb;
     function NewItem : IBizTiendaWeb;
 
@@ -52,8 +51,6 @@ type
     function GetOSCOrders: IBizOscOrder;
     function GetOSCOrder(const IDLocal : Integer): IBizOscOrder;
 
-    function GetNextIDOSC(const DataSetName : String) : Integer;
-
     function HayConexionConTienda : Boolean;
   end;
 

Source/Modulos/Tienda web/Model/uBizOscAddressBookServer.pas

@@ -11,13 +11,6 @@ const
 
 type
   TBizOscAddressBookServer = class(Tosc_CustomersBusinessProcessorRules)
-
-  protected
-    procedure AfterProcessChange(Sender: TDABusinessProcessor;
-      aChange: TDADeltaChange; Processed: Boolean;
-      var CanRemoveFromDelta: Boolean); override;
-
-          
   end;
 
 implementation
@@ -28,28 +21,6 @@ uses
 
 { TBizOscAddressBookServer }
 
-procedure TBizOscAddressBookServer.AfterProcessChange(Sender: TDABusinessProcessor;
-  aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  ADataset : IDADataset;
-begin
-  ASchema := Sender.Schema;
-  ACurrentConn := GetBusinessProcessorConnection(Sender);
-
-  inherited;
-
-  case aChange.ChangeType of
-    ctInsert: begin
-                ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
-                aChange.NewValueByName[fld_osc_AddressBookaddress_book_id] := ADataSet.FieldByName('last_id').AsInteger;
-              end;
-  end;
-
-  CanRemoveFromDelta := False;
-end;
-
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_OSC_ADDRESSBOOK, TBizOscAddressBookServer);
 

Source/Modulos/Tienda web/Model/uBizOscCustomerServer.pas

@@ -25,10 +25,6 @@ type
       aChangeType: TDAChangeType; aChange: TDADeltaChange;
       const aCommand: IDASQLCommand; var CanRemoveFromDelta: Boolean;
       Error: Exception); override;
-
-    procedure GenerateSQL(Sender: TDABusinessProcessor;
-      ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
-      const aDelta: IDADelta; var SQL: string); override;
   end;
 
 implementation
@@ -41,23 +37,11 @@ uses
 
 procedure TBizOscCustomerServer.AfterProcessChange(Sender: TDABusinessProcessor;
   aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  ADataset : IDADataset;
 begin
-  ASchema := Sender.Schema;
-  ACurrentConn := GetBusinessProcessorConnection(Sender);
-
   inherited;
 
   case aChange.ChangeType of
-    ctInsert: begin
+    ctInsert: Insert_Customers_Info(aChange);
-                ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
-                aChange.NewValueByName[fld_osc_Customerscustomers_id] := ADataSet.FieldByName('last_id').AsInteger;
-                Insert_Customers_Info(aChange);
-              end;
-
     ctUpdate: Update_Customers_Info(aChange);
     ctDelete: Delete_Customers_Info(aChange);
   end;
@@ -86,13 +70,6 @@ begin
   end;
 end;
 
-procedure TBizOscCustomerServer.GenerateSQL(Sender: TDABusinessProcessor;
-  ChangeType: TDAChangeType; const ReferencedStatement: TDAStatement;
-  const aDelta: IDADelta; var SQL: string);
-begin
-  inherited;
-//  fServerForm.Memo1.Lines.Add(SQL);
-end;
 
 procedure TBizOscCustomerServer.Insert_Customers_Info(aChange: TDADeltaChange);
 var

Source/Modulos/Tienda web/Model/uBizOscManufacturerServer.pas

@@ -36,23 +36,10 @@ uses
 
 procedure TBizOscManufacturerServer.AfterProcessChange(Sender: TDABusinessProcessor;
   aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  ADataset : IDADataset;
 begin
-  ASchema := Sender.Schema;
-  ACurrentConn := GetBusinessProcessorConnection(Sender);
-
   inherited;
-
   case aChange.ChangeType of
-    ctInsert: begin
+    ctInsert: Insert_Manufacturers_Info(aChange);
-                ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
-                aChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id] := ADataSet.FieldByName('last_id').AsInteger;
-                Insert_Manufacturers_Info(aChange);
-              end;
-
     ctUpdate: Update_Manufacturers_Info(aChange);
     ctDelete: Delete_Manufacturers_Info(aChange);
   end;

Source/Modulos/Tienda web/Model/uBizOscOrderServer.pas

@@ -37,23 +37,11 @@ uses
 
 procedure TBizOscOrderServer.AfterProcessChange(Sender: TDABusinessProcessor;
   aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  ADataset : IDADataset;
 begin
-  ASchema := Sender.Schema;
-  ACurrentConn := GetBusinessProcessorConnection(Sender);
-
   inherited;
 
   case aChange.ChangeType of
-    ctInsert: begin
+    ctInsert: Insert_Orders_Info(aChange);
-                ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
-                aChange.NewValueByName[fld_osc_Ordersorders_id] := ADataSet.FieldByName('last_id').AsInteger;
-                Insert_Orders_Info(aChange);
-              end;
-
     ctUpdate: Update_Orders_Info(aChange);
     ctDelete: Delete_Orders_Info(aChange);
   end;

Source/Modulos/Tienda web/Model/uBizOscProductServer.pas

@@ -43,20 +43,11 @@ const
 
 procedure TBizOscProductServer.AfterProcessChange(Sender: TDABusinessProcessor;
   aChange: TDADeltaChange; Processed: Boolean; var CanRemoveFromDelta: Boolean);
-var
-  ASchema : TDASchema;
-  ACurrentConn : IDAConnection;
-  ADataset : IDADataset;
 begin
-  ASchema := Sender.Schema;
-  ACurrentConn := GetBusinessProcessorConnection(Sender);
-
   inherited;
 
   case aChange.ChangeType of
     ctInsert: begin
-                ADataSet := ASchema.NewDataset(ACurrentConn, 'GetLastID', [], [], True);
-                aChange.NewValueByName[fld_osc_Productsproducts_id] := ADataSet.FieldByName('last_id').AsInteger;
                 Insert_Products_Description(aChange);
                 Insert_Products_to_categories(aChange);
               end;

Source/Modulos/Tienda web/Model/uBizTiendaWebServer.pas

@@ -11,7 +11,6 @@ const
 
 type
   TBizTiendaWebServer = class(TTiendaWebBusinessProcessorRules)
-    procedure BeforeProcessChange(Sender: TDABusinessProcessor; aChangeType: TDAChangeType; aChange: TDADeltaChange; var ProcessChange: boolean); override;
   end;
 
 implementation
@@ -20,19 +19,8 @@ uses
   Dialogs, SysUtils, Variants, uDataModuleServer, uDAClasses, DARemoteService_Impl,
   schTiendaWebClient_Intf, uBusinessUtils, uROClasses;
 
-{ TBizRemesasClienteServer }
-
 { TBizTiendaWebServer }
 
-procedure TBizTiendaWebServer.BeforeProcessChange(Sender: TDABusinessProcessor;
-  aChangeType: TDAChangeType; aChange: TDADeltaChange;
-  var ProcessChange: boolean);
-begin
-  inherited;
-  showMessage('Hola');
-
-end;
-
 initialization
   RegisterBusinessProcessorRules(BIZ_SERVER_TIENDA_WEB, TBizTiendaWebServer);
 

Source/Modulos/Tienda web/Plugin/uPluginTiendaWeb.pas

@@ -66,7 +66,6 @@ end;
 procedure TPluginTiendaWeb.actActualizarTiendaUpdate(Sender: TObject);
 begin
   //La tienda solo estará activa para la empresa Luis León Representaciones
-  if (Sender as TAction).Enabled then
   (Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
 end;
 
@@ -83,7 +82,6 @@ end;
 procedure TPluginTiendaWeb.actConfigurarTiendaUpdate(Sender: TObject);
 begin
   //La tienda solo estará activa para la empresa Luis León Representaciones
-  if (Sender as TAction).Enabled then
   (Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
 end;
 
@@ -101,7 +99,6 @@ procedure TPluginTiendaWeb.actRecogerPedidosUpdate(Sender: TObject);
 begin
   inherited;
   //La tienda solo estará activa para la empresa Luis León Representaciones
-  if (Sender as TAction).Enabled then
   (Sender as TAction).Enabled := (AppFactuGES.EmpresaActiva.ID = 1)
 end;
 

Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm

@@ -7,8 +7,6 @@ object srvTiendaWeb: TsrvTiendaWeb
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>
   BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
-  ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
-  ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
   Height = 377
   Width = 583
   object schTiendaWeb: TDASchema
@@ -137,10 +135,12 @@ object srvTiendaWeb: TsrvTiendaWeb
           item
             Name = 'date_account_created'
             DataType = datDateTime
+            ReadOnly = True
           end
           item
             Name = 'date_account_last_modified'
             DataType = datDateTime
+            ReadOnly = True
           end>
       end
       item
@@ -250,7 +250,7 @@ object srvTiendaWeb: TsrvTiendaWeb
         Fields = <
           item
             Name = 'address_book_id'
-            DataType = datInteger
+            DataType = datAutoInc
             Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
             ServerAutoRefresh = True
             InPrimaryKey = True
@@ -805,7 +805,7 @@ object srvTiendaWeb: TsrvTiendaWeb
         Fields = <
           item
             Name = 'orders_id'
-            DataType = datInteger
+            DataType = datAutoInc
             Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!'
             ServerAutoRefresh = True
             InPrimaryKey = True
@@ -1115,6 +1115,90 @@ object srvTiendaWeb: TsrvTiendaWeb
             Name = 'comments'
             DataType = datMemo
           end>
+      end
+      item
+        IsPublic = False
+        Params = <>
+        Statements = <
+          item
+            Connection = 'MySQL'
+            SQL = 'SELECT last_insert_id() as customers_id'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'customers_id'
+                TableField = 'customers_id'
+              end>
+          end>
+        Name = 'osc_Customers-Refresh'
+        Fields = <
+          item
+            Name = 'customers_id'
+            DataType = datLargeInt
+          end>
+      end
+      item
+        IsPublic = False
+        Params = <>
+        Statements = <
+          item
+            Connection = 'MySQL'
+            SQL = 'SELECT last_insert_id() as address_book_id'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'address_book_id'
+                TableField = 'address_book_id'
+              end>
+          end>
+        Name = 'osc_AddressBook-Refresh'
+        Fields = <
+          item
+            Name = 'address_book_id'
+            DataType = datLargeInt
+          end>
+      end
+      item
+        IsPublic = False
+        Params = <>
+        Statements = <
+          item
+            Connection = 'MySQL'
+            SQL = 'SELECT last_insert_id() as manufacturers_id'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'manufacturers_id'
+                TableField = 'manufacturers_id'
+              end>
+          end>
+        Name = 'osc_Manufacturers-Refresh'
+        Fields = <
+          item
+            Name = 'manufacturers_id'
+            DataType = datLargeInt
+          end>
+      end
+      item
+        IsPublic = False
+        Params = <>
+        Statements = <
+          item
+            Connection = 'MySQL'
+            SQL = 'SELECT last_insert_id() as products_id'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'products_id'
+                TableField = 'products_id'
+              end>
+          end>
+        Name = 'osc_Products-Refresh'
+        Fields = <
+          item
+            Name = 'products_id'
+            DataType = datLargeInt
+          end>
       end>
     JoinDataTables = <>
     UnionDataTables = <>
@@ -2872,22 +2956,22 @@ object srvTiendaWeb: TsrvTiendaWeb
   end
   object bp_osc_Customers: TDABusinessProcessor
     Schema = schTiendaWeb
-    InsertCommandName = 'Insert_Customers'
     DeleteCommandName = 'Delete_Customers'
     UpdateCommandName = 'Update_Customers'
+    RefreshDatasetName = 'osc_Customers-Refresh'
     ReferencedDataset = 'osc_Customers'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateInsert, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 384
     Top = 22
   end
   object bp_osc_AddressBook: TDABusinessProcessor
     Schema = schTiendaWeb
-    InsertCommandName = 'Insert_AddressBook'
     DeleteCommandName = 'Delete_AddressBook'
     UpdateCommandName = 'Update_AddressBook'
+    RefreshDatasetName = 'osc_AddressBook-Refresh'
     ReferencedDataset = 'osc_AddressBook'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poAutoGenerateInsert, poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 384
     Top = 86
@@ -2897,8 +2981,9 @@ object srvTiendaWeb: TsrvTiendaWeb
     InsertCommandName = 'Insert_osc_Manufacturers'
     DeleteCommandName = 'Delete_osc_Manufacturers'
     UpdateCommandName = 'Update_osc_Manufacturers'
+    RefreshDatasetName = 'osc_Manufacturers-Refresh'
     ReferencedDataset = 'osc_Manufacturers'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 496
     Top = 22
@@ -2908,19 +2993,20 @@ object srvTiendaWeb: TsrvTiendaWeb
     InsertCommandName = 'Insert_osc_Products'
     DeleteCommandName = 'Delete_osc_Products'
     UpdateCommandName = 'Update_osc_Products'
+    RefreshDatasetName = 'osc_Products-Refresh'
     ReferencedDataset = 'osc_Products'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 496
     Top = 86
   end
   object bp_osc_Orders: TDABusinessProcessor
-    OnBeforeProcessDelta = bp_osc_OrdersBeforeProcessDelta
     Schema = schTiendaWeb
     DeleteCommandName = 'Delete_osc_Orders'
     UpdateCommandName = 'Update_osc_Orders'
+    RefreshDatasetName = 'osc_Orders-Refresh'
     ReferencedDataset = 'osc_Orders'
-    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
+    ProcessorOptions = [poPrepareCommands]
     UpdateMode = updWhereKeyOnly
     Left = 48
     Top = 166

Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas

@@ -40,23 +40,10 @@ type
       const aDataset: IDADataset; const aIncludeSchema: Boolean;
       const aMaxRecords: Integer);
     procedure DataAbstractServiceCreate(Sender: TObject);
-    procedure DataAbstractServiceValidateDatasetAccess(Sender: TObject;
-      const aConnection: IDAConnection; const aDatasetName: string;
-      const aParamNames: array of string; const aParamValues: array of Variant;
-      aSchema: TDASchema; var Allowed: Boolean);
-    procedure DataAbstractServiceValidateCommandExecution(Sender: TObject;
-      const aConnection: IDAConnection; const aDatasetName: string;
-      const aParamNames: array of string; const aParamValues: array of Variant;
-      aSchema: TDASchema; var Allowed: Boolean);
-    procedure bp_osc_OrdersBeforeProcessDelta(Sender: TDABusinessProcessor;
-      const aDelta: IDADelta);
   private
     procedure AsignarConexion (const AConnectionName: string);
-
+    function GetConnectionForObject(const aName: string): IDAConnection; override;
   protected
-    function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
-    function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
-//    function UpdateDataOSC(const Delta: Binary): Binary;
     function HayConexionConTienda: Boolean;
   end;
 
@@ -83,7 +70,7 @@ procedure TsrvTiendaWeb.AsignarConexion(const AConnectionName: string);
 begin
   // En el caso de conexión MySQL también solicito otra conexión nueva
   // para evitar problemas.
-  if (AConnectionName <> Self.ConnectionName) or (AConnectionName = 'MySQL')  then
+  if (AConnectionName <> Self.ConnectionName) then 
   begin
     if Connection.InTransaction then
       Connection.CommitTransaction;
@@ -93,19 +80,10 @@ begin
   end;
 end;
 
-procedure TsrvTiendaWeb.bp_osc_OrdersBeforeProcessDelta(
-  Sender: TDABusinessProcessor; const aDelta: IDADelta);
-begin
-//  AsignarConexion('MySQL');
-end;
-
 procedure TsrvTiendaWeb.DataAbstractServiceBeforeGetDatasetData(
   aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean;
   const aMaxRecords: Integer);
 begin
-  if aDataSet.Name = nme_TiendaWeb then
-     AsignarConexion('IBX');
-
     { Aquí se asegura que el usuario sólo accede a los RemesasCliente
       de las empresas a las que tiene permiso para acceder
       filtrando DataSet por ID_EMPRESA. }
@@ -125,78 +103,15 @@ begin
   bp_osc_Orders.BusinessRulesID := BIZ_SERVER_OSC_ORDER;
 end;
 
-procedure TsrvTiendaWeb.DataAbstractServiceValidateCommandExecution(
+function TsrvTiendaWeb.GetConnectionForObject(
-  Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
+  const aName: string): IDAConnection;
-  const aParamNames: array of string; const aParamValues: array of Variant;
-  aSchema: TDASchema; var Allowed: Boolean);
-var
-  i: integer;
-  ConName: string;
 begin
-  ConName := '';
+  if aName = nme_TiendaWeb then
+     AsignarConexion('IBX')
+  else
+    AsignarConexion('MySQL');
 
-  for i := 0 to aSchema.Datasets.Count - 1 do
+  Result := inherited GetConnectionForObject(aName);
-    if AnsiSameText(aSchema.Datasets[i].Name, aDatasetName) then begin
-      ConName := aSchema.Datasets[i].Statements[0].Connection;
-      break;
-    end;
-
-  if not AnsiSameText(ConName, aConnection.Name) then begin
-    Connection := aSchema.ConnectionManager.NewConnection(ConName);
-
-{    for i := 0 to aSchema.ConnectionManager.Connections.Count - 1 do
-      aSchema.ConnectionManager.Connections[i].Default :=
-          AnsiSameText(aSchema.ConnectionManager.Connections[i].Name, ConName);
-}
-  end;
-end;
-
-procedure TsrvTiendaWeb.DataAbstractServiceValidateDatasetAccess(
-  Sender: TObject; const aConnection: IDAConnection; const aDatasetName: string;
-  const aParamNames: array of string; const aParamValues: array of Variant;
-  aSchema: TDASchema; var Allowed: Boolean);
-var
-  i: integer;
-  ConName: string;
-begin
-  ConName := '';
-
-  for i := 0 to aSchema.Datasets.Count - 1 do
-    if AnsiSameText(aSchema.Datasets[i].Name, aDatasetName) then begin
-      ConName := aSchema.Datasets[i].Statements[0].Connection;
-      break;
-    end;
-
-  if not AnsiSameText(ConName, aConnection.Name) then begin
-    Connection := aSchema.ConnectionManager.NewConnection(ConName);
-
-{    for i := 0 to aSchema.ConnectionManager.Connections.Count - 1 do
-      aSchema.ConnectionManager.Connections[i].Default :=
-          AnsiSameText(aSchema.ConnectionManager.Connections[i].Name, ConName);
-}          
-  end;
-end;
-
-function TsrvTiendaWeb.GetNextAutoInc(const GeneratorName: AnsiString): Integer;
-begin
-  Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
-end;
-
-function TsrvTiendaWeb.GetNextAutoIncOSC(const TableName: AnsiString): Integer;
-var
-  vConn : IDAConnection;
-  ds: IDADataset;
-begin
-  vConn := dmServer.ConnectionManager.NewConnection('MySQL');
-  vConn.BeginTransaction;
-  try
-    ds := vConn.NewDataset(Format('SHOW TABLE STATUS WHERE NAME=''%s''', [TableName]));
-    ds.Open;
-    Result := ds.FieldByName('Auto_increment').AsInteger;
-  finally
-    vConn.CommitTransaction;
-    ds := NIL;
-  end;
 end;
 
 function TsrvTiendaWeb.HayConexionConTienda: Boolean;

Source/Modulos/Tienda web/Views/uEditorActualizarTiendaWeb.dfm

@@ -19,8 +19,8 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
   inherited pnlBotones: TPanel
     Top = 235
     Width = 474
-    ExplicitTop = 383
+    ExplicitTop = 235
-    ExplicitWidth = 638
+    ExplicitWidth = 474
     inherited btnAceptar: TButton
       Left = 312
       ExplicitLeft = 312
@@ -32,7 +32,7 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
   end
   inherited pnlHeader: TPanel
     Width = 474
-    ExplicitWidth = 638
+    ExplicitWidth = 474
     inherited lblInstruccion: TLabel
       Width = 424
       Caption = 'Elija el contenido a actualizar'
@@ -50,8 +50,8 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
   inherited pnlCuerpo: TPanel
     Width = 474
     Height = 167
-    ExplicitWidth = 638
+    ExplicitWidth = 474
-    ExplicitHeight = 315
+    ExplicitHeight = 167
     object Label1: TLabel
       Left = 69
       Top = 55
@@ -60,16 +60,17 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
       Caption = 'Actualiza los clientes con acceso permitido a la tienda web'
     end
     object Image1: TImage
-      Left = 110
+      Left = 133
-      Top = 29
+      Top = 33
       Width = 16
-      Height = 20
+      Height = 16
+      AutoSize = True
       Picture.Data = {
         0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000010
         0000001008060000001FF3FF61000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F000001CD49444154384FA593CB4B546118C6C73FA0
+        17100000171001186111DB000001CD49444154384FA593CB4B546118C6C73FA0
         95FB961384B7390B571564428BC490C88C460261A02090A845EDDCB81235BCB4
         481D8E32CE98055E20C20CAD598897C60B72B0D4F188979A066FD974D4D3E82F
         BF0F66F2C310725E78E083EF3CBFF7795FBE93063852AA9E418354E410E644C5
@@ -86,18 +87,20 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
         ECFC716C9EC191393581789A62A6FF55F2298BC369E510BF732AFA030F32BF8A
         1940D9410000000049454E44AE426082}
       Transparent = True
+      Visible = False
     end
     object Image2: TImage
       Left = 133
       Top = 86
-      Width = 17
+      Width = 16
-      Height = 19
+      Height = 16
+      AutoSize = True
       Picture.Data = {
         0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000010
         0000001008060000001FF3FF61000000017352474200AECE1CE9000000046741
         4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000
         80E8000075300000EA6000003A98000017709CBA513C00000009704859730000
-        17110000171101CA26F33F000001C949444154384FA593CD4B545118C6A73FC0
+        17100000171001186111DB000001C949444154384FA593CD4B545118C6A73FC0
         FF205AEA66D469C45C079A0BC1905083460461A02090B085EEDCB412952C5B68
         0E373F6614C1C64584159A2EC4514713B968E974C58F1A074DB3F19AD7D15F73
         0ECCE841116C5EF8C181739FE77DDE9773AF01B6946A704427156C429CA86864
@@ -114,18 +117,19 @@ inherited fEditorActualizarTiendaWeb: TfEditorActualizarTiendaWeb
         5A6624B0A426104F53CC7455924F591CFE179BF89D53E11F96DABFE183CE91E1
         0000000049454E44AE426082}
       Transparent = True
+      Visible = False
     end
     object Label3: TLabel
       Left = 69
       Top = 113
-      Width = 289
+      Width = 280
       Height = 13
       Caption = 'Actualizar los proveedores de la tienda web y sus art'#237'culos'
     end
     object cbClientes: TCheckBox
       Left = 50
       Top = 32
-      Width = 55
+      Width = 77
       Height = 17
       Caption = 'Clientes'
       Checked = True

Source/Servicios/FactuGES.RODL

@@ -1026,22 +1026,6 @@
 <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">

Source/Servicios/FactuGES_Intf.pas

@@ -930,8 +930,6 @@ type
   { 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;
 
@@ -945,8 +943,6 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GetNextAutoInc(const GeneratorName: AnsiString): Integer;
-    function GetNextAutoIncOSC(const TableName: AnsiString): Integer;
     function HayConexionConTienda: Boolean;
   end;
 
@@ -2988,38 +2984,6 @@ 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

Source/Servicios/FactuGES_Invk.pas

@@ -352,8 +352,6 @@ type
   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;
 
@@ -2602,46 +2600,6 @@ begin
   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

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>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.8.3.0\0"
               VALUE "ProductVersion", "1.8.3.0\0"
-              VALUE "CompileDate", "miércoles, 22 de septiembre de 2010 11:37\0"
+              VALUE "CompileDate", "jueves, 23 de septiembre de 2010 12:05\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Servidor/uDataModuleServer.dfm

@@ -40,7 +40,7 @@ object dmServer: TdmServer
         Name = 'MySQL'
         ConnectionString = 
           'MyDAC?Server=localhost;Database=luisleonosc_local;UserID=root;Pa' +
-          'ssword=proyec01;Port=3306;'
+          'ssword=root;Port=3306;'
       end
       item
         Name = 'IBX'
@@ -88,12 +88,4 @@ 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

@@ -25,7 +25,6 @@ type
     JvLogFile1: TJvLogFile;
     DAIBXDriver: TDAIBXDriver;
     ConnectionManager: TDAConnectionManager;
-    DAADODataTable1: TDAADODataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
     procedure HTTPServerBeforeServerActivate(Sender: TObject);