Se añade módulo de comisiones

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@51 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Database/scripts/factuges.sql

@@ -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                             ****/

Source/Base/Base.dproj

@@ -54,8 +54,14 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas" />
+    <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
-    <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.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" />

Source/Cliente/uBootStrap.pas

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

Source/Servicios/FactuGES.RODL

@@ -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}">

Source/Servicios/FactuGES_Intf.pas

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

Source/Servicios/FactuGES_Invk.pas

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

Source/Servidor/FactuGES_Server.dpr

@@ -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}

Source/Servidor/FactuGES_Server.dproj

@@ -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" />