Modulo nuevo para los informes estadisticos e informes que ya tenian anteriormente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@690 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk

@@ -58,13 +58,19 @@ requires
   DataAbstract_Core_D11,
   dsnap,
   adortl,
-  RemObjects_Core_D11;
+  RemObjects_Core_D11,
+  GUISDK_D11,
+  xmlrtl,
+  cfpack_d11,
+  designide,
+  ccpackD11;
 
 contains
   uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
-  uEditorGestorInformesReport in 'uEditorGestorInformesReport.pas' {fEditorGestorInformesReport: TfEditorElegirFacturasCliente},
+  uEditorInformeIVAClientesReport in 'uEditorInformeIVAClientesReport.pas' {fEditorInformeIVAClientesReport: TfEditorElegirFacturasCliente},
   uViewPeriodoFechas in 'uViewPeriodoFechas.pas' {frViewPeriodoFechas: TFrame},
   uViewFiltroImportes in 'uViewFiltroImportes.pas' {frViewFiltroImportes: TFrame},
-  uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame};
+  uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
+  uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport};
 
 end.

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj

@@ -39,12 +39,15 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="ccpackD11.dcp" />
+    <DCCReference Include="cfpack_d11.dcp" />
     <DCCReference Include="Contactos_view.dcp" />
     <DCCReference Include="cxDataD11.dcp" />
     <DCCReference Include="cxEditorsD11.dcp" />
     <DCCReference Include="cxLibraryD11.dcp" />
     <DCCReference Include="DataAbstract_Core_D11.dcp" />
     <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="designide.dcp" />
     <DCCReference Include="dsnap.dcp" />
     <DCCReference Include="dxComnD11.dcp" />
     <DCCReference Include="dxGDIPlusD11.dcp" />
@@ -55,6 +58,7 @@
     <DCCReference Include="fs11.dcp" />
     <DCCReference Include="GestorInformes_controller.dcp" />
     <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="GUISDK_D11.dcp" />
     <DCCReference Include="Jcl.dcp" />
     <DCCReference Include="JclVcl.dcp" />
     <DCCReference Include="JvCoreD11R.dcp" />
@@ -67,8 +71,12 @@
     <DCCReference Include="rtl.dcp" />
     <DCCReference Include="tb2k_d10.dcp" />
     <DCCReference Include="tbx_d10.dcp" />
-    <DCCReference Include="uEditorGestorInformesReport.pas">
+    <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
-      <Form>fEditorGestorInformesReport</Form>
+      <Form>fEditorInformeFacturasClienteReport</Form>
+      <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorInformeIVAClientesReport.pas">
+      <Form>fEditorInformeIVAClientesReport</Form>
       <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uGestorInformesViewRegister.pas" />
@@ -89,6 +97,7 @@
     <DCCReference Include="vcldb.dcp" />
     <DCCReference Include="vcljpg.dcp" />
     <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.dfm

@@ -1,5 +1,5 @@
-inherited fEditorGestorInformesReport: TfEditorGestorInformesReport
+inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteReport
-  Caption = 'fEditorGestorInformesReport'
+  Caption = 'fEditorInformeFacturasClienteReport'
   ClientHeight = 790
   ClientWidth = 895
   ExplicitWidth = 903
@@ -62,12 +62,10 @@ inherited fEditorGestorInformesReport: TfEditorGestorInformesReport
       ExplicitWidth = 450
       inherited TBXDockablePanel1: TTBXDockablePanel
         ExplicitWidth = 450
-        ExplicitHeight = 75
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 795
           Align = alLeft
           ExplicitWidth = 795
-          ExplicitHeight = 75
           inherited cbPeriodo: TcxComboBox
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''

Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasClienteReport.pas

