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

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

@ -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);