Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se hace informe nuevo de recibos de proveedor y facturas de proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@140 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2019-07-21 19:40:15 +00:00
parent 04226ea628
commit 8729a53473
49 changed files with 1320 additions and 256 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -7,6 +7,10 @@ uses
uEmpresasController, uUsuariosController, uHostManager, uConfiguracionController, uEmpresasController, uUsuariosController, uHostManager, uConfiguracionController,
uBizEmpresasTiendas; uBizEmpresasTiendas;
const
CTE_PERFIL_ADMINISTRADOR = 3;
CTE_PERFIL_VENDEDOR = 7;
type type
TAppFactuGES_Event = procedure; TAppFactuGES_Event = procedure;

103
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages> <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="PackageDescription">Libreria base de FactuGES</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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,55 +65,55 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <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\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.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\PluginSDK_D11R.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\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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

2
Source/Cliente/FactuGES.dproj
View File

@ -51,7 +51,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">7</VersionInfo><VersionInfo Name="Release">4</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.7.4.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.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <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">7</VersionInfo><VersionInfo Name="Release">6</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.7.6.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.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uBootStrap.pas
View File

@ -41,7 +41,7 @@ begin
LoadModule('RecibosCliente_plugin.bpl'); LoadModule('RecibosCliente_plugin.bpl');
LoadModule('FacturasCliente_plugin.bpl'); LoadModule('FacturasCliente_plugin.bpl');
// LoadModule('Comisiones_plugin.bpl'); LoadModule('Comisiones_plugin.bpl');
{$IFDEF PEDIDOSPROVEEDOR} {$IFDEF PEDIDOSPROVEEDOR}
LoadModule('PedidosProveedor_plugin.bpl'); LoadModule('PedidosProveedor_plugin.bpl');

4
Source/Cliente/uPantallaPrincipal.pas
View File

@ -195,7 +195,7 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject); procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin begin
//El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2)) //El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2))
if (AppFactuGES.UsuarioActivo.ID_PERFIL = 7) then if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR) then
begin begin
Informes1.Enabled := False; Informes1.Enabled := False;
Informes1.Visible := False; Informes1.Visible := False;
@ -208,7 +208,7 @@ begin
InicializarUI; InicializarUI;
//Solo verá administracion de usuarios el perfil Administrador(3), están en la tabla usuarios //Solo verá administracion de usuarios el perfil Administrador(3), están en la tabla usuarios
if (AppFactuGES.UsuarioActivo.ID_PERFIL <> 3) then if (AppFactuGES.UsuarioActivo.ID_PERFIL <> CTE_PERFIL_ADMINISTRADOR) then
begin begin
// Perfiles1.Visible := False; // Perfiles1.Visible := False;
Administracin1.Visible := False; Administracin1.Visible := False;

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Gestor de informes\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

65
Source/Informes/1/InformeListadoFacturasRecibosProveedor.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

4
Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.dfm
View File

@ -640,9 +640,7 @@ object PluginContabilidad: TPluginContabilidad
object actCuentas: TAction object actCuentas: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Cuentas' Caption = 'Cuentas'
Enabled = False
ImageIndex = 2 ImageIndex = 2
Visible = False
OnExecute = actCuentasExecute OnExecute = actCuentasExecute
OnUpdate = actCuentasUpdate OnUpdate = actCuentasUpdate
end end
@ -658,9 +656,7 @@ object PluginContabilidad: TPluginContabilidad
object actDiario: TAction object actDiario: TAction
Category = 'Contabilidad' Category = 'Contabilidad'
Caption = 'Libro de diario' Caption = 'Libro de diario'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actDiarioExecute OnExecute = actDiarioExecute
OnUpdate = actDiarioUpdate OnUpdate = actDiarioUpdate
end end

2
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -267,7 +267,7 @@ begin
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
// FECHA_VENCIMIENTO := DateOf(Now); // FECHA_VENCIMIENTO := DateOf(Now);
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
SITUACION := 'PENDIENTE'; SITUACION := CTE_PENDIENTE;
ID_CLIENTE := ID_NULO; ID_CLIENTE := ID_NULO;
SIN_COMISION := 0; SIN_COMISION := 0;

32
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -69,7 +69,7 @@ type
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
end; end;
implementation implementation
@ -78,7 +78,7 @@ implementation
uses uses
uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
uDataModuleServer, schFacturasClienteClient_Intf; uDataModuleServer, schFacturasClienteClient_Intf, schRecibosClienteClient_Intf;
const const
rptFacturaCliente = 'InfFacturaCliente.fr3'; rptFacturaCliente = 'InfFacturaCliente.fr3';
@ -331,11 +331,12 @@ end;
function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos( function TRptFacturasCliente.GenerarInformeListadoFacturasRecibos(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
var var
ATipoInforme: String; ATipoInforme: String;
AStream: TMemoryStream; AStream: TMemoryStream;
dsMaster: IDADataset; dsMaster: IDADataset;
Condicion: TDAWhereExpression;
begin begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
@ -356,10 +357,35 @@ begin
tbl_InformeListadoFacturas.Active := False; tbl_InformeListadoFacturas.Active := False;
PrepararTablaInforme(tbl_InformeListadoFacturas); PrepararTablaInforme(tbl_InformeListadoFacturas);
// Filtrar el informe por fecha
with tbl_InformeListadoFacturas.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaInicio, datString), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasClienteFECHA_FACTURA), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
//Se prepara la tabla del listado general del informe //Se prepara la tabla del listado general del informe
if tbl_InformeListadoRecibos.Active then if tbl_InformeListadoRecibos.Active then
tbl_InformeListadoRecibos.Active := False; tbl_InformeListadoRecibos.Active := False;
PrepararTablaInforme(tbl_InformeListadoRecibos); PrepararTablaInforme(tbl_InformeListadoRecibos);
with tbl_InformeListadoRecibos.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosClienteFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE //DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
FDesglosado := Desglosado; FDesglosado := Desglosado;

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dpk
View File

Binary file not shown.

47
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.dproj
View File

@ -49,38 +49,39 @@
<DelphiCompile Include="FacturasProveedor_controller.dpk"> <DelphiCompile Include="FacturasProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbaranesProveedor_controller.dcp" />
<DCCReference Include="AlbaranesProveedor_model.dcp" />
<DCCReference Include="Articulos_controller.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="ContratosCliente_controller.dcp" />
<DCCReference Include="ContratosCliente_model.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasProveedor_data.dcp" />
<DCCReference Include="FacturasProveedor_model.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="RecibosProveedor_controller.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uArticulosFacturaProveedorController.pas" /> <DCCReference Include="uArticulosFacturaProveedorController.pas" />
<DCCReference Include="uContratosFacturaProveedorController.pas" /> <DCCReference Include="uContratosFacturaProveedorController.pas" />
<DCCReference Include="uDetallesFacturaProveedorController.pas" /> <DCCReference Include="uDetallesFacturaProveedorController.pas" />
<DCCReference Include="uFacturasProveedorController.pas" /> <DCCReference Include="uFacturasProveedorController.pas" />
<DCCReference Include="uFacturasProveedorReportController.pas" /> <DCCReference Include="uFacturasProveedorReportController.pas" />
<DCCReference Include="vcl.dcp" /> <DCCReference Include="View\adortl.dcp" />
<DCCReference Include="vcldb.dcp" /> <DCCReference Include="View\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="vclx.dcp" /> <DCCReference Include="View\AlbaranesProveedor_model.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\ContratosCliente_controller.dcp" />
<DCCReference Include="View\ContratosCliente_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxCoreD11.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\FacturasProveedor_data.dcp" />
<DCCReference Include="View\FacturasProveedor_model.dcp" />
<DCCReference Include="View\FormasPago_controller.dcp" />
<DCCReference Include="View\RecibosProveedor_controller.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" /> <DCCReference Include="View\uIEditorElegirArticulosFacturasProveedor.pas" />
<DCCReference Include="View\uIEditorFacturaProveedor.pas" /> <DCCReference Include="View\uIEditorFacturaProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedor.pas" /> <DCCReference Include="View\uIEditorFacturasProveedor.pas" />
<DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" /> <DCCReference Include="View\uIEditorFacturasProveedorPreview.pas" />
<DCCReference Include="View\uIEditorFacturasRecibosProveedorPreview.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

