Módulo de informes (sin terminar)

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

Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk

@@ -33,6 +33,7 @@ contains
   uGestorInformesController in 'uGestorInformesController.pas',
   uIEditorInformeFacturasClienteReport in 'View\uIEditorInformeFacturasClienteReport.pas',
   uIEditorInformeBase in 'View\uIEditorInformeBase.pas',
-  uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas';
+  uIEditorInformeIVAClientesReport in 'View\uIEditorInformeIVAClientesReport.pas',
+  uIEditorInformeFacturasClientePendientesReport in 'View\uIEditorInformeFacturasClientePendientesReport.pas';
 
 end.

Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj

@@ -43,6 +43,7 @@
     <DCCReference Include="View\Base.dcp" />
     <DCCReference Include="View\GestorInformes_data.dcp" />
     <DCCReference Include="View\uIEditorInformeBase.pas" />
+    <DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
     <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
     <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
   </ItemGroup>

Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasClientePendientesReport.pas

@@ -0,0 +1,26 @@
+unit uIEditorInformeFacturasClientePendientesReport;
+
+interface
+
+uses
+  FactuGES_Intf, uIEditorInformeBase;
+
+type
+  IEditorInformeFacturasClientePendientesReport = interface(IEditorInformeBase)
+  ['{6ADD8C8B-34D8-4F51-9C9C-4A9ED54DDE34}']
+    function GetFechaFin: TDateTime;
+    function GetFechaInicio: TDateTime;
+    function GetListaIDClientes: TIntegerArray;
+    function GetDesglosadoCliente: Boolean;
+    function GetImporteMinimo: Currency;
+    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;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas

@@ -66,7 +66,8 @@ uses
   uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils,
   DateUtils, Forms, uIntegerListUtils, uDataModuleGestorInformes,
   uSistemaFunc, uDialogElegirEMail, uEMailUtils, Dialogs,
