Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Añadido un nuevo servicio encargado de la gestión de las REFERENCIAS.

Browse Source 
- El servidor muestra una barra de progreso cuando se cierra.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@169 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-16 13:46:06 +00:00
parent 8d297ed968
commit 34bc7dddb2
12 changed files with 720 additions and 227 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Source/Servicios/FactuGES.RODL
View File

@ -1,5 +1,9 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Library Name="FactuGES" UID="{99553DD5-13B5-40EB-B7E6-D2B9A7C1B4D6}" Version="3.0"> <Library Name="FactuGES" UID="{99553DD5-13B5-40EB-B7E6-D2B9A7C1B4D6}" Version="3.0">
<Groups>
<Group Name="General" UID="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}">
</Group>
</Groups>
<Services> <Services>
<Service Name="srvContactos" UID="{A7EF4DF4-CE77-42ED-B157-F5FAC249AAD8}" Ancestor="DataAbstractService"> <Service Name="srvContactos" UID="{A7EF4DF4-CE77-42ED-B157-F5FAC249AAD8}" Ancestor="DataAbstractService">
<Interfaces> <Interfaces>
@ -26,6 +30,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvLogin" UID="{F8EE30A7-9452-40FB-9902-E73B782A0CDD}" Ancestor="DataAbstractService"> <Service Name="srvLogin" UID="{F8EE30A7-9452-40FB-9902-E73B782A0CDD}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}"> <Interface Name="Default" UID="{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}">
<Operations> <Operations>
@ -72,6 +77,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvEmpresas" UID="{72868303-9CA9-48D5-A1A1-F60CB223C576}" Ancestor="DataAbstractService"> <Service Name="srvEmpresas" UID="{72868303-9CA9-48D5-A1A1-F60CB223C576}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{590F06D1-26B4-435B-B636-50CB8FFE6353}"> <Interface Name="Default" UID="{590F06D1-26B4-435B-B636-50CB8FFE6353}">
<Operations> <Operations>
@ -80,6 +86,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvConfiguracion" UID="{D96583A7-8B06-4B2C-8193-CE5FE7DFFBEB}" Ancestor="DataAbstractService"> <Service Name="srvConfiguracion" UID="{D96583A7-8B06-4B2C-8193-CE5FE7DFFBEB}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{0882B8A4-C8AA-424E-8FC1-C6226B670522}"> <Interface Name="Default" UID="{0882B8A4-C8AA-424E-8FC1-C6226B670522}">
<Operations> <Operations>
@ -96,6 +103,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvFamilias" UID="{65318CE1-3062-4248-9396-F7A54EEEC304}" Ancestor="DataAbstractService"> <Service Name="srvFamilias" UID="{65318CE1-3062-4248-9396-F7A54EEEC304}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{D351175C-CBFD-4328-BF2A-FDC0B05A6308}"> <Interface Name="Default" UID="{D351175C-CBFD-4328-BF2A-FDC0B05A6308}">
<Operations> <Operations>
@ -104,6 +112,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvFormasPago" UID="{98CBCDEA-1259-458F-BBD5-0423D81E6FF2}" Ancestor="DataAbstractService"> <Service Name="srvFormasPago" UID="{98CBCDEA-1259-458F-BBD5-0423D81E6FF2}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{38AA9F85-B454-4A87-B6E8-E9C8BB2A17D9}"> <Interface Name="Default" UID="{38AA9F85-B454-4A87-B6E8-E9C8BB2A17D9}">
<Operations> <Operations>
@ -112,6 +121,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvTiposIVA" UID="{1E018962-ADD6-489D-A20E-A3A9B0CA6328}" Ancestor="DataAbstractService"> <Service Name="srvTiposIVA" UID="{1E018962-ADD6-489D-A20E-A3A9B0CA6328}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{09B44AB5-6212-448A-8DF2-A503E3F2C9B1}"> <Interface Name="Default" UID="{09B44AB5-6212-448A-8DF2-A503E3F2C9B1}">
<Operations> <Operations>
@ -120,6 +130,7 @@
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvUsuarios" UID="{BB619F7B-23AF-4160-BF44-A8A5CD9209F8}" Ancestor="DataAbstractService"> <Service Name="srvUsuarios" UID="{BB619F7B-23AF-4160-BF44-A8A5CD9209F8}" Ancestor="DataAbstractService">
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces> <Interfaces>
<Interface Name="Default" UID="{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}"> <Interface Name="Default" UID="{29388459-1A0B-46BE-AF9E-66A9E7AABB0B}">
<Operations> <Operations>
@ -313,6 +324,37 @@
</Interface> </Interface>
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Private="1">
<Documentation><![CDATA[Para uso interno del servidor.]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces>
<Interface Name="Default" UID="{B957528D-3BE1-412D-A35E-801C97CCD252}">
<Operations>
<Operation Name="DarNuevaReferencia" UID="{EA3276C4-2F49-4BFC-A2F8-97C705FC7C4C}">
<Parameters>
<Parameter Name="Result" DataType="String" Flag="Result">
</Parameter>
<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="IncrementarValorReferencia" UID="{03B94B86-1037-4E4A-AF5D-F82575C8900E}">
<Parameters>
<Parameter Name="Result" DataType="Boolean" Flag="Result">
</Parameter>
<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="Valor" DataType="String" Flag="In" >
</Parameter>
<Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services> </Services>
<EventSinks> <EventSinks>
</EventSinks> </EventSinks>

77
Source/Servicios/FactuGES_Intf.pas
View File

@ -45,6 +45,7 @@ const
IsrvPedidosProveedor_IID : TGUID = '{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}'; IsrvPedidosProveedor_IID : TGUID = '{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}';
IsrvAlbaranesCliente_IID : TGUID = '{6E910718-9AB0-47BB-9875-B0DE66A68D7A}'; IsrvAlbaranesCliente_IID : TGUID = '{6E910718-9AB0-47BB-9875-B0DE66A68D7A}';
IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}'; IsrvAlbaranesProveedor_IID : TGUID = '{66B71884-5CE4-4574-B825-60CDA956B628}';
IsrvReferencias_IID : TGUID = '{B957528D-3BE1-412D-A35E-801C97CCD252}';
{ Event ID's } { Event ID's }
@ -72,6 +73,7 @@ type
IsrvPedidosProveedor = interface; IsrvPedidosProveedor = interface;
IsrvAlbaranesCliente = interface; IsrvAlbaranesCliente = interface;
IsrvAlbaranesProveedor = interface; IsrvAlbaranesProveedor = interface;
IsrvReferencias = interface;
TRdxEmpresasArray = class; TRdxEmpresasArray = class;
@ -557,6 +559,30 @@ type
function GenerateReport(const ID: String): Binary; function GenerateReport(const ID: String): Binary;
end; end;
{ IsrvReferencias }
{ Description:
Para uso interno del servidor. }
IsrvReferencias = interface
['{B957528D-3BE1-412D-A35E-801C97CCD252}']
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
end;
{ CosrvReferencias }
CosrvReferencias = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferencias;
end;
{ TsrvReferencias_Proxy }
TsrvReferencias_Proxy = class(TROProxy, IsrvReferencias)
protected
function __GetInterfaceName:string; override;
function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
end;
implementation implementation
uses uses
@ -1407,6 +1433,55 @@ begin
end end
end; end;
{ CosrvReferencias }
class function CosrvReferencias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferencias;
begin
result := TsrvReferencias_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvReferencias_Proxy }
function TsrvReferencias_Proxy.__GetInterfaceName:string;
begin
result := 'srvReferencias';
end;
function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(String), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
begin
try
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarValorReferencia');
__Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Write('Valor', TypeInfo(String), Valor, []);
__Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Boolean), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);
@ -1432,6 +1507,7 @@ initialization
RegisterProxyClass(IsrvPedidosProveedor_IID, TsrvPedidosProveedor_Proxy); RegisterProxyClass(IsrvPedidosProveedor_IID, TsrvPedidosProveedor_Proxy);
RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy); RegisterProxyClass(IsrvAlbaranesCliente_IID, TsrvAlbaranesCliente_Proxy);
RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy); RegisterProxyClass(IsrvAlbaranesProveedor_IID, TsrvAlbaranesProveedor_Proxy);
RegisterProxyClass(IsrvReferencias_IID, TsrvReferencias_Proxy);
finalization finalization
@ -1459,5 +1535,6 @@ finalization
UnregisterProxyClass(IsrvPedidosProveedor_IID); UnregisterProxyClass(IsrvPedidosProveedor_IID);
UnregisterProxyClass(IsrvAlbaranesCliente_IID); UnregisterProxyClass(IsrvAlbaranesCliente_IID);
UnregisterProxyClass(IsrvAlbaranesProveedor_IID); UnregisterProxyClass(IsrvAlbaranesProveedor_IID);
UnregisterProxyClass(IsrvReferencias_IID);
end. end.

