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

Se añade módulo de comisiones

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@51 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-08-26 18:35:42 +00:00
parent 42519b64b1
commit 518ffdffe0
8 changed files with 574 additions and 364 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Database/scripts/factuges.sql
View File

@ -4074,7 +4074,58 @@ HAVING
V_PED_CLI_ARTICULOS.CANTIDAD_PENDIENTE - SUM(COALESCE(V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA, 0)) > 0;
CREATE VIEW V_COMISIONES(
ID, ID_EMPRESA, REFERENCIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO, NOMBRE
)
AS
SELECT
COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EMPRESA,
COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.ID_AGENTE,
COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_LIQUIDADAS.FECHA,
COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMISIONES_LIQUIDADAS.USUARIO,
CONTACTOS.NOMBRE
FROM COMISIONES_LIQUIDADAS
LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQUIDADAS.ID_AGENTE);
CREATE VIEW V_AGENTES_COMISIONES_DET_FAC(
ID_FACTURA,
ID_EMPRESA,
FECHA,
REFERENCIA,
SITUACION,
ID_COMISION_LIQUIDADA,
ID_CLIENTE,
ID_AGENTE,
ID_ARTICULO,
ID_PROVEEDOR,
IMPORTE_TOTAL,
COMISION,
IMPORTE_COMISION)
AS
SELECT V_FACTURAS_CLIENTE.ID,
V_FACTURAS_CLIENTE.ID_EMPRESA,
V_FACTURAS_CLIENTE.FECHA_FACTURA,
V_FACTURAS_CLIENTE.REFERENCIA,
V_FACTURAS_CLIENTE.SITUACION,
V_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,
V_FACTURAS_CLIENTE.ID_CLIENTE,
V_FACTURAS_CLIENTE.ID_AGENTE,
FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.ID_PROVEEDOR,
FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL, COALESCE(AGENTES_COMISIONES.COMISION, 0) as COMISION,
(CASE COALESCE(AGENTES_COMISIONES.COMISION, 0) WHEN 0 THEN 0
ELSE ((FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL * AGENTES_COMISIONES.COMISION)/100) END) as IMPORTE_COMISION
FROM V_FACTURAS_CLIENTE
LEFT JOIN FACTURAS_CLIENTE_DETALLES ON (FACTURAS_CLIENTE_DETALLES.ID_FACTURA = V_FACTURAS_CLIENTE.ID)
LEFT JOIN ARTICULOS ON (ARTICULOS.ID = FACTURAS_CLIENTE_DETALLES.ID_ARTICULO)
LEFT JOIN AGENTES_COMISIONES ON ((AGENTES_COMISIONES.ID_AGENTE = V_FACTURAS_CLIENTE.ID_AGENTE)
AND (AGENTES_COMISIONES.ID_PROVEEDOR = ARTICULOS.ID_PROVEEDOR))
WHERE (FACTURAS_CLIENTE_DETALLES.TIPO_DETALLE = 'Concepto')
AND (ARTICULOS.ID is not null)
AND (ARTICULOS.COMISIONABLE = 1)
;
/******************************************************************************/
/**** Primary Keys ****/

10
Source/Base/Base.dproj
View File

@ -54,8 +54,14 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas" />
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas" />
<DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
<Form>DataModuleImpresiones</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
<Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />

1
Source/Cliente/uBootStrap.pas
View File

@ -53,6 +53,7 @@ begin
LoadModule('HistoricoMovimientos_plugin.bpl');
LoadModule('GestorInformes_plugin.bpl');
LoadModule('Comisiones_plugin.bpl');
end;
end;

24
Source/Servicios/FactuGES.RODL
View File

@ -928,6 +928,30 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvComisiones" UID="{20DAE6DD-51BF-46A7-9A12-6132DA95A870}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{461DBBE7-293D-497A-8CD1-840401883BCE}">
<Operations>
<Operation Name="GenerateReport" UID="{F0CA899C-59DE-40FC-816B-17400F2FF902}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="AComisionID" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="DesglosadoProv" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="FechaIni" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="AAgenteID" DataType="Variant" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
<Service Name="srvPedidosCliente" UID="{7491FEBB-7312-408A-BB2F-9E4141BA8C87}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}">

61
Source/Servicios/FactuGES_Intf.pas
View File

