Version 2.3.2

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

Source/Base/Base.dproj

@@ -54,58 +54,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">0</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,2,0,0
+FILEVERSION 2,3,2,0
-PRODUCTVERSION 2,2,0,0
+PRODUCTVERSION 2,3,2,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.2.0.0\0"
+              VALUE "FileVersion", "2.3.2.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.2.0.0\0"
+              VALUE "ProductVersion", "2.3.2.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Informes/1/InformeIVAComparativo.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="42501,5103784491" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
+<TfrxReport Version="4.7.71" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37800,8077143519" ReportOptions.Description.Text="" ReportOptions.LastChange="43816,5014707523" ScriptLanguage="PascalScript" ScriptText.Text="procedure mContinuaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10; if Engine.FinalPass then&#13;&#10;  begin&#13;&#10;    if (&#60;Page#&#62; = &#60;TotalPages#&#62;) then&#13;&#10;    begin                      &#13;&#10;       mContinua.Visible := False;&#13;&#10;    end                 &#13;&#10;    else&#13;&#10;    begin                &#13;&#10;       mContinua.Visible := True;&#13;&#10;    end               &#13;&#10;  end;               &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F4661637475726173436C692200010C3400000020446174615365744E616D653D226672784442496E666F726D65495641436F6D706172617469766F466163747572617350726F220000095661726961626C657301010C13000000204E616D653D2220506172616D6574726F732200010C17000000204E616D653D22546578746F506172616D6574726F73220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="15" RightMargin="15" TopMargin="15" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band1" Height="136,10235" Left="0" Top="16" Width="1009,13451" OnBeforePrint="Band1OnBeforePrint">
@@ -7,7 +7,7 @@
       <TfrxShapeView Name="Shape5" Left="513" Top="4" Width="495" Height="129" ShowHint="False" Color="13434828" Shape="skRoundRectangle"/>
       <TfrxMemoView Name="NombreCliente" Left="521,85807" Top="13" Width="478" Height="19" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="LISTADO COMPARATIVO DE IVA REPERCUTIDO - SOPORTADO"/>
       <TfrxMemoView Name="Memo3" Left="521,85807" Top="34,89765" Width="478" Height="91" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Fecha del listado: [&#60;Date&#62;] - Página [Page#] de [TotalPages#]&#13;&#10;[TextoParametros]"/>
-      <TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L.&#13;&#10;CIF: B81747396&#13;&#10;C/ Hierro, 33 1ª Plta Oficina 10. 28045  Madrid&#13;&#10;Telf: 91-507-56-92 / 63&#13;&#10;Fax: 91-785-96-35&#13;&#10;e-mail: clientes@tecsitel.com"/>
+      <TfrxMemoView Name="DatosEmpresa" Left="82" Top="37" Width="232" Height="88" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="TECSITEL S.L.&#13;&#10;CIF: B81747396&#13;&#10;C/ Luis I nº 71 nave 1. 28031 Madrid&#13;&#10;Telf: 91-507-56-92 / 63&#13;&#10;Fax: 91-785-96-35&#13;&#10;e-mail: clientes@tecsitel.com"/>
     </TfrxPageHeader>
     <TfrxPageFooter Name="" Height="23,77953" Left="0" Top="664" Width="1009,13451" PrintOnLastPage="False">
       <TfrxMemoView Name="mContinua" Left="925,98485" Top="4,77953000000002" Width="81,08714" Height="16,77953" OnBeforePrint="mContinuaOnBeforePrint" ShowHint="False" StretchMode="smMaxHeight" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="16384" Font.Height="-12" Font.Name="Tahoma" Font.Style="0" HAlign="haRight" ParentFont="False" Text="Continúa ..."/>

Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas

@@ -8,7 +8,8 @@ uses
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
   uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
-  uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer;
+  uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer,
+  DataAbstract4_Intf;
 
 type
   TRptFacturasCliente = class(TDataModule)
@@ -110,6 +111,9 @@ type
     DADSInformeIVAComparativoFacturasPro: TDADataSource;
     tbl_InformeIVAComparativoFacturasPro: TDAMemDataTable;
     schReport: TDASchema;
+    tbl_InformeListadoBeneficiosGrafCompSemestralTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoBeneficiosGrafCompTrimestralTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoBeneficiosGrafCompMensualTipoGasto: TDAMemDataTable;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
@@ -127,7 +131,9 @@ type
     FImporteMinimo: Currency;
     FDesglosado : Boolean;
     FTopN: Integer;
-    
+    FListaIDTiposdeGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;
+
     //Genera cada una de las facturas a imprimir
     procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
 
@@ -145,7 +151,7 @@ type
     function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
-    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
+    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
   end;
 
@@ -155,7 +161,7 @@ implementation
 
 uses
   uSistemaFunc, StrUtils, uDataModuleServer, schFacturasClienteClient_Intf,
-  uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
+  uROServer, srvGestorInformes_Impl;
 
 const
   rptFacturaCliente = 'InfFacturaCliente.fr3';
@@ -234,10 +240,12 @@ begin
   end;
 end;
 
-function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
+function TRptFacturasCliente.GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
+const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AStream: TMemoryStream;
   AInforme: Variant;
+  ACadena: TStringList;
 
 begin
   FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
@@ -250,14 +258,39 @@ begin
     FAno2 := Ano2;
     FIntervalo := Intervalo;
 
-    //Preparamos la tabla correspondiente y la abrimos para el informe
+    if Assigned(FListaIDTiposdeGasto) then
-    if (FIntervalo = CTE_MENSUAL) then
+       FListaIDTiposdeGasto.Free;
-       PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensual)
+    FListaIDTiposdeGasto := ListaIDTiposGasto;
-    else if (FIntervalo = CTE_TRIMESTRAL) then
-       PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestral)
-    else
-       PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestral);
 
+    if Assigned(FListaNombreTiposGasto) then
+       FreeAndNil(FListaNombreTiposGasto);
+    FListaNombreTiposGasto := ListaNombreTiposGasto;
+    
+    //Cargamos las tablas con parametro ID_TIPO_GASTO
+    if (FListaIDTiposdeGasto.Count = 1) then
+    begin
+      //Preparamos la tabla correspondiente y la abrimos para el informe
+      if (FIntervalo = CTE_MENSUAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensualTipoGasto)
+      else if (FIntervalo = CTE_TRIMESTRAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestralTipoGasto)
+      else
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestralTipoGasto);
+
+      DASInformeListadoFacturasGrafComp.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
+    end
+    else
+    begin
+      //Preparamos la tabla correspondiente y la abrimos para el informe
+      if (FIntervalo = CTE_MENSUAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompMensual)
+      else if (FIntervalo = CTE_TRIMESTRAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompTrimestral)
+      else
+         PrepararTablaInformeGrafComp(tbl_InformeListadoBeneficiosGrafCompSemestral);
+    end;
+
+    DASInformeListadoFacturasGrafComp.DataTable.Active := True;
     Result := Binary.Create;
 
     AInforme := DarRutaFichero(DarRutaInformes, rptInformeListadoBeneficiosGrafComp, IntTostr(FIdEmpresa));
@@ -267,6 +300,15 @@ begin
     frxReport.LoadFromFile(AInforme, True);
 //    IniciarParametrosInforme;
 