16
Source/Modulos/Facturas de proveedor/Controller/View/uIEditorFacturasRecibosProveedorPreview.pas Normal file
View File

@ -0,0 +1,16 @@
unit uIEditorFacturasRecibosProveedorPreview;
interface
uses
uEditorPreview;
type
IEditorFacturasRecibosProveedorPreview = interface(IEditorPreview)
['{EAF9D4EF-2FF3-41D6-B842-9B646A6E14B3}']
end;
implementation
end.

44
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -18,8 +18,10 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" /> <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" /> <Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" /> <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
<Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
<Projects Include="Controller\FacturasProveedor_controller.dproj" /> <Projects Include="Controller\FacturasProveedor_controller.dproj" />
<Projects Include="Data\FacturasProveedor_data.dproj" /> <Projects Include="Data\FacturasProveedor_data.dproj" />
<Projects Include="Model\FacturasProveedor_model.dproj" /> <Projects Include="Model\FacturasProveedor_model.dproj" />
@ -131,15 +133,6 @@
<Target Name="FacturasProveedor_data:Make"> <Target Name="FacturasProveedor_data:Make">
<MSBuild Projects="Data\FacturasProveedor_data.dproj" Targets="Make" /> <MSBuild Projects="Data\FacturasProveedor_data.dproj" Targets="Make" />
</Target> </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_controller"> <Target Name="FacturasProveedor_controller">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" /> <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
</Target> </Target>
@ -149,6 +142,15 @@
<Target Name="FacturasProveedor_controller:Make"> <Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target> </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"> <Target Name="FacturasProveedor_plugin">
<MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" /> <MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
</Target> </Target>
@ -221,14 +223,32 @@
<Target Name="Contactos_data:Make"> <Target Name="Contactos_data:Make">
<MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" /> <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
</Target> </Target>
<Target Name="FacturasCliente_view">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_view:Clean">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="RecibosProveedor_view">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="RecibosProveedor_view:Clean">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="RecibosProveedor_view:Make">
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_view;FacturasProveedor_controller;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data;FacturasCliente_view;RecibosProveedor_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean;FacturasCliente_view:Clean;RecibosProveedor_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make;FacturasCliente_view:Make;RecibosProveedor_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

177
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -136,6 +136,109 @@ object RptFacturasProveedor: TRptFacturasProveedor
DataType = datCurrency DataType = datCurrency
end> end>
end end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select ID_EMPRESA,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDOR, ' +
'SITUACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TO' +
'TAL, case when SITUACION = '#39'PAGADO'#39' THEN IMPORTE_TOTAL ELSE 0 en' +
'd as IMPORTE_PAGADO'#10#10'from V_RECIBOS_proveedor'#10'where {where}'#10'orde' +
'r by FECHA_EMISION, NOMBRE_PROVEEDOR'#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'FECHA_EMISION'
TableField = 'FECHA_EMISION'
end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'IMPORTE_PAGADO'
TableField = 'IMPORTE_PAGADO'
end>
end>
Name = 'ListadoRecibos'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'IMPORTE_PAGADO'
DataType = datCurrency
end>
end
item item
Params = <> Params = <>
Statements = < Statements = <
@ -621,7 +724,7 @@ object RptFacturasProveedor: TRptFacturasProveedor
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.CreateDate = 37800.807714351900000000
ReportOptions.LastChange = 40947.762142453710000000 ReportOptions.LastChange = 43661.771358321760000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -796,4 +899,76 @@ object RptFacturasProveedor: TRptFacturasProveedor
Left = 648 Left = 648
Top = 304 Top = 304
end end
object tbl_InformeListadoRecibos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
end
item
Name = 'NOMBRE_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'SITUACION'
DataType = datString
Size = 9
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'FECHA_EMISION'
DataType = datDateTime
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'IMPORTE_COBRADO'
DataType = datCurrency
end>
Params = <>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = Bin2DataStreamer
LogicalName = 'ListadoRecibos'
IndexDefs = <>
Left = 280
Top = 136
end
object DADSInformeListadoRecibos: TDADataSource
DataSet = tbl_InformeListadoRecibos.Dataset
DataTable = tbl_InformeListadoRecibos
Left = 280
Top = 80
end
object frxDBInformeListadoRecibos: TfrxDBDataset
UserName = 'frxDBInformeListadoRecibos'
CloseDataSource = True
DataSource = DADSInformeListadoRecibos
BCDToCurrency = False
Left = 280
Top = 24
end
end end

92
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
View File

@ -32,6 +32,9 @@ type
tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable; tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
tbl_InformeListadoRecibos: TDAMemDataTable;
DADSInformeListadoRecibos: TDADataSource;
frxDBInformeListadoRecibos: TfrxDBDataset;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
@ -57,6 +60,7 @@ type
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): 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): 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): 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 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 GenerarInformeListadoFacturasRecibos(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
end; end;
implementation implementation
@ -65,7 +69,7 @@ implementation
uses uses
uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf,
uDataModuleServer, schFacturasProveedorClient_Intf; uDataModuleServer, schFacturasProveedorClient_Intf, schRecibosProveedorClient_Intf;
const const
rptFacturaProveedor = 'InfFacturaProveedor.fr3'; rptFacturaProveedor = 'InfFacturaProveedor.fr3';
@ -76,7 +80,10 @@ const
rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3'; rptInformeListadoFactuasProveedorPendiente = 'InformeListadoFacturasProveedorPendientes.fr3';
rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3'; rptInformeListadoFactuasProveedorPendienteDesglosado = 'InformeListadoFacturasProveedorPendientesDesglosado.fr3';
ds_InformeListadoFacturasResumen = 'ListadoFacturasProveedorResumen'; ds_InformeListadoFacturasResumen = 'ListadoFacturasProveedorResumen';
ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen'; ds_InformeListadoFacturasTipoResumen = 'ListadoFacturasProveedorTipoResumen';
rptInformeListadoFacturasRecibosProveedor = 'InformeListadoFacturasRecibosProveedor.fr3';
rptInformeListadoFacturasRecibosProveedorDesglosado = 'InformeListadoFacturasRecibosProveedorDesglosado.fr3';
{ TRptFacturasProveedor } { TRptFacturasProveedor }
@ -317,6 +324,84 @@ begin
end; end;
end; end;
function TRptFacturasProveedor.GenerarInformeListadoFacturasRecibos(
const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
var
ATipoInforme: String;
AStream: TMemoryStream;
dsMaster: IDADataset;
Condicion: TDAWhereExpression;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
AStream := TMemoryStream.Create;
try
//Inicializamos parametros
FIdEmpresa := IdEmpresa;
FFechaInicio := Null;
FFechaFin := Null;
if Assigned(FListaIDProveedores) then
FListaIDProveedores.Free;
FListaIDProveedores := ListaIDProveedores;
//Se prepara la tabla del listado general del informe
if tbl_InformeListadoFacturas.Active then
tbl_InformeListadoFacturas.Active := False;
PrepararTablaInforme(tbl_InformeListadoFacturas);
// Filtrar el informe por fecha
with tbl_InformeListadoFacturas.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FechaInicio, datString), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_FacturasProveedorFECHA_FACTURA), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
//Se prepara la tabla del listado general del informe
if tbl_InformeListadoRecibos.Active then
tbl_InformeListadoRecibos.Active := False;
PrepararTablaInforme(tbl_InformeListadoRecibos);
with tbl_InformeListadoRecibos.DynamicWhere do
begin
// (FECHA_INICIO between FECHA_FIN)
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaInicio, datDateTime), dboGreaterOrEqual);
Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_RecibosProveedorFECHA_EMISION), NewConstant(FechaFin, datDateTime), dboLessOrEqual), Condicion, dboAnd);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Condicion, Expression, dboAnd);
end;
//DESGLOSADO POR CLIENTE EN ESTE INFORME NO SE DESGLOSARÁ POR CLIENTE
FDesglosado := Desglosado;
if FDesglosado then
ATipoInforme := rptInformeListadoFacturasRecibosProveedorDesglosado
else
ATipoInforme := rptInformeListadoFacturasRecibosProveedor;
//Finalmente se abren las tablas del informe
tbl_InformeListadoFacturas.Active := True;
tbl_InformeListadoRecibos.Active := True;
Result := _GenerarInforme(ATipoInforme);
finally
AStream.Free;
dsMaster := Nil;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
procedure TRptFacturasProveedor.IniciarParametrosInforme; procedure TRptFacturasProveedor.IniciarParametrosInforme;
var var
ATextos : TStringList; ATextos : TStringList;
@ -410,7 +495,7 @@ begin
end; end;
// Filtrar el informe por fechas de vencimiento // Filtrar el informe por fechas de vencimiento
if not VarIsNull(FFechaVenInicio) { if not VarIsNull(FFechaVenInicio)
and not VarIsNull(FFechaVenFin) then and not VarIsNull(FFechaVenFin) then
begin begin
with ATabla.DynamicWhere do with ATabla.DynamicWhere do
@ -424,6 +509,7 @@ begin
Expression := NewBinaryExpression(Expression, Condicion, dboAnd); Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;
}
// Filtrar el informe por proveedor // Filtrar el informe por proveedor
if Assigned(FListaIDProveedores) then if Assigned(FListaIDProveedores) then