-  uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport;
+  uIEditorInformeIVAClientesReport, uIEditorInformeFacturasClienteReport,
+  uIEditorInformeFacturasClientePendientesReport;
 
 
 {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@@ -251,6 +252,7 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de IVA de facturas de cliente';
         AStream := FDataModule.GetInformeIVAClientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;
@@ -279,6 +281,7 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de facturas de cliente';
         AStream := FDataModule.GetInformeListadoFacturas(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;
@@ -296,17 +299,18 @@ end;
 procedure TGestorInformesController.VerInformeListadoFacturasPendientes;
 var
   AStream: Binary;
-  AEditor : IEditorInformeIVAClientesReport;
+  AEditor : IEditorInformeFacturasClientePendientesReport;
 begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
    try
-      CreateEditor('EditorInformeIVAClientesReport', IEditorInformeIVAClientesReport, AEditor);
+      CreateEditor('EditorInformeFacturasClientePendientesReport', IEditorInformeFacturasClientePendientesReport, AEditor);
       if Assigned(AEditor) then
       with AEditor do
       begin
         AEditor.Controller := Self;
+        AEditor.Title := 'Listado de facturas de cliente pendientes';
         AStream := FDataModule.GetInformeListadoFacturasPendientes(AppFactuGES.EmpresaActiva.ID, FechaInicio, FechaFin, ListaIDClientes, DesglosadoCliente, ImporteMinimo);
         LoadFromStream(AStream);
         Preview;

Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.dfm

@@ -49,6 +49,18 @@ object PluginGestorInformes: TPluginGestorInformes
       ImageIndex = 0
       OnExecute = actInformeFacturasClienteExecute
     end
+    object actInformeFacturasClientePendientes: TAction
+      Category = 'Facturas de cliente'
+      Caption = 'Listado de facturas de cliente pendientes'
+      ImageIndex = 0
+      OnExecute = actInformeFacturasClientePendientesExecute
+    end
+    object actInformeFacturasClienteIVA: TAction
+      Category = 'Facturas de cliente'
+      Caption = 'Listado de IVA de facturas de cliente'
+      ImageIndex = 0
+      OnExecute = actInformeFacturasClienteIVAExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = LargeImages
@@ -59,6 +71,12 @@ object PluginGestorInformes: TPluginGestorInformes
       object Listadodefacturasdecliente1: TMenuItem
         Action = actInformeFacturasCliente
       end
+      object Listadodefacturasdeclientependientes1: TMenuItem
+        Action = actInformeFacturasClientePendientes
+      end
+      object ListadodeIVAdefacturasdecliente1: TMenuItem
+        Action = actInformeFacturasClienteIVA
+      end
     end
   end
   object SmallImages: TPngImageList

Source/Modulos/Gestor de informes/Plugin/uPluginGestorInformes.pas

@@ -20,7 +20,13 @@ type
     Informes1: TMenuItem;
     actInformeFacturasCliente: TAction;
     Listadodefacturasdecliente1: TMenuItem;
+    actInformeFacturasClientePendientes: TAction;
+    actInformeFacturasClienteIVA: TAction;
+    Listadodefacturasdeclientependientes1: TMenuItem;
+    ListadodeIVAdefacturasdecliente1: TMenuItem;
     procedure actInformeFacturasClienteExecute(Sender: TObject);
+    procedure actInformeFacturasClientePendientesExecute(Sender: TObject);
+    procedure actInformeFacturasClienteIVAExecute(Sender: TObject);
   private
     FController : IGestorInformesController;
   public
@@ -50,6 +56,18 @@ begin
   FController.VerInformeListadoFacturas;
 end;
 
+procedure TPluginGestorInformes.actInformeFacturasClienteIVAExecute(
+  Sender: TObject);
+begin
+  FController.VerInformeIVAClientes;
+end;
+
+procedure TPluginGestorInformes.actInformeFacturasClientePendientesExecute(
+  Sender: TObject);
+begin
+  FController.VerInformeListadoFacturasPendientes;
+end;
+
 constructor TPluginGestorInformes.Create(AOwner: TComponent);
 begin
   inherited;

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

@@ -43,6 +43,7 @@ contains
   uEditorInformeBase in 'uEditorInformeBase.pas' {fEditorInformeBase: TForm},
   uViewFiltroClientes in 'uViewFiltroClientes.pas' {frViewFiltroClientes: TFrame},
   uViewParametrosInforme in 'uViewParametrosInforme.pas' {frViewParametrosInforme: TFrame},
+  uEditorInformeFacturasClientePendientesReport in 'uEditorInformeFacturasClientePendientesReport.pas' {fEditorInformeFacturasClientePendientesReport: t},
   uEditorInformeFacturasClienteReport in 'uEditorInformeFacturasClienteReport.pas' {fEditorInformeFacturasClienteReport: TForm};
 
 end.

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

@@ -38,23 +38,26 @@
     <DelphiCompile Include="GestorInformes_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="Contactos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
-    <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
+    <DCCReference Include="uEditorInformeFacturasClientePendientesReport.pas">
-      <Form>fEditorInformeFacturasClienteReport</Form>
+      <Form>fEditorInformeFacturasClientePendientesReport</Form>
       <DesignClass>t</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorInformeFacturasClienteReport.pas">
+      <Form>EditorInformeFacturasClienteReport</Form>
+      <DesignClass>T</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorInformeIVAClientesReport.pas">
       <Form>fEditorInformeIVAClientesReport</Form>
       <DesignClass>TForm</DesignClass>
@@ -76,6 +79,7 @@
       <Form>frViewPeriodoFechas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

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

@@ -0,0 +1,202 @@
+inherited fEditorInformeFacturasClientePendientesReport: TfEditorInformeFacturasClientePendientesReport
+  Caption = 'fEditorInformeFacturasClientePendientesReport'
+  ClientHeight = 655
+  ClientWidth = 895
+  ExplicitWidth = 903
+  ExplicitHeight = 689
+  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 = 636
+    Width = 895
+    ExplicitTop = 636
+    ExplicitWidth = 895
+  end
+  inherited TBXMultiDockIzquierdo: TTBXMultiDock
+    Height = 534
+    ExplicitHeight = 534
+  end
+  inherited TBXMultiDockDerecho: TTBXMultiDock
+    Left = 703
+    Width = 192
+    Height = 534
+    ExplicitLeft = 703
+    ExplicitWidth = 192
+    ExplicitHeight = 534
+    inherited pnlParametros: TTBXDockablePanel
+      DockedWidth = 188
+      ExplicitWidth = 192
+      ExplicitHeight = 518
+      inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
+        Left = 0
+        Top = 0
+        Width = 188
+        Height = 136
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        ReadOnly = False
+        ExplicitWidth = 188
+        ExplicitHeight = 136
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited cbPeriodo: TcxComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 153
+            Width = 153
+          end
+        end
+        inherited TBXAlignmentPanel2: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited Label3: TLabel
+            Width = 172
+          end
+          inherited edtFechaFin: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 99
+            Width = 99
+          end
+          inherited edtFechaIni: TcxDateEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 97
+            Width = 97
+          end
+        end
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+      end
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        Top = 456
+        TabOrder = 2
+        ExplicitTop = 456
+        ExplicitWidth = 188
+        ExplicitHeight = 40
+        inherited TBXButton1: TTBXButton
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 182
+          Height = 37
+          Margins.Left = 8
+          Margins.Top = 8
+          Margins.Right = 8
+          Margins.Bottom = 8
+          Align = alTop
+          ExplicitLeft = 3
+          ExplicitTop = 3
+          ExplicitWidth = 182
+          ExplicitHeight = 37
+        end
+      end
+      inline frViewFiltroImportes1: TfrViewFiltroImportes
+        Left = 0
+        Top = 136
+        Width = 188
+        Height = 77
+        Align = alTop
+        AutoSize = True
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 1
+        ReadOnly = False
+        ExplicitTop = 136
+        ExplicitWidth = 188
+        ExplicitHeight = 77
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 182
+          ExplicitWidth = 182
+          inherited eImporte: TcxSpinEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+          end
+        end
+      end
+      inline frViewFiltroClientes1: TfrViewFiltroClientes
+        Left = 0
+        Top = 213
+        Width = 188
+        Height = 146
+        Align = alTop
+        AutoSize = True
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        ReadOnly = False
+        ExplicitTop = 213
+        ExplicitWidth = 188
+        ExplicitHeight = 146
+        inherited TBXLabel2: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited bElegirCliente: TBitBtn
+          Width = 108
+          ExplicitWidth = 108
+        end
+        inherited edtCliente: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,132 @@
+unit uEditorInformeFacturasClientePendientesReport;
+
+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, uCustomView,
+  uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
+  uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
+  FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
+  uIEditorInformeBase, uViewParametrosInforme,
+  uIEditorInformeFacturasClientePendientesReport;
+
+type
+  TfEditorInformeFacturasClientePendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClientePendientesReport)
+    TBXItem58: TTBXItem;
+    frViewPeriodoFechas1: TfrViewPeriodoFechas;
+    frViewFiltroImportes1: TfrViewFiltroImportes;
+    frViewFiltroClientes1: TfrViewFiltroClientes;
+    procedure actRefrescarExecute(Sender: TObject);
+  private
+    FListaIDClientes: TIntegerArray;
+    function GetFechaFin: TDateTime;
+    function GetFechaInicio: TDateTime;
+    function GetListaIDClientes: TIntegerArray;
+    function GetImporteMinimo: Currency;
+    function GetDesglosadoCliente: Boolean;
+
+    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 TfEditorInformeFacturasClientePendientesReport.actRefrescarExecute(Sender: TObject);
+begin
+  inherited;
+  RefrescarInforme;
+end;
+
+constructor TfEditorInformeFacturasClientePendientesReport.Create(AOwner: TComponent);
+begin
+  inherited;
+  FListaIDClientes := TIntegerArray.Create;
+end;
+
+destructor TfEditorInformeFacturasClientePendientesReport.Destroy;
+begin
+  FListaIDClientes.Free;
+  inherited;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetDesglosadoCliente: Boolean;
+begin
+  if frViewFiltroImportes1.cbxDesglosado.Enabled then
+    Result := frViewFiltroClientes1.cbxDesglosado.Checked
+  else
+     Result := False;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetFechaFin: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaFin.Date;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetFechaInicio: TDateTime;
+begin
+  Result := frViewPeriodoFechas1.edtFechaIni.Date;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetImporteMinimo: Currency;
+begin
+  if frViewFiltroImportes1.eImporte.Enabled then
+     Result := frViewFiltroImportes1.eImporte.Value
+  else
+     Result := 0;
+end;
+
+function TfEditorInformeFacturasClientePendientesReport.GetListaIDClientes: TIntegerArray;
+begin
+  FListaIDClientes.Clear;
+  if Assigned(frViewFiltroClientes1.Cliente) then
+     FListaIDClientes.Add(frViewFiltroClientes1.Cliente.ID);
+
+  Result := FListaIDClientes;
+end;
+
+procedure TfEditorInformeFacturasClientePendientesReport.RefrescarInforme;
+var
+  AStream: Binary;
+begin
+  ShowHourglassCursor;
+  try
+    AStream := (Controller as IGestorInformesController).DataModule.GetInformeListadoFacturasPendientes(
+      AppFactuGES.EmpresaActiva.ID,
+      FechaInicio,
+      FechaFin,
+      ListaIDClientes,
+      DesglosadoCliente,
+      ImporteMinimo);
+
+    LoadFromStream(AStream);
+    Report.ShowPreparedReport;
+  finally
+    FreeAndNil(AStream);
+    HideHourglassCursor;
+  end;
+end;
+
+end.

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

@@ -82,7 +82,7 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
           Width = 182
           ExplicitWidth = 182
           inherited Label3: TLabel
-            Width = 85
+            Width = 172
           end
           inherited edtFechaFin: TcxDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -107,10 +107,11 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         end
       end
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 446
         TabOrder = 2
-        ExplicitTop = 368
+        ExplicitTop = 440
         ExplicitWidth = 188
+        ExplicitHeight = 50
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
           Left = 3
@@ -165,8 +166,9 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         Left = 0
         Top = 213
         Width = 188
-        Height = 195
+        Height = 146
         Align = alTop
+        AutoSize = True
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -177,18 +179,22 @@ inherited fEditorInformeFacturasClienteReport: TfEditorInformeFacturasClienteRep
         ReadOnly = False
         ExplicitTop = 213
         ExplicitWidth = 188
+        ExplicitHeight = 146
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited bElegirCliente: TBitBtn
-          ExplicitWidth = 382
+          Width = 108
+          ExplicitWidth = 108
         end
         inherited edtCliente: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
         end
       end
     end

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

@@ -107,11 +107,11 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         end
       end
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 446
         TabOrder = 2
-        ExplicitTop = 368
+        ExplicitTop = 424
         ExplicitWidth = 188
-        ExplicitHeight = 128
+        ExplicitHeight = 50
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
           Left = 3
@@ -166,8 +166,9 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         Left = 0
         Top = 213
         Width = 188
-        Height = 195
+        Height = 146
         Align = alTop
+        AutoSize = True
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -178,18 +179,22 @@ inherited fEditorInformeIVAClientesReport: TfEditorInformeIVAClientesReport
         ReadOnly = False
         ExplicitTop = 213
         ExplicitWidth = 188
+        ExplicitHeight = 146
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited bElegirCliente: TBitBtn
-          ExplicitWidth = 382
+          Width = 108
+          ExplicitWidth = 108
         end
         inherited edtCliente: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 141
+          Width = 141
         end
       end
     end

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

@@ -14,10 +14,10 @@ uses
   uViewBase, uViewPeriodoFechas, uViewDatosYSeleccionClienteBase,
   uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
-  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasClienteReport;
+  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeIVAClientesReport;
 
 type
-  TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeFacturasClienteReport)
+  TfEditorInformeIVAClientesReport = class(TfEditorInformeBase, IEditorInformeIVAClientesReport)
     TBXItem58: TTBXItem;
     frViewPeriodoFechas1: TfrViewPeriodoFechas;
     frViewFiltroImportes1: TfrViewFiltroImportes;

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