+    ACadena := TStringList.Create;
+    ACadena.Add('Todos los tipos de gasto');
+    if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
+    begin
+       ACadena.Clear;
+       ACadena.Add('Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0]);
+    end;
+
+    frxReport.Variables.Variables['TextoParametros']:= ACadena.Text;
     frxReport.Variables.Variables['Ano1']:= Ano1;
     frxReport.Variables.Variables['Ano2']:= Ano2;
     frxReport.Variables.Variables['Serie']:= Serie;
@@ -276,6 +318,7 @@ begin
   finally
     AStream.Free;
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+    FreeAndNil(ACadena);    
   end;
 end;
 
@@ -694,7 +737,6 @@ begin
   ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
   ATabla.ParamByName('ANO1').AsVariant := FAno1;
   ATabla.ParamByName('ANO2').AsVariant := FAno2;
-  ATabla.Active := True;
 end;
 
 procedure TRptFacturasCliente.PrepararTablaResumenInforme(ATabla: IDADataset);

Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj

@@ -64,6 +64,7 @@
     <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorElegirDomiciliacion.pas" />
     <DCCReference Include="View\uIEditorElegirFechaVencimiento.pas" />
+    <DCCReference Include="View\uIEditorElegirTipoGasto.pas" />
     <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
     <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -54,9 +54,11 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+    function darTiposFacturaProveedor: IBizTiposFacturaProveedor;
 
     function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
     function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
+    function AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
   TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
@@ -124,9 +126,11 @@ type
 
     function DarListaAnosFacturas: TStringList;
     procedure FiltrarAno(AFactura: IBizFacturaProveedor; ADynWhereDataTable: WideString; const Ano: String);
+    function darTiposFacturaProveedor: IBizTiposFacturaProveedor;    
 
     function AsignarCuentaBancaria(AFacturas: IBizFacturaProveedor): TStringList;
     function AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
+    function AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
   end;
 
 implementation
@@ -142,7 +146,7 @@ uses
   uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
   uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
   uFormasPagoController, uBizFormasPago, uStringsUtils,
-  uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento,
+  uIEditorElegirDomiciliacion, uIEditorElegirFechaVencimiento, uIEditorElegirTipoGasto,
 
   cxEdit;
 
@@ -305,6 +309,45 @@ begin
  end;
 end;
 
+function TFacturasProveedorController.AsignarTipoGasto(AFacturas: IBizFacturaProveedor): TStringList;
+//Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
+var
+  AEditor : IEditorElegirTipoGasto;
+  ATipoGasto: Integer;
+
+begin
+  Result := TStringList.Create;
+
+  if Assigned(AFacturas) then
+  begin
+    CreateEditor('EditorElegirTipoGasto', IEditorElegirTipoGasto, AEditor);
+    if Assigned(AEditor) then
+       try
+         if (AEditor.ShowModal = mrOk) then
+            ATipoGasto := AEditor.TipodeGasto;
+       finally
+         AEditor.Release;
+         AEditor := NIL;
+       end;
+
+    with  AFacturas.DataTable do
+    begin
+      First;
+      while not EOF do
+      begin
+        if (AFacturas.ID_TIPO_FACTURA <> ATipoGasto) then
+        begin
+          Edit;
+          AFacturas.ID_TIPO_FACTURA := ATipoGasto;
+          Post;
+        end;
+        Next;
+      end;
+      ApplyUpdates;
+    end;
+ end;
+end;
+
 function TFacturasProveedorController.AsignarVencimiento(AFacturas: IBizFacturaProveedor): TStringList;
 //Devolverá la lista de facturas que no han podido ser modificadas referencia=nombreproveedor
 var
@@ -494,6 +537,11 @@ begin
   Result := FDataModule.GetAnosItems;
 end;
 
+function TFacturasProveedorController.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
+begin
+  Result := FDataModule.darTiposFacturaProveedor;
+end;
+
 procedure TFacturasProveedorController.DescartarCambios(AFactura: IBizFacturaProveedor);
 begin
   if not Assigned(AFactura) then

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -1,6 +1,6 @@
 inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
   OnCreate = DAClientDataModuleCreate
-  Height = 318
+  Height = 454
   Width = 518
   object RORemoteService: TRORemoteService
     Message = dmConexion.ROMessage
@@ -273,6 +273,15 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
       item
         Name = 'FACTURA_WEB'
         DataType = datSmallInt
+      end
+      item
+        Name = 'ID_TIPO_FACTURA'
+        DataType = datInteger
+      end
+      item
+        Name = 'GASTO_FACTURA'
+        DataType = datString
+        Size = 2000
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -516,4 +525,30 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
     Left = 208
     Top = 160
   end
+  object ds_TiposFacturaProveedor: TDADataSource
+    DataSet = tbl_TiposFacturaProveedor.Dataset
+    DataTable = tbl_TiposFacturaProveedor
+    Left = 72
+    Top = 216
+  end
+  object tbl_TiposFacturaProveedor: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 2000
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_FacturasProveedor
+    LogicalName = 'TiposFacturaProveedor'
+    IndexDefs = <>
+    Left = 72
+    Top = 264
+  end
 end

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas

@@ -25,6 +25,8 @@ type
     ds_FacturasProveedor_Pedidos: TDADataSource;
     tbl_ListaAnosFacturas: TDAMemDataTable;
     ds_ListaAnosFacturas: TDADataSource;
+    ds_TiposFacturaProveedor: TDADataSource;
+    tbl_TiposFacturaProveedor: TDAMemDataTable;
     procedure DAClientDataModuleCreate(Sender: TObject);
   private
     function _GetDetalles : IBizDetallesFacturaProveedor;
@@ -33,6 +35,7 @@ type
     function GetItems : IBizFacturaProveedor;
     function GetItem(const ID : Integer) : IBizFacturaProveedor;
     function NewItem : IBizFacturaProveedor;
+    function darTiposFacturaProveedor : IBizTiposFacturaProveedor;    
 
     // Report
     function GetReport(const AFacturaID: String): Binary;
@@ -102,6 +105,20 @@ begin
   end;
 end;
 
+function TDataModuleFacturasProveedor.darTiposFacturaProveedor: IBizTiposFacturaProveedor;
+var
+  ATipos : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    ATipos := CloneDataTable(tbl_TiposFacturaProveedor);
+    ATipos.BusinessRulesID := BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR;
+    Result := (ATipos as IBizTiposFacturaProveedor);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TDataModuleFacturasProveedor.GetAnosItems: TStringList;
 var
   AListaAnos: TStringList;

Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj

@@ -131,15 +131,6 @@
   <Target Name="PedProv_AlbProv_relation:Make">
     <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
   </Target>
-  <Target Name="FacturasProveedor_view">
-    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasProveedor_view:Clean">
-    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasProveedor_view:Make">
-    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
-  </Target>
   <Target Name="PedProv_FacProv_relation">
     <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
   </Target>
@@ -149,6 +140,15 @@
   <Target Name="PedProv_FacProv_relation:Make">
     <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProveedor_view">
+    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Clean">
+    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Make">
+    <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasProveedor_plugin">
     <MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
   </Target>
@@ -312,13 +312,13 @@
     <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;FacturasProveedor_view;PedProv_FacProv_relation;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_view:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_view:Make;PedProv_FacProv_relation:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedor.pas

@@ -13,6 +13,7 @@ type
     function GetItems: IBizFacturaProveedor;
     function GetItem(const ID : Integer) : IBizFacturaProveedor;
     function NewItem : IBizFacturaProveedor;
+    function darTiposFacturaProveedor : IBizTiposFacturaProveedor;
   end;
 
 implementation

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -9,13 +9,15 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturas = '{B4BDA784-E7CD-4E5D-AD82-CA1AD2FA210E}';
+  RID_ListaAnosFacturas = '{C658E9F4-FBA4-41A1-BED6-48877E65A655}';
-  RID_FacturasProveedor = '{88C6D669-25A9-4965-ADC8-DD1920257A84}';
+  RID_TiposFacturaProveedor = '{8CCF560A-60F5-4A99-9550-2E850599ACEE}';
-  RID_FacturasProveedor_Detalles = '{858A5CAE-E03F-4CAB-8AAF-D03986B66CD3}';
+  RID_FacturasProveedor = '{3359F0D6-D054-434E-B975-8F45A24E1BEE}';
-  RID_FacturasProveedor_Pedidos = '{3B26DC10-C424-4261-8421-52BDE6ECDF82}';
+  RID_FacturasProveedor_Detalles = '{26E6A51E-3426-49D3-83DD-3C815C15441D}';
+  RID_FacturasProveedor_Pedidos = '{96119A69-D5BF-4255-93F2-726A658369D6}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
+  nme_TiposFacturaProveedor = 'TiposFacturaProveedor';
   nme_FacturasProveedor = 'FacturasProveedor';
   nme_FacturasProveedor_Detalles = 'FacturasProveedor_Detalles';
   nme_FacturasProveedor_Pedidos = 'FacturasProveedor_Pedidos';
@@ -26,6 +28,14 @@ const
   { ListaAnosFacturas field indexes }
   idx_ListaAnosFacturasANO = 0;
 
+  { TiposFacturaProveedor fields }
+  fld_TiposFacturaProveedorID = 'ID';
+  fld_TiposFacturaProveedorDESCRIPCION = 'DESCRIPCION';
+
+  { TiposFacturaProveedor field indexes }
+  idx_TiposFacturaProveedorID = 0;
+  idx_TiposFacturaProveedorDESCRIPCION = 1;
+
   { FacturasProveedor fields }
   fld_FacturasProveedorID = 'ID';
   fld_FacturasProveedorID_EMPRESA = 'ID_EMPRESA';
@@ -66,6 +76,8 @@ const
   fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO';
   fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
   fld_FacturasProveedorFACTURA_WEB = 'FACTURA_WEB';
+  fld_FacturasProveedorID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
+  fld_FacturasProveedorGASTO_FACTURA = 'GASTO_FACTURA';
 
   { FacturasProveedor field indexes }
   idx_FacturasProveedorID = 0;
@@ -107,6 +119,8 @@ const
   idx_FacturasProveedorID_PEDIDO = 36;
   idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
   idx_FacturasProveedorFACTURA_WEB = 38;
+  idx_FacturasProveedorID_TIPO_FACTURA = 39;
+  idx_FacturasProveedorGASTO_FACTURA = 40;
 
   { FacturasProveedor_Detalles fields }
   fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
@@ -171,7 +185,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{05484AA0-6BB3-4627-AACC-ACA197D91A7A}']
+  ['{3A6537F5-9F02-4F34-AF69-4177A3BE5307}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -204,9 +218,56 @@ type
 
   end;
 
+  { ITiposFacturaProveedor }
+  ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
+  ['{563B959F-593F-455A-86CE-8F84B71242A0}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+  end;
+
+  { TTiposFacturaProveedorDataTableRules }
+  TTiposFacturaProveedorDataTableRules = class(TIntfObjectDADataTableRules, ITiposFacturaProveedor)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AD3265C8-FA1C-4EF5-AE75-30202C4F636C}']
+  ['{F16B7B17-828D-4E04-8227-F7B796C34113}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -363,6 +424,14 @@ type
     procedure SetFACTURA_WEBValue(const aValue: SmallInt);
     function GetFACTURA_WEBIsNull: Boolean;
     procedure SetFACTURA_WEBIsNull(const aValue: Boolean);
+    function GetID_TIPO_FACTURAValue: Integer;
+    procedure SetID_TIPO_FACTURAValue(const aValue: Integer);
+    function GetID_TIPO_FACTURAIsNull: Boolean;
+    procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
+    function GetGASTO_FACTURAValue: String;
+    procedure SetGASTO_FACTURAValue(const aValue: String);
+    function GetGASTO_FACTURAIsNull: Boolean;
+    procedure SetGASTO_FACTURAIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -444,6 +513,10 @@ type
     property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
     property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
     property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
+    property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+    property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
+    property GASTO_FACTURA: String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
+    property GASTO_FACTURAIsNull: Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
   end;
 
   { TFacturasProveedorDataTableRules }
@@ -608,6 +681,14 @@ type
     procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
     function GetFACTURA_WEBIsNull: Boolean; virtual;
     procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetID_TIPO_FACTURAValue: Integer; virtual;
+    procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
+    function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
+    procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetGASTO_FACTURAValue: String; virtual;
+    procedure SetGASTO_FACTURAValue(const aValue: String); virtual;
+    function GetGASTO_FACTURAIsNull: Boolean; virtual;
+    procedure SetGASTO_FACTURAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -688,6 +769,10 @@ type
     property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
     property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
     property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
+    property ID_TIPO_FACTURA: Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+    property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
+    property GASTO_FACTURA: String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
+    property GASTO_FACTURAIsNull: Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -697,7 +782,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{F659E93B-D0FA-48CD-86DF-07903E7F8687}']
+  ['{BE622FAF-3843-477A-8F04-F9FDD937F179}']
     { Property getters and setters }
     function GetID_TIPO_IVAValue: Integer;
     procedure SetID_TIPO_IVAValue(const aValue: Integer);
@@ -948,7 +1033,7 @@ type
 
   { IFacturasProveedor_Pedidos }
   IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
-  ['{EED4D71C-4868-4437-B0F5-CE738331D865}']
+  ['{4A33A986-4CE2-4064-AE22-C0823A36AA54}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1090,6 +1175,60 @@ begin
 end;
 
 
+{ TTiposFacturaProveedorDataTableRules }
+constructor TTiposFacturaProveedorDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TTiposFacturaProveedorDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_TiposFacturaProveedorID].AsInteger := aValue;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_TiposFacturaProveedorID].IsNull;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_TiposFacturaProveedorID].AsVariant := Null;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsString := aValue;
+end;
+
+function TTiposFacturaProveedorDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].IsNull;
+end;
+
+procedure TTiposFacturaProveedorDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_TiposFacturaProveedorDESCRIPCION].AsVariant := Null;
+end;
+
+
 { TFacturasProveedorDataTableRules }
 constructor TFacturasProveedorDataTableRules.Create(aDataTable: TDADataTable);
 var
@@ -1927,6 +2066,48 @@ begin
     DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].AsVariant := Null;
 end;
 
+function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsInteger := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetID_TIPO_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedorID_TIPO_FACTURA].AsVariant := Null;
+end;
+
+function TFacturasProveedorDataTableRules.GetGASTO_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsString;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetGASTO_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsString := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetGASTO_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetGASTO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedorGASTO_FACTURA].AsVariant := Null;
+end;
+
 
 { TFacturasProveedor_DetallesDataTableRules }
 constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -2500,6 +2681,7 @@ end;
 
 initialization
   RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
+  RegisterDataTableRules(RID_TiposFacturaProveedor, TTiposFacturaProveedorDataTableRules);
   RegisterDataTableRules(RID_FacturasProveedor, TFacturasProveedorDataTableRules);
   RegisterDataTableRules(RID_FacturasProveedor_Detalles, TFacturasProveedor_DetallesDataTableRules);
   RegisterDataTableRules(RID_FacturasProveedor_Pedidos, TFacturasProveedor_PedidosDataTableRules);

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas

@@ -9,15 +9,16 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ListaAnosFacturasDelta = '{597C7E92-4D92-447E-B929-17142EC8D988}';
+  RID_ListaAnosFacturasDelta = '{58AB1D93-ECF9-4709-9940-4EABA82A3837}';
-  RID_FacturasProveedorDelta = '{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}';
+  RID_TiposFacturaProveedorDelta = '{ACA94265-BCFA-4352-AD0A-3047643CDBE1}';
-  RID_FacturasProveedor_DetallesDelta = '{A8B404BC-49F6-4337-B720-7E89EE78B376}';
+  RID_FacturasProveedorDelta = '{6C73408A-5093-494D-9629-DA14CCD2809C}';
-  RID_FacturasProveedor_PedidosDelta = '{27E068A8-51CD-4289-AB94-31B7C5120DC4}';
+  RID_FacturasProveedor_DetallesDelta = '{8C06187D-4437-4059-B72D-81D07D5EA1B2}';
+  RID_FacturasProveedor_PedidosDelta = '{09AF7634-49D5-466B-A428-D969048F0E0E}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{597C7E92-4D92-447E-B929-17142EC8D988}']
+  ['{58AB1D93-ECF9-4709-9940-4EABA82A3837}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -49,9 +50,55 @@ type
 
   end;
 
+  { ITiposFacturaProveedorDelta }
+  ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
+  ['{ACA94265-BCFA-4352-AD0A-3047643CDBE1}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldDESCRIPCIONValue : String;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+  end;
+
+  { TTiposFacturaProveedorBusinessProcessorRules }
+  TTiposFacturaProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposFacturaProveedor, ITiposFacturaProveedorDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}']
+  ['{6C73408A-5093-494D-9629-DA14CCD2809C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -92,6 +139,8 @@ type
     function GetOldID_PEDIDOValue : Integer;
     function GetOldREFERENCIA_PEDIDOValue : String;
     function GetOldFACTURA_WEBValue : SmallInt;
+    function GetOldID_TIPO_FACTURAValue : Integer;
+    function GetOldGASTO_FACTURAValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -133,6 +182,8 @@ type
     property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
     property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
     property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
+    property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
+    property OldGASTO_FACTURA : String read GetOldGASTO_FACTURAValue;
   end;
 
   { TFacturasProveedorBusinessProcessorRules }
@@ -375,6 +426,18 @@ type
     function GetOldFACTURA_WEBIsNull: Boolean; virtual;
     procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
     procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
+    function GetID_TIPO_FACTURAValue: Integer; virtual;
+    function GetID_TIPO_FACTURAIsNull: Boolean; virtual;
+    function GetOldID_TIPO_FACTURAValue: Integer; virtual;
+    function GetOldID_TIPO_FACTURAIsNull: Boolean; virtual;
+    procedure SetID_TIPO_FACTURAValue(const aValue: Integer); virtual;
+    procedure SetID_TIPO_FACTURAIsNull(const aValue: Boolean); virtual;
+    function GetGASTO_FACTURAValue: String; virtual;
+    function GetGASTO_FACTURAIsNull: Boolean; virtual;
+    function GetOldGASTO_FACTURAValue: String; virtual;
+    function GetOldGASTO_FACTURAIsNull: Boolean; virtual;
+    procedure SetGASTO_FACTURAValue(const aValue: String); virtual;
+    procedure SetGASTO_FACTURAIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -533,6 +596,14 @@ type
     property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
     property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
     property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull;
+    property ID_TIPO_FACTURA : Integer read GetID_TIPO_FACTURAValue write SetID_TIPO_FACTURAValue;
+    property ID_TIPO_FACTURAIsNull : Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
+    property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
+    property OldID_TIPO_FACTURAIsNull : Boolean read GetOldID_TIPO_FACTURAIsNull;
+    property GASTO_FACTURA : String read GetGASTO_FACTURAValue write SetGASTO_FACTURAValue;
+    property GASTO_FACTURAIsNull : Boolean read GetGASTO_FACTURAIsNull write SetGASTO_FACTURAIsNull;
+    property OldGASTO_FACTURA : String read GetOldGASTO_FACTURAValue;
+    property OldGASTO_FACTURAIsNull : Boolean read GetOldGASTO_FACTURAIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -542,7 +613,7 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{A8B404BC-49F6-4337-B720-7E89EE78B376}']
+  ['{8C06187D-4437-4059-B72D-81D07D5EA1B2}']
     { Property getters and setters }
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldIVAValue : Float;
@@ -792,7 +863,7 @@ type
 
   { IFacturasProveedor_PedidosDelta }
   IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
-  ['{27E068A8-51CD-4289-AB94-31B7C5120DC4}']
+  ['{09AF7634-49D5-466B-A428-D969048F0E0E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -944,6 +1015,80 @@ begin
 end;
 
 
+{ TTiposFacturaProveedorBusinessProcessorRules }
+constructor TTiposFacturaProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TTiposFacturaProveedorBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID]);
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorID]);
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := aValue;
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorID] := Null;
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION];
+end;
+
+function TTiposFacturaProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposFacturaProveedorDESCRIPCION]);
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := aValue;
+end;
+
+procedure TTiposFacturaProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_TiposFacturaProveedorDESCRIPCION] := Null;
+end;
+
+
 { TFacturasProveedorBusinessProcessorRules }
 constructor TFacturasProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 var