32
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
ClientHeight = 666 ClientHeight = 666
ClientWidth = 640 ClientWidth = 640
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 700 ExplicitHeight = 704
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -60,7 +60,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
DockPos = -6 DockPos = -6
ExplicitWidth = 431 ExplicitWidth = 454
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -75,10 +75,10 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
ExplicitWidth = 640 ExplicitWidth = 640
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 454
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 454
ExplicitWidth = 83 ExplicitWidth = 91
object TBXItem40: TTBXItem object TBXItem40: TTBXItem
Action = actInformes Action = actInformes
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -93,9 +93,9 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
end end
inline frViewFacturasProveedor1: TfrViewFacturasProveedor [3] inline frViewFacturasProveedor1: TfrViewFacturasProveedor [3]
Left = 0 Left = 0
Top = 102 Top = 106
Width = 640 Width = 640
Height = 545 Height = 541
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -105,14 +105,14 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 106
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 545 ExplicitHeight = 541
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 640 Width = 640
Height = 417 Height = 413
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 417 ExplicitHeight = 413
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -213,8 +213,8 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 519 Top = 515
ExplicitTop = 519 ExplicitTop = 515
ExplicitWidth = 640 ExplicitWidth = 640
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 640 Width = 640
@ -3792,6 +3792,10 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
item item
Caption = 'Listado de facturas' Caption = 'Listado de facturas'
Value = 300 Value = 300
end
item
Caption = 'Listado facturas/cobros del proveedor seleccionado'
Value = 400
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -4026,7 +4030,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 500
Left = 408 Left = 408
Top = 80 Top = 80
end end

3
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -114,6 +114,9 @@ begin
300 : begin // Listado de facturas de cliente 300 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasProv; AGestorInformesController.VerInformeListadoFacturasProv;
end; end;
400 : begin // Listado de facturas de cliente
AGestorInformesController.VerInformeListadoFacturasRecibosProv(Facturas.ID_PROVEEDOR);
end;
end; end;
end; end;

4
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dpk
View File

@ -46,6 +46,8 @@ contains
uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas', uIEditorInformePedidosReport in 'View\uIEditorInformePedidosReport.pas',
uIEditorInformeFacturasRecibosClienteReport in 'View\uIEditorInformeFacturasRecibosClienteReport.pas', uIEditorInformeFacturasRecibosClienteReport in 'View\uIEditorInformeFacturasRecibosClienteReport.pas',
uIViewParametrosInforme in 'View\uIViewParametrosInforme.pas', uIViewParametrosInforme in 'View\uIViewParametrosInforme.pas',
uIViewFiltroClientes in 'View\uIViewFiltroClientes.pas'; uIViewFiltroClientes in 'View\uIViewFiltroClientes.pas',
uIEditorInformeFacturasRecibosProveedorReport in 'View\uIEditorInformeFacturasRecibosProveedorReport.pas',
uIViewFiltroProveedores in 'View\uIViewFiltroProveedores.pas';
end. end.

8
Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.dproj
View File

@ -38,16 +38,17 @@
<DelphiCompile Include="GestorInformes_controller.dpk"> <DelphiCompile Include="GestorInformes_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorInformes_data.dcp" />
<DCCReference Include="uGestorInformesController.pas" /> <DCCReference Include="uGestorInformesController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\GestorInformes_data.dcp" />
<DCCReference Include="View\uIEditorInformeBase.pas" /> <DCCReference Include="View\uIEditorInformeBase.pas" />
<DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasClientePendientesReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorPendientesReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasRecibosClienteReport.pas" /> <DCCReference Include="View\uIEditorInformeFacturasRecibosClienteReport.pas" />
<DCCReference Include="View\uIEditorInformeFacturasRecibosProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAClientesReport.pas" />
<DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" /> <DCCReference Include="View\uIEditorInformeIVAProveedoresReport.pas" />
<DCCReference Include="View\uIEditorInformePedidosReport.pas" /> <DCCReference Include="View\uIEditorInformePedidosReport.pas" />
@ -57,6 +58,7 @@
<DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" /> <DCCReference Include="View\uIEditorInformeRecibosProveedorReport.pas" />
<DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" /> <DCCReference Include="View\uIEditorInformeRecibosProvPendientesReport.pas" />
<DCCReference Include="View\uIViewFiltroClientes.pas" /> <DCCReference Include="View\uIViewFiltroClientes.pas" />
<DCCReference Include="View\uIViewFiltroProveedores.pas" />
<DCCReference Include="View\uIViewParametrosInforme.pas" /> <DCCReference Include="View\uIViewParametrosInforme.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>

5
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasRecibosClienteReport.pas
View File

@ -11,9 +11,14 @@ type
function GetListaIDClientes: TIntegerArray; function GetListaIDClientes: TIntegerArray;
function GetDesglosadoCliente: Boolean; function GetDesglosadoCliente: Boolean;
function getViewFiltroCliente: IViewFiltroClientes; function getViewFiltroCliente: IViewFiltroClientes;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
property ListaIDClientes: TIntegerArray read GetListaIDClientes; property ListaIDClientes: TIntegerArray read GetListaIDClientes;
property DesglosadoCliente: Boolean read GetDesglosadoCliente; property DesglosadoCliente: Boolean read GetDesglosadoCliente;
property viewFiltroCliente: IViewFiltroClientes read getViewFiltroCliente; property viewFiltroCliente: IViewFiltroClientes read getViewFiltroCliente;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
end; end;

27
Source/Modulos/Gestor de informes/Controller/View/uIEditorInformeFacturasRecibosProveedorReport.pas Normal file
View File

@ -0,0 +1,27 @@
unit uIEditorInformeFacturasRecibosProveedorReport;
interface
uses
FactuGES_Intf, uIEditorInformeBase, uIViewFiltroProveedores;
type
IEditorInformeFacturasRecibosProveedorReport = interface(IEditorInformeBase)
['{270CCA92-D676-44A1-8AE5-6B9833627CD6}']
function GetListaIDProveedores: TIntegerArray;
function GetDesglosadoProveedor: Boolean;
function getViewFiltroProveedor: IViewFiltroProveedores;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
property ListaIDProveedores: TIntegerArray read GetListaIDProveedores;
property DesglosadoProveedor: Boolean read GetDesglosadoProveedor;
property viewFiltroProveedor: IViewFiltroProveedores read getViewFiltroProveedor;
property FechaInicio: Variant read GetFechaInicio;
property FechaFin: Variant read GetFechaFin;
end;
implementation
end.

