Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios para tienda web

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@77 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
David Arranz 2010-09-22 09:30:41 +00:00
parent a5509ecc48
commit a43ae3bb7b
5 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

8
Build/Build.fbpInf
View File

@ -1,6 +1,6 @@
<project ServerProjectName=""> <project ServerProjectName="">
<watches/> <watches/>
<collapsedNodes></collapsedNodes> <collapsedNodes>{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}</collapsedNodes>
<breakpoints></breakpoints> <breakpoints></breakpoints>
<actions/> <actions/>
<propertysets/> <propertysets/>
@ -14,8 +14,8 @@
<Notes> <Notes>
<![CDATA[]]> <![CDATA[]]>
</Notes> </Notes>
<LastBuildRun>00:00:02</LastBuildRun> <LastBuildRun>00:28:48</LastBuildRun>
<LastBuildStart>03/09/2010 11:02:57</LastBuildStart> <LastBuildStart>17/09/2010 19:01:29</LastBuildStart>
<LastBuildState>True</LastBuildState> <LastBuildState>False</LastBuildState>
</properties> </properties>
</project> </project>

BIN
Build/Build.fbz6
View File

Binary file not shown.

4
Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.dfm
View File

@ -2,10 +2,11 @@ object srvTiendaWeb: TsrvTiendaWeb
OldCreateOrder = True OldCreateOrder = True
OnCreate = DataAbstractServiceCreate OnCreate = DataAbstractServiceCreate
SessionManager = dmServer.SessionManager SessionManager = dmServer.SessionManager
ConnectionName = 'IBX' ConnectionName = 'MySQL'
ServiceSchema = schTiendaWeb ServiceSchema = schTiendaWeb
ServiceDataStreamer = Bin2DataStreamer ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <> ExportedDataTables = <>
BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess
ValidateCommandExecution = DataAbstractServiceValidateCommandExecution ValidateCommandExecution = DataAbstractServiceValidateCommandExecution
Height = 377 Height = 377
@ -2914,6 +2915,7 @@ object srvTiendaWeb: TsrvTiendaWeb
Top = 86 Top = 86
end end
object bp_osc_Orders: TDABusinessProcessor object bp_osc_Orders: TDABusinessProcessor
OnBeforeProcessDelta = bp_osc_OrdersBeforeProcessDelta
Schema = schTiendaWeb Schema = schTiendaWeb
DeleteCommandName = 'Delete_osc_Orders' DeleteCommandName = 'Delete_osc_Orders'
UpdateCommandName = 'Update_osc_Orders' UpdateCommandName = 'Update_osc_Orders'

23
Source/Modulos/Tienda web/Servidor/srvTiendaWeb_Impl.pas
View File

@ -48,6 +48,8 @@ type
const aConnection: IDAConnection; const aDatasetName: string; const aConnection: IDAConnection; const aDatasetName: string;
const aParamNames: array of string; const aParamValues: array of Variant; const aParamNames: array of string; const aParamValues: array of Variant;
aSchema: TDASchema; var Allowed: Boolean); aSchema: TDASchema; var Allowed: Boolean);
procedure bp_osc_OrdersBeforeProcessDelta(Sender: TDABusinessProcessor;
const aDelta: IDADelta);
private private
procedure AsignarConexion (const AConnectionName: string); procedure AsignarConexion (const AConnectionName: string);
@ -91,20 +93,18 @@ begin
end; end;
end; end;
procedure TsrvTiendaWeb.bp_osc_OrdersBeforeProcessDelta(
Sender: TDABusinessProcessor; const aDelta: IDADelta);
begin
// AsignarConexion('MySQL');
end;
procedure TsrvTiendaWeb.DataAbstractServiceBeforeGetDatasetData( procedure TsrvTiendaWeb.DataAbstractServiceBeforeGetDatasetData(
aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean; aSender: TObject; const aDataset: IDADataset; const aIncludeSchema: Boolean;
const aMaxRecords: Integer); const aMaxRecords: Integer);
begin begin
{ if aDataSet.Name = nme_TiendaWeb then if aDataSet.Name = nme_TiendaWeb then
begin
AsignarConexion('IBX'); 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 { Aquí se asegura que el usuario sólo accede a los RemesasCliente
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder
@ -206,11 +206,6 @@ begin
Result := uTiendaWebUtils.HayConexionConTienda(dmServer.FOSCServer, AErrMsg); Result := uTiendaWebUtils.HayConexionConTienda(dmServer.FOSCServer, AErrMsg);
end; end;
{function TsrvTiendaWeb.UpdateDataOSC(const Delta: Binary): Binary;
begin
AsignarConexion('MySQL');
Result := UpdateData(Delta);
end;}
initialization initialization
TROClassFactory.Create('srvTiendaWeb', Create_srvTiendaWeb, TsrvTiendaWeb_Invoker); TROClassFactory.Create('srvTiendaWeb', Create_srvTiendaWeb, TsrvTiendaWeb_Invoker);