@@ -2172,6 +2317,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB] := Null;
 end;
 
+function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetID_TIPO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_TIPO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_TIPO_FACTURA]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_TIPO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_TIPO_FACTURA] := Null;
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetGASTO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetGASTO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldGASTO_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorGASTO_FACTURA];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldGASTO_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorGASTO_FACTURA]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetGASTO_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetGASTO_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorGASTO_FACTURA] := Null;
+end;
+
 
 { TFacturasProveedor_DetallesBusinessProcessorRules }
 constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -3005,6 +3212,7 @@ end;
 
 initialization
   RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_TiposFacturaProveedorDelta, TTiposFacturaProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_FacturasProveedorDelta, TFacturasProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_FacturasProveedor_DetallesDelta, TFacturasProveedor_DetallesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_FacturasProveedor_PedidosDelta, TFacturasProveedor_PedidosBusinessProcessorRules);

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas

@@ -9,6 +9,7 @@ uses
 
 const
   BIZ_CLIENT_FACTURA_PROVEEDOR = 'Client.FacturaProveedor';
+  BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR = 'Client.TiposFacturaProveedor';  
 
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
@@ -18,6 +19,10 @@ const
   CTE_PAGADA = 'PAGADA';
 
 type
+  IBizTiposFacturaProveedor = interface(ITiposFacturaProveedor)
+  ['{40F9AF09-459A-4F89-ABD1-16FB6659FA61}']
+  end;
+
   IBizFacturaProveedor = interface(IFacturasProveedor)
   ['{4BC473E5-3B82-4C1A-8E52-2A227490F94E}']
 
@@ -43,6 +48,8 @@ type
     procedure CalcularImporteTotal;
   end;
 
+  TBizTiposFacturaProveedor = class(TTiposFacturaProveedorDataTableRules, IBizTiposFacturaProveedor)
+  end;
 
   TBizFacturaProveedor = class(TFacturasProveedorDataTableRules, IBizFacturaProveedor, ISeleccionable)
   private
@@ -383,6 +390,7 @@ end;
 
 initialization
   RegisterDataTableRules(BIZ_CLIENT_FACTURA_PROVEEDOR, TBizFacturaProveedor);
+  RegisterDataTableRules(BIZ_CLIENT_TIPOS_FACTURA_PROVEEDOR, TBizTiposFacturaProveedor);
 
 finalization
 

Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas

@@ -9,7 +9,9 @@ uses
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
   uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
   uDAMemDataTable, FactuGES_Intf, frxExportPDF, uDABin2DataStreamer,
-  uDARemoteDataAdapter;
+  uDARemoteDataAdapter,
+  {Used RODLs:} DataAbstract4_Intf
+  ;
 
 type
   TRptFacturasProveedor = class(TDataModule)
@@ -48,6 +50,11 @@ type
     frxDBInformeListadoProveedoresMayorDescuentoResumen: TfrxDBDataset;
     DADSInformeListadoProveedoresMayorDescuentoResumen: TDADataSource;
     tbl_InformeListadoProveedoresMayorDescuentoResumen: TDAMemDataTable;
+    InformeListadoFacturasGrafCompMensualTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoFacturasGrafCompTrimestralTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoFacturasGrafCompSemestralTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto: TDAMemDataTable;
+    tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto: TDAMemDataTable;
     schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -66,6 +73,9 @@ type
     FImporteMinimo: Currency;
     FDesglosado : Boolean;
     FTopN: Integer;
+    FListaIDTiposdeGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;
+
     procedure RecuperarNombresProveedores;
     procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
     procedure PrepararTablaResumenInforme(ATabla: IDADataset);
@@ -74,10 +84,16 @@ type
     procedure IniciarParametrosInforme;
     function _GenerarInforme(const TipoInforme: String): Binary;
   public
-    function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency;
-    function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+                               const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency;
-    function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
+                                           const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
+    function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant;
+                                                     const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray;
+                                                     const ListaNombreTiposGasto: StringArray): Binary;
+
+    function GenerarInformeFacturasGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer;
+                                            const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
   end;
 
 implementation
@@ -86,7 +102,7 @@ implementation
 
 uses
   uSistemaFunc, StrUtils, uDataModuleServer, schFacturasProveedorClient_Intf,
-  uROServer, DataAbstract4_Intf, srvGestorInformes_Impl;
+  uROServer, srvGestorInformes_Impl;
 
 const
   rptInformeIVA = 'InformeIVAProveedores.fr3';
@@ -120,10 +136,12 @@ end;
 
 function TRptFacturasProveedor.GenerarInformeFacturasGrafComp(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
+  const ListaIDProveedores: TIntegerArray; const TopN: Integer;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AStream: TMemoryStream;
   AInforme: Variant;
+  ACadena: TStringList;
 
 begin
   FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
@@ -141,17 +159,57 @@ begin
        FListaIDProveedores.Free;
     FListaIDProveedores := ListaIDProveedores;
 
-    //Preparamos la tabla correspondiente y la abrimos para el informe
+    if Assigned(FListaIDTiposdeGasto) then
-    if (FIntervalo = CTE_MENSUAL) then
+       FListaIDTiposdeGasto.Free;
-       PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
+    FListaIDTiposdeGasto := ListaIDTiposGasto;
-    else if (FIntervalo = CTE_TRIMESTRAL) then
-       PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
-    else
-       PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
 
-    //Se preparan las tablas del listado resumen del informe
+    if Assigned(FListaNombreTiposGasto) then
-    PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumen);
+       FreeAndNil(FListaNombreTiposGasto);
-    PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumen);
+    FListaNombreTiposGasto := ListaNombreTiposGasto;
+
+    //Cargamos las tablas con parametro ID_TIPO_GASTO
+    if (FListaIDTiposdeGasto.Count = 1) then
+    begin
+      //Preparamos la tabla correspondiente y la abrimos para el informe
+      if (FIntervalo = CTE_MENSUAL) then
+         PrepararTablaInformeGrafComp(InformeListadoFacturasGrafCompMensualTipoGasto)
+      else if (FIntervalo = CTE_TRIMESTRAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestralTipoGasto)
+      else
+         PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestralTipoGasto);
+
+
+     //Se preparan las tablas del listado resumen del informe
+     PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto);
+     PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto);
+     DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable := tbl_InformeListadoProveedoresMayorFacturacionResumenTipoGasto;
+     DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable := tbl_InformeListadoProveedoresMayorDescuentoResumenTipoGasto;
+
+     DASInformeListadoFacturasGrafComp.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
+     DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
+     DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable.ParamByName('ID_TIPO_GASTO').AsInteger := FListaIDTiposdeGasto.Items[0];
+    end
+    //El el caso de todas las facturas llamaremos a las tablas sin filtro
+    else
+    begin
+       //Preparamos la tabla correspondiente y la abrimos para el informe
+      if (FIntervalo = CTE_MENSUAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompMensual)
+      else if (FIntervalo = CTE_TRIMESTRAL) then
+         PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompTrimestral)
+      else
+         PrepararTablaInformeGrafComp(tbl_InformeListadoFacturasGrafCompSemestral);
+
+      //Se preparan las tablas del listado resumen del informe
+      PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorFacturacionResumen);
+      PrepararTablaResumenInformeGrafComp(tbl_InformeListadoProveedoresMayorDescuentoResumen);
+      DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable := tbl_InformeListadoProveedoresMayorFacturacionResumen;
+      DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable := tbl_InformeListadoProveedoresMayorDescuentoResumen;
+    end;
+
+    DASInformeListadoFacturasGrafComp.DataTable.Active := True;
+    DADSInformeListadoProveedoresMayorFacturacionResumen.DataTable.Active := True;
+    DADSInformeListadoProveedoresMayorDescuentoResumen.DataTable.Active := True;
 
     Result := Binary.Create;
 
@@ -162,21 +220,33 @@ begin
     frxReport.LoadFromFile(AInforme, True);
 //    IniciarParametrosInforme;
 
+    ACadena := TStringList.Create;
+    ACadena.Add('Todos los tipos de gasto');
+    if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
+    begin
+       ACadena.Clear;
+       ACadena.Add('Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0]);
+    end;
+
+    frxReport.Variables.Variables['TextoParametros']:= ACadena.Text;
     frxReport.Variables.Variables['Ano1']:= Ano1;
     frxReport.Variables.Variables['Ano2']:= Ano2;
+
     frxReport.PrepareReport(False);
     frxReport.PreviewPages.SaveToStream(Result);
 
   finally
     AStream.Free;
     FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+    FreeAndNil(ACadena);
   end;
 end;
 
 function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
   const FechaInicio, FechaFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   ATipoInforme: String;
   AStream: TMemoryStream;
@@ -201,6 +271,14 @@ begin
 
     FListaIDProveedores := ListaIDProveedores;
 
+    if Assigned(FListaIDTiposdeGasto) then
+       FListaIDTiposdeGasto.Free;
+    FListaIDTiposdeGasto := ListaIDTiposGasto;
+
+    if Assigned(FListaNombreTiposGasto) then
+       FreeAndNil(FListaNombreTiposGasto);
+    FListaNombreTiposGasto := ListaNombreTiposGasto;
+    
     //Se van a prepara las tablas del informe
     if tbl_InformeListadoFacturas.Active then
        tbl_InformeListadoFacturas.Active := False;
@@ -243,7 +321,8 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturas(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio, FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   ATipoInforme: String;
   AStream: TMemoryStream;
@@ -267,6 +346,14 @@ begin
        FListaIDProveedores.Free;
     FListaIDProveedores := ListaIDProveedores;
 
+    if Assigned(FListaIDTiposdeGasto) then
+       FListaIDTiposdeGasto.Free;
+    FListaIDTiposdeGasto := ListaIDTiposGasto;
+
+    if Assigned(FListaNombreTiposGasto) then
+       FreeAndNil(FListaNombreTiposGasto);
+    FListaNombreTiposGasto := ListaNombreTiposGasto;
+
     //Se prepara la tabla del listado general del informe
     if tbl_InformeListadoFacturas.Active then
        tbl_InformeListadoFacturas.Active := False;
@@ -309,7 +396,9 @@ function TRptFacturasProveedor.GenerarInformeListadoFacturasPendientes(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio, FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray;
+  const ListaNombreTiposGasto: StringArray ): Binary;
 var
   ATipoInforme: String;
   AStream: TMemoryStream;
@@ -333,6 +422,13 @@ begin
        FListaIDProveedores.Free;
     FListaIDProveedores := ListaIDProveedores;
 
+    if Assigned(FListaIDTiposdeGasto) then
+       FListaIDTiposdeGasto.Free;
+    FListaIDTiposdeGasto := ListaIDTiposGasto;
+
+    if Assigned(FListaNombreTiposGasto) then
+       FreeAndNil(FListaNombreTiposGasto);
+    FListaNombreTiposGasto := ListaNombreTiposGasto;
 
     //Se prepara la tabla del listado general del informe
     if tbl_InformeListadoFacturasPendientes.Active then
@@ -419,6 +515,14 @@ begin
         ACadena := ACadena + ' (desglosados)'
     end;
 
+    if Assigned(FListaIDTiposdeGasto) and (FListaIDTiposdeGasto.Count > 0) then
+    begin
+      ACadena := 'Solo tipo de gasto ' + FListaNombreTiposGasto.Items[0];
+    end
+    else begin
+      ACadena := 'Todos los tipos de gasto';
+    end;
+
     ATextos.Add(ACadena);
     ACadena := '';
 
@@ -495,6 +599,24 @@ begin
     end;
   end;
 
+  // Filtrar el informe por tipo de gasto
+  if  Assigned(FListaIDTiposdeGasto) then
+  begin
+    with ATabla.DynamicWhere do
+    begin
+      for i := 0 to FListaIDTiposdeGasto.Count - 1 do
+      begin
+
+        // (ID_PROVEEDOR = ID)
+        Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_TIPO_FACTURA), NewConstant(FListaIDTiposdeGasto.Items[i], datInteger), dboEqual);
+        if IsEmpty then
+           Expression := Condicion
+        else
+           Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+        end;
+    end;
+  end;
+
   // Filtrar el informe por importe minimo
   if  (FImporteMinimo > 0) then
   begin
@@ -511,6 +633,11 @@ begin
 end;
 
 procedure TRptFacturasProveedor.PrepararTablaInformeGrafComp(ATabla: TDAMemDataTable);
+var
+  AWhereStr : String;
+  Condicion: TDAWhereExpression;
+  i: Integer;
+
 begin
   if ATabla.Active then
      ATabla.Active := False;
@@ -520,7 +647,6 @@ begin
   ATabla.ParamByName('ID_EMPRESA2').AsInteger := FIdEmpresa;
   ATabla.ParamByName('ANO1').AsVariant := FAno1;
   ATabla.ParamByName('ANO2').AsVariant := FAno2;
-  ATabla.Active := True;
 end;
 
 procedure TRptFacturasProveedor.PrepararTablaResumenInforme(ATabla: IDADataset);
@@ -561,6 +687,17 @@ begin
     end;
   end;
 
+  // Filtrar el informe por tipo gasto
+  if  Assigned(FListaIDTiposdeGasto) then
+  begin
+    for i := 0 to FListaIDTiposdeGasto.Count - 1 do
+    begin
+      if Length(AWhereStr) > 0 then
+         AWhereStr := AWhereStr + 'AND';
+      AWhereStr := AWhereStr + ' (' + fld_FacturasProveedorID_TIPO_FACTURA + ' = ' + IntToStr(FListaIDTiposdeGasto.Items[i]) + ') ';
+    end;
+  end;
+
   // Filtrar el informe por importe minimo
   if  (FImporteMinimo > 0) then
   begin