56
Source/Servicios/FactuGES_Invk.pas
View File

@ -169,6 +169,14 @@ type
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvReferencias_Invoker = class(TROInvoker)
private
protected
published
procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation implementation
uses uses
@ -650,5 +658,53 @@ begin
end; end;
end; end;
{ TsrvReferencias_Invoker }
procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; }
var
NombreReferencia: String;
EmpresaID: Integer;
lResult: String;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'DarNuevaReferenciaResponse');
__Message.Write('Result', TypeInfo(String), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
procedure TsrvReferencias_Invoker.Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; }
var
NombreReferencia: String;
Valor: String;
EmpresaID: Integer;
lResult: Boolean;
begin
try
__Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
__Message.Read('Valor', TypeInfo(String), Valor, []);
__Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'IncrementarValorReferenciaResponse');
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
end;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

39
Source/Servidor/FactuGES_Server.dpr
View File

@ -3,6 +3,7 @@ program FactuGES_Server;
{#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
uses uses
ExceptionLog,
uROComInit, uROComInit,
Forms, Forms,
uServerMainForm in 'uServerMainForm.pas' {fServerForm}, uServerMainForm in 'uServerMainForm.pas' {fServerForm},
@ -56,10 +57,6 @@ uses
schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas',
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente}, uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente},
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService}, srvRecibosProveedor_Impl in '..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas' {srvRecibosProveedor: TDataAbstractService},
@ -68,35 +65,42 @@ uses
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService}, srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService},
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService}, srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas', uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas', uBizFacturasProveedorServer in '..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas',
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas', schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas', schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService}, srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDataAbstractService},
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDataAbstractService},
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService}, srvInventario_Impl in '..\Modulos\Inventario\Servidor\srvInventario_Impl.pas' {srvInventario: TDataAbstractService},
srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService}, srvHistoricoMovimientos_Impl in '..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas' {srvHistoricoMovimientos: TDataAbstractService},
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas', schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas', schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule}; uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
srvReferencias_Impl in 'srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService},
uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}
@ -108,7 +112,6 @@ begin
Application.ShowMainForm := False; Application.ShowMainForm := False;
Application.CreateForm(TfServerForm, fServerForm); Application.CreateForm(TfServerForm, fServerForm);
Application.CreateForm(TdmServer, dmServer);
Application.Run; Application.Run;
Application.Terminate; Application.Terminate;
end. end.