@@ -0,0 +1,133 @@
+unit uEditorInformeFacturasClienteReport;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
+  frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
+  frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
+  JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
+  StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
+  TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
+  JvExControls, JvNavigationPane, uIEditorGestorInformesReport, uCustomView,
+  uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
+  uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
+  FactuGES_Intf;
+
+type
+  TfEditorInformeFacturasClienteReport = class(TfEditorPreview, IEditorGestorInformesReport)
+    frViewPeriodoFechas1: TfrViewPeriodoFechas;
+    frViewFiltroClientes1: TfrViewFiltroClientes;
+    frViewFiltroImportes1: TfrViewFiltroImportes;
+    dxLayoutControl1Group_Root: TdxLayoutGroup;
+    dxLayoutControl1: TdxLayoutControl;
+    dxLayoutControl1Item1: TdxLayoutItem;
+    dxLayoutControl1Item2: TdxLayoutItem;
+    dxLayoutControl1Item3: TdxLayoutItem;
+    dxLayoutControl1Group1: TdxLayoutGroup;
+    TBXItem58: TTBXItem;
+    procedure actRefrescarExecute(Sender: TObject);
+  private
+    FListaIDClientes: TIntegerArray;
+    function GetFechaFin: TDateTime;
+    function GetFechaInicio: TDateTime;
+    function GetListaIDClientes: TIntegerArray;
+    function GetImporteMinimo: Currency;
+    function GetDesglosadoCliente: Boolean;
+    procedure OnClienteChanged(Sender: TObject);
+
+    procedure RefrescarInforme;
+
+  public
+    property FechaInicio: TDateTime read GetFechaInicio;
+    property FechaFin: TDateTime read GetFechaFin;
+    property ListaIDClientes: TIntegerArray read GetListaIDClientes;
+    property DesglosadoCliente: Boolean read GetDesglosadoCliente;
+    property ImporteMinimo: Currency read getImporteMinimo;
+
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+uses uROTypes, uGestorInformesController, uFactuGES_App;
+
+{ TfEditorGestorInformesReport }
+
+procedure TfEditorInformeFacturasClienteReport.actRefrescarExecute(Sender: TObject);
+begin
+  inherited;
+  RefrescarInforme;
+end;
+
+constructor TfEditorInformeFacturasClienteReport.Create(AOwner: TComponent);
+begin
+  inherited;
+  FListaIDClientes := TIntegerArray.Create;
+  frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
+end;
+
+destructor TfEditorInformeFacturasClienteReport.Destroy;
+begin
+  FListaIDClientes.Free;
+  frViewFiltroClientes1.OnClienteChanged := Nil;
+  inherited;
+end;
+
+function TfEditorInformeFacturasClienteReport.GetDesglosadoCliente: Boolean;
+begin
+  if frViewFiltroClientes1.cbxDesglosado.Enabled then
+     Result := frViewFiltroClientes1.cbxDesglosado.Checked
+  else
+     Result := False;
+end;
+
+function TfEditorInformeFacturasClienteReport.GetFechaFin: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaFin.Date;
+end;
+
+function TfEditorInformeFacturasClienteReport.GetFechaInicio: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaIni.Date;
+end;
+
+function TfEditorInformeFacturasClienteReport.GetImporteMinimo: Currency;
+begin
+  if frViewFiltroImportes1.eImporte.Enabled then
+     Result := frViewFiltroImportes1.eImporte.Value
+  else
+     Result := 0;
+end;
+
+function TfEditorInformeFacturasClienteReport.GetListaIDClientes: TIntegerArray;
+begin
+  Result := FListaIDClientes;
+end;
+
+procedure TfEditorInformeFacturasClienteReport.OnClienteChanged(Sender: TObject);
+begin
+  FListaIDClientes.Clear;
+  if Assigned(frViewFiltroClientes1.Cliente) then
+     FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
+end;
+
+procedure TfEditorInformeFacturasClienteReport.RefrescarInforme;
+var
+  AStream: Binary;
+begin
+  try
+    AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
+    LoadFromStream(AStream);
+    Report.ShowPreparedReport;
+  finally
+    FreeAndNil(AStream);
+  end;
+end;
+
+end.

Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.dfm