@@ -580,7 +717,6 @@ begin
   ATabla.ParamByName('ID_EMPRESA').AsInteger := FIdEmpresa;
   ATabla.ParamByName('ANO').AsVariant := FAno1;
   ATabla.ParamByName('NTOP').AsInteger := FTopN;
-  ATabla.Active := True;
 end;
 
 procedure TRptFacturasProveedor.RecuperarNombresProveedores;

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -40,6 +40,41 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Size = 254
           end>
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'TIPOS_FACTURA_PROVEEDOR'
+            Name = 'IBX'
+            SQL = 
+              'SELECT'#10'    ID, DESCRIPCION'#10'  FROM'#10'    TIPOS_FACTURA_PROVEEDOR'#10'  ' +
+              'WHERE {Where}'#10'  order by 2'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end>
+          end>
+        Name = 'TiposFacturaProveedor'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 2000
+          end>
+      end
       item
         Params = <>
         Statements = <
@@ -203,6 +238,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               item
                 DatasetField = 'FACTURA_WEB'
                 TableField = 'FACTURA_WEB'
+              end
+              item
+                DatasetField = 'ID_TIPO_FACTURA'
+                TableField = 'ID_TIPO_FACTURA'
+              end
+              item
+                DatasetField = 'GASTO_FACTURA'
+                TableField = 'GASTO_FACTURA'
               end>
           end>
         Name = 'FacturasProveedor'
@@ -414,6 +457,15 @@ object srvFacturasProveedor: TsrvFacturasProveedor
           item
             Name = 'FACTURA_WEB'
             DataType = datSmallInt
+          end
+          item
+            Name = 'ID_TIPO_FACTURA'
+            DataType = datInteger
+          end
+          item
+            Name = 'GASTO_FACTURA'
+            DataType = datString
+            Size = 2000
           end>
       end
       item
@@ -927,6 +979,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Name = 'FACTURA_WEB'
             DataType = datSmallInt
             Value = ''
+          end
+          item
+            Name = 'ID_TIPO_FACTURA'
+            DataType = datInteger
+            Value = ''
           end>
         Statements = <
           item
@@ -942,16 +999,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10'     RECARGO_EQUIVALENCIA, ID_TI' +
               'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10'     DATOS_BANCARIOS, FECHA' +
               '_VENCIMIENTO, FECHA_RECEPCION,'#10'     RETENCION, IMPORTE_RETENCION' +
-              ', ID_PEDIDO, FACTURA_WEB)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFER' +
+              ', ID_PEDIDO, FACTURA_WEB, ID_TIPO_FACTURA)'#10'  VALUES'#10'    (:ID, :I' +
-              'ENCIA, :REFERENCIA_PROVEEDOR,'#10'     :FECHA_FACTURA, :BASE_IMPONIB' +
+              'D_EMPRESA, :REFERENCIA, :REFERENCIA_PROVEEDOR,'#10'     :FECHA_FACTU' +
-              'LE, :DESCUENTO,'#10'     :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE' +
+              'RA, :BASE_IMPONIBLE, :DESCUENTO,'#10'     :IMPORTE_DESCUENTO, :IVA, ' +
-              ', :IMPORTE_RE, '#10'     :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEED' +
+              ':IMPORTE_IVA, :RE, :IMPORTE_RE, '#10'     :IMPORTE_TOTAL, :OBSERVACI' +
-              'OR, :NIF_CIF, '#10'     :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CO' +
+              'ONES, :ID_PROVEEDOR, :NIF_CIF, '#10'     :NOMBRE, :CALLE, :POBLACION' +
-              'DIGO_POSTAL, '#10'     CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10 +
+              ', :PROVINCIA, :CODIGO_POSTAL, '#10'     CURRENT_TIMESTAMP, :USUARIO,' +
-              '     :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10'     :' +
+              ' :ID_FORMA_PAGO,'#10'     :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPO' +
-              'IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECE' +
+              'RTE_NETO, '#10'     :IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMI' +
-              'PCION,'#10'     :RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO, :FACTURA' +
+              'ENTO, :FECHA_RECEPCION,'#10'     :RETENCION, :IMPORTE_RETENCION, :ID' +
-              '_WEB)'#10'     '#10'     '#10#10
+              '_PEDIDO, :FACTURA_WEB, :ID_TIPO_FACTURA)'#10'     '#10'     '#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1158,6 +1215,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             DataType = datSmallInt
             Value = ''
           end
+          item
+            Name = 'ID_TIPO_FACTURA'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1186,8 +1248,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               ':DATOS_BANCARIOS,'#10'    FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10'  ' +
               '  FECHA_RECEPCION = :FECHA_RECEPCION,'#10'    RETENCION = :RETENCION' +
               ','#10'    IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10'    ID_PEDIDO = :I' +
-              'D_PEDIDO,'#10'    FACTURA_WEB = :FACTURA_WEB'#10'  WHERE'#10'    (ID = :OLD_' +
+              'D_PEDIDO,'#10'    FACTURA_WEB = :FACTURA_WEB,'#10'    ID_TIPO_FACTURA = ' +
-              'ID)'#10
+              ':ID_TIPO_FACTURA'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dpk

@@ -71,6 +71,7 @@ contains
   uViewPedidosFacturaProveedor in 'uViewPedidosFacturaProveedor.pas' {frViewPedidosFacturaProveedor: TFrame},
   uEditorElegirDomiciliacion in 'uEditorElegirDomiciliacion.pas' {fEditorElegirDomiciliacion: TfEditorFacturaProveedor},
   uViewTotalesVariosIVA in 'uViewTotalesVariosIVA.pas' {frViewTotalesVariosIVA: TfEditorFacturaProveedor},
-  uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento};
+  uEditorElegirFechaVencimiento in 'uEditorElegirFechaVencimiento.pas' {fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento},
+  uEditorElegirTipoGasto in 'uEditorElegirTipoGasto.pas' {fEditorTipoGasto: TfEditorTipoGasto};
 
 end.

Source/Modulos/Facturas de proveedor/Views/FacturasProveedor_view.dproj

@@ -41,6 +41,14 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FacturasProveedor_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -84,7 +92,14 @@
       <Form>fEditorElegirDomiciliacion</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>
     </DCCReference>
-    <DCCReference Include="uEditorElegirFechaVencimiento.pas" />
+    <DCCReference Include="uEditorElegirFechaVencimiento.pas">
+      <Form>fEditorElegirFechaVencimiento</Form>
+      <DesignClass>TfEditorElegirFechaVencimiento</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorElegirTipoGasto.pas">
+      <Form>fEditorTipoGasto</Form>
+      <DesignClass>TfEditorElegirFechaVencimiento</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorFacturaProveedor.pas">
       <Form>fEditorFacturaProveedor</Form>
       <DesignClass>TfEditorFacturaProveedor</DesignClass>

Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.dfm

@@ -55,7 +55,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
     Height = 41
     Align = alBottom
     TabOrder = 0
-    ExplicitWidth = 500
     DesignSize = (
       565
       41)
@@ -68,7 +67,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
       Caption = 'Aceptar'
       ModalResult = 1
       TabOrder = 0
-      ExplicitLeft = 336
     end
     object bCancelar: TButton
       Left = 482
@@ -79,7 +77,6 @@ object fEditorElegirFechaVencimiento: TfEditorElegirFechaVencimiento
       Caption = 'Cancelar'
       ModalResult = 2
       TabOrder = 1
-      ExplicitLeft = 417
     end
   end
   object cbFechaVencimiento: TcxDateEdit

Source/Modulos/Facturas de proveedor/Views/uEditorElegirFechaVencimiento.pas

@@ -31,11 +31,11 @@ type
 implementation
 {$R *.dfm}
 
-uses uFactuGES_App;
+uses uFactuGES_App, DateUtils;
 
 procedure TfEditorElegirFechaVencimiento.FormShow(Sender: TObject);
 begin
-//
+  cbFechaVencimiento.EditValue := DateOf(Date);
 end;
 
 function TfEditorElegirFechaVencimiento.GetFechaVencimiento: datetime;

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm

@@ -77,12 +77,18 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       Left = 427
       Visible = True
       ExplicitLeft = 427
-      ExplicitWidth = 285
+      ExplicitWidth = 382
       object TBXItem41: TTBXItem
         Action = actDomiciliacion
+        DisplayMode = nbdmImageAndText
       end
       object TBXItem42: TTBXItem
         Action = actVencimiento
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXItem43: TTBXItem
+        Action = actAsignarTipoGasto
+        DisplayMode = nbdmImageAndText
       end
       object TBXSeparatorItem17: TTBXSeparatorItem
       end
@@ -294,6 +300,11 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       OnExecute = actVencimientoExecute
       OnUpdate = actVencimientoUpdate
     end
+    object actAsignarTipoGasto: TAction
+      Caption = 'Asignar tipo gasto'
+      OnExecute = actAsignarTipoGastoExecute
+      OnUpdate = actAsignarTipoGastoUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas

@@ -40,6 +40,8 @@ type
     JsListaFacturasNoModificables: TJSDialog;
     actVencimiento: TAction;
     TBXItem42: TTBXItem;
+    actAsignarTipoGasto: TAction;
+    TBXItem43: TTBXItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
@@ -50,6 +52,8 @@ type
     procedure actDomiciliacionUpdate(Sender: TObject);
     procedure actVencimientoExecute(Sender: TObject);
     procedure actVencimientoUpdate(Sender: TObject);
+    procedure actAsignarTipoGastoExecute(Sender: TObject);
+    procedure actAsignarTipoGastoUpdate(Sender: TObject);
 
   private
     FFacturas: IBizFacturaProveedor;
@@ -90,6 +94,41 @@ uses
 {
 *************************** TfEditorFacturasProveedor ***************************
 }
+procedure TfEditorFacturasProveedor.actAsignarTipoGastoExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaProveedor;
+  AListaFacturasNoModificadas: TStringList;
+  i: integer;
+
+begin
+  inherited;
+
+  ViewGrid.SaveGridStatus;
+  try
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
+  finally
+    ViewGrid.RestoreGridStatus;
+  end;
+
+  Controller.AsignarTipoGasto(AFacturas);
+
+  if (AFacturas.DataTable.RecordCount > 0) then
+     RefrescarInterno;
+end;
+
+procedure TfEditorFacturasProveedor.actAsignarTipoGastoUpdate(Sender: TObject);
+begin
+  inherited;
+
+  if HayDatos and Assigned(ViewGrid) then
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and ViewGrid.esSeleccionCeldaDatos
+      and (ViewGrid.NumSeleccionados > 0)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
 procedure TfEditorFacturasProveedor.actDomiciliacionExecute(Sender: TObject);
 var
   AFacturas: IBizFacturaProveedor;
@@ -234,7 +273,9 @@ begin
      JsListaFacturasNoModificables.Execute;
 
   FreeAndNil(AListaFacturasNoModificadas);
-  RefrescarInterno;
+
+  if (AFacturas.DataTable.RecordCount > 0) then
+     RefrescarInterno;
 end;
 
 procedure TfEditorFacturasProveedor.actVencimientoUpdate(Sender: TObject);

Source/Modulos/Facturas de proveedor/Views/uFacturasProveedorViewRegister.pas

@@ -10,10 +10,11 @@ implementation
 uses
   uEditorRegistryUtils, uEditorFacturasProveedor,  uEditorFacturaProveedor,
   uEditorElegirDomiciliacion, uEditorElegirFechaVencimiento, uEditorElegirArticulosFacturaProveedor,
-  uEditorFacturasProveedorReport;
+  uEditorFacturasProveedorReport, uEditorElegirTipoGasto;
 
 procedure RegisterViews;
 begin
+  EditorRegistry.RegisterClass(TfEditorElegirTipoGasto, 'EditorElegirTipoGasto');
   EditorRegistry.RegisterClass(TfEditorElegirFechaVencimiento, 'EditorElegirFechaVencimiento');
   EditorRegistry.RegisterClass(TfEditorElegirDomiciliacion, 'EditorElegirDomiciliacion');
   EditorRegistry.RegisterClass(TfEditorFacturasProveedor, 'EditorFacturasProveedor');
@@ -24,6 +25,8 @@ end;
 
 procedure UnregisterViews;
 begin
+  EditorRegistry.UnRegisterClass(TfEditorElegirTipoGasto);
+  EditorRegistry.UnRegisterClass(TfEditorElegirFechaVencimiento);
   EditorRegistry.UnRegisterClass(TfEditorElegirDomiciliacion);
   EditorRegistry.UnRegisterClass(TfEditorFacturasProveedor);
   EditorRegistry.UnRegisterClass(TfEditorFacturaProveedor);

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaProveedor: TfrViewFacturaProveedor
-  Width = 451
+  Width = 906
-  Height = 304
+  Height = 514
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 906
-    Height = 304
+    Height = 514
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
+      906
-      304)
+      514)
     object eReferencia: TcxDBTextEdit
       Left = 136
       Top = 30
@@ -47,7 +49,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     end
     object edtFecha: TcxDBDateEdit
       Left = 136
-      Top = 111
+      Top = 138
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
       DataBinding.DataSource = DADataSource
@@ -67,12 +69,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 3
+      TabOrder = 4
       Width = 159
     end
     object memObservaciones: TcxDBMemo
       Left = 22
-      Top = 296
+      Top = 323
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -88,13 +90,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Height = 159
       Width = 301
     end
     object cbFormaPago: TcxDBLookupComboBox
       Left = 136
-      Top = 189
+      Top = 216
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -125,16 +127,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 78
     end
     object bFormasPago: TButton
-      Left = 162
+      Left = 345
-      Top = 189
+      Top = 216
       Width = 132
       Height = 23
       Caption = 'Ver las formas de pago...'
-      TabOrder = 6
+      TabOrder = 7
       OnClick = bFormasPagoClick
     end
     object eReferenciaProveedor: TcxDBTextEdit