423
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,215 +1,224 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
<ItemGroup> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<DelphiCompile Include="FactuGES_Server.dpr"> </ProjectExtensions>
<MainSource>MainSource</MainSource> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</DelphiCompile> <ItemGroup>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/> <DelphiCompile Include="FactuGES_Server.dpr">
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/> <MainSource>MainSource</MainSource>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> </DelphiCompile>
<Form>srvEmpresas</Form> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Base\schBase_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/> <DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<Form>srvAlbaranesCliente</Form> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/> </DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<Form>srvAlbaranesProveedor</Form> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> </DCCReference>
<Form>srvAlmacenes</Form> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<Form>srvContactos</Form> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/> <DesignClass>TDARemoteService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas"> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<Form>RptFacturasCliente</Form> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DesignClass>TDataModule</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <Form>RptFacturasCliente</Form>
<Form>srvFacturasCliente</Form> <DesignClass>TDataModule</DesignClass>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<Form>srvFacturasProveedor</Form> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas"> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<Form>srvHistoricoMovimientos</Form> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/> <Form>srvHistoricoMovimientos</Form>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas"> </DCCReference>
<Form>srvInventario</Form> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/> <Form>srvInventario</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<Form>srvPedidosProveedor</Form> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/> </DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>srvPresupuestosCliente</Form> <Form>RptPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass> </DCCReference>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> </DCCReference>
<Form>srvRecibosCliente</Form> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> </DCCReference>
<Form>srvRecibosProveedor</Form> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas"> </DCCReference>
<Form>srvRemesasCliente</Form> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/> <Form>srvRemesasCliente</Form>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRemesasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
</DCCReference> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/> <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/> <Form>srvRemesasProveedor</Form>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/> </DCCReference>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<Form>srvConfiguracion</Form> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
</DCCReference> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Configuracion\uConexionBD.pas"> <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<Form>frConexionBD</Form> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DesignClass>TFrame</DesignClass> <Form>srvConfiguracion</Form>
</DCCReference> <DesignClass>TDataAbstractService</DesignClass>
<DCCReference Include="Configuracion\uConfGeneral.pas"> </DCCReference>
<Form>frConfGeneral</Form> <DCCReference Include="Configuracion\uConexionBD.pas">
<DesignClass>TFrame</DesignClass> <Form>frConexionBD</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uConfiguracion.pas"> </DCCReference>
<Form>fConfiguracion</Form> <DCCReference Include="Configuracion\uConfGeneral.pas">
<DesignClass>TForm</DesignClass> <Form>frConfGeneral</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> </DCCReference>
<Form>FrameConfiguracion</Form> <DCCReference Include="Configuracion\uConfiguracion.pas">
<DesignClass>TFrame</DesignClass> <Form>fConfiguracion</Form>
</DCCReference> <DesignClass>TForm</DesignClass>
<DCCReference Include="srvLogin_Impl.pas"> </DCCReference>
<Form>srvLogin</Form> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<DesignClass>TDARemoteService</DesignClass> <Form>FrameConfiguracion</Form>
</DCCReference> <DesignClass>TFrame</DesignClass>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="uDataModuleServer.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="srvReferencias_Impl.pas">
</DCCReference> <Form>srvReferencias</Form>
<DCCReference Include="uServerMainForm.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>fServerForm</Form> </DCCReference>
</DCCReference> <DCCReference Include="uAcercaDe.pas">
<DCCReference Include="Utiles\RegExpr.pas"/> <Form>fAcercaDe</Form>
<DCCReference Include="Utiles\uBusinessUtils.pas"/> </DCCReference>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/> <DCCReference Include="uDataModuleServer.pas">
<DCCReference Include="Utiles\uReferenciasUtils.pas"/> <Form>dmServer</Form>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/> <DesignClass>TDataModule</DesignClass>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/> </DCCReference>
<DCCReference Include="Utiles\uServerAppUtils.pas"/> <DCCReference Include="uServerMainForm.pas">
<DCCReference Include="Utiles\uSesionesUtils.pas"/> <Form>fServerForm</Form>
</ItemGroup> </DCCReference>
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
Activate=0 Activate=1
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 11 de diciembre de 2007 22:38\0" VALUE "CompileDate", "domingo, 16 de diciembre de 2007 13:44\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