18
Source/Modulos/Gestor de informes/Controller/View/uIViewFiltroProveedores.pas Normal file
View File

@ -0,0 +1,18 @@
unit uIViewFiltroProveedores;
interface
uses
uIViewParametrosInforme;
type
IViewFiltroProveedores = interface(IViewParametrosInforme)
['{382D6BE2-DAE9-40D4-925F-452F6A73DDC3}']
procedure setIdProveedor(const IdProveedor:Integer);
function getIdProveedor: Integer;
property IdProveedor : Integer read getIdProveedor write setIdProveedor;
end;
implementation
end.

31
Source/Modulos/Gestor de informes/Controller/uGestorInformesController.pas
View File

@ -36,6 +36,7 @@ type
//MODULO RECIBOS DE PROVEEDOR //MODULO RECIBOS DE PROVEEDOR
procedure VerInformeListadoRecibosProvPendientes; procedure VerInformeListadoRecibosProvPendientes;
procedure VerInformeListadoRecibosProveedor; procedure VerInformeListadoRecibosProveedor;
procedure VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
end; end;
TGestorInformesController = class(TControllerBase, IGestorInformesController) TGestorInformesController = class(TControllerBase, IGestorInformesController)
@ -79,6 +80,7 @@ type
procedure VerInformeIVAProveedores; procedure VerInformeIVAProveedores;
procedure VerInformeListadoFacturasProv; procedure VerInformeListadoFacturasProv;
procedure VerInformeListadoFacturasProvPendientes; procedure VerInformeListadoFacturasProvPendientes;
procedure VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
//MODULO RECIBOS DE PROVEEDOR //MODULO RECIBOS DE PROVEEDOR
procedure VerInformeListadoRecibosProvPendientes; procedure VerInformeListadoRecibosProvPendientes;
@ -100,7 +102,8 @@ uses
uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport, uIEditorInformeIVAProveedoresReport, uIEditorInformeFacturasProveedorReport,
uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport, uIEditorInformeFacturasProveedorPendientesReport, uIEditorInformeRecibosProveedorReport,
uIEditorInformeRecibosProvPendientesReport, uIEditorInformeRecibosProvPendientesReport,
uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport; uIEditorInformePedidosReport, uIEditorInformeFacturasRecibosClienteReport,
uIEditorInformeFacturasRecibosProveedorReport;
{procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente; {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@ -427,7 +430,31 @@ begin
AEditor.Title := 'Listado de facturas/recibos de cliente'; AEditor.Title := 'Listado de facturas/recibos de cliente';
AEditor.viewFiltroCliente.IdCliente := ID_CLIENTE; AEditor.viewFiltroCliente.IdCliente := ID_CLIENTE;
AStream := FDataModule.GenerarInformeListadoFacturasRecibosCli(AppFactuGES.EmpresaActiva.ID, AEditor.ListaIDClientes, AStream := FDataModule.GenerarInformeListadoFacturasRecibosCli(AppFactuGES.EmpresaActiva.ID, AEditor.ListaIDClientes,
AEditor.DesglosadoCliente); AEditor.DesglosadoCliente, AEditor.FechaInicio, AEditor.FechaFin);
AEditor.LoadFromStream(AStream);
AEditor.Preview;
finally
AEditor.Release;
AEditor := Nil;
FreeAndNil(AStream);
end;
end;
procedure TGestorInformesController.VerInformeListadoFacturasRecibosProv(const ID_PROVEEDOR: Integer);
var
AStream: Binary;
AEditor : IEditorInformeFacturasRecibosProveedorReport;
begin
AEditor := NIL;
CreateEditor('EditorInformeFacturasRecibosProveedorReport', IEditorInformeFacturasRecibosProveedorReport, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self;
AEditor.Title := 'Listado de facturas/recibos de proveedor';
AEditor.viewFiltroProveedor.IdProveedor := ID_PROVEEDOR;
AStream := FDataModule.GenerarInformeListadoFacturasRecibosProv(AppFactuGES.EmpresaActiva.ID, AEditor.ListaIDProveedores,
AEditor.DesglosadoProveedor, AEditor.FechaInicio, AEditor.FechaFin);
AEditor.LoadFromStream(AStream); AEditor.LoadFromStream(AStream);
AEditor.Preview; AEditor.Preview;
finally finally

17
Source/Modulos/Gestor de informes/Data/uDataModuleGestorInformes.pas
View File

@ -29,7 +29,7 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(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 GenerarInformeListadoRecibosCliPendientes(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;
@ -39,6 +39,7 @@ type
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): 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): 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): Binary;
function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosProvPendientes(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 GenerarInformeListadoRecibosProvPendientes(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;
@ -130,10 +131,20 @@ end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosCli( function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosCli(
const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
begin begin
try try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListaIdClientes, Desglosado); Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListaIdClientes, Desglosado, FechaInicio, FechaFin);
finally
end;
end;
function TDataModuleGestorInformes.GenerarInformeListadoFacturasRecibosProv(
const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
begin
try
Result := (RORemoteService as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosProv(IdEmpresa, ListaIdProveedores, Desglosado, FechaInicio, FechaFin);
finally finally
end; end;
end; end;

16
Source/Modulos/Gestor de informes/GestorInformes_Group.groupproj
View File

@ -10,6 +10,7 @@
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="Controller\GestorInformes_controller.dproj" /> <Projects Include="Controller\GestorInformes_controller.dproj" />
<Projects Include="Data\GestorInformes_data.dproj" /> <Projects Include="Data\GestorInformes_data.dproj" />
<Projects Include="Model\GestorInformes_model.dproj" /> <Projects Include="Model\GestorInformes_model.dproj" />
@ -121,14 +122,23 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </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="Build"> <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" />
</Target> </Target>
<Target Name="Clean"> <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" />
</Target> </Target>
<Target Name="Make"> <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" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

3
Source/Modulos/Gestor de informes/Model/Data/uIDataModuleGestorInformes.pas
View File

@ -18,7 +18,7 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosCliPendientes(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 GenerarInformeListadoRecibosCliPendientes(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;
@ -28,6 +28,7 @@ type
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): 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): 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): Binary;
function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
//MODULO RECIBOS DE CLIENTE //MODULO RECIBOS DE CLIENTE
function GenerarInformeListadoRecibosProvPendientes(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 GenerarInformeListadoRecibosProvPendientes(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;

23
Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.pas
View File

@ -52,7 +52,8 @@ type
function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
//MODULO RECIBOS CLIENTE //MODULO RECIBOS CLIENTE
function GenerarInformeListadoRecibosCliente(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 GenerarInformeListadoRecibosCliente(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;
@ -62,6 +63,8 @@ type
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): 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): 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): Binary;
function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
//MODULO RECIBOS PROVEEDOR //MODULO RECIBOS PROVEEDOR
function GenerarInformeListadoRecibosProveedor(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 GenerarInformeListadoRecibosProveedor(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;
@ -249,15 +252,29 @@ begin
end; end;
end; end;
function TsrvGestorInformes.GenerarInformeListadoFacturasRecibosProv(
const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray;
const Desglosado: Boolean; const FechaInicio, FechaFin: Variant): Binary;
var
AReportGenerator : TRptFacturasProveedor;
begin
AReportGenerator := TRptFacturasProveedor.Create(nil);
try
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDProveedores, Desglosado, FechaInicio, FechaFin);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvGestorInformes.GenerarInformeListadoFacturasRecibosCli( function TsrvGestorInformes.GenerarInformeListadoFacturasRecibosCli(
const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean): Binary; const Desglosado: Boolean; const FechaInicio: Variant; const FechaFin: Variant): Binary;
var var
AReportGenerator : TRptFacturasCliente; AReportGenerator : TRptFacturasCliente;
begin begin
AReportGenerator := TRptFacturasCliente.Create(nil); AReportGenerator := TRptFacturasCliente.Create(nil);
try try
Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado); Result := AReportGenerator.GenerarInformeListadoFacturasRecibos(IdEmpresa, ListadoIDClientes, Desglosado, FechaInicio, FechaFin);
finally finally
FreeAndNIL(AReportGenerator); FreeAndNIL(AReportGenerator);
end; end;

3
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk
View File

@ -83,6 +83,7 @@ contains
uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm}, uEditorInformeFacturasProveedorPendientesReport in 'uEditorInformeFacturasProveedorPendientesReport.pas' {fEditorInformeFacturasProveedorPendientesReport: TForm},
uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm}, uEditorInformeFacturasProveedorReport in 'uEditorInformeFacturasProveedorReport.pas' {fEditorInformeFacturasProveedorReport: TForm},
uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm}, uEditorInformeRecibosProveedorReport in 'uEditorInformeRecibosProveedorReport.pas' {fEditorInformeRecibosProveedorReport: TForm},
uEditorInformeFacturasRecibosClienteReport in 'uEditorInformeFacturasRecibosClienteReport.pas' {fEditorInformeFacturasRecibosClienteReport: TForm}; uEditorInformeFacturasRecibosClienteReport in 'uEditorInformeFacturasRecibosClienteReport.pas' {fEditorInformeFacturasRecibosClienteReport: TForm},
uEditorInformeFacturasRecibosProveedorReport in 'uEditorInformeFacturasRecibosProveedorReport.pas' {fEditorInformeFacturasRecibosProveedorReport: TForm};
end. end.

82
Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj
View File

@ -38,45 +38,39 @@
<DelphiCompile Include="GestorInformes_view.dpk"> <DelphiCompile Include="GestorInformes_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Servidor\ApplicationBase.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Servidor\Base.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\..\..\Servidor\bdertl.dcp" /> <DCCReference Include="bdertl.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_controller.dcp" /> <DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_model.dcp" /> <DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\designide.dcp" /> <DCCReference Include="designide.dcp" />
<DCCReference Include="..\..\..\Servidor\dxComnD11.dcp" /> <DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxCoreD11.dcp" /> <DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" /> <DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxLayoutControlD11.dcp" /> <DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" /> <DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\fqb110.dcp" /> <DCCReference Include="fqb110.dcp" />
<DCCReference Include="..\..\..\Servidor\frx11.dcp" /> <DCCReference Include="frx11.dcp" />
<DCCReference Include="..\..\..\Servidor\frxe11.dcp" /> <DCCReference Include="frxe11.dcp" />
<DCCReference Include="..\..\..\Servidor\fs11.dcp" /> <DCCReference Include="fs11.dcp" />
<DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" /> <DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" /> <DCCReference Include="GUIBase.dcp" />
<DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" /> <DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="..\..\..\Servidor\Jcl.dcp" /> <DCCReference Include="Jcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JclVcl.dcp" /> <DCCReference Include="JclVcl.dcp" />
<DCCReference Include="..\..\..\Servidor\JvCoreD11R.dcp" /> <DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvPageCompsD11R.dcp" /> <DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvStdCtrlsD11R.dcp" /> <DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\JvSystemD11R.dcp" /> <DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="..\..\..\Servidor\PngComponentsD10.dcp" /> <DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="..\..\..\Servidor\PNG_D10.dcp" /> <DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" /> <DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" /> <DCCReference Include="rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\tb2k_d10.dcp" /> <DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="..\..\..\Servidor\tbx_d10.dcp" /> <DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vclactnband.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\vcljpg.dcp" />
<DCCReference Include="..\..\..\Servidor\vclx.dcp" />
<DCCReference Include="..\..\..\Servidor\xmlrtl.dcp" />
<DCCReference Include="uEditorInformeBase.pas"> <DCCReference Include="uEditorInformeBase.pas">
<Form>fEditorInformeBase</Form> <Form>fEditorInformeBase</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -101,6 +95,10 @@
<Form>fEditorInformeFacturasRecibosClienteReport</Form> <Form>fEditorInformeFacturasRecibosClienteReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorInformeFacturasRecibosProveedorReport.pas">
<Form>fEditorInformeFacturasRecibosProvedorReport</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="uEditorInformeIVAClientesReport.pas"> <DCCReference Include="uEditorInformeIVAClientesReport.pas">
<Form>fEditorInformeIVAClientesReport</Form> <Form>fEditorInformeIVAClientesReport</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -146,6 +144,12 @@
<Form>frViewPeriodoFechas</Form> <Form>frViewPeriodoFechas</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </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> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

18
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorPendientesReport.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ClientHeight = 655 ClientHeight = 655
ClientWidth = 895 ClientWidth = 895
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 689 ExplicitHeight = 693
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -21,7 +21,7 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 628
object TBXItem58: TTBXItem [0] object TBXItem58: TTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -36,20 +36,20 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXMultiDockIzquierdo: TTBXMultiDock inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534 Height = 530
ExplicitHeight = 534 ExplicitHeight = 530
end end
inherited TBXMultiDockDerecho: TTBXMultiDock inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703 Left = 703
Width = 192 Width = 192
Height = 534 Height = 530
ExplicitLeft = 703 ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 530
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188 DockedWidth = 188
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 514
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -142,9 +142,9 @@ inherited fEditorInformeFacturasProveedorPendientesReport: TfEditorInformeFactur
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 362
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 362
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
AlignWithMargins = True AlignWithMargins = True

18
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasProveedorReport.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ClientHeight = 655 ClientHeight = 655
ClientWidth = 895 ClientWidth = 895
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 689 ExplicitHeight = 693
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -21,7 +21,7 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 628
object TBXItem58: TTBXItem [0] object TBXItem58: TTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -36,20 +36,20 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXMultiDockIzquierdo: TTBXMultiDock inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534 Height = 530
ExplicitHeight = 534 ExplicitHeight = 530
end end
inherited TBXMultiDockDerecho: TTBXMultiDock inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703 Left = 703
Width = 192 Width = 192
Height = 534 Height = 530
ExplicitLeft = 703 ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 530
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188 DockedWidth = 188
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 514
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -142,9 +142,9 @@ inherited fEditorInformeFacturasProveedorReport: TfEditorInformeFacturasProveedo
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 362
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 362
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
AlignWithMargins = True AlignWithMargins = True

21
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosClienteReport.dfm
View File

@ -3,11 +3,12 @@ inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRec
ClientHeight = 655 ClientHeight = 655
ClientWidth = 895 ClientWidth = 895
ExplicitWidth = 903 ExplicitWidth = 903
ExplicitHeight = 689 ExplicitHeight = 693
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 895 Width = 895
ExplicitTop = 79
ExplicitWidth = 895 ExplicitWidth = 895
inherited Image1: TImage inherited Image1: TImage
Left = 868 Left = 868
@ -21,7 +22,7 @@ inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRec
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 591 ExplicitWidth = 628
object TBXItem58: TTBXItem [0] object TBXItem58: TTBXItem [0]
Action = actRefrescar Action = actRefrescar
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -36,20 +37,21 @@ inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRec
ExplicitWidth = 895 ExplicitWidth = 895
end end
inherited TBXMultiDockIzquierdo: TTBXMultiDock inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 534 Height = 530
ExplicitHeight = 534 ExplicitTop = 106
ExplicitHeight = 530
end end
inherited TBXMultiDockDerecho: TTBXMultiDock inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703 Left = 703
Width = 192 Width = 192
Height = 534 Height = 530
ExplicitLeft = 703 ExplicitLeft = 703
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 534 ExplicitHeight = 530
inherited pnlParametros: TTBXDockablePanel inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188 DockedWidth = 188
ExplicitWidth = 192 ExplicitWidth = 192
ExplicitHeight = 518 ExplicitHeight = 514
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0] inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0 Left = 0
Top = 0 Top = 0
@ -63,7 +65,6 @@ inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRec
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Visible = False
ReadOnly = False ReadOnly = False
ExplicitWidth = 188 ExplicitWidth = 188
ExplicitHeight = 136 ExplicitHeight = 136
@ -144,9 +145,9 @@ inherited fEditorInformeFacturasRecibosClienteReport: TfEditorInformeFacturasRec
end end
end end
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
Top = 368 Top = 362
TabOrder = 2 TabOrder = 2
ExplicitTop = 368 ExplicitTop = 362
ExplicitWidth = 188 ExplicitWidth = 188
inherited TBXButton1: TTBXButton inherited TBXButton1: TTBXButton
AlignWithMargins = True AlignWithMargins = True

14
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosClienteReport.pas
View File

@ -11,7 +11,7 @@ uses
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView, JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas, uViewBase, uViewPeriodoFechas,
uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes, uViewFiltroClientes, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroClientes, FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroClientes,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosClienteReport; uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosClienteReport;
@ -23,6 +23,7 @@ type
frViewFiltroImportes1: TfrViewFiltroImportes; frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroClientes1: TfrViewFiltroClientes; frViewFiltroClientes1: TfrViewFiltroClientes;
procedure actRefrescarExecute(Sender: TObject); procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private private
FListaIDClientes: TIntegerArray; FListaIDClientes: TIntegerArray;
function GetFechaFin: Variant; function GetFechaFin: Variant;
@ -73,6 +74,13 @@ begin
inherited; inherited;
end; end;
procedure TfEditorInformeFacturasRecibosClienteReport.FormShow(Sender: TObject);
begin
inherited;
frViewPeriodoFechas1.EsteAno(TFecha);
RefrescarInforme;
end;
function TfEditorInformeFacturasRecibosClienteReport.GetDesglosadoCliente: Boolean; function TfEditorInformeFacturasRecibosClienteReport.GetDesglosadoCliente: Boolean;
begin begin
if frViewFiltroImportes1.cbxDesglosado.Enabled then if frViewFiltroImportes1.cbxDesglosado.Enabled then
@ -126,7 +134,9 @@ begin
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosCli( AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosCli(
AppFactuGES.EmpresaActiva.ID, AppFactuGES.EmpresaActiva.ID,
ListaIDClientes, ListaIDClientes,
DesglosadoCliente); DesglosadoCliente,
FechaInicio,
FechaFin);
LoadFromStream(AStream); LoadFromStream(AStream);
Report.ShowPreparedReport; Report.ShowPreparedReport;

253
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosProveedorReport.dfm Normal file
View File

@ -0,0 +1,253 @@
inherited fEditorInformeFacturasRecibosProveedorReport: TfEditorInformeFacturasRecibosProveedorReport
Caption = 'fEditorInformeFacturasRecibosProveedorReport'
ClientHeight = 655
ClientWidth = 895
ExplicitWidth = 903
ExplicitHeight = 693
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 895
ExplicitTop = 79
ExplicitWidth = 895
inherited Image1: TImage
Left = 868
ExplicitLeft = 868
end
end
inherited TBXDock: TTBXDock
Width = 895
ExplicitWidth = 895
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 895
end
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 628
object TBXItem58: TTBXItem [0]
Action = actRefrescar
DisplayMode = nbdmImageAndText
Images = SmallImages
end
end
end
inherited StatusBar: TJvStatusBar
Top = 636
Width = 895
ExplicitTop = 636
ExplicitWidth = 895
end
inherited TBXMultiDockIzquierdo: TTBXMultiDock
Height = 530
ExplicitTop = 106
ExplicitHeight = 530
end
inherited TBXMultiDockDerecho: TTBXMultiDock
Left = 703
Width = 192
Height = 530
ExplicitLeft = 703
ExplicitWidth = 192
ExplicitHeight = 530
inherited pnlParametros: TTBXDockablePanel
DockedWidth = 188
ExplicitWidth = 192
ExplicitHeight = 514
inline frViewPeriodoFechas1: TfrViewPeriodoFechas [0]
Left = 0
Top = 0
Width = 188
Height = 136
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 188
ExplicitHeight = 136
inherited TBXAlignmentPanel2: TTBXAlignmentPanel
Width = 182
Height = 98
ExplicitWidth = 182
ExplicitHeight = 98
inherited Label3: TLabel
Width = 172
end
inherited edtFechaFin: TcxDateEdit
Left = 74
Top = 77
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 74
ExplicitTop = 77
ExplicitWidth = 99
Width = 99
end
inherited edtFechaIni: TcxDateEdit
Left = 76
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 76
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 170
Width = 170
end
end
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel3: TTBXAlignmentPanel
Top = 136
Width = 182
Visible = False
ExplicitTop = 136
ExplicitWidth = 182
inherited Label4: TLabel
Width = 172
end
inherited edtFechaVenFin: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 99
Width = 99
end
inherited edtFechaVenIni: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 97
Width = 97
end
inherited cbPeriodo2: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inherited TBXDockablePanel1: TTBXDockablePanel
Top = 362
TabOrder = 2
ExplicitTop = 362
ExplicitWidth = 188
inherited TBXButton1: TTBXButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 182
Height = 37
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alTop
ExplicitLeft = 3
ExplicitTop = 3
ExplicitWidth = 182
ExplicitHeight = 37
end
end
inline frViewFiltroImportes1: TfrViewFiltroImportes
Left = 0
Top = 136
Width = 188
Height = 77
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
ReadOnly = False
ExplicitTop = 136
ExplicitWidth = 188
ExplicitHeight = 77
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 182
ExplicitWidth = 182
inherited eImporte: TcxSpinEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
inline frViewFiltroProveedores1: TfrViewFiltroProveedores
Left = 0
Top = 213
Width = 188
Height = 146
Align = alTop
AutoSize = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 3
ReadOnly = False
ExplicitTop = 213
ExplicitWidth = 188
ExplicitHeight = 146
inherited TBXLabel2: TTBXLabel
Width = 188
ExplicitWidth = 188
end
inherited bElegirProveedor: TBitBtn
Width = 108
ExplicitWidth = 108
end
inherited cbxDesglosado: TCheckBox
Visible = False
end
inherited edtProveedor: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 141
Width = 141
end
inherited rbTodosProveedores: TRadioButton
Checked = False
TabStop = False
Visible = False
end
inherited rbUnProveedor: TRadioButton
Checked = True
TabStop = True
Visible = False
end
end
end
end
end

149
Source/Modulos/Gestor de informes/Views/uEditorInformeFacturasRecibosProveedorReport.pas Normal file
View File

@ -0,0 +1,149 @@
unit uEditorInformeFacturasRecibosProveedorReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, frxExportText, frxExportRTF, frxExportMail,
frxExportXLS, frxExportImage, frxExportPDF, frxClass, frxDCtrl, frxGradient,
frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TB2ExtItems,
TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
JvExControls, JvNavigationPane, uCustomView,
uViewBase, uViewPeriodoFechas,
uViewFiltroProveedores, dxLayoutControl, cxControls, uViewFiltroImportes,
FactuGES_Intf, TBXDkPanels, uEditorInformeBase, uIViewFiltroProveedores,
uIEditorInformeBase, uViewParametrosInforme, uIEditorInformeFacturasRecibosProveedorReport;
type
TfEditorInformeFacturasRecibosProveedorReport = class(TfEditorInformeBase, IEditorInformeFacturasRecibosProveedorReport)
TBXItem58: TTBXItem;
frViewPeriodoFechas1: TfrViewPeriodoFechas;
frViewFiltroImportes1: TfrViewFiltroImportes;
frViewFiltroProveedores1: TfrViewFiltroProveedores;
procedure actRefrescarExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
FListaIDProveedores: TIntegerArray;
function GetFechaFin: Variant;
function GetFechaInicio: Variant;
function GetListaIDProveedores: TIntegerArray;
function GetImporteMinimo: Currency;
function GetDesglosadoProveedor: Boolean;
function GetViewFiltroProveedor: IViewFiltroProveedores;
procedure RefrescarInforme;
public
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 viewFiltroProveedor: IViewFiltroProveedores read GetViewFiltroProveedor;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses uROTypes, DateUtils, uGestorInformesController, uFactuGES_App;
{ TfEditorGestorInformesReport }
procedure TfEditorInformeFacturasRecibosProveedorReport.actRefrescarExecute(Sender: TObject);
begin
inherited;
RefrescarInforme;
end;
constructor TfEditorInformeFacturasRecibosProveedorReport.Create(AOwner: TComponent);
begin
inherited;
FListaIDProveedores := TIntegerArray.Create;
end;
destructor TfEditorInformeFacturasRecibosProveedorReport.Destroy;
begin
FListaIDProveedores.Free;
inherited;
end;
procedure TfEditorInformeFacturasRecibosProveedorReport.FormShow(Sender: TObject);
begin
inherited;
frViewPeriodoFechas1.EsteAno(TFecha);
RefrescarInforme;
end;
function TfEditorInformeFacturasRecibosProveedorReport.GetDesglosadoProveedor: Boolean;
begin
if frViewFiltroImportes1.cbxDesglosado.Enabled then
Result := frViewFiltroProveedores1.cbxDesglosado.Checked
else
Result := False;
end;
function TfEditorInformeFacturasRecibosProveedorReport.GetFechaFin: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaFin.EditValue;
//Esto es para quitar la hora del timestamp para que luego no me redondee al dia siguiente
if not VarIsNull(Result) then
Result := DateOf(frViewPeriodoFechas1.edtFechaFin.Date);
end;
function TfEditorInformeFacturasRecibosProveedorReport.GetFechaInicio: Variant;
begin
Result := frViewPeriodoFechas1.edtFechaIni.EditValue;
end;
function TfEditorInformeFacturasRecibosProveedorReport.GetImporteMinimo: Currency;
begin
if frViewFiltroImportes1.eImporte.Enabled then
Result := frViewFiltroImportes1.eImporte.Value
else
Result := 0;
end;
function TfEditorInformeFacturasRecibosProveedorReport.GetListaIDProveedores: TIntegerArray;
begin
FListaIDProveedores.Clear;
if Assigned(frViewFiltroProveedores1.Proveedor) then
FListaIDProveedores.Add(frViewFiltroProveedores1.Proveedor.ID);
Result := FListaIDProveedores;
end;
function TfEditorInformeFacturasRecibosProveedorReport.getViewFiltroProveedor: IViewFiltroProveedores;
begin
Result := (frViewFiltroProveedores1 as IViewFiltroProveedores);
end;
procedure TfEditorInformeFacturasRecibosProveedorReport.RefrescarInforme;
var
AStream: Binary;
begin
ShowHourglassCursor;
try
AStream := (Controller as IGestorInformesController).DataModule.GenerarInformeListadoFacturasRecibosProv(
AppFactuGES.EmpresaActiva.ID,
ListaIDProveedores,
DesglosadoProveedor,
FechaInicio,
FechaFin);
LoadFromStream(AStream);
Report.ShowPreparedReport;
finally
FreeAndNil(AStream);
HideHourglassCursor;
end;
end;
end.

3
Source/Modulos/Gestor de informes/Views/uGestorInformesViewRegister.pas
View File

@ -15,7 +15,7 @@ uses
uEditorInformePresupuestosReport, uEditorInformePresupuestosReport,
uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport, uEditorInformeIVAProveedoresReport, uEditorInformeFacturasProveedorReport, uEditorInformeFacturasProveedorPendientesReport,
uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport; uEditorInformeRecibosProveedorReport, uEditorInformeRecibosProvPendientesReport, uEditorInformeFacturasRecibosProveedorReport;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -32,6 +32,7 @@ begin
EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeFacturasProveedorPendientesReport, 'EditorInformeFacturasProveedorPendientesReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosProveedorReport, 'EditorInformeRecibosProveedorReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosProveedorReport, 'EditorInformeRecibosProveedorReport');
EditorRegistry.RegisterClass(TfEditorInformeRecibosProvPendientesReport, 'EditorInformeRecibosProvPendientesReport'); EditorRegistry.RegisterClass(TfEditorInformeRecibosProvPendientesReport, 'EditorInformeRecibosProvPendientesReport');
EditorRegistry.RegisterClass(TfEditorInformeFacturasRecibosProveedorReport, 'EditorInformeFacturasRecibosProveedorReport');
end; end;
procedure UnregisterViews; procedure UnregisterViews;

30
Source/Modulos/Gestor de informes/Views/uViewFiltroProveedores.pas
View File

@ -6,13 +6,10 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos, StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
uProveedoresController, uIViewParametrosInforme; uProveedoresController, uIViewParametrosInforme, uIViewFiltroProveedores;
type type
IViewFiltroProveedores = interface(IViewParametrosInforme)
['{129906DA-8E64-4312-8095-A04F8007CF7F}']
end;
TfrViewFiltroProveedores = class(TfrViewParametrosInforme, IViewFiltroProveedores) TfrViewFiltroProveedores = class(TfrViewParametrosInforme, IViewFiltroProveedores)
TBXLabel2: TTBXLabel; TBXLabel2: TTBXLabel;
rbTodosProveedores: TRadioButton; rbTodosProveedores: TRadioButton;
@ -27,8 +24,11 @@ type
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
private private
FProveedor : IBizProveedor; FProveedor : IBizProveedor;
FProveedoresController : IProveedoresController; FProveedoresController : IProveedoresController;
function getIdProveedor: Integer;
procedure setIdProveedor(const IdProveedor:Integer);
public public
property IdProveedor : Integer read getIdProveedor write setIdProveedor;
property Proveedor : IBizProveedor read FProveedor; property Proveedor : IBizProveedor read FProveedor;
end; end;
@ -68,6 +68,11 @@ begin
FProveedoresController := NIL; FProveedoresController := NIL;
end; end;
function TfrViewFiltroProveedores.getIdProveedor: Integer;
begin
Result := FProveedor.ID;
end;
procedure TfrViewFiltroProveedores.rbTodosProveedoresClick(Sender: TObject); procedure TfrViewFiltroProveedores.rbTodosProveedoresClick(Sender: TObject);
begin begin
if rbTodosProveedores.Checked then if rbTodosProveedores.Checked then
@ -92,4 +97,17 @@ begin
end; end;
end; end;
procedure TfrViewFiltroProveedores.setIdProveedor(const IdProveedor: Integer);
begin
if not Assigned(FProveedoresController) then
FProveedoresController := TProveedoresController.Create;
FProveedor := IBizProveedor(FProveedoresController.Buscar(IdProveedor));
if Assigned(FProveedor) then
begin
FProveedor.Open;
edtProveedor.Text := FProveedor.NOMBRE;
end;
end;
end. end.

34
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
ClientHeight = 664 ClientHeight = 664
ClientWidth = 638 ClientWidth = 638
ExplicitWidth = 646 ExplicitWidth = 646
ExplicitHeight = 698 ExplicitHeight = 702
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -41,10 +41,10 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638 Width = 638
ExplicitWidth = 638 ExplicitWidth = 638
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 546 ExplicitWidth = 451
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 431 ExplicitWidth = 454
inherited lblAno: TTBXLabelItem inherited lblAno: TTBXLabelItem
Visible = True Visible = True
end end
@ -59,10 +59,10 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
ExplicitWidth = 638 ExplicitWidth = 638
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 431 Left = 454
Visible = True Visible = True
ExplicitLeft = 431 ExplicitLeft = 454
ExplicitWidth = 66 ExplicitWidth = 74
object TBXItem38: TTBXItem object TBXItem38: TTBXItem
Action = actInformes Action = actInformes
end end
@ -76,9 +76,9 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
end end
inline frViewRecibosProveedor1: TfrViewRecibosProveedor [3] inline frViewRecibosProveedor1: TfrViewRecibosProveedor [3]
Left = 0 Left = 0
Top = 102 Top = 106
Width = 638 Width = 638
Height = 543 Height = 539
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -88,14 +88,14 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 102 ExplicitTop = 106
ExplicitWidth = 638 ExplicitWidth = 638
ExplicitHeight = 543 ExplicitHeight = 539
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 638 Width = 638
Height = 415 Height = 411
ExplicitWidth = 638 ExplicitWidth = 638
ExplicitHeight = 415 ExplicitHeight = 411
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -171,8 +171,8 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 517 Top = 513
ExplicitTop = 517 ExplicitTop = 513
ExplicitWidth = 638 ExplicitWidth = 638
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 638 Width = 638
@ -1631,6 +1631,10 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
item item
Caption = 'Listado de recibos' Caption = 'Listado de recibos'
Value = 200 Value = 200
end
item
Caption = 'Listado facturas/cobros del proveedor seleccionado'
Value = 300
end> end>
ButtonBar.Buttons = [cbCancel] ButtonBar.Buttons = [cbCancel]
MainIcon = tdiCustom MainIcon = tdiCustom
@ -1865,7 +1869,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 500
Left = 408 Left = 408
Top = 80 Top = 80
end end

3
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

@ -115,6 +115,9 @@ begin
200 : begin // Listado de recibos de cliente 200 : begin // Listado de recibos de cliente
AGestorInformesController.VerInformeListadoRecibosProveedor; AGestorInformesController.VerInformeListadoRecibosProveedor;
end; end;
300: begin
AGestorInformesController.VerInformeListadoFacturasRecibosProv(RecibosProveedor.ID_PROVEEDOR);
end;
end; end;
end; end;

3
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
View File

@ -13,7 +13,8 @@ uses
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxImage, Grids, DBGrids, uBizRecibosProveedor, cxGridCustomPopupMenu, cxImage, Grids, DBGrids, uBizRecibosProveedor, cxGridCustomPopupMenu,
cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX, cxGridPopupMenu, cxCalendar, cxCurrencyEdit, uViewFiltroBase, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces; TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, uCustomView,
uViewBase;
type type
IViewRecibosProveedor = interface(IViewGrid) IViewRecibosProveedor = interface(IViewGrid)

20
Source/Servicios/FactuGES.RODL
View File

@ -749,6 +749,10 @@
</Parameter> </Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" > <Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeListadoFacturasProv" UID="{65AC9CE1-960E-4427-A70F-BE55AA4A8F96}"> <Operation Name="GenerarInformeListadoFacturasProv" UID="{65AC9CE1-960E-4427-A70F-BE55AA4A8F96}">
@ -919,6 +923,22 @@
</Parameter> </Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="GenerarInformeListadoFacturasRecibosProv" UID="{E0E5FBF2-4A90-4AD9-87A7-CE034FB1A9B6}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="IdEmpresa" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="ListadoIDProveedores" DataType="TIntegerArray" Flag="In" >
</Parameter>
<Parameter Name="Desglosado" DataType="Boolean" Flag="In" >
</Parameter>
<Parameter Name="FechaInicio" DataType="Variant" Flag="In" >
</Parameter>
<Parameter Name="FechaFin" DataType="Variant" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations> </Operations>
</Interface> </Interface>
</Interfaces> </Interfaces>

37
Source/Servicios/FactuGES_Intf.pas
View File

@ -802,7 +802,8 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
@ -819,6 +820,8 @@ type
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
end; end;
{ CosrvGestorInformes } { CosrvGestorInformes }
@ -837,7 +840,8 @@ type
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCli(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListadoIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
function GenerarInformeListadoFacturasProv(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; 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; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoFacturasCliPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
@ -854,6 +858,8 @@ type
const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray;
const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
end; end;
{ IsrvContratosCliente } { IsrvContratosCliente }
@ -2561,7 +2567,8 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
begin begin
try try
result := nil; result := nil;
@ -2569,6 +2576,8 @@ begin
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Write('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Finalize; __Message.Finalize;
__TransportChannel.Dispatch(__Message); __TransportChannel.Dispatch(__Message);
@ -2776,6 +2785,28 @@ begin
end end
end; end;
function TsrvGestorInformes_Proxy.GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeListadoFacturasRecibosProv');
__Message.Write('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Write('ListadoIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDProveedores, []);
__Message.Write('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Write('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Write('FechaFin', TypeInfo(Variant), FechaFin, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvContratosCliente } { CosrvContratosCliente }
class function CosrvContratosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContratosCliente; class function CosrvContratosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvContratosCliente;

49
Source/Servicios/FactuGES_Invk.pas
View File

@ -316,6 +316,7 @@ type
procedure Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoRecibosCliPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoRecibosProvPendientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerarInformeListadoPresupuestos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeListadoFacturasRecibosProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker) TsrvContratosCliente_Invoker = class(TDataAbstractService_Invoker)
@ -1882,11 +1883,14 @@ begin
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosCli(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean): Binary; } { function GenerarInformeListadoFacturasRecibosCli(const IdEmpresa: Integer; const ListadoIDClientes: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary; }
var var
IdEmpresa: Integer; IdEmpresa: Integer;
ListadoIDClientes: FactuGES_Intf.TIntegerArray; ListadoIDClientes: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean; Desglosado: Boolean;
FechaInicio: Variant;
FechaFin: Variant;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -1896,8 +1900,10 @@ begin
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []); __Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []); __Message.Read('ListadoIDClientes', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDClientes, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []); __Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListadoIDClientes, Desglosado); lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosCli(IdEmpresa, ListadoIDClientes, Desglosado, FechaInicio, FechaFin);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasRecibosCliResponse'); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasRecibosCliResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -2267,6 +2273,45 @@ begin
end; end;
end; end;
procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeListadoFacturasRecibosProv(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeListadoFacturasRecibosProv(const IdEmpresa: Integer; const ListadoIDProveedores: TIntegerArray; const Desglosado: Boolean; const FechaInicio: Variant;
const FechaFin: Variant): Binary; }
var
IdEmpresa: Integer;
ListadoIDProveedores: FactuGES_Intf.TIntegerArray;
Desglosado: Boolean;
FechaInicio: Variant;
FechaFin: Variant;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListadoIDProveedores := nil;
lResult := nil;
try
__Message.Read('IdEmpresa', TypeInfo(Integer), IdEmpresa, []);
__Message.Read('ListadoIDProveedores', TypeInfo(FactuGES_Intf.TIntegerArray), ListadoIDProveedores, []);
__Message.Read('Desglosado', TypeInfo(Boolean), Desglosado, []);
__Message.Read('FechaInicio', TypeInfo(Variant), FechaInicio, []);
__Message.Read('FechaFin', TypeInfo(Variant), FechaFin, []);
lResult := (__Instance as IsrvGestorInformes).GenerarInformeListadoFacturasRecibosProv(IdEmpresa, ListadoIDProveedores, Desglosado, FechaInicio, FechaFin);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvGestorInformes', 'GenerarInformeListadoFacturasRecibosProvResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListadoIDProveedores);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvContratosCliente_Invoker } { TsrvContratosCliente_Invoker }
constructor TsrvContratosCliente_Invoker.Create; constructor TsrvContratosCliente_Invoker.Create;

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">4</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.7.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de abril de 2018 18:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">6</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.7.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de junio de 2019 17:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.