@@ -162,7 +164,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Width = 158
     end
     inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
-      Left = 322
+      Left = 505
       Top = 30
       Width = 350
       Height = 202
@@ -172,9 +174,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 10
+      TabOrder = 11
       ReadOnly = False
-      ExplicitLeft = 322
+      ExplicitLeft = 505
       ExplicitTop = 30
       inherited dxLayoutControl1: TdxLayoutControl
         inherited edtlNombre: TcxDBTextEdit
@@ -216,22 +218,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
           Width = 327
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 203
+          Left = 287
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 203
+          ExplicitLeft = 287
         end
         inherited Button3: TBitBtn
-          Left = 87
+          Left = 171
-          ExplicitLeft = 87
+          ExplicitLeft = 171
         end
       end
     end
     object cbCuentaBancaria: TcxDBComboBox
       Left = 136
-      Top = 245
+      Top = 272
       DataBinding.DataField = 'DATOS_BANCARIOS'
       DataBinding.DataSource = DADataSource
       Properties.DropDownListStyle = lsFixedList
@@ -248,12 +250,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleDisabled.LookAndFeel.SkinName = ''
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 8
+      TabOrder = 9
       Width = 165
     end
     object edtFechaVencimiento: TcxDBDateEdit
       Left = 136
-      Top = 218
+      Top = 245
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_VENCIMIENTO'
       DataBinding.DataSource = DADataSource
@@ -273,12 +275,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Width = 251
     end
     object edtFechaRecepcion: TcxDBDateEdit
       Left = 136
-      Top = 138
+      Top = 165
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_RECEPCION'
       DataBinding.DataSource = DADataSource
@@ -298,12 +300,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
+      TabOrder = 5
       Width = 158
     end
     object eFacturaWeb: TcxDBCheckBox
       Left = 22
-      Top = 84
+      Top = 111
       Caption = 'Factura WEB'
       DataBinding.DataField = 'FACTURA_WEB'
       DataBinding.DataSource = DADataSource
@@ -318,10 +320,43 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 2
+      TabOrder = 3
       Transparent = True
       Width = 312
     end
+    object cbTipoFactura: TcxDBLookupComboBox
+      Left = 136
+      Top = 84
+      DataBinding.DataField = 'ID_TIPO_FACTURA'
+      DataBinding.DataSource = DADataSource
+      Properties.DropDownListStyle = lsFixedList
+      Properties.ImmediatePost = True
+      Properties.KeyFieldNames = 'ID'
+      Properties.ListColumns = <
+        item
+          FieldName = 'DESCRIPCION'
+        end>
+      Properties.ListOptions.GridLines = glNone
+      Properties.ListOptions.ShowHeader = False
+      Properties.ListOptions.SyncMode = True
+      Properties.ListSource = dsTiposFactura
+      Properties.OnEditValueChanged = cbFormaPagoPropertiesEditValueChanged
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 2
+      Width = 307
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -347,6 +382,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
             Control = eReferenciaProveedor
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item11: TdxLayoutItem
+            Caption = 'Tipo gasto:'
+            Control = cbTipoFactura
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Item9: TdxLayoutItem
             ShowCaption = False
             Control = eFacturaWeb
@@ -447,4 +487,8 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
     Left = 64
     Top = 24
   end
+  object dsTiposFactura: TDADataSource
+    Left = 64
+    Top = 56
+  end
 end

Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas

@@ -59,6 +59,9 @@ type
     edtFechaRecepcion: TcxDBDateEdit;
     dxLayoutControl1Item9: TdxLayoutItem;
     eFacturaWeb: TcxDBCheckBox;
+    dxLayoutControl1Item11: TdxLayoutItem;
+    cbTipoFactura: TcxDBLookupComboBox;
+    dsTiposFactura: TDADataSource;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);
@@ -71,6 +74,7 @@ type
     FController : IFacturasProveedorController;
     FFormasPago : IBizFormaPago;
     FFormasPagoController : IFormasPagoController;
+    FTiposFacturaProveedor : IBizTiposFacturaProveedor;
     function GetFactura: IBizFacturaProveedor;
     procedure SetFactura(const Value: IBizFacturaProveedor);
     function GetController : IFacturasProveedorController;
@@ -115,6 +119,7 @@ procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FFormasPago := Nil;
+  FTiposFacturaProveedor := Nil;
   FFormasPagoController := TFormasPagoController.Create;
   frViewProveedorFactura.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
 end;
@@ -123,6 +128,7 @@ procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
 begin
   inherited;
   FFormasPago := Nil;
+  FTiposFacturaProveedor := Nil;
   FFormasPagoController := NIL;
 end;
 
@@ -240,6 +246,12 @@ begin
     else
        ledtFechaVencimiento.Enabled := False;
 
+
+    FTiposFacturaProveedor := FController.darTiposFacturaProveedor;
+    dsTiposFactura.DataTable := FTiposFacturaProveedor.DataTable;
+    dsTiposFactura.DataTable.Active := True;
+
+
     if FFactura.TIPO = CTE_TIPO_ABONO then
     begin
       dxLayoutControl1Item2.Caption := 'Fecha del abono:';

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm

@@ -170,6 +170,10 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
         Caption = 'Ref. Pedido'
         DataBinding.FieldName = 'REFERENCIA_PEDIDO'
       end
+      object cxGridViewGASTO_FACTURA: TcxGridDBColumn
+        Caption = 'Tipo gasto'
+        DataBinding.FieldName = 'GASTO_FACTURA'
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todas'
@@ -209,34 +213,30 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
           Width = 229
         end
         inherited edtFechaFinFiltro: TcxDateEdit
-          Left = 179
+          Left = 224
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 179
+          ExplicitLeft = 224
           ExplicitWidth = 188
           Width = 188
         end
         inherited eLista: TcxComboBox
-          Left = 304
+          Left = 378
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 304
+          ExplicitLeft = 378
-          ExplicitWidth = 215
-          Width = 215
         end
         inherited eLista2: TcxComboBox
-          Left = 438
+          Left = 474
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 438
+          ExplicitLeft = 474
-          ExplicitWidth = 207
-          Width = 207
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -270,6 +270,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
         object TBXItem2: TTBXItem
           Action = actProvincia
         end
+        object TBXSeparatorItem3: TTBXSeparatorItem
+        end
+        object TBXItem4: TTBXItem
+          Action = actTipoGasto
+        end
       end
     end
   end
@@ -310,6 +315,11 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
       OnExecute = actProvinciaExecute
       OnUpdate = actProvinciaUpdate
     end
+    object actTipoGasto: TAction
+      Caption = 'Tipo de gasto'
+      OnExecute = actTipoGastoExecute
+      OnUpdate = actTipoGastoUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas

@@ -59,6 +59,10 @@ type
     cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
     cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
     cxGridViewFACTURA_WEB: TcxGridDBColumn;