@@ -0,0 +1,198 @@
+inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
+  Caption = 'fEditorInformeIVAClientesReport'
+  ClientHeight = 790
+  ClientWidth = 895
+  ExplicitWidth = 903
+  ExplicitHeight = 824
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 895
+    ExplicitWidth = 895
+    inherited Image1: TImage
+      Left = 868
+      ExplicitLeft = 868
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Width = 895
+    ExplicitWidth = 895
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 895
+    end
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 591
+      object TBXItem58: TTBXItem [0]
+        Action = actRefrescar
+        DisplayMode = nbdmImageAndText
+        Images = SmallImages
+      end
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Top = 771
+    Width = 895
+    ExplicitTop = 771
+    ExplicitWidth = 895
+  end
+  object dxLayoutControl1: TdxLayoutControl [3]
+    Left = 0
+    Top = 102
+    Width = 895
+    Height = 275
+    Align = alTop
+    TabOrder = 3
+    TabStop = False
+    inline frViewPeriodoFechas1: TfrViewPeriodoFechas
+      Left = 10
+      Top = 10
+      Width = 450
+      Height = 75
+      Align = alClient
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      ReadOnly = False
+      ExplicitLeft = 10
+      ExplicitTop = 10
+      ExplicitWidth = 450
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        ExplicitWidth = 450
+        inherited dxLayoutControl1: TdxLayoutControl
+          Width = 795
+          Align = alLeft
+          ExplicitWidth = 795
+          inherited cbPeriodo: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+          inherited edtFechaIni: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+          inherited edtFechaFin: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+        end
+      end
+    end
+    inline frViewFiltroImportes1: TfrViewFiltroImportes
+      Left = 466
+      Top = 10
+      Width = 318
+      Height = 70
+      Align = alClient
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      ReadOnly = False
+      ExplicitLeft = 466
+      ExplicitTop = 10
+      ExplicitHeight = 70
+      inherited dxLayoutControl1: TdxLayoutControl
+        Height = 70
+        ExplicitHeight = 70
+        inherited eImporte: TcxSpinEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+        end
+      end
+    end
+    inline frViewFiltroClientes1: TfrViewFiltroClientes
+      Left = 10
+      Top = 91
+      Width = 795
+      Height = 170
+      Align = alClient
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 2
+      ReadOnly = False
+      ExplicitLeft = 10
+      ExplicitTop = 91
+      ExplicitWidth = 795
+      ExplicitHeight = 170
+      inherited dxLayoutControl1: TdxLayoutControl
+        Width = 795
+        Height = 41
+        ExplicitWidth = 795
+        ExplicitHeight = 41
+        inherited edtlNombre: TcxDBTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 200
+          Width = 200
+        end
+        inherited edtNIFCIF: TcxDBTextEdit
+          Left = 544
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitLeft = 544
+          ExplicitWidth = 100
+          Width = 100
+        end
+      end
+      inherited Panel1: TPanel
+        Width = 795
+        ExplicitWidth = 795
+      end
+      inherited GroupBox1: TGroupBox
+        Width = 795
+        ExplicitWidth = 795
+      end
+    end
+    object dxLayoutControl1Group_Root: TdxLayoutGroup
+      ShowCaption = False
+      Hidden = True
+      ShowBorder = False
+      object dxLayoutControl1Group1: TdxLayoutGroup
+        AutoAligns = [aaHorizontal]
+        ShowCaption = False
+        Hidden = True
+        LayoutDirection = ldHorizontal
+        ShowBorder = False
+        object dxLayoutControl1Item1: TdxLayoutItem
+          AutoAligns = [aaHorizontal]
+          Control = frViewPeriodoFechas1
+          ControlOptions.AutoColor = True
+          ControlOptions.ShowBorder = False
+        end
+        object dxLayoutControl1Item2: TdxLayoutItem
+          Control = frViewFiltroImportes1
+          ControlOptions.AutoColor = True
+          ControlOptions.ShowBorder = False
+        end
+      end
+      object dxLayoutControl1Item3: TdxLayoutItem
+        Control = frViewFiltroClientes1
+        ControlOptions.AutoColor = True
+        ControlOptions.ShowBorder = False
+      end
+    end
+  end
+end

Source/Modulos/Gestor de informes/Views/uEditorInformeIVAClientesReport.pas

@@ -1,4 +1,4 @@
-unit uEditorGestorInformesReport;
+unit uEditorInformeIVAClientesReport;
 
 interface
 
@@ -16,7 +16,7 @@ uses
   FactuGES_Intf;
 
 type
-  TfEditorGestorInformesReport = class(TfEditorPreview, IEditorGestorInformesReport)
+  TfEditorInformeIVAClientesReport = class(TfEditorPreview, IEditorGestorInformesReport)
     frViewPeriodoFechas1: TfrViewPeriodoFechas;
     frViewFiltroClientes1: TfrViewFiltroClientes;
     frViewFiltroImportes1: TfrViewFiltroImportes;
@@ -59,27 +59,27 @@ uses uROTypes, uGestorInformesController, uFactuGES_App;
 
 { TfEditorGestorInformesReport }
 
-procedure TfEditorGestorInformesReport.actRefrescarExecute(Sender: TObject);
+procedure TfEditorInformeIVAClientesReport.actRefrescarExecute(Sender: TObject);
 begin
   inherited;
   RefrescarInforme;
 end;
 
