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

Ultimo cambio para la gestion de referencias

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@259 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-02-07 10:33:19 +00:00
parent edadc2068a
commit 5f31585555
6 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Servicios/FactuGES.RODL
View File

@ -352,8 +352,8 @@
</Interface>
</Interfaces>
</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}" />
<Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Ancestor="DataAbstractService">
<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
<Interfaces>
<Interface Name="Default" UID="{B957528D-3BE1-412D-A35E-801C97CCD252}">
<Operations>

6
Source/Servicios/FactuGES_Intf.pas
View File

@ -572,8 +572,8 @@ type
{ IsrvReferencias }
{ Description:
Para uso interno del servidor. }
IsrvReferencias = interface
Para uso interno del servidor. Para modulo de gestion de referencias del cliente }
IsrvReferencias = interface(IDataAbstractService)
['{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;
@ -585,7 +585,7 @@ type
end;
{ TsrvReferencias_Proxy }
TsrvReferencias_Proxy = class(TROProxy, IsrvReferencias)
TsrvReferencias_Proxy = class(TDataAbstractService_Proxy, IsrvReferencias)
protected
function __GetInterfaceName:string; override;

2
Source/Servicios/FactuGES_Invk.pas
View File

@ -173,7 +173,7 @@ type
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvReferencias_Invoker = class(TROInvoker)
TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
private
protected
published

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dpr
View File

@ -71,7 +71,6 @@ uses
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_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},
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',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@ -108,7 +107,8 @@ uses
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
uRptWordAlbaranCliente in '..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas' {RptWordAlbaranCliente: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDataAbstractService};
{$R *.res}
{$R ..\Servicios\RODLFile.res}

11
Source/Servidor/FactuGES_Server.dproj
View File

@ -45,9 +45,6 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@ -181,6 +178,10 @@
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
@ -230,10 +231,6 @@
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>