+    cxGridViewGASTO_FACTURA: TcxGridDBColumn;
+    TBXItem4: TTBXItem;
+    TBXSeparatorItem3: TTBXSeparatorItem;
+    actTipoGasto: TAction;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
@@ -70,6 +74,8 @@ type
     procedure cxGridViewDataControllerCompare(
       ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2,
       AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
+    procedure actTipoGastoExecute(Sender: TObject);
+    procedure actTipoGastoUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -136,6 +142,28 @@ begin
   (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
 end;
 
+procedure TfrViewFacturasProveedor.actTipoGastoExecute(Sender: TObject);
+begin
+  inherited;
+
+  if (cxGridViewGASTO_FACTURA.GroupIndex < 0) then
+  begin
+    cxGridViewGASTO_FACTURA.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewGASTO_FACTURA.Visible := False;
+  end
+  else
+  begin
+    cxGridViewGASTO_FACTURA.GroupIndex := -1;
+    cxGridViewGASTO_FACTURA.Visible := True;
+  end;
+end;
+
+procedure TfrViewFacturasProveedor.actTipoGastoUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewGASTO_FACTURA.GroupIndex < 0);
+end;
+
 procedure TfrViewFacturasProveedor.AnadirFiltroFechas;
 var
   Columna: TcxGridDBColumn;

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

@@ -3,7 +3,8 @@ unit uIEditorInformeBeneficiosReportGrafComp;
 interface
 
 uses
-  FactuGES_Intf, uIEditorInformeBase;
+  FactuGES_Intf, uIEditorInformeBase,
+  DataAbstract4_Intf;
 
 type
   IEditorInformeBeneficiosReportGrafComp = interface(IEditorInformeBase)
@@ -13,11 +14,16 @@ type
     function GetAno1: Variant;
     function GetAno2: Variant;
     function GetSerie: Variant;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
 
     property Intervalo: Variant read GetIntervalo;
     property Ano1: Variant read GetAno1;
     property Ano2: Variant read GetAno2;
     property Serie: Variant read GetSerie;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
+
   end;
 
 

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

@@ -3,7 +3,8 @@ unit uIEditorInformeFacturasProveedorPendientesReport;
 interface
 
 uses
-  FactuGES_Intf, uIEditorInformeBase;
+  FactuGES_Intf, uIEditorInformeBase,
+  DataAbstract4_Intf;
 
 type
   IEditorInformeFacturasProveedorPendientesReport = interface(IEditorInformeBase)
@@ -15,6 +16,9 @@ type
     function GetListaIDProveedores: TIntegerArray;
     function GetDesglosadoProveedor: Boolean;
     function GetImporteMinimo: Currency;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
+
     property FechaInicio: Variant read GetFechaInicio;
     property FechaFin: Variant read GetFechaFin;
     property FechaVenInicio: Variant read GetFechaVenInicio;
@@ -22,6 +26,8 @@ type
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
     property ImporteMinimo: Currency read getImporteMinimo;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
   end;
 
 

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

@@ -3,9 +3,10 @@ unit uIEditorInformeFacturasProveedorReport;
 interface
 
 uses
-  FactuGES_Intf, uIEditorInformeBase;
+  FactuGES_Intf, uIEditorInformeBase,
+  DataAbstract4_Intf;
 
-type
+type  
   IEditorInformeFacturasProveedorReport = interface(IEditorInformeBase)
   ['{0E60C309-336C-455D-825B-7E4892A6CBC5}']
     function GetFechaFin: Variant;
@@ -15,6 +16,9 @@ type
     function GetListaIDProveedores: TIntegerArray;
     function GetDesglosadoProveedor: Boolean;
     function GetImporteMinimo: Currency;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
+
     property FechaInicio: Variant read GetFechaInicio;
     property FechaFin: Variant read GetFechaFin;
     property FechaVenInicio: Variant read GetFechaVenInicio;
@@ -22,6 +26,8 @@ type
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
     property ImporteMinimo: Currency read getImporteMinimo;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
   end;
 
 

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

@@ -3,7 +3,8 @@ unit uIEditorInformeFacturasProveedorReportGrafComp;
 interface
 
 uses
-  FactuGES_Intf, uIEditorInformeBase;
+  FactuGES_Intf, uIEditorInformeBase,
+  DataAbstract4_Intf;
 
 type
   IEditorInformeFacturasProveedorReportGrafComp = interface(IEditorInformeBase)
@@ -15,6 +16,9 @@ type
     function GetNTop: Variant;
 
     function GetListaIDProveedores: TIntegerArray;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
+
 
     property Intervalo: Variant read GetIntervalo;
     property Ano1: Variant read GetAno1;
@@ -22,6 +26,8 @@ type
     property NTop: Variant read GetNTop;    
 
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
   end;
 
 

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

@@ -3,7 +3,8 @@ unit uIEditorInformeIVAProveedoresReport;
 interface
 
 uses
-  FactuGES_Intf, uIEditorInformeBase;
+  FactuGES_Intf, uIEditorInformeBase,
+  DataAbstract4_Intf;
 
 type
   IEditorInformeIVAProveedoresReport = interface(IEditorInformeBase)
@@ -13,11 +14,16 @@ type
     function GetListaIDProveedores: TIntegerArray;
     function GetDesglosadoProveedor: Boolean;
     function GetImporteMinimo: Currency;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
+
     property FechaInicio: Variant read GetFechaInicio;
     property FechaFin: Variant read GetFechaFin;
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
     property ImporteMinimo: Currency read getImporteMinimo;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
   end;
 
 

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

@@ -324,7 +324,7 @@ begin
       AEditor.Title := 'Informe comparativo de beneficios';
 
       AStream := FDataModule.GenerarInformeBeneficiosGrafComp(AppFactuGES.EmpresaActiva.ID,
-        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie);
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.Serie, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
 
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
@@ -372,7 +372,7 @@ begin
       AEditor.Title := 'Informe comparativo de facturación de proveedores';
 
       AStream := FDataModule.GenerarInformeFacturasProvGrafComp(AppFactuGES.EmpresaActiva.ID,
-        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDProveedores, AEditor.NTop);
+        AEditor.Intervalo, AEditor.Ano1, AEditor.Ano2, AEditor.ListaIDProveedores, AEditor.NTop, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
 
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
@@ -443,7 +443,7 @@ begin
       AStream := FDataModule.GenerarInformeIVAProveedores(AppFactuGES.EmpresaActiva.ID,
         AEditor.FechaInicio, AEditor.FechaFin,
         AEditor.ListaIDProveedores, AEditor.DesglosadoProveedor,
-        AEditor.ImporteMinimo);
+        AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
     finally
@@ -514,7 +514,7 @@ begin
       AEditor.Title := 'Listado de facturas de proveedor';
       AStream := FDataModule.GenerarInformeListadoFacturasProv(AppFactuGES.EmpresaActiva.ID,
         AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
-        AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
+        AEditor.DesglosadoProveedor, AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
     finally
@@ -537,7 +537,7 @@ begin
       AEditor.Title := 'Listado de facturas de proveedor pendientes';
       AStream := FDataModule.GenerarInformeListadoFacturasProvPendientes(AppFactuGES.EmpresaActiva.ID,
         AEditor.FechaInicio, AEditor.FechaFin, AEditor.FechaVenInicio, AEditor.FechaVenFin, AEditor.ListaIDProveedores,
-        AEditor.DesglosadoProveedor, AEditor.ImporteMinimo);
+        AEditor.DesglosadoProveedor, AEditor.ImporteMinimo, AEditor.ListaIDTiposGasto, AEditor.ListaNombreTiposGasto);
       AEditor.LoadFromStream(AStream);
       AEditor.Preview;
     finally

Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas

@@ -6,7 +6,7 @@ uses
   SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
   uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
   uRORemoteService, uROClient, uROBinMessage,
-
+  {Used RODLs:} DataAbstract4_Intf,
   uIDataModuleGestorInformes, uDADesigntimeCall, uDataModuleBase,
   uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
   uDARemoteDataAdapter, uIntegerListUtils, FactuGES_Intf;
@@ -33,7 +33,7 @@ type
     function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
     function DarListaAnosFacturasCli: TStringList;
-    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
+    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
 
     //MODULO RECIBOS DE CLIENTE
@@ -44,10 +44,12 @@ type
     function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
     //MODULO FACTURAS DE PROVEEDOR
-    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant;
-    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
+                                                         const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency;
+                                                         const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
+    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function DarListaAnosFacturasProv: TStringList;
 
     //MODULO RECIBOS DE CLIENTE
@@ -63,7 +65,7 @@ implementation
 
 uses
   uDataModuleConexion, uDataTableUtils, cxControls,
-  Dialogs, DataAbstract4_Intf;
+  Dialogs;
 
 { TdmPresupuestos }
 
@@ -122,10 +124,11 @@ begin
 end;
 
 function TDataModuleGestorInformes.GenerarInformeBeneficiosGrafComp(
-  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
+  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 begin
   try
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
   end;
 end;
@@ -142,10 +145,11 @@ end;
 
 function TDataModuleGestorInformes.GenerarInformeFacturasProvGrafComp(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
+  const ListaIDProveedores: TIntegerArray; Const NTop: Variant;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 begin
   try
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasProvGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdProveedores, NTop);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeFacturasProvGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIdProveedores, NTop, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
   end;
 end;
@@ -170,10 +174,11 @@ end;
 function TDataModuleGestorInformes.GenerarInformeIVAProveedores(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 begin
   try
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAProveedores(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeIVAProveedores(IdEmpresa, FechaInicio, FechaFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
   end;
 end;
@@ -206,10 +211,11 @@ function TDataModuleGestorInformes.GenerarInformeListadoFacturasProv(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio: Variant; const FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 begin
   try
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProv(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
   end;
 end;
@@ -218,10 +224,12 @@ function TDataModuleGestorInformes.GenerarInformeListadoFacturasProvPendientes(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio: Variant; const FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray;
+  const ListaNombreTiposGasto: StringArray): Binary;
 begin
   try
-    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo);
+    Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasProvPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIdProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
   end;
 end;

Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj

@@ -10,6 +10,10 @@
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
+    <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
+    <Projects Include="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" />
+    <Projects Include="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" />
+    <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
     <Projects Include="Controller\GestorInformes_controller.dproj" />
     <Projects Include="Data\GestorInformes_data.dproj" />
     <Projects Include="Model\GestorInformes_model.dproj" />
@@ -121,14 +125,50 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProveedor_view">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasProveedor_controller">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasProveedor_data">
+    <MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_data:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_data:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasProveedor_model">
+    <MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_model:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_model:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;FacturasProveedor_controller;FacturasProveedor_data;FacturasProveedor_model" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_data:Clean;FacturasProveedor_model:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_data:Make;FacturasProveedor_model:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas

@@ -3,7 +3,8 @@ unit uIDataModuleGestorInformes;
 interface
 
 uses
-  uROTypes, Classes, FactuGES_Intf;
+  uROTypes, Classes, FactuGES_Intf,
+  {Used RODLs:} DataAbstract4_Intf;
 
 type
   IDataModuleGestorInformes = interface
@@ -23,7 +24,7 @@ type
     function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; Const NTop: Variant): Binary;
     function DarListaAnosFacturasCli: TStringList;
-    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
+    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
     
     //MODULO RECIBOS DE CLIENTE
@@ -34,11 +35,11 @@ type
     function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
     //MODULO FACTURAS DE PROVEEDOR
-    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 
-    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant): Binary;
+    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; Const NTop: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function DarListaAnosFacturasProv: TStringList;
     
     //MODULO RECIBOS DE CLIENTE

Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas

@@ -50,7 +50,7 @@ type
 
     function GenerarInformeFacturasCliGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDClientes: TIntegerArray; const TopN: Integer): Binary;
     function DarListaAnosFacturasCli: StringArray;
-    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant): Binary;
+    function GenerarInformeBeneficiosGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const Serie: Variant; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function GenerarInformeIVAComparativo(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant): Binary;
 
     //MODULO RECIBOS CLIENTE
@@ -61,11 +61,12 @@ type
     function GenerarInformeListadoPedidos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
 
     //MODULO FACTURAS PROVEEDOR
-    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeIVAProveedores(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
-    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+    function GenerarInformeListadoFacturasProvPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency;
+                                                         const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 
-    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
+    function GenerarInformeFacturasProvGrafComp(const IdEmpresa: Integer; const Intervalo: Variant; const Ano1: Variant; const Ano2: Variant; const ListaIDProveedores: TIntegerArray; const TopN: Integer; const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
     function DarListaAnosFacturasProv: StringArray;
 
     //MODULO RECIBOS PROVEEDOR
@@ -124,13 +125,14 @@ begin
 end;
 
 function TsrvGestorInformes.GenerarInformeBeneficiosGrafComp(
-  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant): Binary;
+  const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant; const Serie: Variant;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AReportGenerator : TRptFacturasCliente;
 begin
   AReportGenerator := TRptFacturasCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie);
+    Result := AReportGenerator.GenerarInformeBeneficiosGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, Serie, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
     FreeAndNIL(AReportGenerator);
   end;
@@ -152,13 +154,14 @@ end;
 
 function TsrvGestorInformes.GenerarInformeFacturasProvGrafComp(
   const IdEmpresa: Integer; const Intervalo, Ano1, Ano2: Variant;
-  const ListaIDProveedores: TIntegerArray; const TopN: Integer): Binary;
+  const ListaIDProveedores: TIntegerArray; const TopN: Integer;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AReportGenerator : TRptFacturasProveedor;
 begin
   AReportGenerator := TRptFacturasProveedor.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDProveedores, TopN);
+    Result := AReportGenerator.GenerarInformeFacturasGrafComp(IdEmpresa, Intervalo, Ano1, Ano2, ListaIDProveedores, TopN, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
     FreeAndNIL(AReportGenerator);
   end;
@@ -192,13 +195,14 @@ end;
 
 function TsrvGestorInformes.GenerarInformeIVAProveedores(const IdEmpresa: Integer;
   const FechaInicio, FechaFin: Variant; const ListaIDProveedores: TIntegerArray;
-  const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
+  const Desglosado: Boolean; const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AReportGenerator : TRptFacturasProveedor;
 begin
   AReportGenerator := TRptFacturasProveedor.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    Result := AReportGenerator.GenerarInformeIVA(IdEmpresa, FechaInicio, FechaFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
     FreeAndNIL(AReportGenerator);
   end;
@@ -238,13 +242,14 @@ function TsrvGestorInformes.GenerarInformeListadoFacturasProv(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio, FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray; const ListaNombreTiposGasto: StringArray): Binary;
 var
   AReportGenerator : TRptFacturasProveedor;
 begin
   AReportGenerator := TRptFacturasProveedor.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    Result := AReportGenerator.GenerarInformeListadoFacturas(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
     FreeAndNIL(AReportGenerator);
   end;
@@ -254,13 +259,15 @@ function TsrvGestorInformes.GenerarInformeListadoFacturasProvPendientes(
   const IdEmpresa: Integer; const FechaInicio, FechaFin: Variant;
   const FechaVenInicio, FechaVenFin: Variant;
   const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
-  const ImporteMinimo: Currency): Binary;
+  const ImporteMinimo: Currency;
+  const ListaIDTiposGasto: TIntegerArray;
+  const ListaNombreTiposGasto: StringArray): Binary;
 var
   AReportGenerator : TRptFacturasProveedor;
 begin
   AReportGenerator := TRptFacturasProveedor.Create(nil);
   try
-    Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo);
+    Result := AReportGenerator.GenerarInformeListadoFacturasPendientes(IdEmpresa, FechaInicio, FechaFin, FechaVenInicio, FechaVenFin, ListaIDProveedores, Desglosado, ImporteMinimo, ListaIDTiposGasto, ListaNombreTiposGasto);
   finally
     FreeAndNIL(AReportGenerator);
   end;

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

@@ -67,7 +67,12 @@ requires
   cxDataD11,
   dxCoreD11,
   fqb110,
-  bdertl;
+  bdertl,
+  FacturasProveedor_model,
+  FacturasProveedor_controller,
+  DataAbstract_Core_D11,
+  dsnap,
+  adortl;
 
 contains
   uGestorInformesViewRegister in 'uGestorInformesViewRegister.pas',
@@ -94,6 +99,7 @@ contains
   uEditorInformeFacturasProveedorReportGrafComp in 'uEditorInformeFacturasProveedorReportGrafComp.pas' {fEditorInformeFacturasProveedorReportGrafComp: TForm},
   uEditorInformeBeneficiosReportGrafComp in 'uEditorInformeBeneficiosReportGrafComp.pas' {fEditorInformeBeneficiosReportGrafComp: TForm},
   uEditorInformePresupuestosClienteReportGrafComp in 'uEditorInformePresupuestosClienteReportGrafComp.pas' {fEditorInformePresupuestosClienteReportGrafComp: TForm},
-  uEditorInformeIVAComparativoReport in 'uEditorInformeIVAComparativoReport.pas' {fEditorInformeIVAComparativoReport: TForm};
+  uEditorInformeIVAComparativoReport in 'uEditorInformeIVAComparativoReport.pas' {fEditorInformeIVAComparativoReport: TForm},
+  uViewFiltroTipoGasto in 'uViewFiltroTipoGasto.pas' {frViewFiltroTipoGasto: TFrame};
 
 end.

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

@@ -31,56 +31,55 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">GestorInformes_view.dpk</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="GestorInformes_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="..\bdertl.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\ccpackD11.dcp" />
+    <DCCReference Include="bdertl.dcp" />
-    <DCCReference Include="..\cfpack_d11.dcp" />
+    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="cfpack_d11.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="..\Contactos_view.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="..\cxDataD11.dcp" />
+    <DCCReference Include="Contactos_view.dcp" />
-    <DCCReference Include="..\cxEditorsD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\cxLibraryD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="..\designide.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\dxComnD11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\dxCoreD11.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\dxGDIPlusD11.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="..\dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="..\dxThemeD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="..\fqb110.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\frx11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\frxe11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="..\fs11.dcp" />
+    <DCCReference Include="FacturasProveedor_controller.dcp" />
-    <DCCReference Include="..\GestorInformes_controller.dcp" />
+    <DCCReference Include="FacturasProveedor_model.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="fqb110.dcp" />
-    <DCCReference Include="..\GUISDK_D11R.dcp" />
+    <DCCReference Include="frx11.dcp" />
-    <DCCReference Include="..\Jcl.dcp" />
+    <DCCReference Include="frxe11.dcp" />
-    <DCCReference Include="..\JclVcl.dcp" />
+    <DCCReference Include="fs11.dcp" />
-    <DCCReference Include="..\JvCoreD11R.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="..\JvPageCompsD11R.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="..\JvSystemD11R.dcp" />
+    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="..\PngComponentsD10.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="..\PNG_D10.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\tb2k_d10.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="..\tbx_d10.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="..\vclactnband.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="..\vcljpg.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="..\vclx.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
-    <DCCReference Include="..\xmlrtl.dcp" />
     <DCCReference Include="uEditorInformeBase.pas">
       <Form>fEditorInformeBase</Form>
       <DesignClass>TForm</DesignClass>
@@ -166,6 +165,10 @@
       <Form>frViewFiltroProveedores</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewFiltroTipoGasto.pas">
+      <Form>frViewFiltroTipoGasto</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewIntervaloComparativo.pas">
       <Form>frViewIntervaloComparativo</Form>
       <DesignClass>TFrame</DesignClass>
@@ -178,6 +181,12 @@
       <Form>frViewPeriodoFechas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <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/uEditorInformeBase.dfm

@@ -1,29 +1,29 @@
 inherited fEditorInformeBase: TfEditorInformeBase
   Caption = ''
-  ClientHeight = 483
+  ClientHeight = 509
-  ClientWidth = 787
+  ClientWidth = 813
-  ExplicitWidth = 795
+  ExplicitWidth = 821
-  ExplicitHeight = 517
+  ExplicitHeight = 543
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 787
+    Width = 813
     ExplicitWidth = 787
     inherited Image1: TImage
-      Left = 760
+      Left = 786
       ExplicitLeft = 760
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 787
+    Width = 813
-    ExplicitWidth = 787
+    ExplicitWidth = 813
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 787
+      ExplicitWidth = 813
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 464
+    Top = 490
-    Width = 787
+    Width = 813
     ExplicitTop = 464
     ExplicitWidth = 787
   end
@@ -31,14 +31,15 @@ inherited fEditorInformeBase: TfEditorInformeBase
     Left = 0
     Top = 102
     Width = 7
-    Height = 362
+    Height = 388
     Position = dpLeft
+    ExplicitHeight = 362
   end
   object TBXMultiDockDerecho: TTBXMultiDock [4]
-    Left = 633
+    Left = 659
     Top = 102
     Width = 154
-    Height = 362
+    Height = 388
     Position = dpRight
     object pnlParametros: TTBXDockablePanel
       Left = 0
@@ -57,7 +58,7 @@ inherited fEditorInformeBase: TfEditorInformeBase
       TabOrder = 0
       object TBXDockablePanel1: TTBXDockablePanel
         Left = 0
-        Top = 196
+        Top = 222
         MaxClientHeight = 50
         Align = alBottom
         Caption = 'TBXDockablePanel1'

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

@@ -171,7 +171,7 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
       end
       inline frViewFiltroClientes1: TfrViewFiltroClientes
         Left = 0
-        Top = 230
+        Top = 356
         Width = 188
         Height = 195
         Align = alTop
@@ -184,7 +184,7 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
         TabOrder = 2
         Visible = False
         ReadOnly = False
-        ExplicitTop = 230
+        ExplicitTop = 356
         ExplicitWidth = 188
         inherited TBXLabel2: TTBXLabel
           Width = 188
@@ -203,6 +203,31 @@ inherited fEditorInformeBeneficiosReportGrafComp: TfEditorInformeBeneficiosRepor
           Width = 152
         end
       end
+      inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
+        Left = 0
+        Top = 230
+        Width = 188
+        Height = 126
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        ReadOnly = False
+        ExplicitTop = 230
+        ExplicitWidth = 188
+        inherited TBXLabel1: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited cbTipoGasto: TcxLookupComboBox
+          ExplicitWidth = 127
+          Width = 127
+        end
+      end
     end
   end
 end

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

@@ -15,24 +15,30 @@ uses
   dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
   uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeBeneficiosReportGrafComp,
-  uViewIntervaloComparativo, uViewFiltroClientes;
+  uViewIntervaloComparativo, uViewFiltroClientes, uViewFiltroTipoGasto,
+  DataAbstract4_Intf;
 
 type
   TfEditorInformeBeneficiosReportGrafComp = class(TfEditorInformeBase, IEditorInformeBeneficiosReportGrafComp)
     TBXItem58: TTBXItem;
     frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
     frViewFiltroClientes1: TfrViewFiltroClientes;
+    frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
     procedure actRefrescarExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
 
   private
     FListaIDClientes: TIntegerArray;
+    FListaIDTiposGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;
     function GetIntervalo: Variant;
     function GetAno1: Variant;
     function GetAno2: Variant;
     function GetSerie: variant;
     function GetListaIDClientes: TIntegerArray;
     function GetNTop: Variant;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
 
     procedure RefrescarInforme;
 
@@ -46,6 +52,8 @@ type
     property Serie: Variant read GetSerie;
     property ListaIDClientes: TIntegerArray read GetListaIDClientes;
     property NTop: Variant read GetNTop;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -70,11 +78,15 @@ constructor TfEditorInformeBeneficiosReportGrafComp.Create(AOwner: TComponent);
 begin
   inherited;
   FListaIDClientes := TIntegerArray.Create;
+  FListaIDTiposGasto := TIntegerArray.Create;
+  FListaNombreTiposGasto := StringArray.Create;
 end;
 
 destructor TfEditorInformeBeneficiosReportGrafComp.Destroy;
 begin
   FListaIDClientes.Free;
+  FListaIDTiposGasto.Free;
+  FListaNombreTiposGasto.Free;
   inherited;
 end;
 
@@ -108,6 +120,24 @@ begin
   Result := FListaIDClientes;
 end;
 
+function TfEditorInformeBeneficiosReportGrafComp.GetListaIDTiposGasto: TIntegerArray;
+begin
+  FListaIDTiposGasto.Clear;
+  if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
+     FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
+
+  Result := FListaIDTiposGasto;
+end;
+
+function TfEditorInformeBeneficiosReportGrafComp.GetListaNombreTiposGasto: StringArray;
+begin
+  FListaNombreTiposGasto.Clear;
+  if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
+     FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
+
+  Result := FListaNombreTiposGasto;
+end;
+
 function TfEditorInformeBeneficiosReportGrafComp.GetNTop: Variant;
 begin
   Result := frViewIntervaloComparativo1.stopN.Value;
@@ -130,7 +160,9 @@ begin
       Intervalo,
       Ano1,
       Ano2,
-      Serie);
+      Serie,
+      ListaIDTiposGasto,
+      ListaNombreTiposGasto);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

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

@@ -1,24 +1,24 @@
 inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFacturasProveedorPendientesReport
   Caption = 'fEditorInformeFacturasProveedorPendientesReport'
-  ClientHeight = 655
+  ClientHeight = 871
-  ClientWidth = 895
+  ClientWidth = 970
-  ExplicitWidth = 903
+  ExplicitWidth = 978
-  ExplicitHeight = 689
+  ExplicitHeight = 905
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 895
+    Width = 970
-    ExplicitWidth = 895
+    ExplicitWidth = 970
     inherited Image1: TImage
-      Left = 868
+      Left = 943
       ExplicitLeft = 868
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 895
+    Width = 970
-    ExplicitWidth = 895
+    ExplicitWidth = 970
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 895
+      ExplicitWidth = 970
     end
     inherited TBXToolbar1: TTBXToolbar
       ExplicitWidth = 591
@@ -30,30 +30,30 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 636
+    Top = 852
-    Width = 895
+    Width = 970
-    ExplicitTop = 636
+    ExplicitTop = 852
-    ExplicitWidth = 895
+    ExplicitWidth = 970
   end
   inherited TBXMultiDockIzquierdo: TTBXMultiDock
-    Height = 534
+    Height = 750
-    ExplicitHeight = 534
+    ExplicitHeight = 750
   end
   inherited TBXMultiDockDerecho: TTBXMultiDock
-    Left = 703
+    Left = 750
-    Width = 192
+    Width = 220
-    Height = 534
+    Height = 750
-    ExplicitLeft = 703
+    ExplicitLeft = 750
-    ExplicitWidth = 192
+    ExplicitWidth = 220
-    ExplicitHeight = 534
+    ExplicitHeight = 750
     inherited pnlParametros: TTBXDockablePanel
-      DockedWidth = 188
+      DockedWidth = 216
-      ExplicitWidth = 192
+      ExplicitWidth = 220
-      ExplicitHeight = 518
+      ExplicitHeight = 734
       inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
         Left = 0
         Top = 0
-        Width = 188
+        Width = 216
         Height = 240
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
@@ -64,13 +64,13 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 188
+        ExplicitWidth = 216
         ExplicitHeight = 240
         inherited TBXAlignmentPanel2: TTBXAlignmentPanel
-          Width = 182
+          Width = 210
-          ExplicitWidth = 182
+          ExplicitWidth = 210
           inherited Label3: TLabel
-            Width = 172
+            Width = 200
             Caption = 'Rango de fechas de factura:'
             ExplicitWidth = 138
           end
@@ -81,8 +81,8 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 76
-            ExplicitWidth = 97
+            ExplicitWidth = 125
-            Width = 97
+            Width = 125
           end
           inherited edtFechaIni: TcxDateEdit
             Left = 76
@@ -91,27 +91,27 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 76
-            ExplicitWidth = 97
+            ExplicitWidth = 125
-            Width = 97
+            Width = 125
           end
           inherited cbPeriodo: TcxComboBox
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 170
+            ExplicitWidth = 198
-            Width = 170
+            Width = 198
           end
         end
         inherited TBXLabel2: TTBXLabel
-          Width = 188
+          Width = 216
-          ExplicitWidth = 188
+          ExplicitWidth = 216
         end
         inherited TBXAlignmentPanel3: TTBXAlignmentPanel
-          Width = 182
+          Width = 210
-          ExplicitWidth = 182
+          ExplicitWidth = 210
           inherited Label4: TLabel
-            Width = 172
+            Width = 200
           end
           inherited edtFechaVenFin: TcxDateEdit
             Left = 76
@@ -120,8 +120,8 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 76
-            ExplicitWidth = 97
+            ExplicitWidth = 125
-            Width = 97
+            Width = 125
           end
           inherited edtFechaVenIni: TcxDateEdit
             Left = 76
@@ -130,29 +130,29 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitLeft = 76
-            ExplicitWidth = 97
+            ExplicitWidth = 125
-            Width = 97
+            Width = 125
           end
           inherited cbPeriodo2: TcxComboBox
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 170
+            ExplicitWidth = 198
-            Width = 170
+            Width = 198
           end
         end
       end
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 584
         TabOrder = 2
-        ExplicitTop = 368
+        ExplicitTop = 584
-        ExplicitWidth = 188
+        ExplicitWidth = 216
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
           Left = 3
           Top = 3
-          Width = 182
+          Width = 210
           Height = 37
           Margins.Left = 8
           Margins.Top = 8
@@ -161,15 +161,15 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
           Align = alTop
           ExplicitLeft = 3
           ExplicitTop = 3
-          ExplicitWidth = 182
+          ExplicitWidth = 210
           ExplicitHeight = 37
         end
       end
       inline frViewFiltroImportes1: TfrViewFiltroImportes
         Left = 0
         Top = 240
-        Width = 188
+        Width = 216
-        Height = 77
+        Height = 88
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -181,15 +181,16 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
         TabOrder = 1
         ReadOnly = False
         ExplicitTop = 240
-        ExplicitWidth = 188
+        ExplicitWidth = 216
-        ExplicitHeight = 77
+        ExplicitHeight = 88
         inherited TBXLabel2: TTBXLabel
-          Width = 188
+          Width = 216
-          ExplicitWidth = 188
+          ExplicitWidth = 216
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-          Width = 182
+          Width = 210
-          ExplicitWidth = 182
+          ExplicitTop = 43
+          ExplicitWidth = 210
           inherited eImporte: TcxSpinEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -200,9 +201,9 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
       end
       inline frViewFiltroProveedores1: TfrViewFiltroProveedores
         Left = 0
-        Top = 317
+        Top = 328
-        Width = 188
+        Width = 216
-        Height = 146
+        Height = 162
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -213,24 +214,49 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
         ParentFont = False
         TabOrder = 3
         ReadOnly = False
-        ExplicitTop = 317
+        ExplicitTop = 328
-        ExplicitWidth = 188
+        ExplicitWidth = 216
-        ExplicitHeight = 146
+        ExplicitHeight = 162
         inherited TBXLabel2: TTBXLabel
-          Width = 188
+          Width = 216
-          ExplicitWidth = 188
+          ExplicitWidth = 216
         end
         inherited bElegirProveedor: TBitBtn
-          Width = 108
+          Width = 136
-          ExplicitWidth = 108
+          ExplicitWidth = 136
         end
         inherited edtProveedor: TcxTextEdit
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitWidth = 141
+          ExplicitWidth = 169
-          Width = 141
+          Width = 169
+        end
+      end
+      inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
+        Left = 0
+        Top = 490
+        Width = 216
+        Height = 126
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 4
+        ReadOnly = False
+        ExplicitTop = 490
+        ExplicitWidth = 216
+        inherited TBXLabel1: TTBXLabel
+          Width = 216
+          ExplicitWidth = 216
+        end
+        inherited cbTipoGasto: TcxLookupComboBox
+          ExplicitWidth = 155
+          Width = 155
         end
       end
     end

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

@@ -11,11 +11,12 @@ uses
   StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
   TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
   JvExControls, JvNavigationPane, uCustomView,
-  uViewBase, uViewPeriodoFechas, 
+  uViewBase, uViewPeriodoFechas,
   uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
   uIEditorInformeBase, uViewParametrosInforme,
-  uIEditorInformeFacturasProveedorPendientesReport;
+  uIEditorInformeFacturasProveedorPendientesReport, uViewFiltroTipoGasto,
+  {Used RODLs:} DataAbstract4_Intf;
 
 type
   TfEditorInformeFacturasProveedorPendientesReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorPendientesReport)
@@ -23,9 +24,12 @@ type
     frViewPeriodoFechas1: TfrViewPeriodoFechas;
     frViewFiltroImportes1: TfrViewFiltroImportes;
     frViewFiltroProveedores1: TfrViewFiltroProveedores;
+    frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
     procedure actRefrescarExecute(Sender: TObject);
   private
     FListaIDProveedores: TIntegerArray;
+    FListaIDTiposGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;    
     function GetFechaFin: Variant;
     function GetFechaInicio: Variant;
     function GetFechaVenFin: Variant;
@@ -33,6 +37,8 @@ type
     function GetListaIDProveedores: TIntegerArray;
     function GetImporteMinimo: Currency;
     function GetDesglosadoProveedor: Boolean;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
 
     procedure RefrescarInforme;
 
@@ -44,6 +50,8 @@ type
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
     property ImporteMinimo: Currency read GetImporteMinimo;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -68,11 +76,15 @@ constructor TfEditorInformeFacturasProveedorPendientesReport.Create(AOwner: TCom
 begin
   inherited;
   FListaIDProveedores := TIntegerArray.Create;
+  FListaIDTiposGasto := TIntegerArray.Create;
+  FListaNombreTiposGasto := StringArray.Create;
 end;
 
 destructor TfEditorInformeFacturasProveedorPendientesReport.Destroy;
 begin
   FListaIDProveedores.Free;
+  FListaIDTiposGasto.Free;
+  FListaNombreTiposGasto.Free;
   inherited;
 end;
 
@@ -129,6 +141,24 @@ begin
   Result := FListaIDProveedores;
 end;
 
+function TfEditorInformeFacturasProveedorPendientesReport.GetListaIDTiposGasto: TIntegerArray;
+begin
+  FListaIDTiposGasto.Clear;
+  if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
+     FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
+
+  Result := FListaIDTiposGasto;
+end;
+
+function TfEditorInformeFacturasProveedorPendientesReport.GetListaNombreTiposGasto: StringArray;
+begin
+  FListaNombreTiposGasto.Clear;
+  if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
+     FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
+
+  Result := FListaNombreTiposGasto;
+end;
+
 procedure TfEditorInformeFacturasProveedorPendientesReport.RefrescarInforme;
 var
   AStream: Binary;
@@ -143,7 +173,9 @@ begin
       FechaVenFin,
       ListaIDProveedores,
       DesglosadoProveedor,
-      ImporteMinimo);
+      ImporteMinimo,
+      ListaIDTiposGasto,
+      ListaNombreTiposGasto);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

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