@ -52,6 +52,7 @@ const
IsrvProvinciasPoblaciones_IID : TGUID = '{551D8756-51AE-4929-B235-107CD7B05C38}';
IsrvGestorDocumentos_IID : TGUID = '{2FFB4EEA-F314-442C-920A-E1D37F378929}';
IsrvGestorInformes_IID : TGUID = '{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}';
IsrvComisiones_IID : TGUID = '{461DBBE7-293D-497A-8CD1-840401883BCE}';
IsrvPedidosCliente_IID : TGUID = '{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}';
IsrvImpresiones_IID : TGUID = '{CC4477C1-AA2C-464D-B485-AB0C31E282A7}';
IsrvRegistroCorreos_IID : TGUID = '{E912B281-0A69-49F5-ABA7-8A66FF17DD98}';
@ -89,6 +90,7 @@ type
IsrvProvinciasPoblaciones = interface;
IsrvGestorDocumentos = interface;
IsrvGestorInformes = interface;
IsrvComisiones = interface;
IsrvPedidosCliente = interface;
IsrvImpresiones = interface;
IsrvRegistroCorreos = interface;
@ -843,6 +845,27 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
end;
{ IsrvComisiones }
IsrvComisiones = interface(IDataAbstractService)
['{461DBBE7-293D-497A-8CD1-840401883BCE}']
function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: AnsiString; const FechaFin: AnsiString;
const AAgenteID: Variant): Binary;
end;
{ CosrvComisiones }
CosrvComisiones = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
end;
{ TsrvComisiones_Proxy }
TsrvComisiones_Proxy = class(TDataAbstractService_Proxy, IsrvComisiones)
protected
function __GetInterfaceName:string; override;
function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: AnsiString; const FechaFin: AnsiString;
const AAgenteID: Variant): Binary;
end;
{ IsrvPedidosCliente }
IsrvPedidosCliente = interface(IDataAbstractService)
['{9AAB5A2E-DCC0-455C-B22D-39186EA1E273}']
@ -2776,6 +2799,42 @@ begin
end
end;
{ CosrvComisiones }
class function CosrvComisiones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones;
begin
result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvComisiones_Proxy }
function TsrvComisiones_Proxy.__GetInterfaceName:string;
begin
result := 'srvComisiones';
end;
function TsrvComisiones_Proxy.GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: AnsiString; const FechaFin: AnsiString;
const AAgenteID: Variant): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('AComisionID', TypeInfo(Variant), AComisionID, []);
__Message.Write('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []);
__Message.Write('FechaIni', TypeInfo(AnsiString), FechaIni, []);
__Message.Write('FechaFin', TypeInfo(AnsiString), FechaFin, []);
__Message.Write('AAgenteID', TypeInfo(Variant), AAgenteID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvPedidosCliente }
class function CosrvPedidosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPedidosCliente;
@ -2923,6 +2982,7 @@ initialization
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy);
RegisterProxyClass(IsrvGestorInformes_IID, TsrvGestorInformes_Proxy);
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
RegisterProxyClass(IsrvPedidosCliente_IID, TsrvPedidosCliente_Proxy);
RegisterProxyClass(IsrvImpresiones_IID, TsrvImpresiones_Proxy);
RegisterProxyClass(IsrvRegistroCorreos_IID, TsrvRegistroCorreos_Proxy);
@ -2961,6 +3021,7 @@ finalization
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
UnregisterProxyClass(IsrvGestorDocumentos_IID);
UnregisterProxyClass(IsrvGestorInformes_IID);
UnregisterProxyClass(IsrvComisiones_IID);
UnregisterProxyClass(IsrvPedidosCliente_IID);
UnregisterProxyClass(IsrvImpresiones_IID);
UnregisterProxyClass(IsrvRegistroCorreos_IID);

54
Source/Servicios/FactuGES_Invk.pas
View File

@ -309,6 +309,15 @@ type
procedure Invoke_GenerarInformeListadoPedidos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvComisiones_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvPedidosCliente_Invoker = class(TDataAbstractService_Invoker)
private
protected
@ -2385,6 +2394,51 @@ begin
end;
end;
{ TsrvComisiones_Invoker }
constructor TsrvComisiones_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvComisiones_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const AComisionID: Variant; const DesglosadoProv: Boolean; const FechaIni: AnsiString; const FechaFin: AnsiString;
const AAgenteID: Variant): Binary; }
var
AComisionID: Variant;
DesglosadoProv: Boolean;
FechaIni: AnsiString;
FechaFin: AnsiString;
AAgenteID: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('AComisionID', TypeInfo(Variant), AComisionID, []);
__Message.Read('DesglosadoProv', TypeInfo(Boolean), DesglosadoProv, []);
__Message.Read('FechaIni', TypeInfo(AnsiString), FechaIni, []);
__Message.Read('FechaFin', TypeInfo(AnsiString), FechaFin, []);
__Message.Read('AAgenteID', TypeInfo(Variant), AAgenteID, []);
lResult := (__Instance as IsrvComisiones).GenerateReport(AComisionID, DesglosadoProv, FechaIni, FechaFin, AAgenteID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvComisiones', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvPedidosCliente_Invoker }
constructor TsrvPedidosCliente_Invoker.Create;

5
Source/Servidor/FactuGES_Server.dpr
View File

@ -147,7 +147,10 @@ uses
srvImpresiones_Impl in '..\Modulos\Impresiones\Servidor\srvImpresiones_Impl.pas' {srvImpresiones: TDARemoteService},
schImpresionesClient_Intf in '..\Modulos\Impresiones\Model\schImpresionesClient_Intf.pas',
schImpresionesServer_Intf in '..\Modulos\Impresiones\Model\schImpresionesServer_Intf.pas',
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDataAbstractService};
srvRegistroCorreos_Impl in '..\Modulos\Registro de correos\Servidor\srvRegistroCorreos_Impl.pas' {srvRegistroCorreos: TDataAbstractService},
srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService},
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

12
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -36,6 +36,10 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">3</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.8.3.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">1.8.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 24 de junio de 2010 13:44</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -107,6 +111,12 @@
<Form>srvArticulos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas">
<Form>srvComisiones</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizAgentesServer.pas" />