@@ -8,12 +8,15 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport;
+  uEditorRegistryUtils, uEditorInformeIVAClientesReport, uEditorInformeFacturasClienteReport,
+  uEditorInformeFacturasClientePendientesReport
+  ;
 
 procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorInformeIVAClientesReport, 'EditorInformeIVAClientesReport');
   EditorRegistry.RegisterClass(TfEditorInformeFacturasClienteReport, 'EditorInformeFacturasClienteReport');
+  EditorRegistry.RegisterClass(TfEditorInformeFacturasClientePendientesReport, 'EditorInformeFacturasClientePendientesReport');
 end;
 
 procedure UnregisterViews;

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

@@ -1,13 +1,16 @@
 inherited frViewFiltroClientes: TfrViewFiltroClientes
-  Width = 184
+  Width = 211
   Align = alTop
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
   ExplicitWidth = 451
+  DesignSize = (
+    211
+    195)
   object TBXLabel2: TTBXLabel
     Left = 0
     Top = 0
-    Width = 184
+    Width = 211
     Height = 29
     Margins.Top = 5
     Margins.Bottom = 10
@@ -27,7 +30,7 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
     AlignWithMargins = True
     Left = 61
     Top = 123
-    Width = 115
+    Width = 142
     Height = 23
     Margins.Left = 0
     Margins.Top = 0