112
Source/Servidor/srvReferencias_Impl.dfm Normal file
View File

@ -0,0 +1,112 @@
object srvReferencias: TsrvReferencias
OldCreateOrder = True
SessionManager = dmServer.SessionManager
Height = 300
Width = 300
object schReferencias: TDASchema
ConnectionManager = dmServer.ConnectionManager
Datasets = <
item
IsPublic = False
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'REFERENCIAS'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'Referencias'
Fields = <
item
Name = 'ID'
DataType = datInteger
GeneratorName = 'GEN_REFERENCIAS_ID'
Required = True
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'CODIGO'
DataType = datString
Size = 50
Required = True
end
item
Name = 'VALOR'
DataType = datString
Size = 255
Required = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
IsPublic = False
Params = <
item
Name = 'VALOR'
Value = ''
end
item
Name = 'CODIGO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'REFERENCIAS'
Name = 'IBX'
SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
#10' AND {Where}'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'ModificarValorReferencia'
end>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 40
Top = 24
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 88
end
end

159
Source/Servidor/srvReferencias_Impl.pas Normal file
View File

@ -0,0 +1,159 @@
unit srvReferencias_Impl;
{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading }
{ the RODL file associated with this project . }
{ }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}
{$I Remobjects.inc}
interface
uses
{vcl:} Classes, SysUtils,
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
{Required:} uRORemoteDataModule,
{Used RODLs:} DataAbstract4_Intf,
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
type
{ TsrvReferencias }
TsrvReferencias = class(TRORemoteDataModule, IsrvReferencias)
Bin2DataStreamer: TDABin2DataStreamer;
schReferencias: TDASchema;
private
public
{ IsrvReferencias methods }
function DarNuevaReferencia(const NombreReferencia: String;
const EmpresaID: Integer = -1): String;
function IncrementarValorReferencia(const NombreReferencia: String;
const Valor: String; const EmpresaID: Integer = -1): Boolean;
end;
implementation
{$R *.dfm}
uses
{Generated:} FactuGES_Invk, Variants,
uDataModuleServer, uDAInterfaces, uROClasses, uReferenciasUtils;
procedure Create_srvReferencias(out anInstance : IUnknown);
begin
anInstance := TsrvReferencias.Create(nil);
end;
{ srvReferencias }
function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String;
const EmpresaID: Integer = -1): String;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsData: IDADataset;
AWhere : TDAWhereExpression;
AWhereExpr1: TDAWhereExpression;
AWhereExpr2: TDAWhereExpression;
begin
Result := '';
{ Construir la expresión del Where a partir de los parámetros
que se reciban.
}
with TDAWhereBuilder.Create do
try
AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'),
NewConstant(NombreReferencia, datString),
dboEqual);
if (EmpresaID <> -1) then
begin
AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'),
NewConstant(EmpresaID, datInteger),
dboEqual);
AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd);
end
else
AWhere := AWhereExpr1;
finally
Free;
end;
ASchema := schReferencias;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
try
dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True);
dsData.DynamicWhere.Expression := AWhere;
except
RaiseError('No existe la tabla REFERENCIAS');
end;
dsData.Active := True;
if dsData.IsEmpty then
RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.');
Result := dsData.FieldByName('VALOR').AsString;
finally
dsData := NIL;
end;
end;
function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;
const Valor: String; const EmpresaID: Integer = -1): Boolean;
var
ASchema : TDASchema;
AConn : IDAConnection;
dsCommand: IDASQLCommand;
AWhere : TDAWhereExpression;
begin
Result := False;
AWhere := NIL;
{ Construir la expresión del Where a partir de los parámetros
que se reciban.
}
if (EmpresaID <> -1) then
begin
with TDAWhereBuilder.Create do
try
AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
finally
Free;
end;
end;
ASchema := schReferencias;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
try
try
dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia');
with dsCommand do
begin
ParamByName('CODIGO').AsString := NombreReferencia;
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
if EmpresaID <> -1 then
dsCommand.DynamicWhere.Expression := AWhere;
end;
dsCommand.Execute;
AConn.CommitTransaction;
Result := True;
except
RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas');
AConn.RollbackTransaction;
end;
finally
dsCommand := NIL;
end;
end;
initialization
TROClassFactory.Create('srvReferencias', Create_srvReferencias, TsrvReferencias_Invoker);
finalization
end.