-constructor TfEditorGestorInformesReport.Create(AOwner: TComponent);
+constructor TfEditorInformeIVAClientesReport.Create(AOwner: TComponent);
 begin
   inherited;
   FListaIDClientes := TIntegerArray.Create;
   frViewFiltroClientes1.OnClienteChanged := OnClienteChanged;
 end;
 
-destructor TfEditorGestorInformesReport.Destroy;
+destructor TfEditorInformeIVAClientesReport.Destroy;
 begin
   FListaIDClientes.Free;
   frViewFiltroClientes1.OnClienteChanged := Nil;
   inherited;
 end;
 
-function TfEditorGestorInformesReport.GetDesglosadoCliente: Boolean;
+function TfEditorInformeIVAClientesReport.GetDesglosadoCliente: Boolean;
 begin
   if frViewFiltroClientes1.cbxDesglosado.Enabled then
      Result := frViewFiltroClientes1.cbxDesglosado.Checked
@@ -87,17 +87,17 @@ begin
      Result := False;
 end;
 
-function TfEditorGestorInformesReport.GetFechaFin: TDateTime;
+function TfEditorInformeIVAClientesReport.GetFechaFin: TDateTime;
 begin
   Result := frViewPeriodoFechas1.edtFechaFin.Date;
 end;
 
-function TfEditorGestorInformesReport.GetFechaInicio: TDateTime;
+function TfEditorInformeIVAClientesReport.GetFechaInicio: TDateTime;
 begin
   Result := frViewPeriodoFechas1.edtFechaIni.Date;
 end;
 
-function TfEditorGestorInformesReport.GetImporteMinimo: Currency;
+function TfEditorInformeIVAClientesReport.GetImporteMinimo: Currency;
 begin
   if frViewFiltroImportes1.eImporte.Enabled then
      Result := frViewFiltroImportes1.eImporte.Value
@@ -105,19 +105,19 @@ begin
      Result := 0;
 end;
 
-function TfEditorGestorInformesReport.GetListaIDClientes: TIntegerArray;
+function TfEditorInformeIVAClientesReport.GetListaIDClientes: TIntegerArray;
 begin
   Result := FListaIDClientes;
 end;
 
-procedure TfEditorGestorInformesReport.OnClienteChanged(Sender: TObject);
+procedure TfEditorInformeIVAClientesReport.OnClienteChanged(Sender: TObject);
 begin
   FListaIDClientes.Clear;
   if Assigned(frViewFiltroClientes1.Cliente) then
      FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
 end;
 
-procedure TfEditorGestorInformesReport.RefrescarInforme;
+procedure TfEditorInformeIVAClientesReport.RefrescarInforme;
 var
   AStream: Binary;
 begin
@@ -125,7 +125,6 @@ begin
     AStream := (Controller as IGestorInformesController).DataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
     LoadFromStream(AStream);
     Report.ShowPreparedReport;
-
   finally
     FreeAndNil(AStream);
   end;

Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas

@@ -8,16 +8,16 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorGestorInformesReport;
+  uEditorRegistryUtils, uEditorInformeIVAClientesReport;
 
 procedure RegisterViews;
 begin
-  EditorRegistry.RegisterClass(TfEditorGestorInformesReport, 'EditorGestorInformesReport');
+  EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
 end;
 
 procedure UnregisterViews;
 begin
-  EditorRegistry.UnRegisterClass(TfEditorGestorInformesReport);
+  EditorRegistry.UnRegisterClass(TfEditorInformeIVAClientesReport);
 end;
 
 end.

Source/Modulos/Gestor de informes/Views/uViewFiltroClientes.dfm

@@ -114,8 +114,6 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
     Margins.Bottom = 0
     Align = alTop
     Caption = 'Elija una de las siguientes opciones para generar el listado'
-    Ctl3D = False
-    ParentCtl3D = False
     TabOrder = 2
     object rd1: TRadioButton
       Left = 16
@@ -146,7 +144,13 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
       TabOrder = 2
     end
   end
+  inherited dsCliente: TDADataSource
+    Left = 112
+    Top = 40
+  end
   inherited ActionList1: TActionList
+    Left = 80
+    Top = 40
     inherited actElegirContacto: TAction
       Enabled = False
     end
@@ -164,4 +168,8 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
       Enabled = False
     end
   end
+  inherited PngImageList: TPngImageList
+    Left = 144
+    Top = 40
+  end
 end