@@ -165,9 +165,9 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
       end
       inline frViewFiltroImportes1: TfrViewFiltroImportes
         Left = 0
-        Top = 240
+        Top = 366
         Width = 188
-        Height = 77
+        Height = 88
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -178,15 +178,16 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
         ParentFont = False
         TabOrder = 1
         ReadOnly = False
-        ExplicitTop = 240
+        ExplicitTop = 366
         ExplicitWidth = 188
-        ExplicitHeight = 77
+        ExplicitHeight = 88
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
           Width = 182
+          ExplicitTop = 43
           ExplicitWidth = 182
           inherited eImporte: TcxSpinEdit
             Style.LookAndFeel.SkinName = ''
@@ -198,9 +199,9 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
       end
       inline frViewFiltroProveedores1: TfrViewFiltroProveedores
         Left = 0
-        Top = 317
+        Top = 454
         Width = 188
-        Height = 146
+        Height = 162
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -211,9 +212,12 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
         ParentFont = False
         TabOrder = 3
         ReadOnly = False
-        ExplicitTop = 317
+        ExplicitTop = 454
         ExplicitWidth = 188
-        ExplicitHeight = 146
+        ExplicitHeight = 162
+        DesignSize = (
+          188
+          162)
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
@@ -231,6 +235,31 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
           Width = 141
         end
       end