9
Source/Servidor/uServerMainForm.dfm
View File

@ -14,6 +14,7 @@ object fServerForm: TfServerForm
OldCreateOrder = False OldCreateOrder = False
Position = poScreenCenter Position = poScreenCenter
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvGradient1: TJvGradient object JvGradient1: TJvGradient
@ -1069,4 +1070,12 @@ object fServerForm: TfServerForm
Left = 240 Left = 240
Top = 208 Top = 208
end end
object JvProgressDialog1: TJvProgressDialog
Interval = 10
ShowCancel = False
Smooth = True
ScreenPosition = poDesktopCenter
Left = 280
Top = 208
end
end end

28
Source/Servidor/uServerMainForm.pas
View File

@ -7,7 +7,7 @@ uses
uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview, uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview,
JvAppInst, JvComponentBase, ExtCtrls, JvExControls, JvGradient, XPMan, JvAppInst, JvComponentBase, ExtCtrls, JvExControls, JvGradient, XPMan,
ActnList, Menus, JvGIF, AppEvnts; ActnList, Menus, JvGIF, AppEvnts, JvBaseDlg, JvProgressDialog;
type type
TfServerForm = class(TForm) TfServerForm = class(TForm)
@ -32,6 +32,7 @@ type
N1: TMenuItem; N1: TMenuItem;
JvAppInstances1: TJvAppInstances; JvAppInstances1: TJvAppInstances;
TrayIcon1: TTrayIcon; TrayIcon1: TTrayIcon;
JvProgressDialog1: TJvProgressDialog;
procedure actCerrarExecute(Sender: TObject); procedure actCerrarExecute(Sender: TObject);
procedure actRestartExecute(Sender: TObject); procedure actRestartExecute(Sender: TObject);
procedure actOpcionesExecute(Sender: TObject); procedure actOpcionesExecute(Sender: TObject);
@ -40,6 +41,7 @@ type
procedure JvAppInstances1CmdLineReceived(Sender: TObject; procedure JvAppInstances1CmdLineReceived(Sender: TObject;
CmdLine: TStrings); CmdLine: TStrings);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -80,9 +82,33 @@ end;
procedure TfServerForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure TfServerForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin begin
CanClose := False;
with JvProgressDialog1 do
begin
InitValues(0, 100, 10, 0, 'Cerrar FactuGES Server', 'Espere mientras FactuGES Server se cierra...');
Show;
while dmServer.HTTPServer.Active do
begin
if (Position + Interval > Max) then
Position := Min
else
Position := Position + Interval;
Refresh;
dmServer.HTTPServer.Active := False;
Sleep(500);
TrayIcon1.Visible := False;
end;
Hide;
end;
CanClose := True; CanClose := True;
end; end;
procedure TfServerForm.FormCreate(Sender: TObject);
begin
dmServer := TdmServer.Create(Application);
end;
procedure TfServerForm.actOpcionesExecute(Sender: TObject); procedure TfServerForm.actOpcionesExecute(Sender: TObject);
var var
AForm : TForm; AForm : TForm;