diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 17700a6..46e0796 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf index 0c54c48..7eb63bd 100644 --- a/Build/Build.fbpInf +++ b/Build/Build.fbpInf @@ -1,6 +1,6 @@ - + {154CD4CE-0F61-40F6-8CE6-CF525D3CFDCA},{789902B1-5E64-4FD9-80BF-6113B13BFE12},{AD23CE23-8728-48FA-84FD-264E27BA8F46},{C61122F3-C791-4A88-8A9F-53A4F282AC6F},{E8E8671F-894B-4049-B4A6-905B57207637} @@ -14,8 +14,8 @@ - 00:00:02 - 03/09/2010 11:02:57 - True + 00:28:48 + 17/09/2010 19:01:29 + False diff --git a/Build/Build.fbz6 b/Build/Build.fbz6 index c1c1b83..e768426 100644 Binary files a/Build/Build.fbz6 and b/Build/Build.fbz6 differ diff --git a/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm b/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm index 591c040..fbad44d 100644 --- a/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm +++ b/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm @@ -2,10 +2,11 @@ object srvTiendaWeb: TsrvTiendaWeb OldCreateOrder = True OnCreate = DataAbstractServiceCreate SessionManager = dmServer.SessionManager - ConnectionName = 'IBX' + ConnectionName = 'MySQL' ServiceSchema = schTiendaWeb ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> + BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess ValidateCommandExecution = DataAbstractServiceValidateCommandExecution Height = 377 @@ -2914,6 +2915,7 @@ object srvTiendaWeb: TsrvTiendaWeb Top = 86 end object bp_osc_Orders: TDABusinessProcessor + OnBeforeProcessDelta = bp_osc_OrdersBeforeProcessDelta Schema = schTiendaWeb DeleteCommandName = 'Delete_osc_Orders' UpdateCommandName = 'Update_osc_Orders' diff --git a/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas b/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas index f47665a..51d24b3 100644 --- a/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas +++ b/Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas @@ -48,6 +48,8 @@ type 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); @@ -91,20 +93,18 @@ 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 - begin + if aDataSet.Name = nme_TiendaWeb then AsignarConexion('IBX'); - showmessage('Asigno IBX'); - end - else - begin - AsignarConexion('MySQL'); - showmessage('Asigno mySQL'); - end; { Aquí se asegura que el usuario sólo accede a los RemesasCliente de las empresas a las que tiene permiso para acceder @@ -206,11 +206,6 @@ begin Result := uTiendaWebUtils.HayConexionConTienda(dmServer.FOSCServer, AErrMsg); end; -{function TsrvTiendaWeb.UpdateDataOSC(const Delta: Binary): Binary; -begin - AsignarConexion('MySQL'); - Result := UpdateData(Delta); -end;} initialization TROClassFactory.Create('srvTiendaWeb', Create_srvTiendaWeb, TsrvTiendaWeb_Invoker);