@@ -73,11 +76,12 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
       AA00C315D600FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
       FF00FF00FF00FF00FF00FF00FF00C83EF000808BDF00668BCC007C60C700D116
       E400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
+    ExplicitWidth = 382
   end
   object cbxDesglosado: TCheckBox
     Left = 23
     Top = 49
-    Width = 176
+    Width = 146
     Height = 17
     Caption = 'Desglosar por cliente'
     Checked = True
@@ -105,8 +109,9 @@ inherited frViewFiltroClientes: TfrViewFiltroClientes
     StyleHot.LookAndFeel.NativeStyle = True
     StyleHot.LookAndFeel.SkinName = ''
     TabOrder = 3
+    ExplicitWidth = 415
     Height = 21
-    Width = 148
+    Width = 175
   end
   object rbTodosClientes: TRadioButton
     Left = 6

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

@@ -75,6 +75,7 @@ begin
     cbxDesglosado.Enabled := True;
     FCliente := NIL;
     bElegirCliente.Enabled := False;
+    edtCliente.Enabled := False;    
   end;
 end;
 
@@ -84,7 +85,7 @@ begin
   begin
     cbxDesglosado.Enabled := False;
     bElegirCliente.Enabled := True;
-
+    edtCliente.Enabled := True;
     if not Assigned(FClientesController) then
       FClientesController := TClientesController.Create;
   end;