+      inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
+        Left = 0
+        Top = 240
+        Width = 188
+        Height = 126
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 4
+        ReadOnly = False
+        ExplicitTop = 240
+        ExplicitWidth = 188
+        inherited TBXLabel1: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited cbTipoGasto: TcxLookupComboBox
+          ExplicitWidth = 127
+          Width = 127
+        end
+      end
     end
   end
 end

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

@@ -14,7 +14,8 @@ uses
   uViewBase, uViewPeriodoFechas, 
   uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
-  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport;
+  uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReport,
+  uViewFiltroTipoGasto, DataAbstract4_Intf;
 
 type
   TfEditorInformeFacturasProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReport)
@@ -22,9 +23,12 @@ type
     frViewPeriodoFechas1: TfrViewPeriodoFechas;
     frViewFiltroImportes1: TfrViewFiltroImportes;
     frViewFiltroProveedores1: TfrViewFiltroProveedores;
+    frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
     procedure actRefrescarExecute(Sender: TObject);
   private
     FListaIDProveedores: TIntegerArray;
+    FListaIDTiposGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;
     function GetFechaFin: Variant;
     function GetFechaInicio: Variant;
     function GetFechaVenFin: Variant;
@@ -32,6 +36,8 @@ type
     function GetListaIDProveedores: TIntegerArray;
     function GetImporteMinimo: Currency;
     function GetDesglosadoProveedor: Boolean;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
 
     procedure RefrescarInforme;
 
@@ -43,6 +49,8 @@ type
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
     property ImporteMinimo: Currency read GetImporteMinimo;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -67,11 +75,15 @@ constructor TfEditorInformeFacturasProveedorReport.Create(AOwner: TComponent);
 begin
   inherited;
   FListaIDProveedores := TIntegerArray.Create;
+  FListaIDTiposGasto := TIntegerArray.Create;
+  FListaNombreTiposGasto := StringArray.Create;
 end;
 
 destructor TfEditorInformeFacturasProveedorReport.Destroy;
 begin
   FListaIDProveedores.Free;
+  FListaIDTiposGasto.Free;
+  FListaNombreTiposGasto.Free;
   inherited;
 end;
 
@@ -128,6 +140,24 @@ begin
   Result := FListaIDProveedores;
 end;
 
+function TfEditorInformeFacturasProveedorReport.GetListaIDTiposGasto: TIntegerArray;
+begin
+  FListaIDTiposGasto.Clear;
+  if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
+     FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
+
+  Result := FListaIDTiposGasto;
+end;
+
+function TfEditorInformeFacturasProveedorReport.GetListaNombreTiposGasto: StringArray;
+begin
+  FListaNombreTiposGasto.Clear;
+  if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
+     FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
+
+  Result := FListaNombreTiposGasto;
+end;
+
 procedure TfEditorInformeFacturasProveedorReport.RefrescarInforme;
 var
   AStream: Binary;
@@ -142,7 +172,9 @@ begin
       FechaVenFin,
       ListaIDProveedores,
       DesglosadoProveedor,
-      ImporteMinimo);
+      ImporteMinimo,
+      ListaIDTiposGasto,
+      ListaNombreTiposGasto);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

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

@@ -1,24 +1,24 @@
 inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturasProveedorReportGrafComp
   Caption = 'fEditorInformeFacturasProveedorReportGrafComp'
-  ClientHeight = 655
+  ClientHeight = 671
-  ClientWidth = 895
+  ClientWidth = 958
-  ExplicitWidth = 903
+  ExplicitWidth = 966
-  ExplicitHeight = 689
+  ExplicitHeight = 705
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 895
+    Width = 958
-    ExplicitWidth = 895
+    ExplicitWidth = 958
     inherited Image1: TImage
-      Left = 868
+      Left = 931
       ExplicitLeft = 868
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 895
+    Width = 958
-    ExplicitWidth = 895
+    ExplicitWidth = 958
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 895
+      ExplicitWidth = 958
     end
     inherited TBXToolbar1: TTBXToolbar
       ExplicitWidth = 591
@@ -30,29 +30,30 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
     end
   end
   inherited StatusBar: TJvStatusBar
-    Top = 636
+    Top = 652
-    Width = 895
+    Width = 958
-    ExplicitTop = 636
+    ExplicitTop = 652
-    ExplicitWidth = 895
+    ExplicitWidth = 958
   end
   inherited TBXMultiDockIzquierdo: TTBXMultiDock
-    Height = 534
+    Height = 550
-    ExplicitHeight = 534
+    ExplicitHeight = 550
   end
   inherited TBXMultiDockDerecho: TTBXMultiDock
-    Left = 703
+    Left = 766
     Width = 192
-    Height = 534
+    Height = 550
-    ExplicitLeft = 703
+    ExplicitLeft = 766
     ExplicitWidth = 192
-    ExplicitHeight = 534
+    ExplicitHeight = 550
     inherited pnlParametros: TTBXDockablePanel
       DockedWidth = 188
+      DockPos = -136
       ExplicitWidth = 192
-      ExplicitHeight = 518
+      ExplicitHeight = 534
       inherited TBXDockablePanel1: TTBXDockablePanel
-        Top = 368
+        Top = 384
-        ExplicitTop = 368
+        ExplicitTop = 384
         ExplicitWidth = 188
         inherited TBXButton1: TTBXButton
           AlignWithMargins = True
@@ -161,7 +162,7 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
       end
       inline frViewFiltroProveedores1: TfrViewFiltroProveedores
         Left = 0
-        Top = 230
+        Top = 359
         Width = 188
         Height = 195
         Align = alTop
@@ -174,8 +175,9 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
         TabOrder = 2
         Visible = False
         ReadOnly = False
-        ExplicitTop = 230
+        ExplicitTop = 359
         ExplicitWidth = 188
+        ExplicitHeight = 195
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
@@ -193,6 +195,32 @@ inherited fEditorInformeFacturasProveedorReportGrafComp: TfEditorInformeFacturas
           Width = 152
         end
       end
+      inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
+        Left = 0
+        Top = 230
+        Width = 188
+        Height = 129
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        ReadOnly = False
+        ExplicitTop = 230
+        ExplicitWidth = 188
+        ExplicitHeight = 129
+        inherited TBXLabel1: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited cbTipoGasto: TcxLookupComboBox
+          ExplicitWidth = 126
+          Width = 126
+        end
+      end
     end
   end
 end

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

@@ -15,23 +15,29 @@ uses
   dxLayoutControl, cxControls, uViewFiltroImportes,
   FactuGES_Intf, TBXDkPanels, uEditorInformeBase,
   uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasProveedorReportGrafComp,
-  uViewIntervaloComparativo, uViewFiltroProveedores;
+  uViewIntervaloComparativo, uViewFiltroProveedores, uViewFiltroTipoGasto,
+  DataAbstract4_Intf;
 
 type
   TfEditorInformeFacturasProveedorReportGrafComp = class(TfEditorInformeBase, IEditorInformeFacturasProveedorReportGrafComp)
     TBXItem58: TTBXItem;
     frViewIntervaloComparativo1: TfrViewIntervaloComparativo;
     frViewFiltroProveedores1: TfrViewFiltroProveedores;
+    frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto;
     procedure actRefrescarExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
 
   private
     FListaIDProveedores: TIntegerArray;
+    FListaIDTiposGasto: TIntegerArray;
+    FListaNombreTiposGasto: StringArray;
     function GetIntervalo: Variant;
     function GetAno1: Variant;
     function GetAno2: Variant;
     function GetListaIDProveedores: TIntegerArray;
     function GetNTop: Variant;
+    function GetListaIDTiposGasto: TIntegerArray;
+    function GetListaNombreTiposGasto: StringArray;
 
     procedure RefrescarInforme;
 
@@ -44,6 +50,8 @@ type
     property Ano2: Variant read GetAno2;
     property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
     property NTop: Variant read GetNTop;
+    property ListaIDTiposGasto: TIntegerArray read GetListaIDTiposGasto;
+    property ListaNombreTiposGasto: StringArray read GetListaNombreTiposGasto;
 
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -68,11 +76,15 @@ constructor TfEditorInformeFacturasProveedorReportGrafComp.Create(AOwner: TCompo
 begin
   inherited;
   FListaIDProveedores := TIntegerArray.Create;
+  FListaIDTiposGasto := TIntegerArray.Create;
+  FListaNombreTiposGasto := StringArray.Create;
 end;
 
 destructor TfEditorInformeFacturasProveedorReportGrafComp.Destroy;
 begin
   FListaIDProveedores.Free;
+  FListaIDTiposGasto.Free;
+  FListaNombreTiposGasto.Free;
   inherited;
 end;
 
@@ -107,6 +119,24 @@ begin
   Result := FListaIDProveedores;
 end;
 
+function TfEditorInformeFacturasProveedorReportGrafComp.GetListaIDTiposGasto: TIntegerArray;
+begin
+  FListaIDTiposGasto.Clear;
+  if frViewFiltroTipoGasto1.rdUnTipoGasto.Checked then
+     FListaIDTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoID);
+
+  Result := FListaIDTiposGasto;
+end;
+
+function TfEditorInformeFacturasProveedorReportGrafComp.GetListaNombreTiposGasto: StringArray;
+begin
+  FListaNombreTiposGasto.Clear;
+  if Assigned(frViewFiltroTipoGasto1.rdUnTipoGasto) then
+     FListaNombreTiposGasto.Add(frViewFiltroTipoGasto1.TipoGastoNombre);
+
+  Result := FListaNombreTiposGasto;
+end;
+
 function TfEditorInformeFacturasProveedorReportGrafComp.GetNTop: Variant;
 begin
   Result := frViewIntervaloComparativo1.stopN.Value;
@@ -125,7 +155,9 @@ begin
       Ano1,
       Ano2,
       ListaIDProveedores,
-      NTop);
+      NTop,
+      ListaIDTiposGasto,
+      ListaNombreTiposGasto);
 
     LoadFromStream(AStream);
     Report.ShowPreparedReport;

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

@@ -160,9 +160,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
       end
       inline frViewFiltroImportes1: TfrViewFiltroImportes
         Left = 0
-        Top = 136
+        Top = 262
         Width = 188
-        Height = 77
+        Height = 88
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -173,15 +173,16 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
         ParentFont = False
         TabOrder = 1
         ReadOnly = False
-        ExplicitTop = 136
+        ExplicitTop = 262
         ExplicitWidth = 188
-        ExplicitHeight = 77
+        ExplicitHeight = 88
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
           Width = 182
+          ExplicitTop = 43
           ExplicitWidth = 182
           inherited eImporte: TcxSpinEdit
             Style.LookAndFeel.SkinName = ''
@@ -193,9 +194,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
       end
       inline frViewFiltroProveedores1: TfrViewFiltroProveedores
         Left = 0
-        Top = 213
+        Top = 350
         Width = 188
-        Height = 146
+        Height = 162
         Align = alTop
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -206,9 +207,9 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
         ParentFont = False
         TabOrder = 3
         ReadOnly = False
-        ExplicitTop = 213
+        ExplicitTop = 350
         ExplicitWidth = 188
-        ExplicitHeight = 146
+        ExplicitHeight = 162
         inherited TBXLabel2: TTBXLabel
           Width = 188
           ExplicitWidth = 188
@@ -226,6 +227,31 @@ inherited fEditorInformeIVAProveedoresReport: TfEditorInformeIVAProveedoresRepor
           Width = 141
         end
       end
+      inline frViewFiltroTipoGasto1: TfrViewFiltroTipoGasto
+        Left = 0
+        Top = 136
+        Width = 188
+        Height = 126
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 4
+        ReadOnly = False
+        ExplicitTop = 136
+        ExplicitWidth = 188
+        inherited TBXLabel1: TTBXLabel
+          Width = 188
+          ExplicitWidth = 188
+        end
+        inherited cbTipoGasto: TcxLookupComboBox
+          ExplicitWidth = 127
+          Width = 127
+        end
+      end
     end
   end
 end